Attachment #97232 for bug #24018

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

Lines 142-148 my ( $template, $loggedinuser, $cookie ) = get_template_and_user ( Link Here

(-)a/circ/circulation.pl (-1 / +1 lines)
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' } )) {

Lines 77-83 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/circ/overdue.pl (-1 / +1 lines)
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

Lines 54-60 my $payment_id = $input->param('payment_id'); Link Here

(-)a/members/boraccount.pl (-1 / +1 lines)
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 ) {

Lines 52-58 if ( $loggedinuser == $member ) { Link Here

(-)a/members/deletemem.pl (-1 / +1 lines)
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

Lines 58-64 unless ( C4::Context->preference('useDischarge') ) { Link Here

(-)a/members/discharge.pl (-1 / +1 lines)
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

Lines 44-50 my $branchcode = Link Here

(-)a/members/discharges.pl (-1 / +1 lines)
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({

Lines 47-53 $template->param( 'borrower_files' => 1 ); Link Here

(-)a/members/files.pl (-1 / +1 lines)
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

Lines 56-62 my $visit_id = $input->param('visit_id') // q{}; Link Here

(-)a/members/housebound.pl (-1 / +1 lines)
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

Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/ill-requests.pl (-1 / +1 lines)
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

Lines 52-58 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/mancredit.pl (-1 / +1 lines)
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

Lines 43-49 my ($template, $loggedinuser, $cookie) = get_template_and_user({ Link Here

(-)a/members/member-flags.pl (-1 / +1 lines)
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;

Lines 46-52 my $new_user_id = $input->param('newuserid'); Link Here

(-)a/members/member-password.pl (-1 / +1 lines)
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

Lines 163-169 $template->param( "quickadd" => 1 ) if ( $quickadd ); Link Here

(-)a/members/memberentry.pl (-1 / +1 lines)
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;

Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/members-update-do.pl (-1 / +1 lines)
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

Lines 32-38 my ( $loggedinuserid, $cookie, $sessionID ) = checkauth( $cgi, 0, { borrowers => Link Here

(-)a/members/mod_debarment.pl (-1 / +1 lines)
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

Lines 79-85 my $error = $input->param('error'); Link Here

(-)a/members/moremember.pl (-1 / +1 lines)
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;

Lines 47-53 my ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => Link Here

(-)a/members/notices.pl (-1 / +1 lines)
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

Lines 67-73 my $payment_id = $input->param('payment_id'); Link Here

(-)a/members/pay.pl (-1 / +1 lines)
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

Lines 55-61 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/paycollect.pl (-1 / +1 lines)
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

Lines 46-52 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/print_overdues.pl (-1 / +1 lines)
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

Lines 52-58 my $action = $input->param('action') \|\| ''; Link Here

(-)a/members/printfeercpt.pl (-1 / +1 lines)
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

Lines 49-55 my $borrowernumber = $input->param('borrowernumber'); Link Here

(-)a/members/printinvoice.pl (-1 / +1 lines)
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

Lines 74-80 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/printslip.pl (-1 / +1 lines)
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

Lines 41-47 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/purchase-suggestions.pl (-1 / +1 lines)
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

Lines 54-60 if ($input->param('borrowernumber')) { Link Here

(-)a/members/readingrec.pl (-1 / +1 lines)
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';

Lines 46-52 my $borrowernumber = $query->param('borrowernumber'); Link Here

(-)a/members/routing-lists.pl (-1 / +1 lines)
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

Lines 44-50 my $reregistration = $input->param('reregistration') \|\| ''; Link Here

(-)a/members/setstatus.pl (-1 / +1 lines)
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

Lines 47-53 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/statistics.pl (-1 / +1 lines)
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

Lines 43-49 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/members/summary-print.pl (-1 / +1 lines)
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

Lines 56-62 my $catcode = $input->param('catcode'); Link Here

(-)a/members/update-child.pl (-1 / +1 lines)
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' ) {

Lines 52-58 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here

(-)a/tools/modborrowers.pl (-2 / +1 lines)
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