Subversion Repositories VORC

Rev

Rev 102 | Rev 138 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 102 Rev 122
Line 86... Line 86...
86 
 
 86 
 
87 
sub modify_derby_name {
 87 
sub modify_derby_name {
Line 88... Line 88...
88 
  my $t = shift;
88 
  my $t = shift;
89 
 
 89 
 
90 
  if ($user->{department}->{"ANN"} < 2 and $t->{derby_name} and $t->{RCid} != $RCid and $LVL < 5) {
 90 
  if ($user->{department}->{"ANN"} < 2 and $t->{derby_name} and $t->{RCid} != $RCid and $LVL < 5) {
Line 91... Line 91...
91 
    $t->{derby_name} = "FILLED";
 91 
    $t->{derby_name} = "FILLED" unless getUser($t->{RCid})->{showme};
92 
  }
 92 
  }
93
93