From: Paul Poulain <[email protected]>
previously, you got a nasty Perl error
---
acqui/booksellers.pl | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl
index 21ca44b..5cd54a9 100755
--- a/acqui/booksellers.pl
+++ b/acqui/booksellers.pl
@@ -121,7 +121,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;
--
1.6.0.4
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
