validator/httpd/cgi-bin check,1.484,1.485

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

Modified Files:
	check 
Log Message:
small hack for grouping of xml-wf errors  -we really need to extract a catalog of all errors generated by the xml parser

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.484
retrieving revision 1.485
diff -u -d -r1.484 -r1.485
--- check	19 Mar 2007 00:58:44 -0000	1.484
+++ check	19 Mar 2007 01:51:21 -0000	1.485
@@ -651,7 +651,7 @@
             $err->{src}  = '...'; # do this with show_open_entities()?
             $err->{line} = $xmlwf_error_line;
             $err->{char} = $xmlwf_error_col;
-            $err->{num}  = 0;
+            $err->{num}  = 'xmlwf';
             $err->{type} = "E";
             $err->{msg}  = $xmlwf_error_msg;
 
@@ -1523,11 +1523,17 @@
               # index by num for errors and warnings only - info usually give context of error or warning
         if (! exists $Errors_bytype{$err->{num}}) {
                 $Errors_bytype{$err->{num}}->{instances} = [];
-                my $msg_text = $RSRC->{msg}->{$err->{num}}->{original};
-                $msg_text =~ s/%1/X/;
-                $msg_text =~ s/%2/Y/;
-                $Errors_bytype{$err->{num}}->{msg} = $msg_text;
+                my $msg_text;
+                if ($err->{num} ne 'xmlwf') {
+                  $msg_text = $RSRC->{msg}->{$err->{num}}->{original};
+                  $msg_text =~ s/%1/X/;
+                  $msg_text =~ s/%2/Y/;
+                }
+                else { ## FIXME ## we need a catalog of errors from our XML parser 
+                  $msg_text = "XML Parsing Error";  
+                }
                 $Errors_bytype{$err->{num}}->{expl} = $err->{expl};
+                $Errors_bytype{$err->{num}}->{msg} = $msg_text;
                 $Errors_bytype{$err->{num}}->{type} = $err->{type};
                 $Errors_bytype{$err->{num}}->{class} = $err->{class};
                 $Errors_bytype{$err->{num}}->{err_type_err} = $err->{err_type_err};