Subversion Repositories VORC

Rev

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

Rev 130 Rev 131
Line 114... Line 114...
114 
}
 114 
}
Line 115... Line 115...
115 
 
 115 
 
116 
sub modify_derby_name {
 116 
sub modify_derby_name {
117 
  my $t = shift;
 117 
  my $t = shift;
118 
  my $dept = $t->{orig_dept} // $t->{dept};
 - 
 
Line 119... Line 118...
119 
 		warn "DEBUG: RCid: ".$t->{RCid};
 118 
  my $dept = $t->{orig_dept} // $t->{dept};
120
119
121 
  if ($t->{derby_name}) {
 120 
  if ($t->{derby_name}) {
122 
    if ($user->{department}->{$dept} >= RollerCon::LEAD or $LVL >= RollerCon::ADMIN) {
 121 
    if ($user->{department}->{$dept} >= RollerCon::LEAD or $LVL >= RollerCon::ADMIN) {