Subversion Repositories VORC

Rev

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

Rev 252 Rev 275
Line 43... Line 43...
43 
  note        => [qw(Notes         60    text        default )],
 43 
  note        => [qw(Notes         60    text        default )],
44 
  RCid        => [qw(RCID          65    text         )],
 44 
  RCid        => [qw(RCID          65    text         )],
45 
  derby_name  => [qw(Assignee      70    select      default   )],
 45 
  derby_name  => [qw(Assignee      70    select      default   )],
46 
);
 46 
);
Line -... Line 47...
- 
 
 47 
 
- 
 
 48 
if ($LVL >= RollerCon::SYSADMIN) {
- 
 
 49 
  $COLUMNS{full_name} = [qw(FullName  75  text)];
- 
 
 50 
}
47 
 
 51 
 
48 
my @whereClause;
 52 
my @whereClause;
49 
# Users should only see shifts within their own departments (except VCI sees all)
 53 
# Users should only see shifts within their own departments (except VCI sees all)
50 
if ($LVL < 5 and $ORCUSER->{VCI} < 2) {
 54 
if ($LVL < 5 and $ORCUSER->{VCI} < 2) {
51 
  my $string = "dept in (".join ",", map { '"'.$_.'"' } grep { $ORCUSER->{department}->{$_} >= 1 } keys %{$ORCUSER->{department}};
 55 
  my $string = "dept in (".join ",", map { '"'.$_.'"' } grep { $ORCUSER->{department}->{$_} >= 1 } keys %{$ORCUSER->{department}};