- From: Terje Bless <link@dev.w3.org>
- Date: Sat, 05 Feb 2005 04:08:33 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv21222/httpd/cgi-bin
Modified Files:
check
Log Message:
Renabling badges; close Bug #915.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.389
retrieving revision 1.390
diff -u -d -r1.389 -r1.390
--- check 4 Feb 2005 23:31:04 -0000 1.389
+++ check 5 Feb 2005 04:08:31 -0000 1.390
@@ -1066,23 +1066,17 @@
my $File = shift;
my $T = shift;
- my $gifborder = ' border="0"';
- my $xhtmlendtag = '';
- my($image_uri, $alttext, $gifhw);
-
unless ($File->{Version} eq 'unknown' or defined $File->{Tentative}) {
$T->param(file_version => $File->{Version});
- # @@@
- # print &daily_tip($File, $CFG->{Tips});
- # &print_warnings($File);
-
- if (defined $image_uri) {
- $T->param(have_badge => TRUE);
- $T->param(badge_uri => $image_uri);
- $T->param(badge_alt => $alttext);
- $T->param(badge_gifhw => $gifhw);
- $T->param(badge_xhtml => $xhtmlendtag);
+ if (exists $CFG->{Types}->{$File->{DOCTYPE}}->{Badge}) {
+ my $cfg = $CFG->{Types}->{$File->{DOCTYPE}};
+ $T->param(have_badge => TRUE);
+ $T->param(badge_uri => $cfg->{Badge}->{URI});
+ $T->param(badge_alt => $cfg->{Badge}->{Alt});
+ $T->param(badge_h => $cfg->{Badge}->{Height});
+ $T->param(badge_w => $cfg->{Badge}->{Width});
+ $T->param(badge_tagc => ($cfg->{'Parse Mode'} eq 'XML' ? '/' : ''));
}
} elsif (defined $File->{Tentative}) {
$T->param(is_tentative => TRUE);
Received on Saturday, 5 February 2005 04:08:33 UTC