perl/modules/W3C/XHTML/HTMLCompatChecker/bin appCcheck.pl,1.33,1.34

Update of /sources/public/perl/modules/W3C/XHTML/HTMLCompatChecker/bin
In directory hutz:/tmp/cvs-serv23645/bin

Modified Files:
	appCcheck.pl 
Log Message:
adding default message numbers (0) and moving note about ill-formed content to info - not an error according to this observer

Index: appCcheck.pl
===================================================================
RCS file: /sources/public/perl/modules/W3C/XHTML/HTMLCompatChecker/bin/appCcheck.pl,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- appCcheck.pl	8 Sep 2006 05:33:19 -0000	1.33
+++ appCcheck.pl	20 Sep 2006 07:06:52 -0000	1.34
@@ -372,12 +372,6 @@
               <message><a href="http://www.w3.org/TR/xhtml1/#C_<TMPL_VAR NAME="cnum" ESCAPE="HTML">"><TMPL_VAR NAME="message_text" ESCAPE="HTML"></a></message>
       </error>
       </TMPL_LOOP>
-      <TMPL_UNLESS NAME="is_wf">
-      <error>
-              <message>The document appears to not be well-formed XML. Either it is not XHTML (e.g HTML up to version 4.01) or it has XML well-formedness errors. 
-              HTML Compatibility guidelines checking does not apply.</message>
-      </error>
-      </TMPL_UNLESS>
   </errorlist>
 </errors>
 <warnings>
@@ -404,6 +398,12 @@
               <message><a href="http://www.w3.org/TR/xhtml1/#C_<TMPL_VAR NAME="cnum" ESCAPE="HTML">"><TMPL_VAR NAME="message_text" ESCAPE="HTML"></a></message>
       </info>
       </TMPL_LOOP>
+      <TMPL_UNLESS NAME="is_wf">
+      <info>
+              <message>The document appears to not be well-formed XML. Either it is not XHTML (e.g HTML up to version 4.01) or it has XML well-formedness errors. 
+              HTML Compatibility guidelines checking does not apply.</message>
+      </info>
+      </TMPL_UNLESS>
   </infolist>
 </informations>
 </result>
@@ -436,6 +436,11 @@
 }
 
 my $output = &prep_output($output_param);
+## output defaults 
+$output->param(passed => 1);
+$output->param(info_count => 0);                               
+$output->param(warning_count => 0);                         
+$output->param(error_count => 0);
 
 if (defined $uri and length $uri and URI->new($uri)->scheme eq "http")
 {
@@ -464,8 +469,7 @@
         if ($@) # not well-formed
         {
                 $IS_WF = 0;
-                $output->param(passed => 0);
-         $output->param(error_count => 1);       
+         $output->param(info_count => 1);       
         }
         else # woot, WF
         {

Received on Wednesday, 20 September 2006 07:06:57 UTC