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

dealing with login as root (mySQL login)

Browse source 
previously, you got a nasty Perl error
This commit is contained in:
Paul Poulain 2009-05-26 18:21:51 +02:00 committed by Henri-Damien LAURENT
parent a368cb9a3f
commit 6954a92632
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
acqui/booksellers.pl
View file

@ -114,7 +114,7 @@ for ( my $i = 0 ; $i < $count ; $i++ ) {
$line{name} = $suppliers[$i]->{'name'};
$line{active} = $suppliers[$i]->{'active'};
my @loop_basket;
my $uid = GetMember($loggedinuser)->{userid};
my $uid = GetMember($loggedinuser)->{userid} if $loggedinuser;
for ( my $i2 = 0 ; $i2 < $ordcount ; $i2++ ) {
if ( $orders->[$i2]{'authorisedby'} eq $loggedinuser || haspermission(C4::Context->dbh, $uid, { flagsrequired => { 'acquisition' => '*' } } ) ) {
my %inner_line;