Attachment #17039 for bug #9952

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




use C4::Members::Attributes qw(GetBorrowerAttributes);

my $input=new CGI;
my $flagsrequired = { borrowers => 1, updatecharges => 1 };

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


my $add=$input->param('add');

if ($add){
    if ( checkauth( $input, 0, $flagsrequired, 'intranet' ) ) {
        my $barcode = $input->param('barcode');
        my $itemnum;
        if ($barcode) {

					  query => $input,
					  type => "intranet",
					  authnotrequired => 0,
					  flagsrequired => $flagsrequired,
					  debug => 1,
					  });
					  




use C4::Members::Attributes qw(GetBorrowerAttributes);

my $input=new CGI;
my $flagsrequired = { borrowers => 1 };

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


my $data=GetMember('borrowernumber'=>$borrowernumber);
my $add=$input->param('add');
if ($add){
    if ( checkauth( $input, 0, $flagsrequired, 'intranet' ) ) {
        #  print $input->header;
        my $barcode=$input->param('barcode');
        my $itemnum;

                    query           => $input,
                    type            => "intranet",
                    authnotrequired => 0,
                    flagsrequired   => $flagsrequired,
                    debug           => 1,
                }
            );

Lines 35-41 my ($template, $loggedinuser, $cookie, $staffflags) Link Here

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

Lines 36-45 use C4::Auth; Link Here

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

Lines 34-42 use C4::Auth; Link Here

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

Lines 36-41 use C4::Items; Link Here

(-)a/members/mancredit.pl (-2 / +3 lines)
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 35-40 use C4::Branch; Link Here

(-)a/members/maninvoice.pl (-2 / +3 lines)
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	);