Lines 162-176
sub add_form {
Link Here
|
162 |
$template->param( add_form => 1 ); |
162 |
$template->param( add_form => 1 ); |
163 |
|
163 |
|
164 |
#---- if primkey exists, it's a modify action, so read values to modify... |
164 |
#---- if primkey exists, it's a modify action, so read values to modify... |
|
|
165 |
my $date; |
165 |
if ($curr) { |
166 |
if ($curr) { |
166 |
my $curr_rec = |
167 |
my $curr_rec = |
167 |
$dbh->selectrow_hashref( 'select * from currency where currency=?', |
168 |
$dbh->selectrow_hashref( 'select * from currency where currency=?', |
168 |
{}, $curr ); |
169 |
{}, $curr ); |
169 |
for ( keys %{$curr_rec} ) { |
170 |
for ( keys %{$curr_rec} ) { |
|
|
171 |
if($_ eq "timestamp"){ $date = $curr_rec->{$_}; } |
170 |
$template->param( $_ => $curr_rec->{$_} ); |
172 |
$template->param( $_ => $curr_rec->{$_} ); |
171 |
} |
173 |
} |
172 |
} |
174 |
} |
173 |
my $date = $template->param('timestamp'); |
|
|
174 |
if ($date) { |
175 |
if ($date) { |
175 |
$template->param( 'timestamp' => format_date($date) ); |
176 |
$template->param( 'timestamp' => format_date($date) ); |
176 |
} |
177 |
} |
177 |
- |
|
|