Do not encode HTML in unit attribute

diff --git a/xml-db/database/Padiwa.xml b/xml-db/database/Padiwa.xml
index d6b01380af5009dc3ede83843dd4d868e5e0ab1b..15f12413e6e845511193016d7a303a0ff0e51dbb 100644 (file)
--- a/xml-db/database/Padiwa.xml
+++ b/xml-db/database/Padiwa.xml
@@ -32,7 +32,7 @@
     </memory>
     <register name="Temperature" address="0004">
       <description>Board Temperature</description>
-      <field name="Temperature" start="0" bits="16" format="float" unit="°C" scale=".0625"/>
+      <field name="Temperature" start="0" bits="16" format="float" unit="&#x2103;" scale=".0625"/>
     </register>
     <memory name="CompileTime" address="0110" size="2" width="16">
       <description>Unix timestamp of time of compilation</description>

diff --git a/xml-db/database/TrbNet.xml b/xml-db/database/TrbNet.xml
index 449b6771b6b9642c12ee2a46aa29b038854e26f2..048d4be339bff03a53e07dd7d18d559fa3c7b39a 100644 (file)
--- a/xml-db/database/TrbNet.xml
+++ b/xml-db/database/TrbNet.xml
@@ -10,7 +10,7 @@
   <group name="StatusRegisters" address="0000" mode="r" >
     <register name="CommonStatus0" address="0000" purpose="status">
       <description>Common Status Register 0</description>
-      <field name="Temperature" start="20" bits="12" format="float" unit="°C" scale=".0625" >
+      <field name="Temperature" start="20" bits="12" format="float" unit="&#x2103;" scale=".0625" >
         <description>Board temperature</description>
       </field>
     </register>

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 6fd4fc9031b71b342bc9b578d5aa61cf5c2f83f0..5cbfacb5fa345cfbd5606f9eadd650a81f74d125 100755 (executable)
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -4,7 +4,6 @@ use Storable qw(lock_store lock_retrieve);
 use feature "switch";
 use Time::HiRes qw( time usleep );
 use CGI::Carp qw(fatalsToBrowser);
-use HTML::Entities qw(encode_entities);
 
 use if (!defined $ENV{'QUERY_STRING'}), warnings;
 use if (!defined $ENV{'QUERY_STRING'}), Pod::Usage;
@@ -254,7 +253,7 @@ sub FormatPretty {
       }
     my $range = $obj->{start}+$obj->{bits}-1;
     $range .= "..".$obj->{start} if ($obj->{bits}>1);
-    $ret .= " ".encode_entities($obj->{unit}) if exists $obj->{unit};
+    $ret .= " ".$obj->{unit} if exists $obj->{unit};
     $ret .= sprintf("<span class=\"tooltip\"><b>$name</b> (Bit $range)<br>raw: 0x%x<br>$cstr</span></div>",$rawvalue);
 
     }
@@ -279,7 +278,7 @@ sub FormatPretty {
                           }
       default           {$ret = sprintf("0x%08x",$value);}
       }
-    $ret .= " ".encode_entities($obj->{unit}) if exists $obj->{unit};
+    $ret .= " ".$obj->{unit} if exists $obj->{unit};
     }
   return $ret;
   }