| Line 43... |
Line 43... |
| 43 |
my $homeURL = '/schedule/';
|
43 |
my $homeURL = '/schedule/';
|
| 44 |
my @pagelimitoptions = ("All", 5, 10, 25);
|
44 |
my @pagelimitoptions = ("All", 5, 10, 25);
|
| 45 |
my @whereClause;
|
45 |
my @whereClause;
|
| 46 |
push @whereClause, "RCid = $RCid" unless $LVL > 2;
|
46 |
push @whereClause, "RCid = $RCid" unless $LVL > 2;
|
| Line -... |
Line 47... |
| - |
|
47 |
|
| 47 |
|
48 |
|
| 48 |
# If we need to modify line item values, create a subroutine named "modify_$columnname"
|
49 |
# If we need to modify line item values, create a subroutine named "modify_$columnname"
|
| Line 49... |
Line 50... |
| 49 |
# It will receive a hashref to the object lineitem
|
50 |
# It will receive a hashref to the object lineitem
|
| 50 |
|
51 |
|
| Line 122... |
Line 123... |
| 122 |
# If the field isn't in the displayFields list, then add it to the hideFields list
|
123 |
# If the field isn't in the displayFields list, then add it to the hideFields list
|
| 123 |
@hideFields = grep { notInArray ($_, \@displayFields) } @allFields;
|
124 |
@hideFields = grep { notInArray ($_, \@displayFields) } @allFields;
|
| Line 124... |
Line 125... |
| 124 |
|
125 |
|
| 125 |
# Process any filters provided in the form to pass to the database
|
126 |
# Process any filters provided in the form to pass to the database
|
| - |
|
127 |
@whereClause = map { filter ($_, $FILTER->{$_}) } grep { defined $FILTER->{$_} } @displayFields;
|
| Line 126... |
Line 128... |
| 126 |
@whereClause = map { filter ($_, $FILTER->{$_}) } grep { defined $FILTER->{$_} } @displayFields;
|
128 |
push @whereClause, "RCid = $RCid" unless $LVL > 2;
|
| 127 |
|
129 |
|
| 128 |
# Given the fields to display and the where conditions,
|
130 |
# Given the fields to display and the where conditions,
|
| 129 |
# "getData" will return a reference to an array of
|
131 |
# "getData" will return a reference to an array of
|