From: Hadaq <hadaq@hades39.gsi.de>
Date: Wed, 20 Jul 2016 13:21:56 +0000 (+0200)
Subject: removed not supported when statements, mt
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=41b066ef53fa2d8b734006de6eb870f9f5c22e7f;p=daqtools.git

removed not supported when statements, mt
---

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;
 }