validator/httpd/cgi-bin check,1.389,1.390

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