---
admin/aqbudgets.pl | 4 ++--
admin/aqplan.pl | 6 +++---
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl
index 9c35079..db99759 100755
--- a/admin/aqbudgets.pl
+++ b/admin/aqbudgets.pl
@@ -90,7 +90,7 @@ $template->param(
# ------- get periods stuff ------------------
# USED FOR PERMISSION COMPARISON LATER
-my $borrower_id =
$template->{param_map}->{'USER_INFO'}[0]->{'borrowernumber'};
+my $borrower_id =
$template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'};
my $user = GetMemberDetails($borrower_id);
my $user_branchcode = $user->{'branchcode'};
@@ -246,7 +246,7 @@ if ($op eq 'add_form') {
# PERMISSIONS
unless($staffflags->{'superlibrarian'} % 2 == 1 ) {
#IF NO PERMS, THEN DISABLE EDIT/DELETE
- unless (
$template->{param_map}->{'CAN_user_acquisition_budget_modify'} ) {
+ unless ( $template->{VARS}->{'CAN_user_acquisition_budget_modify'}
) {
$budget->{'budget_lock'} = 1;
}
# check budget permission
diff --git a/admin/aqplan.pl b/admin/aqplan.pl
index 81418ff..ceb9950 100755
--- a/admin/aqplan.pl
+++ b/admin/aqplan.pl
@@ -85,8 +85,8 @@ $template->param(
# ------- get periods stuff ------------------
-my $borrower_id =
$template->{param_map}->{'USER_INFO'}[0]->{'borrowernumber'};
-my $borrower_branchcode =
$template->{param_map}->{'USER_INFO'}[0]->{'branchcode'};
+my $borrower_id =
$template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'};
+my $borrower_branchcode = $template->{VARS}->{'USER_INFO'}[0]->{'branchcode'};
my $periods;
my $authcat = $input->param('authcat');
@@ -132,7 +132,7 @@ my $op = $input->param("op");
my $budget_branchcode;
-my $budgets_ref = GetBudgetHierarchy( $budget_period_id,
$show_mine?$template->{param_map}->{'USER_INFO'}[0]->{'branchcode'}:'',
$show_mine?$template->{param_map}->{'USER_INFO'}[0]->{'borrowernumber'}:'' );
+my $budgets_ref = GetBudgetHierarchy( $budget_period_id,
$show_mine?$template->{VARS}->{'USER_INFO'}[0]->{'branchcode'}:'',
$show_mine?$template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'}:'' );
# build categories list
my $sth = $dbh->prepare("select distinct category from authorised_values where
category like 'A%' ");
--
1.7.4.1
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
