From a10499dddb7390bfab786b50eafff4856766ae04 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Mon, 24 Jun 2013 16:45:23 +0200
Subject: [PATCH] added reg descriptions

---
 xml_spielwiese/cgitest.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/xml_spielwiese/cgitest.pl b/xml_spielwiese/cgitest.pl
index 9956c48..c5e3cc7 100755
--- 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;
-- 
2.43.0