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

(-)a/admin/aqbudgets.pl (-2 / +2 lines)
Lines 90-96 $template->param( Link Here
90
# ------- get periods stuff ------------------
90
# ------- get periods stuff ------------------
91
91
92
# USED FOR PERMISSION COMPARISON LATER
92
# USED FOR PERMISSION COMPARISON LATER
93
my $borrower_id         = $template->{param_map}->{'USER_INFO'}[0]->{'borrowernumber'};
93
my $borrower_id         = $template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'};
94
my $user                = GetMemberDetails($borrower_id);
94
my $user                = GetMemberDetails($borrower_id);
95
my $user_branchcode     = $user->{'branchcode'};
95
my $user_branchcode     = $user->{'branchcode'};
96
96
Lines 246-252 if ($op eq 'add_form') { Link Here
246
        # PERMISSIONS
246
        # PERMISSIONS
247
        unless($staffflags->{'superlibrarian'} % 2   == 1 ) {
247
        unless($staffflags->{'superlibrarian'} % 2   == 1 ) {
248
            #IF NO PERMS, THEN DISABLE EDIT/DELETE
248
            #IF NO PERMS, THEN DISABLE EDIT/DELETE
249
            unless ( $template->{param_map}->{'CAN_user_acquisition_budget_modify'} ) {
249
            unless ( $template->{VARS}->{'CAN_user_acquisition_budget_modify'} ) {
250
                $budget->{'budget_lock'} = 1;
250
                $budget->{'budget_lock'} = 1;
251
            }
251
            }
252
            # check budget permission
252
            # check budget permission
(-)a/admin/aqplan.pl (-4 / +3 lines)
Lines 85-92 $template->param( Link Here
85
85
86
# ------- get periods stuff ------------------
86
# ------- get periods stuff ------------------
87
87
88
my $borrower_id         = $template->{param_map}->{'USER_INFO'}[0]->{'borrowernumber'};
88
my $borrower_id         = $template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'};
89
my $borrower_branchcode = $template->{param_map}->{'USER_INFO'}[0]->{'branchcode'};
89
my $borrower_branchcode = $template->{VARS}->{'USER_INFO'}[0]->{'branchcode'};
90
90
91
my $periods;
91
my $periods;
92
my $authcat      = $input->param('authcat');
92
my $authcat      = $input->param('authcat');
Lines 132-138 my $op = $input->param("op"); Link Here
132
132
133
my $budget_branchcode;
133
my $budget_branchcode;
134
134
135
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'}:'' );
135
my $budgets_ref = GetBudgetHierarchy( $budget_period_id, $show_mine?$template->{VARS}->{'USER_INFO'}[0]->{'branchcode'}:'', $show_mine?$template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'}:'' );
136
136
137
# build categories list
137
# build categories list
138
my $sth = $dbh->prepare("select distinct category from authorised_values where category like 'A%' ");
138
my $sth = $dbh->prepare("select distinct category from authorised_values where category like 'A%' ");
139
- 

Return to bug 6834