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;