- From: Ville Skytta <ville@dev.w3.org>
- Date: Sun, 10 Oct 2004 15:23:23 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv22120/httpd/cgi-bin
Modified Files:
check
Log Message:
Don't hardcode en_US in base template path; move it to Perl code instead so
we can conneg that sometime later.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.347
retrieving revision 1.348
diff -u -d -r1.347 -r1.348
--- check 10 Oct 2004 15:12:18 -0000 1.347
+++ check 10 Oct 2004 15:23:21 -0000 1.348
@@ -302,17 +302,22 @@
#### Generate Template for Result. ############################################
###############################################################################
+my $lang = 'en_US'; # @@@ TODO: conneg
+
my $T = HTML::Template->new(
- filename => File::Spec->catfile($CFG->{Paths}->{Templates}, 'result.tmpl'),
+ filename => File::Spec->catfile($CFG->{Paths}->{Templates},
+ $lang, 'result.tmpl'),
die_on_bad_params => FALSE,
);
my $E = HTML::Template->new(
- filename => File::Spec->catfile($CFG->{Paths}->{Templates}, 'fatal-error.tmpl'),
+ filename => File::Spec->catfile($CFG->{Paths}->{Templates},
+ $lang, 'fatal-error.tmpl'),
die_on_bad_params => FALSE,
);
$T->param(cfg_home_page => $CFG->{'Home Page'});
+undef $lang;
#########################################
# Populate $File->{Opt} -- CGI Options. #
Received on Sunday, 10 October 2004 15:23:23 UTC