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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/printfeercpt.tt (+1 lines)
Lines 4-9 Link Here
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">
(-)a/members/mod_debarment.pl (-2 / +2 lines)
Lines 27-38 use Koha::Patron::Debarments; Link Here
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
(-)a/members/setstatus.pl (-4 / +3 lines)
Lines 34-40 use Koha::Patrons; Link Here
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
- 

Return to bug 18403