perl/modules/W3C/LogValidator/lib/W3C/LogValidator HTMLValidator.pm,1.20,1.21

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv4087

Modified Files:
	HTMLValidator.pm 
Log Message:
rewording for one special case

Index: HTMLValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/HTMLValidator.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- HTMLValidator.pm	17 May 2005 07:00:10 -0000	1.20
+++ HTMLValidator.pm	1 Aug 2005 05:04:10 -0000	1.21
@@ -310,11 +310,16 @@
 		else
 		# we didn't find as many invalid docs as requested
 		{
-
+        if ($max_invalid) {
 			$outro="Conclusion :
 You asked for $max_invalid invalid HTML document but I could only find $invalid_census 
 by processing (all the) $total_census document(s) in your logs. 
-This means that about $ratio\% of your most popular documents were invalid.";
+This means that about $ratio\% of your most popular documents were invalid.";}
+        else # max_invalid set to 0, user asked for all invalid docs
+   		{$outro="Conclusion :
+I found $invalid_census 
+by processing (all the) $total_census document(s) in your logs. 
+This means that about $ratio\% of your most popular documents were invalid.";}     
 		}
 	}
 	elsif (!$total_census)

Received on Monday, 1 August 2005 05:04:17 UTC