W3C home > Mailing lists > Public > www-validator-cvs@w3.org > May 2005

validator/httpd/cgi-bin check,1.419,1.420

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Mon, 23 May 2005 05:50:48 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1Da5pw-0007Sq-BR@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv28664/httpd/cgi-bin

Modified Files:
	check 
Log Message:
only output error loop's <ol></ol> if list not empty, and regrouping duplicate code

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.419
retrieving revision 1.420
diff -u -d -r1.419 -r1.420
--- check	16 May 2005 08:41:46 -0000	1.419
+++ check	23 May 2005 05:50:45 -0000	1.420
@@ -851,17 +851,20 @@
   else {
     $T->param(file_version => $File->{Version});
   }
-  
+  my $num_errors = scalar @{$File->{Errors}};
+  if ($num_errors >0)
+  {
+    $T->param(has_errors => 1);
+  }
+  $T->param(valid_errors_num => $num_errors);
+  $T->param(file_errors => &report_errors($File));
   if ($File->{'Is Valid'}) {
     $T->param(VALID => TRUE);
     $T->param(valid_status => 'Valid');
-    $T->param(file_errors => &report_errors($File));
     &report_valid($File, $T);
   } else {
     $T->param(VALID => FALSE);
     $T->param(valid_status => 'Invalid');
-    $T->param(valid_errors_num => scalar @{$File->{Errors}});
-    $T->param(file_errors => &report_errors($File));
   }
 
   $T->param(file_warnings  => $File->{Warnings});
Received on Monday, 23 May 2005 05:50:50 UTC

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:10 UTC