[Koha-patches] [PATCH] [SIGNED-OFF] Bug 6834 : Removing last of the $template->{param_map}
Henri-Damien LAURENT
henridamien.laurent at biblibre.com
Fri Sep 2 10:41:27 CEST 2011
From: Chris Cormack <chrisc at catalyst.net.nz>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent at biblibre.com>
---
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.1
More information about the Koha-patches
mailing list