perl/modules/W3C/XHTML/HTMLCompatChecker/bin appCcheck.pl,1.35,1.36

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

Modified Files:
	appCcheck.pl 
Log Message:
adding name of guidelines in ucn output

Index: appCcheck.pl
===================================================================
RCS file: /sources/public/perl/modules/W3C/XHTML/HTMLCompatChecker/bin/appCcheck.pl,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- appCcheck.pl	22 Sep 2006 07:38:40 -0000	1.35
+++ appCcheck.pl	22 Sep 2006 11:11:47 -0000	1.36
@@ -58,6 +58,16 @@
     APPC_APOS_IN_ELEM,      [16, APPC_ERRO, "You must write ' as e.g. ' for legacy user agents"                    ],
 };
 
+use constant GUIDELINE_TITLES =>
+{
+    1, "Processing Instructions and the XML Declaration",
+    2, "Empty Elements",
+    3, "Element Minimization and Empty Element Content",
+    6, "Isindex",
+    7, "The lang and xml:lang Attributes",
+    16, "The Named Character Reference '",
+};
+
 use constant EMPTY_ELEMENTS => { map { $_ => 1 }
 qw/
     base basefont link area hr img
@@ -110,8 +120,9 @@
     my $stext = SEVERITY_NAMES->{CRITERIA->{$cod}->[1]};
     my $mtext = CRITERIA->{$cod}->[2];
     my $cnum  = CRITERIA->{$cod}->[0];
+    my $gtitle = GUIDELINE_TITLES->{$cnum};
 
-	push @MESSAGES, {severity => $stext, line => $posy, column => $posx + 1, cnum => $cnum, message_text => $mtext}
+	push @MESSAGES, {severity => $stext, line => $posy, column => $posx + 1, cnum => $cnum, message_text => $mtext, guideline_title => $gtitle}
    
 }
 
@@ -369,7 +380,9 @@
       <error>
               <line><TMPL_VAR NAME="line" ESCAPE="HTML"></line>
               <column><TMPL_VAR NAME="column" ESCAPE="HTML"></column>
-              <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>
+              <message><TMPL_VAR NAME="message_text" ESCAPE="HTML"></message>
+              <longmessage>See HTML Compatibility Guideline <TMPL_VAR NAME="cnum" ESCAPE="HTML">:
+	      <a href="http://www.w3.org/TR/xhtml1/#C_<TMPL_VAR NAME="cnum" ESCAPE="HTML">"><TMPL_VAR NAME="guideline_title" ESCAPE="HTML"></a></longmessage>
       </error>
       </TMPL_LOOP>
   </errorlist>
@@ -382,7 +395,9 @@
       <warning>
               <line><TMPL_VAR NAME="line" ESCAPE="HTML"></line>
               <column><TMPL_VAR NAME="column" ESCAPE="HTML"></column>
-              <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>
+              <message><TMPL_VAR NAME="message_text" ESCAPE="HTML"></message>
+              <longmessage>See HTML Compatibility Guideline <TMPL_VAR NAME="cnum" ESCAPE="HTML">:
+	      <a href="http://www.w3.org/TR/xhtml1/#C_<TMPL_VAR NAME="cnum" ESCAPE="HTML">"><TMPL_VAR NAME="guideline_title" ESCAPE="HTML"></a></longmessage>
       </warning>
       </TMPL_LOOP>
   </warninglist>
@@ -396,7 +411,8 @@
               <line><TMPL_VAR NAME="line" ESCAPE="HTML"></line>
               <column><TMPL_VAR NAME="column" ESCAPE="HTML"></column>
               <message><TMPL_VAR NAME="message_text" ESCAPE="HTML"></message>
-              <longmessage><a href="http://www.w3.org/TR/xhtml1/#C_<TMPL_VAR NAME="cnum" ESCAPE="HTML">"><TMPL_VAR NAME="message_text" ESCAPE="HTML"></a></longmessage>
+              <longmessage>See HTML Compatibility Guideline <TMPL_VAR NAME="cnum" ESCAPE="HTML">:
+	      <a href="http://www.w3.org/TR/xhtml1/#C_<TMPL_VAR NAME="cnum" ESCAPE="HTML">"><TMPL_VAR NAME="guideline_title" ESCAPE="HTML"></a></longmessage>
       </info>
       </TMPL_LOOP>
       <TMPL_UNLESS NAME="is_wf">

Received on Friday, 22 September 2006 11:11:57 UTC