diff options
| author | ville <ville@localhost> | 2009-12-05 10:05:35 +0000 |
|---|---|---|
| committer | ville <ville@localhost> | 2009-12-05 10:05:35 +0000 |
| commit | bd321fc6d8deae1272617b4a1afaad47ffd4c1e2 (patch) | |
| tree | 8d7a9e6ddfafecd1dd44dc77fec8b60ab2b46a68 | |
| parent | 1f7adf1447b7253400bd5dc8c3f7ba4f691c1be5 (diff) | |
| download | markup-validator-bd321fc6d8deae1272617b4a1afaad47ffd4c1e2.zip markup-validator-bd321fc6d8deae1272617b4a1afaad47ffd4c1e2.tar.gz markup-validator-bd321fc6d8deae1272617b4a1afaad47ffd4c1e2.tar.bz2 | |
Make validator version available to templates.
| -rwxr-xr-x | httpd/cgi-bin/check | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index e11112b..f04ccc7 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -14,7 +14,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.743 2009-12-04 22:28:42 ville Exp $ +# $Id: check,v 1.744 2009-12-05 10:05:35 ville Exp $ # # We need Perl 5.8.0+. @@ -197,7 +197,7 @@ EOF # # Strings - $VERSION = q$Revision: 1.743 $; + $VERSION = q$Revision: 1.744 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # Read friendly error message file @@ -986,7 +986,8 @@ sub get_template ($$) if (!$File->{_Templates}->{$fname}) { my $tmpl = HTML::Template->new(%{$File->{Template_Defaults}}, filename => $fname); - $tmpl->param(cfg_home_page => $CFG->{'Home Page'}); + $tmpl->param(cfg_home_page => $CFG->{'Home Page'}); + $tmpl->param(validator_version => $VERSION); $File->{_Templates}->{$fname} = $tmpl; } return $File->{_Templates}->{$fname}; |