@@ -, +, @@ debarment - Set syspref OpacMaintenance=Show - Go to a borrower page - Click on "Fines" and "Create manual invoice" - Enter an amount and save - Click on "Fines" and "Create manual credit" - Enter an amount and save - Edit borrower - Set "Restricted" to yes and save - Click on "Lift restriction" in messages - Edit borrower - Set "Expiry date" to a day in the past and save - Click on "Renew" in messages --- members/mancredit.pl | 7 ++++--- members/maninvoice.pl | 5 +++-- members/member-password.pl | 2 +- members/setdebar.pl | 5 +---- members/setstatus.pl | 4 +--- 5 files changed, 10 insertions(+), 13 deletions(-) --- a/members/mancredit.pl +++ a/members/mancredit.pl @@ -36,6 +36,7 @@ use C4::Items; use C4::Members::Attributes qw(GetBorrowerAttributes); my $input=new CGI; +my $flagsrequired = { borrowers => 1, updatecharges => 1 }; my $borrowernumber=$input->param('borrowernumber'); @@ -44,7 +45,7 @@ my $data=GetMember('borrowernumber' => $borrowernumber); my $add=$input->param('add'); if ($add){ - if(checkauth($input)) { + if ( checkauth( $input, 0, $flagsrequired, 'intranet' ) ) { my $barcode = $input->param('barcode'); my $itemnum; if ($barcode) { @@ -64,7 +65,7 @@ if ($add){ query => $input, type => "intranet", authnotrequired => 0, - flagsrequired => {borrowers => 1, updatecharges => 1}, + flagsrequired => $flagsrequired, debug => 1, }); @@ -74,7 +75,7 @@ if ($add){ $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1; $template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; } - + $template->param( adultborrower => 1 ) if ( $data->{category_type} eq 'A' ); my ($picture, $dberror) = GetPatronImage($data->{'cardnumber'}); $template->param( picture => 1 ) if $picture; --- a/members/maninvoice.pl +++ a/members/maninvoice.pl @@ -35,6 +35,7 @@ use C4::Branch; use C4::Members::Attributes qw(GetBorrowerAttributes); my $input=new CGI; +my $flagsrequired = { borrowers => 1 }; my $borrowernumber=$input->param('borrowernumber'); @@ -43,7 +44,7 @@ my $borrowernumber=$input->param('borrowernumber'); my $data=GetMember('borrowernumber'=>$borrowernumber); my $add=$input->param('add'); if ($add){ - if(checkauth($input)) { + if ( checkauth( $input, 0, $flagsrequired, 'intranet' ) ) { # print $input->header; my $barcode=$input->param('barcode'); my $itemnum; @@ -61,7 +62,7 @@ if ($add){ query => $input, type => "intranet", authnotrequired => 0, - flagsrequired => { borrowers => 1 }, + flagsrequired => $flagsrequired, debug => 1, } ); --- a/members/member-password.pl +++ a/members/member-password.pl @@ -35,7 +35,7 @@ my ($template, $loggedinuser, $cookie, $staffflags) my $flagsrequired; $flagsrequired->{borrowers}=1; -#my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired); +#my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired, 'intranet'); my $member=$input->param('member'); my $cardnumber = $input->param('cardnumber'); --- a/members/setdebar.pl +++ a/members/setdebar.pl @@ -36,10 +36,7 @@ use C4::Auth; my $input = new CGI; -my $flagsrequired; -$flagsrequired->{borrowers} = 1; -my ( $loggedinuser, $cookie, $sessionID ) = - checkauth( $input, 0, $flagsrequired ); +checkauth( $input, 0, { borrowers => 1 }, 'intranet' ); my $borrowernumber = $input->param('borrowernumber'); --- a/members/setstatus.pl +++ a/members/setstatus.pl @@ -34,9 +34,7 @@ use C4::Auth; my $input = new CGI; -my $flagsrequired; -$flagsrequired->{borrowers}=1; -checkauth($input, 0, $flagsrequired); +checkauth($input, 0, { borrowers => 1 }, 'intranet'); my $destination = $input->param("destination") || ''; my $cardnumber = $input->param("cardnumber"); --