gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

basket.pl - conditionalized w/ $debug 3 warnings that would otherwise fire every time! 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joe Atzberger 2007-12-07 17:38:27 -06:00 committed by Joshua Ferraro
parent efaf1be1c5
commit ca4ba92f21
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
acqui/basket.pl
View File

@ -31,6 +31,12 @@ use C4::Bookfund;
use C4::Bookseller;
use C4::Dates qw/format_date/;
use vars qw($debug);
BEGIN {
$debug = $ENV{DEBUG} || 1;
}
=head1 NAME
basket.pl
@ -104,9 +110,10 @@ if ( C4::Context->preference("IndependantBranches") ) {
# if new basket, pre-fill infos
$basket->{creationdate} = "" unless ( $basket->{creationdate} );
$basket->{authorisedby} = $loggedinuser unless ( $basket->{authorisedby} );
warn $loggedinuser;
warn $basket->{creationdate};
warn $basket->{authorisedby} ;
$debug and warn
sprintf "loggedinuser: $loggedinuser; creationdate: %s; authorisedby: %s",
$basket->{creationdate}, $basket->{authorisedby} ;
my ( $count, @results );
@results = GetOrders( $basketno, $order );