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

(-)a/members/mancredit.pl (-3 / +4 lines)
Lines 36-41 use C4::Items; Link Here
36
use C4::Members::Attributes qw(GetBorrowerAttributes);
36
use C4::Members::Attributes qw(GetBorrowerAttributes);
37
37
38
my $input=new CGI;
38
my $input=new CGI;
39
my $flagsrequired = { borrowers => 1, updatecharges => 1 };
39
40
40
my $borrowernumber=$input->param('borrowernumber');
41
my $borrowernumber=$input->param('borrowernumber');
41
42
Lines 44-50 my $data=GetMember('borrowernumber' => $borrowernumber); Link Here
44
my $add=$input->param('add');
45
my $add=$input->param('add');
45
46
46
if ($add){
47
if ($add){
47
    if(checkauth($input)) {
48
    if ( checkauth( $input, 0, $flagsrequired, 'intranet' ) ) {
48
        my $barcode = $input->param('barcode');
49
        my $barcode = $input->param('barcode');
49
        my $itemnum;
50
        my $itemnum;
50
        if ($barcode) {
51
        if ($barcode) {
Lines 64-70 if ($add){ Link Here
64
					  query => $input,
65
					  query => $input,
65
					  type => "intranet",
66
					  type => "intranet",
66
					  authnotrequired => 0,
67
					  authnotrequired => 0,
67
					  flagsrequired => {borrowers => 1, updatecharges => 1},
68
                      flagsrequired => $flagsrequired,
68
					  debug => 1,
69
					  debug => 1,
69
					  });
70
					  });
70
					  
71
					  
Lines 74-80 if ($add){ Link Here
74
        $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;
75
        $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;
75
        $template->param( 'catcode' =>    $catcodes->[0])  if $cnt == 1;
76
        $template->param( 'catcode' =>    $catcodes->[0])  if $cnt == 1;
76
    }
77
    }
77
					  
78
78
    $template->param( adultborrower => 1 ) if ( $data->{category_type} eq 'A' );
79
    $template->param( adultborrower => 1 ) if ( $data->{category_type} eq 'A' );
79
    my ($picture, $dberror) = GetPatronImage($data->{'cardnumber'});
80
    my ($picture, $dberror) = GetPatronImage($data->{'cardnumber'});
80
    $template->param( picture => 1 ) if $picture;
81
    $template->param( picture => 1 ) if $picture;
(-)a/members/maninvoice.pl (-2 / +3 lines)
Lines 35-40 use C4::Branch; Link Here
35
use C4::Members::Attributes qw(GetBorrowerAttributes);
35
use C4::Members::Attributes qw(GetBorrowerAttributes);
36
36
37
my $input=new CGI;
37
my $input=new CGI;
38
my $flagsrequired = { borrowers => 1 };
38
39
39
my $borrowernumber=$input->param('borrowernumber');
40
my $borrowernumber=$input->param('borrowernumber');
40
41
Lines 43-49 my $borrowernumber=$input->param('borrowernumber'); Link Here
43
my $data=GetMember('borrowernumber'=>$borrowernumber);
44
my $data=GetMember('borrowernumber'=>$borrowernumber);
44
my $add=$input->param('add');
45
my $add=$input->param('add');
45
if ($add){
46
if ($add){
46
    if(checkauth($input)) {
47
    if ( checkauth( $input, 0, $flagsrequired, 'intranet' ) ) {
47
        #  print $input->header;
48
        #  print $input->header;
48
        my $barcode=$input->param('barcode');
49
        my $barcode=$input->param('barcode');
49
        my $itemnum;
50
        my $itemnum;
Lines 61-67 if ($add){ Link Here
61
                    query           => $input,
62
                    query           => $input,
62
                    type            => "intranet",
63
                    type            => "intranet",
63
                    authnotrequired => 0,
64
                    authnotrequired => 0,
64
                    flagsrequired   => { borrowers => 1 },
65
                    flagsrequired   => $flagsrequired,
65
                    debug           => 1,
66
                    debug           => 1,
66
                }
67
                }
67
            );
68
            );
(-)a/members/member-password.pl (-1 / +1 lines)
Lines 35-41 my ($template, $loggedinuser, $cookie, $staffflags) Link Here
35
my $flagsrequired;
35
my $flagsrequired;
36
$flagsrequired->{borrowers}=1;
36
$flagsrequired->{borrowers}=1;
37
37
38
#my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
38
#my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired, 'intranet');
39
39
40
my $member=$input->param('member');
40
my $member=$input->param('member');
41
my $cardnumber = $input->param('cardnumber');
41
my $cardnumber = $input->param('cardnumber');
(-)a/members/setdebar.pl (-4 / +1 lines)
Lines 36-45 use C4::Auth; Link Here
36
36
37
my $input = new CGI;
37
my $input = new CGI;
38
38
39
my $flagsrequired;
39
checkauth( $input, 0, { borrowers => 1 }, 'intranet' );
40
$flagsrequired->{borrowers} = 1;
41
my ( $loggedinuser, $cookie, $sessionID ) =
42
  checkauth( $input, 0, $flagsrequired );
43
40
44
my $borrowernumber = $input->param('borrowernumber');
41
my $borrowernumber = $input->param('borrowernumber');
45
42
(-)a/members/setstatus.pl (-4 / +1 lines)
Lines 34-42 use C4::Auth; Link Here
34
34
35
my $input = new CGI;
35
my $input = new CGI;
36
36
37
my $flagsrequired;
37
checkauth($input, 0, { borrowers => 1 }, 'intranet');
38
$flagsrequired->{borrowers}=1;
39
checkauth($input, 0, $flagsrequired);
40
38
41
my $destination = $input->param("destination") || '';
39
my $destination = $input->param("destination") || '';
42
my $cardnumber = $input->param("cardnumber");
40
my $cardnumber = $input->param("cardnumber");
43
- 

Return to bug 9953