Lines 36-42
use C4::Auth;
Link Here
|
36 |
use C4::Debug; |
36 |
use C4::Debug; |
37 |
use Koha::Acquisition::Currencies; |
37 |
use Koha::Acquisition::Currencies; |
38 |
|
38 |
|
39 |
my $input = new CGI; |
39 |
our $input = new CGI; |
40 |
#### $input |
40 |
#### $input |
41 |
|
41 |
|
42 |
my $dbh = C4::Context->dbh; |
42 |
my $dbh = C4::Context->dbh; |
Lines 68-74
$template->param( period_button_only => 1 ) if $count == 0;
Link Here
|
68 |
|
68 |
|
69 |
# authcats_loop populates the YUI planning button |
69 |
# authcats_loop populates the YUI planning button |
70 |
my $auth_cats_loop = GetBudgetAuthCats($budget_period_id); |
70 |
my $auth_cats_loop = GetBudgetAuthCats($budget_period_id); |
71 |
my $budget_period_id = $period->{'budget_period_id'}; |
71 |
$budget_period_id = $period->{'budget_period_id'}; |
72 |
my $budget_period_startdate = $period->{'budget_period_startdate'}; |
72 |
my $budget_period_startdate = $period->{'budget_period_startdate'}; |
73 |
my $budget_period_enddate = $period->{'budget_period_enddate'}; |
73 |
my $budget_period_enddate = $period->{'budget_period_enddate'}; |
74 |
my $budget_period_locked = $period->{'budget_period_locked'}; |
74 |
my $budget_period_locked = $period->{'budget_period_locked'}; |
Lines 92-99
my $show_active = $input->param('show_active');
Link Here
|
92 |
my $show_actual = $input->param('show_actual'); |
92 |
my $show_actual = $input->param('show_actual'); |
93 |
my $show_percent = $input->param('show_percent'); |
93 |
my $show_percent = $input->param('show_percent'); |
94 |
my $output = $input->param("output"); |
94 |
my $output = $input->param("output"); |
95 |
my $basename = $input->param("basename"); |
95 |
our $basename = $input->param("basename"); |
96 |
my $del = $input->param("sep"); |
96 |
our $del = $input->param("sep"); |
97 |
|
97 |
|
98 |
my $show_mine = $input->param('show_mine') ; |
98 |
my $show_mine = $input->param('show_mine') ; |
99 |
|
99 |
|
Lines 216-222
elsif ( $authcat eq 'MONTHS' && $budget_period_startdate && $budget_period_endda
Link Here
|
216 |
|
216 |
|
217 |
#calc number of months between |
217 |
#calc number of months between |
218 |
my $months = ( $Dy * 12 ) + $Dm; |
218 |
my $months = ( $Dy * 12 ) + $Dm; |
219 |
my $start_month = @start_date[1]; |
219 |
my $start_month = $start_date[1]; |
220 |
my $end_month = ( $Dy * 12 ) + $Dm; |
220 |
my $end_month = ( $Dy * 12 ) + $Dm; |
221 |
|
221 |
|
222 |
for my $mth ( 0 ... $months ) { |
222 |
for my $mth ( 0 ... $months ) { |
223 |
- |
|
|