root/trunk/t/htdocs/15-i18n/read-accept-languages.asp

Revision 78, 249 bytes (checked in by clinton, 4 years ago)

Expand and update i18n tests, tid10737 tid10892 trac23

Line 
1 <% #> -*-cperl-*-
2
3   use Data::Dumper;
4
5   my $handler = sub {
6      my $txt = shift;
7      my $langs = shift;
8      print Data::Dumper->Dump([$langs], ['got']);
9      return $txt;
10   };
11
12   $Response->i18nHandler($handler);
13
14 %>
15 <%= $Response->i18n('') %>
Note: See TracBrowser for help on using the browser.