Subversion Repositories VORC

Rev

Rev 280 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 280 Rev 297
Line 214... Line 214...
214 
  my @optionList;
 214 
  my @optionList;
Line 215... Line 215...
215
215
216 
  if ($LVL >= 3) {
 216 
  if ($LVL >= 3) {
217 
    @optionList = grep { !/^PER$/ } sort keys %{ $DepartmentNames };
 217 
    @optionList = grep { !/^PER$/ } sort keys %{ $DepartmentNames };
218 
  } else {
 218 
  } else {
219 
    @optionList = grep { $user->{department}->{$_} > 2 } keys %{ $user->{department} };
 219 
    @optionList = grep { $user->{department}->{$_} >= 1 } keys %{ $user->{department} };
Line 220... Line 220...
220 
  }
 220 
  }
221
221
222 
  return $h->select ({ name=>"dept" },
 222 
  return $h->select ({ name=>"dept" },