added reg descriptions

diff --git a/xml_spielwiese/cgitest.pl b/xml_spielwiese/cgitest.pl
index 9956c480bf9af4375c26f1f1cce6c7d4c2510636..c5e3cc72ec2acc93202fe029e37c666934302a4f 100755 (executable)
--- a/xml_spielwiese/cgitest.pl
+++ b/xml_spielwiese/cgitest.pl
@@ -8,7 +8,7 @@ use warnings;
 use XML::LibXML;
 use POSIX;
 use CGI::Carp qw(fatalsToBrowser);
-
+use HTML::Entities;
 
 sub initPage {
        
@@ -225,6 +225,7 @@ for my $register (@registers ){
        my $registerName = $register->findvalue("./\@name");
        my $registerId = $register->findvalue("./\@id");
        my $registerSize = $register->findvalue("./\@size");
+  my $registerDescr = encode_entities($register->findvalue("./description") || "n/a");
 
        my $flistid = $xmlfile."//".$registerName;
        
@@ -233,7 +234,7 @@ for my $register (@registers ){
        print <<EOF;
 <td onClick='toggleVis("$flistid")' class='regheader'>&nbsp;+&nbsp;</td>
 EOF
-       print "<td>$registerName</td>"; 
+       print "<td title=\"$registerDescr\">$registerName</td>";        
        #print "<td>$registerId</td>";
 
                if($xmlfile eq $setfile){
@@ -271,6 +272,7 @@ sub print_fields {
                my $fieldName = $field->findvalue("./\@name");
                my $readOnlyFlag = 0;   
                my $fieldValue = $field->findvalue("./\@value");
+               my $fieldDescr = encode_entities($field->findvalue("./description") || "n/a");
                my $fieldId = $xmlfile."//".$registerName."/".$fieldName;
                if ($fieldValue eq "") {
                        $fieldValue = $field->findvalue("./\@defaultValue");
@@ -278,7 +280,7 @@ sub print_fields {
                }
 
                print "<tr>";
-               print "<td width=120>$fieldName</td>";
+               print "<td width=120  title=\"$fieldDescr\">$fieldName</td>";
                print "<td> &nbsp;=&nbsp;</td>";
                if ($readOnlyFlag){
                print <<EOF;