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

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/acqui/basket.pl b/acqui/basket.pl
index d68bcd2..d127ca1 100755 (executable)
--- a/acqui/basket.pl
+++ b/acqui/basket.pl
@@ -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 );