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

(-)a/circ/circulation.pl (-1 / +1 lines)
Lines 142-148 my ( $template, $loggedinuser, $cookie ) = get_template_and_user ( Link Here
142
        flagsrequired   => { circulate => 'circulate_remaining_permissions' },
142
        flagsrequired   => { circulate => 'circulate_remaining_permissions' },
143
    }
143
    }
144
);
144
);
145
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
145
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
146
146
147
my $force_allow_issue = $query->param('forceallow') || 0;
147
my $force_allow_issue = $query->param('forceallow') || 0;
148
if (!C4::Auth::haspermission( C4::Context->userenv->{id} , { circulate => 'force_checkout' } )) {
148
if (!C4::Auth::haspermission( C4::Context->userenv->{id} , { circulate => 'force_checkout' } )) {
(-)a/circ/overdue.pl (-1 / +1 lines)
Lines 77-83 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
77
    }
77
    }
78
);
78
);
79
79
80
our $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
80
our $logged_in_user = Koha::Patrons->find( $loggedinuser );
81
81
82
my $dbh = C4::Context->dbh;
82
my $dbh = C4::Context->dbh;
83
83
(-)a/members/boraccount.pl (-1 / +1 lines)
Lines 54-60 my $payment_id = $input->param('payment_id'); Link Here
54
my $change_given   = $input->param('change_given');
54
my $change_given   = $input->param('change_given');
55
my $action         = $input->param('action') || '';
55
my $action         = $input->param('action') || '';
56
56
57
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
57
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
58
my $library_id = C4::Context->userenv->{'branch'};
58
my $library_id = C4::Context->userenv->{'branch'};
59
my $patron = Koha::Patrons->find( $borrowernumber );
59
my $patron = Koha::Patrons->find( $borrowernumber );
60
unless ( $patron ) {
60
unless ( $patron ) {
(-)a/members/deletemem.pl (-1 / +1 lines)
Lines 52-58 if ( $loggedinuser == $member ) { Link Here
52
    exit 0; # Exit without error
52
    exit 0; # Exit without error
53
}
53
}
54
54
55
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
55
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
56
my $patron         = Koha::Patrons->find( $member );
56
my $patron         = Koha::Patrons->find( $member );
57
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
57
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
58
58
(-)a/members/discharge.pl (-1 / +1 lines)
Lines 58-64 unless ( C4::Context->preference('useDischarge') ) { Link Here
58
   exit;
58
   exit;
59
}
59
}
60
60
61
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
61
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
62
my $patron = Koha::Patrons->find( $borrowernumber );
62
my $patron = Koha::Patrons->find( $borrowernumber );
63
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
63
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
64
64
(-)a/members/discharges.pl (-1 / +1 lines)
Lines 44-50 my $branchcode = Link Here
44
44
45
if( $op eq 'allow' ) {
45
if( $op eq 'allow' ) {
46
    my $borrowernumber = $input->param('borrowernumber');
46
    my $borrowernumber = $input->param('borrowernumber');
47
    my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
47
    my $logged_in_user = Koha::Patrons->find( $loggedinuser );
48
    my $patron         = Koha::Patrons->find($borrowernumber);
48
    my $patron         = Koha::Patrons->find($borrowernumber);
49
    output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
49
    output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
50
    Koha::Patron::Discharge::discharge({
50
    Koha::Patron::Discharge::discharge({
(-)a/members/files.pl (-1 / +1 lines)
Lines 47-53 $template->param( 'borrower_files' => 1 ); Link Here
47
47
48
my $borrowernumber = $cgi->param('borrowernumber');
48
my $borrowernumber = $cgi->param('borrowernumber');
49
49
50
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
50
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
51
my $patron         = Koha::Patrons->find($borrowernumber);
51
my $patron         = Koha::Patrons->find($borrowernumber);
52
output_and_exit_if_error( $cgi, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
52
output_and_exit_if_error( $cgi, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
53
53
(-)a/members/housebound.pl (-1 / +1 lines)
Lines 56-62 my $visit_id = $input->param('visit_id') // q{}; Link Here
56
56
57
# Get patron
57
# Get patron
58
my $borrowernumber = $input->param('borrowernumber');
58
my $borrowernumber = $input->param('borrowernumber');
59
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
59
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
60
my $patron = Koha::Patrons->find($borrowernumber);
60
my $patron = Koha::Patrons->find($borrowernumber);
61
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
61
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
62
62
(-)a/members/ill-requests.pl (-1 / +1 lines)
Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
39
39
40
my $borrowernumber = $input->param('borrowernumber');
40
my $borrowernumber = $input->param('borrowernumber');
41
41
42
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
42
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
43
my $patron         = Koha::Patrons->find( $borrowernumber );
43
my $patron         = Koha::Patrons->find( $borrowernumber );
44
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
44
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
45
45
(-)a/members/mancredit.pl (-1 / +1 lines)
Lines 52-58 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
52
    }
52
    }
53
);
53
);
54
54
55
my $logged_in_user = Koha::Patrons->find($loggedinuser) or die "Not logged in";
55
my $logged_in_user = Koha::Patrons->find($loggedinuser);
56
my $borrowernumber = $input->param('borrowernumber');
56
my $borrowernumber = $input->param('borrowernumber');
57
my $patron         = Koha::Patrons->find($borrowernumber);
57
my $patron         = Koha::Patrons->find($borrowernumber);
58
58
(-)a/members/member-flags.pl (-1 / +1 lines)
Lines 43-49 my ($template, $loggedinuser, $cookie) = get_template_and_user({ Link Here
43
        debug           => 1,
43
        debug           => 1,
44
});
44
});
45
45
46
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
46
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
47
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
47
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
48
48
49
my %member2;
49
my %member2;
(-)a/members/member-password.pl (-1 / +1 lines)
Lines 46-52 my $new_user_id = $input->param('newuserid'); Link Here
46
46
47
my @errors;
47
my @errors;
48
48
49
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
49
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
50
my $patron = Koha::Patrons->find( $patron_id );
50
my $patron = Koha::Patrons->find( $patron_id );
51
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
51
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
52
52
(-)a/members/memberentry.pl (-1 / +1 lines)
Lines 163-169 $template->param( "quickadd" => 1 ) if ( $quickadd ); Link Here
163
$template->param( "duplicate" => 1 ) if ( $op eq 'duplicate' );
163
$template->param( "duplicate" => 1 ) if ( $op eq 'duplicate' );
164
$template->param( "checked" => 1 ) if ( defined($nodouble) && $nodouble eq 1 );
164
$template->param( "checked" => 1 ) if ( defined($nodouble) && $nodouble eq 1 );
165
if ( $op eq 'modify' or $op eq 'save' or $op eq 'duplicate' ) {
165
if ( $op eq 'modify' or $op eq 'save' or $op eq 'duplicate' ) {
166
    my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
166
    my $logged_in_user = Koha::Patrons->find( $loggedinuser );
167
    output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
167
    output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
168
168
169
    $borrower_data = $patron->unblessed;
169
    $borrower_data = $patron->unblessed;
(-)a/members/members-update-do.pl (-1 / +1 lines)
Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
39
    }
39
    }
40
);
40
);
41
41
42
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
42
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
43
43
44
my @params = $query->param;
44
my @params = $query->param;
45
45
(-)a/members/mod_debarment.pl (-1 / +1 lines)
Lines 32-38 my ( $loggedinuserid, $cookie, $sessionID ) = checkauth( $cgi, 0, { borrowers => Link Here
32
my $borrowernumber = $cgi->param('borrowernumber');
32
my $borrowernumber = $cgi->param('borrowernumber');
33
my $action         = $cgi->param('action');
33
my $action         = $cgi->param('action');
34
34
35
my $logged_in_user = Koha::Patrons->find( { userid => $loggedinuserid } ) or die "Not logged in";
35
my $logged_in_user = Koha::Patrons->find( { userid => $loggedinuserid } );
36
my $patron         = Koha::Patrons->find($borrowernumber);
36
my $patron         = Koha::Patrons->find($borrowernumber);
37
37
38
# Ideally we should display a warning on the interface if the patron is not allowed
38
# Ideally we should display a warning on the interface if the patron is not allowed
(-)a/members/moremember.pl (-1 / +1 lines)
Lines 79-85 my $error = $input->param('error'); Link Here
79
$template->param( error => $error ) if ( $error );
79
$template->param( error => $error ) if ( $error );
80
80
81
my $patron         = Koha::Patrons->find( $borrowernumber );
81
my $patron         = Koha::Patrons->find( $borrowernumber );
82
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
82
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
83
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
83
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
84
84
85
my $category_type = $patron->category->category_type;
85
my $category_type = $patron->category->category_type;
(-)a/members/notices.pl (-1 / +1 lines)
Lines 47-53 my ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => Link Here
47
				debug => 1,
47
				debug => 1,
48
				});
48
				});
49
49
50
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
50
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
51
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
51
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
52
52
53
# Allow resending of messages in Notices tab
53
# Allow resending of messages in Notices tab
(-)a/members/pay.pl (-1 / +1 lines)
Lines 67-73 my $payment_id = $input->param('payment_id'); Link Here
67
our $change_given = $input->param('change_given');
67
our $change_given = $input->param('change_given');
68
68
69
# get borrower details
69
# get borrower details
70
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
70
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
71
our $patron         = Koha::Patrons->find($borrowernumber);
71
our $patron         = Koha::Patrons->find($borrowernumber);
72
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
72
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
73
73
(-)a/members/paycollect.pl (-1 / +1 lines)
Lines 55-61 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
55
55
56
# get borrower details
56
# get borrower details
57
my $borrowernumber = $input->param('borrowernumber');
57
my $borrowernumber = $input->param('borrowernumber');
58
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
58
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
59
my $patron         = Koha::Patrons->find( $borrowernumber );
59
my $patron         = Koha::Patrons->find( $borrowernumber );
60
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
60
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
61
61
(-)a/members/print_overdues.pl (-1 / +1 lines)
Lines 46-52 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
46
my $borrowernumber = $input->param('borrowernumber');
46
my $borrowernumber = $input->param('borrowernumber');
47
my $branchcode     = C4::Context->userenv->{'branch'};
47
my $branchcode     = C4::Context->userenv->{'branch'};
48
48
49
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
49
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
50
my $patron         = Koha::Patrons->find( $borrowernumber );
50
my $patron         = Koha::Patrons->find( $borrowernumber );
51
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
51
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
52
52
(-)a/members/printfeercpt.pl (-1 / +1 lines)
Lines 52-58 my $action = $input->param('action') || ''; Link Here
52
my $accountlines_id = $input->param('accountlines_id');
52
my $accountlines_id = $input->param('accountlines_id');
53
my $change_given = $input->param('change_given');
53
my $change_given = $input->param('change_given');
54
54
55
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
55
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
56
my $patron         = Koha::Patrons->find( $borrowernumber );
56
my $patron         = Koha::Patrons->find( $borrowernumber );
57
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
57
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
58
58
(-)a/members/printinvoice.pl (-1 / +1 lines)
Lines 49-55 my $borrowernumber = $input->param('borrowernumber'); Link Here
49
my $action          = $input->param('action') || '';
49
my $action          = $input->param('action') || '';
50
my $accountlines_id = $input->param('accountlines_id');
50
my $accountlines_id = $input->param('accountlines_id');
51
51
52
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
52
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
53
my $patron         = Koha::Patrons->find( $borrowernumber );
53
my $patron         = Koha::Patrons->find( $borrowernumber );
54
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
54
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
55
55
(-)a/members/printslip.pl (-1 / +1 lines)
Lines 74-80 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
74
74
75
my $borrowernumber = $input->param('borrowernumber');
75
my $borrowernumber = $input->param('borrowernumber');
76
76
77
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
77
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
78
my $patron         = Koha::Patrons->find( $borrowernumber );
78
my $patron         = Koha::Patrons->find( $borrowernumber );
79
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
79
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
80
80
(-)a/members/purchase-suggestions.pl (-1 / +1 lines)
Lines 41-47 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
41
41
42
my $borrowernumber = $input->param('borrowernumber');
42
my $borrowernumber = $input->param('borrowernumber');
43
43
44
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
44
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
45
my $patron         = Koha::Patrons->find( $borrowernumber );
45
my $patron         = Koha::Patrons->find( $borrowernumber );
46
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
46
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
47
47
(-)a/members/readingrec.pl (-1 / +1 lines)
Lines 54-60 if ($input->param('borrowernumber')) { Link Here
54
    $patron = Koha::Patrons->find( $borrowernumber );
54
    $patron = Koha::Patrons->find( $borrowernumber );
55
}
55
}
56
56
57
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
57
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
58
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
58
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
59
59
60
my $order = 'date_due desc';
60
my $order = 'date_due desc';
(-)a/members/routing-lists.pl (-1 / +1 lines)
Lines 46-52 my $borrowernumber = $query->param('borrowernumber'); Link Here
46
46
47
my $branch = C4::Context->userenv->{'branch'};
47
my $branch = C4::Context->userenv->{'branch'};
48
48
49
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
49
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
50
my $patron         = Koha::Patrons->find( $borrowernumber );
50
my $patron         = Koha::Patrons->find( $borrowernumber );
51
output_and_exit_if_error( $query, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
51
output_and_exit_if_error( $query, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
52
52
(-)a/members/setstatus.pl (-1 / +1 lines)
Lines 44-50 my $reregistration = $input->param('reregistration') || ''; Link Here
44
my $dbh = C4::Context->dbh;
44
my $dbh = C4::Context->dbh;
45
my $dateexpiry;
45
my $dateexpiry;
46
46
47
my $logged_in_user = Koha::Patrons->find( { userid =>  $loggedinuserid } ) or die "Not logged in";
47
my $logged_in_user = Koha::Patrons->find( { userid =>  $loggedinuserid } );
48
my $patron         = Koha::Patrons->find( $borrowernumber );
48
my $patron         = Koha::Patrons->find( $borrowernumber );
49
49
50
# Ideally we should display a warning on the interface if the logged in user is
50
# Ideally we should display a warning on the interface if the logged in user is
(-)a/members/statistics.pl (-1 / +1 lines)
Lines 47-53 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
47
47
48
my $borrowernumber = $input->param('borrowernumber');
48
my $borrowernumber = $input->param('borrowernumber');
49
49
50
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
50
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
51
my $patron         = Koha::Patrons->find( $borrowernumber );
51
my $patron         = Koha::Patrons->find( $borrowernumber );
52
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
52
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
53
53
(-)a/members/summary-print.pl (-1 / +1 lines)
Lines 43-49 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
43
    }
43
    }
44
);
44
);
45
45
46
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
46
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
47
my $patron         = Koha::Patrons->find( $borrowernumber );
47
my $patron         = Koha::Patrons->find( $borrowernumber );
48
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
48
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } );
49
49
(-)a/members/update-child.pl (-1 / +1 lines)
Lines 56-62 my $catcode = $input->param('catcode'); Link Here
56
my $cattype        = $input->param('cattype');
56
my $cattype        = $input->param('cattype');
57
my $op             = $input->param('op');
57
my $op             = $input->param('op');
58
58
59
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
59
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
60
60
61
my $patron_categories = Koha::Patron::Categories->search_limited({ category_type => 'A' }, {order_by => ['categorycode']});
61
my $patron_categories = Koha::Patron::Categories->search_limited({ category_type => 'A' }, {order_by => ['categorycode']});
62
if ( $op eq 'multi' ) {
62
if ( $op eq 'multi' ) {
(-)a/tools/modborrowers.pl (-2 / +1 lines)
Lines 52-58 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
52
    }
52
    }
53
);
53
);
54
54
55
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in";
55
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
56
56
57
my %cookies   = parse CGI::Cookie($cookie);
57
my %cookies   = parse CGI::Cookie($cookie);
58
my $sessionID = $cookies{'CGISESSID'}->value;
58
my $sessionID = $cookies{'CGISESSID'}->value;
59
- 

Return to bug 24018