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 
 
 -