From 41b066ef53fa2d8b734006de6eb870f9f5c22e7f Mon Sep 17 00:00:00 2001
From: Hadaq <hadaq@hades39.gsi.de>
Date: Wed, 20 Jul 2016 15:21:56 +0200
Subject: [PATCH] removed not supported when statements, mt

---
 xml-db/put.pl | 32 +++++++++++++++-----------------
 1 file changed, 15 insertions(+), 17 deletions(-)

diff --git a/xml-db/put.pl b/xml-db/put.pl
index e4b0f02..b564bd5 100755
--- 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;
 }
 
-- 
2.43.0