@@ -, +, @@ Usage: Date::Calc::Delta_YMD(year1, month1, day1, year2, month2, day2) --- admin/aqplan.pl | 4 ++++ koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqplan.tt | 2 ++ 2 files changed, 6 insertions(+) --- a/admin/aqplan.pl +++ a/admin/aqplan.pl @@ -106,6 +106,10 @@ if ( $budget_period_locked == 1 && not defined $show_actual ) { $authcat = 'Asort1' if not defined $authcat; # defaults to Asort if no authcat given +# If no active budget is defined, budget_period_id is undef +# This is the behavior of GetBudgetPeriod +$authcat = '' unless $budget_period_id; + my $budget_id = $input->param('budget_id'); my $op = $input->param("op"); --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqplan.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqplan.tt @@ -224,6 +224,8 @@ + [% ELSIF not budget_period_id %] +
No active budget defined. You should define on before continuing.
[% ELSE %]
No funds to display for this search criteria
[% END %] --