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

(-)a/members/patronimage.pl (-1 / +3 lines)
Lines 21-26 Link Here
21
#
21
#
22
22
23
use strict;
23
use strict;
24
use warnings;
25
24
use CGI; #qw(:standard escapeHTML);
26
use CGI; #qw(:standard escapeHTML);
25
use C4::Context;
27
use C4::Context;
26
use C4::Members;
28
use C4::Members;
Lines 33-39 my $cardnumber; Link Here
33
35
34
=head1 NAME
36
=head1 NAME
35
37
36
patronimage.pl - Script for retrieving and formating Koha patron images for display
38
patronimage.pl - Script for retrieving and formatting Koha patron images for display
37
39
38
=head1 SYNOPSIS
40
=head1 SYNOPSIS
39
41
(-)a/members/setdebar.pl (-2 / +2 lines)
Lines 27-32 by oleonard@athenscounty.lib.oh.us Link Here
27
=cut
27
=cut
28
28
29
use strict;
29
use strict;
30
use warnings;
30
31
31
use CGI;
32
use CGI;
32
use C4::Context;
33
use C4::Context;
Lines 39-45 $flagsrequired->{borrowers} = 1; Link Here
39
my ( $loggedinuser, $cookie, $sessionID ) =
40
my ( $loggedinuser, $cookie, $sessionID ) =
40
  checkauth( $input, 0, $flagsrequired );
41
  checkauth( $input, 0, $flagsrequired );
41
42
42
my $destination    = $input->param("destination");
43
my $destination    = $input->param("destination") || '';
43
my $cardnumber     = $input->param("cardnumber");
44
my $cardnumber     = $input->param("cardnumber");
44
my $borrowernumber = $input->param('borrowernumber');
45
my $borrowernumber = $input->param('borrowernumber');
45
my $status         = $input->param('status');
46
my $status         = $input->param('status');
46
- 

Return to bug 2505