From ddc524f79b5ad5f5c075fa18d9e4f6815860b4d0 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Thu, 17 Oct 2013 19:22:52 +0200
Subject: [PATCH] bugfix

---
 xml-db/get.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 4b07756..4f7b512 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -2,8 +2,8 @@
 use HADES::TrbNet;
 use Storable qw(lock_retrieve);
 use feature "switch";
-
 use CGI::Carp qw(fatalsToBrowser);
+
 use if (!defined $ENV{'QUERY_STRING'}), warnings;
 use if (!defined $ENV{'QUERY_STRING'}), Pod::Usage;
 use if (!defined $ENV{'QUERY_STRING'}), Text::TabularDisplay;
@@ -124,6 +124,7 @@ sub FormatPretty {
   my ($value,$obj,$cont,$class,$cstr) = @_;
   $value  = $value >> ($obj->{start});
   $value &= ((1<<$obj->{bits})-1);
+  my $rawvalue = $value;
   $value = $value * ($obj->{scale}||1) + ($obj->{scaleoffset}||0);
   
   $class = "" unless $class;
@@ -134,8 +135,8 @@ sub FormatPretty {
     $cl = "class=\"$class ".($value?"good":"bad")."\"" if     ( $obj->{errorflag} &&  $obj->{invertflag});
     $cl = "class=\"$class ".($value?"high":"low")."\"" if     (!$obj->{errorflag} && !$obj->{invertflag});
     $cl = "class=\"$class ".($value?"low":"high")."\"" if     (!$obj->{errorflag} &&  $obj->{invertflag});
-    $cl .= sprintf(" title=\"raw: 0x%x\n$cstr\"",$value);
-    $cl .= sprintf(" cstr=\"$cstr\" raw=\"0x%x\"",$value);
+    $cl .= sprintf(" title=\"raw: 0x%x\n$cstr\"",$rawvalue);
+    $cl .= sprintf(" cstr=\"$cstr\" raw=\"0x%x\"",$rawvalue);
     
     $ret = "<$cont ";
     for($obj->{format}) {    
-- 
2.43.0