When running the tests a user is not logged in so C4::Context->userenv

[srvgit] / C4 / Accounts.pm

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 9540b44..0610c13 100644 (file)
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -352,7 +352,8 @@ should be the empty string.
 
 sub manualinvoice {
     my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_;
-    my $manager_id = C4::Context->userenv->{'number'};
+    my $manager_id = 0;
+    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv->{'number'};
     my $dbh      = C4::Context->dbh;
     my $notifyid = 0;
     my $insert;