From c0b169dd71bcf4ef738ead09ea645eddd0a3869c Mon Sep 17 00:00:00 2001 From: Michael Wiebusch Date: Wed, 26 Jun 2013 19:24:54 +0200 Subject: [PATCH] corrected bugs --- xml_spielwiese/cgitest.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/xml_spielwiese/cgitest.pl b/xml_spielwiese/cgitest.pl index 8603757..db0f9f0 100755 --- a/xml_spielwiese/cgitest.pl +++ b/xml_spielwiese/cgitest.pl @@ -311,7 +311,7 @@ for my $register (@registers ){ my $registerName = $register->findvalue("./\@name"); my $registerId = $register->findvalue("./\@id"); my $registerSize = $register->findvalue("./\@size"); - my $registerDescr = prepare_text($spectree->findvalue("/MAPS/register[\@name='""']description") || "n/a"); + my $registerDescr = prepare_text($spectree->findvalue("/MAPS/register[\@name='".$registerName."']/description") || "n/a"); my $flistid = $xmlfile."//".$registerName; @@ -358,7 +358,7 @@ sub print_fields { my $fieldName = $field->findvalue("./\@name"); my $readOnlyFlag = 0; my $fieldValue = $field->findvalue("./\@value"); - my $fieldDescr = prepare_text($field->findvalue("./description") || "n/a"); + my $fieldDescr = prepare_text($spectree->findvalue("/MAPS/register[\@name='".$registerName."']/field[\@name='".$fieldName."']/description") || "n/a"); my $fieldId = $xmlfile."//".$registerName."/".$fieldName; if ($fieldValue eq "") { $fieldValue = $field->findvalue("./\@defaultValue"); -- 2.43.0