Subversion Repositories VORC

Rev

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

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