undef $locale;
 $locale = Wx::Locale->new('Czech', 'cz','cz');
 $locale->AddCatalogLookupPathPrefix(filename('data/locale'));
 $locale->AddCatalog('evidence');

##</code><code>##

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 <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"

##</code><code>##

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;
}