Lines 42-48
use warnings;
Link Here
|
42 |
use CGI; |
42 |
use CGI; |
43 |
use C4::Context; |
43 |
use C4::Context; |
44 |
use C4::Auth; |
44 |
use C4::Auth; |
45 |
use C4::Dates qw(format_date); |
|
|
46 |
use C4::Output; |
45 |
use C4::Output; |
47 |
use C4::Budgets qw/GetCurrency GetCurrencies/; |
46 |
use C4::Budgets qw/GetCurrency GetCurrencies/; |
48 |
|
47 |
|
Lines 103-111
sub default_path {
Link Here
|
103 |
} |
102 |
} |
104 |
$end_of_page--; |
103 |
$end_of_page--; |
105 |
my @display_curr = @currencies[ $offset .. $end_of_page ]; |
104 |
my @display_curr = @currencies[ $offset .. $end_of_page ]; |
106 |
for my $c (@display_curr) { |
|
|
107 |
$c->{timestamp} = format_date( $c->{timestamp} ); |
108 |
} |
109 |
my $activecurrency = GetCurrency(); |
105 |
my $activecurrency = GetCurrency(); |
110 |
|
106 |
|
111 |
$template->param( |
107 |
$template->param( |
Lines 172-180
sub add_form {
Link Here
|
172 |
$template->param( $_ => $curr_rec->{$_} ); |
168 |
$template->param( $_ => $curr_rec->{$_} ); |
173 |
} |
169 |
} |
174 |
} |
170 |
} |
175 |
if ($date) { |
|
|
176 |
$template->param( 'timestamp' => format_date($date) ); |
177 |
} |
178 |
|
171 |
|
179 |
return; |
172 |
return; |
180 |
} |
173 |
} |