Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Merge branch 'bug_9953' into 3.12-master

Browse source
This commit is contained in:
Jared Camins-Esakov 2013-03-30 17:08:29 -04:00
commit 44eba02dd3
5 changed files with 10 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
members/mancredit.pl
View file

@ -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,
});

5
members/maninvoice.pl
View file

@ -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,
}
);

2
members/member-password.pl
View file

@ -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');

5
members/setdebar.pl
View file

@ -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');

4
members/setstatus.pl
View file

@ -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");