|
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 |
- |
|
|