undef $locale;
$locale = Wx::Locale->new('Czech', 'cz','cz');
$locale->AddCatalogLookupPathPrefix(filename('data/locale'));
$locale->AddCatalog('evidence');
####
msgid ""
msgstr ""
"Project-Id-Version: evidence VERSION\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2007-07-26 22:49+0200\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME \n"
"Language-Team: LANGUAGE \n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
##
##
sub _T {
my $gettext;
my $octets;
my $result;
$gettext = gettext(@_);
$octets = Encode::encode(Wx::Locale::GetSystemEncodingName(), $gettext);
$result = Encode::decode_utf8($octets, Encode::FB_PERLQQ);
# fix czech small letter c<
$result =~ s/\\xC4\?/\x{10d}/g;
return $result;
}