|
Lines 66-76
sub list {
Link Here
|
| 66 |
|
66 |
|
| 67 |
# Create new "formatted" columns for each date column |
67 |
# Create new "formatted" columns for each date column |
| 68 |
# that needs formatting |
68 |
# that needs formatting |
| 69 |
foreach(@req_list) { |
69 |
foreach my $req(@req_list) { |
| 70 |
foreach my $field(@format_dates) { |
70 |
foreach my $field(@format_dates) { |
| 71 |
if (defined $_->{$field}) { |
71 |
if (defined $req->{$field}) { |
| 72 |
$_->{$field . "_formatted"} = format_sqldatetime( |
72 |
$req->{$field . "_formatted"} = format_sqldatetime( |
| 73 |
$_->{$field}, |
73 |
$req->{$field}, |
| 74 |
undef, |
74 |
undef, |
| 75 |
undef, |
75 |
undef, |
| 76 |
1 |
76 |
1 |
| 77 |
- |
|
|