Update CTS GUI with larger window size

diff --git a/web/CtsPlugins/CtsMod20.pm b/web/CtsPlugins/CtsMod20.pm
index 41bcc704a35e9ceef13c1a7461a26a1606ccd23e..8cfe1d0a68f533ae25a5dca0d985b5e1bcd7916c 100755 (executable)
--- a/web/CtsPlugins/CtsMod20.pm
+++ b/web/CtsPlugins/CtsMod20.pm
@@ -14,12 +14,17 @@ sub init {
    my $address = $_[1];
    
    my $trb  = $self->{'_cts'}{'_trb'};
-   
+
+   my $cprop = $self->{'_cts'}{'_properties'};
+
    my $regs = $self->{'_registers'};
    my $prop = $self->{'_properties'};
 
    my $header = $self->{'_cts'}{'_enum'}{0x20}->read();
    
+   my $windowsize = 4;
+   if ($cprop->{'trb_compiletime'} >= 0x5ed6332f) {$windowsize=6;}
+   
 # registers
    for(my $i = 0; $i < $header->{'len'}; $i++) {
       my $key = "trg_coin_config$i";
@@ -27,7 +32,7 @@ sub init {
       $regs->{$key} = new TrbRegister($address + 1 + $i, $trb, {
          'coin_mask'    => {'lower' =>  0, 'len' => 8, 'type' => 'mask'},
          'inhibit_mask' => {'lower' =>  8, 'len' => 8, 'type' => 'mask'},
-         'window'       => {'lower' => 16, 'len' => 4}
+         'window'       => {'lower' => 16, 'len' => $windowsize}
       }, {
          'accessmode' => "rw",
          'label' => "Coincidence Configuration $i",
@@ -45,4 +50,4 @@ sub init {
    $prop->{"trg_coin_itc_base"} = $header->{'itc_base'};
 }
 
-1;
\ No newline at end of file
+1;