Subversion Repositories ORC

Rev

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

Rev 25 Rev 29
Line 31... Line 31...
31
  dayofweek   => [qw(Day           17    select      )],
31
  dayofweek   => [qw(Day           17    select      )],
32
	time        => [qw(Time          20    text        default )],
32
	time        => [qw(Time          20    text        default )],
33
	start_time  => [qw(Start         25    text         )],
33
	start_time  => [qw(Start         25    text         )],
34
	end_time    => [qw(End           30    text         )],
34
	end_time    => [qw(End           30    text         )],
35
	mod_time    => [qw(ModTime       35    number         )],
35
	mod_time    => [qw(ModTime       35    number         )],
-
 
36
	doubletime  => [qw(DoubleTime    37    boolean         )],
36
	volhours    => [qw(VolHours      40    number         )],
37
	volhours    => [qw(VolHours      40    number         )],
37
	role        => [qw(Role          45    select      default )],
38
	role        => [qw(Role          45    select      default )],
38
	type        => [qw(Type          50    select      default )],
39
	type        => [qw(Type          50    select      default )],
39
	location    => [qw(Location      55    select      default )],
40
	location    => [qw(Location      55    select      default )],
40
	note        => [qw(Notes         60    text        default )],
41
	note        => [qw(Notes         60    text        default )],
Line 47... Line 48...
47
 
48
 
48
my @whereClause;
49
my @whereClause;
49
if ($LVL < 5) {
50
if ($LVL < 5) {
50
  my $string = "dept in (".join ",", map { '"'.$_.'"' } grep { $ORCUSER->{department}->{$_} >= 3 } keys %{$ORCUSER->{department}};
51
  my $string = "dept in (".join ",", map { '"'.$_.'"' } grep { $ORCUSER->{department}->{$_} >= 3 } keys %{$ORCUSER->{department}};
-
 
52
  $string .= ")";
51
  $string .= ")";
53
  push @whereClause, $string;
52
}
54
}
Line 53... Line 55...
53
push @whereClause, "dept != 'PER'";
55
push @whereClause, "dept != 'PER'";
54
 
56
 
Line -... Line 57...
-
 
57
# If we need to modify line item values, create a subroutine named "modify_$columnname"
-
 
58
#    It will receive a hashref to the object lineitem
-
 
59
 
-
 
60
sub modify_doubletime {
-
 
61
  my $thing = shift;
55
# If we need to modify line item values, create a subroutine named "modify_$columnname"
62
  return $thing->{doubletime} ? "True" : "False";
56
#    It will receive a hashref to the object lineitem
63
}
57
 
64
 
58
sub modify_id {
65
sub modify_id {
59
  my $hr = shift;
66
  my $hr = shift;