*** empty log message ***

diff --git a/cts/include/Cts.pm b/cts/include/Cts.pm
index 978b325efd6d6a59472996b17df399dd6c10aef7..22d29743060746a77ff0d9cc23ff82a1ca8b36e7 100644 (file)
--- a/cts/include/Cts.pm
+++ b/cts/include/Cts.pm
@@ -17,6 +17,7 @@ sub new {
       '_modules'    => {},   # hash (header-type => module) of modules loaded during enumeration
       '_registers'  => {},   # hash of available registers
       '_properties' => {
+         'daqopserver' => $trb->getDAQOPSERVER,
          'itc_assignments' => [
          qw(unconnected unconnected unconnected unconnected
             unconnected unconnected unconnected unconnected 
@@ -153,6 +154,10 @@ sub getRegisters {
    return $_[0]->{'_registers'};
 }
 
+sub getRegister {
+   return $_[0]->{'_registers'}{$_[1]};
+}
+
 sub getExportRegisters {
    # returns a list reference of register keys, that need to be
    # stored in order to reproduce the current setup