removed not supported when statements, mt

diff --git a/xml-db/put.pl b/xml-db/put.pl
index e4b0f02b03d08b9040ab2399fd2e278a070c9623..b564bd518aa6cda322aa22dfa6e2be44c7b2b7a0 100755 (executable)
--- a/xml-db/put.pl
+++ b/xml-db/put.pl
@@ -175,30 +175,28 @@ sub writedata {
   }
 
 sub register_read {
-  my ($netaddr, $regaddr) = @_;
-  for ($db->{'§EntityType'}) {
-    when ("TrbNetEntity")  {
-      $o =  trb_register_read($netaddr, $regaddr);
+    my ($netaddr, $regaddr) = @_;
+    if ($db->{'§EntityType'}  eq "TrbNetEntity")  {
+       $o =  trb_register_read($netaddr, $regaddr);
     }
-    when ("SpiEntity") {
-      $o = spi_register_read($netaddr, $regaddr);
+    elsif ($db->{'§EntityType'} eq "SpiEntity") {
+       $o = spi_register_read($netaddr, $regaddr);
     }
-    default {die "EntityType not recognized";}
-  }
-  return $o;
+    else {die "EntityType not recognized";}
+    
+    return $o;
 }
 
 sub register_write {
-  my ($netaddr, $regaddr, $value) = @_;
-  for ($db->{'§EntityType'}) {
-    when ("TrbNetEntity")  {
-      $o =  trb_register_write($netaddr, $regaddr, $value);
+    my ($netaddr, $regaddr, $value) = @_;
+    if ($db->{'§EntityType'} eq "TrbNetEntity")  {
+       $o =  trb_register_write($netaddr, $regaddr, $value);
     }
-    when ("SpiEntity") {
-      $o = spi_register_write($netaddr, $regaddr, $value);
+    elsif ($db->{'§EntityType'} eq "SpiEntity") {
+       $o = spi_register_write($netaddr, $regaddr, $value);
     }
-    default {die "EntityType not recognized";}
-  }
+    else  {die "EntityType not recognized";}
+    
   return $o;
 }