Subversion Repositories VORC

Rev

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

Rev 202 Rev 205
Line 42... Line 42...
42
# If we need to modify line item values, create a subroutine named "modify_$columnname"
42
# If we need to modify line item values, create a subroutine named "modify_$columnname"
43
#    It will receive a hashref to the object lineitem
43
#    It will receive a hashref to the object lineitem
Line 44... Line 44...
44
 
44
 
45
sub modify_pay {
45
sub modify_pay {
-
 
46
  my $thing = shift;
-
 
47
  $thing->{pay} = sprintf ("%.2f", $thing->{pay});
46
  my $thing = shift;
48
  $thing->{pay} =~ s/\.00$//;
47
  return $thing->{pay} ? '$'.$thing->{pay} : "";
49
  return $thing->{pay} ? '$'.$thing->{pay} : "";
48
}
50
}
49
# If we need to modify how a filter works, create a subroutine named "filter_$columnname"
51
# If we need to modify how a filter works, create a subroutine named "filter_$columnname"
Line 68... Line 70...
68
#                  PersonalTimeButton => 1,
70
#                  PersonalTimeButton => 1,
69
#                  HighlightShifts    => 1,
71
#                  HighlightShifts    => 1,
70
#                  HeaderButton       => { field  => "id",
72
#                  HeaderButton       => { field  => "id",
71
#                                          button => $h->input ({ type=>"button", value=>"Add", onClick=>"window.location.href='view_game.pl'" }) }
73
#                                          button => $h->input ({ type=>"button", value=>"Add", onClick=>"window.location.href='view_game.pl'" }) }
72
               });
74
               });
73
 
-