Attachment #71527 for bug #18403

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

Lines 4-9 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/printfeercpt.tt (+1 lines)
4	<title>Print Receipt for [% cardnumber %]</title>	4	<title>Print Receipt for [% cardnumber %]</title>
5	[% INCLUDE 'doc-head-close.inc' %]	5	[% INCLUDE 'doc-head-close.inc' %]
6	<link rel="stylesheet" type="text/css" href="[% interface %]/[% theme %]/css/printreceiptinvoice_[% KOHA_VERSION %].css" />	6	<link rel="stylesheet" type="text/css" href="[% interface %]/[% theme %]/css/printreceiptinvoice_[% KOHA_VERSION %].css" />
		7	[% INCLUDE 'blocking_errors.inc' %]
7	[% INCLUDE 'slip-print.inc' #printThenClose %]	8	[% INCLUDE 'slip-print.inc' #printThenClose %]
8	</head>	9	</head>
9	<body id="pat_printfeercpt" class="pat">	10	<body id="pat_printfeercpt" class="pat">





my $cgi = new CGI;

my ( $loggedinuserid, $cookie, $sessionID ) = checkauth( $cgi, 0, { borrowers => 'edit_borrowers' }, 'intranet' );

my $borrowernumber = $cgi->param('borrowernumber');
my $action         = $cgi->param('action');

my $logged_in_user = Koha::Patrons->find( { userid => $loggedinuserid } ) or die "Not logged in";
my $patron         = Koha::Patrons->find($borrowernumber);

# Ideally we should display a warning on the interface if the patron is not allowed





my $input = new CGI;

my ( $loggedinuserid ) = checkauth($input, 0, { borrowers => 'edit_borrowers' }, 'intranet');

my $destination = $input->param("destination") || '';
my $borrowernumber=$input->param('borrowernumber');

my $dbh = C4::Context->dbh;
my $dateexpiry;

my $logged_in_user = Koha::Patrons->find( { userid =>  $loggedinuserid } ) or die "Not logged in";
my $patron         = Koha::Patrons->find( $borrowernumber );

# Ideally we should display a warning on the interface if the logged in user is
# not allowed to modify this patron.
# But a librarian is not supposed to hack the system
if ( $logged_in_user->can_see_patron_infos($patron) ) {
    if ( $reregistration eq 'y' ) {
        # re-reregistration function to automatic calcul of date expiry
        $dateexpiry = $patron->renew_account;
- 

Return to bug 18403

Lines 27-38 use Koha::Patron::Debarments; Link Here

(-)a/members/mod_debarment.pl (-2 / +2 lines)
27		27
28	my $cgi = new CGI;	28	my $cgi = new CGI;
29		29
30	my ( $loggedinuser, $cookie, $sessionID ) = checkauth( $cgi, 0, { borrowers => 'edit_borrowers' }, 'intranet' );	30	my ( $loggedinuserid, $cookie, $sessionID ) = checkauth( $cgi, 0, { borrowers => 'edit_borrowers' }, 'intranet' );
31		31
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( $loggedinuser ) or die "Not logged in";	35	my $logged_in_user = Koha::Patrons->find( { userid => $loggedinuserid } ) or die "Not logged in";
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 34-40 use Koha::Patrons; Link Here

(-)a/members/setstatus.pl (-4 / +3 lines)
34		34
35	my $input = new CGI;	35	my $input = new CGI;
36		36
37	my ( $loggedinuser ) = checkauth($input, 0, { borrowers => 'edit_borrowers' }, 'intranet');	37	my ( $loggedinuserid ) = checkauth($input, 0, { borrowers => 'edit_borrowers' }, 'intranet');
38		38
39	my $destination = $input->param("destination") \|\| '';	39	my $destination = $input->param("destination") \|\| '';
40	my $borrowernumber=$input->param('borrowernumber');	40	my $borrowernumber=$input->param('borrowernumber');
Lines 44-56 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( $loggedinuser ) or die "Not logged in";	47	my $logged_in_user = Koha::Patrons->find( { userid => $loggedinuserid } ) or die "Not logged in";
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
51	# not allowed to modify this patron.	51	# not allowed to modify this patron.
52	# But a librarian is not supposed to hack the system	52	# But a librarian is not supposed to hack the system
53	unless ( $logged_in_user->can_see_patron_infos($patron) ) {	53	if ( $logged_in_user->can_see_patron_infos($patron) ) {
54	if ( $reregistration eq 'y' ) {	54	if ( $reregistration eq 'y' ) {
55	# re-reregistration function to automatic calcul of date expiry	55	# re-reregistration function to automatic calcul of date expiry
56	$dateexpiry = $patron->renew_account;	56	$dateexpiry = $patron->renew_account;
57	-