View | Details | Raw Unified | Return to bug 20185
Collapse All | Expand All

(-)a/admin/aqplan.pl (-6 / +5 lines)
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
- 

Return to bug 20185