From 6954a92632c368a88df86e63a1f42276cace35a9 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 26 May 2009 18:21:51 +0200 Subject: [PATCH] dealing with login as root (mySQL login) previously, you got a nasty Perl error --- acqui/booksellers.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl index 3d0f7719ee..e9f51a17a9 100755 --- a/acqui/booksellers.pl +++ b/acqui/booksellers.pl @@ -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; -- 2.39.5