From b1c1f6f434276811ba231b29db4e3efbe006b0bd Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 2 Jul 2010 08:19:14 -0400 Subject: [PATCH] remove extraneous warns Signed-off-by: Galen Charlton --- acqui/basketgroup.pl | 3 --- 1 file changed, 3 deletions(-) diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl index 94c5814080..a3b7dc940c 100755 --- a/acqui/basketgroup.pl +++ b/acqui/basketgroup.pl @@ -184,7 +184,6 @@ sub printbasketgrouppdf{ my $pdfformat = C4::Context->preference("OrderPdfFormat"); eval "use $pdfformat" ; - warn @_; eval "use C4::Branch"; my $basketgroup = GetBasketgroup($basketgroupid); @@ -386,9 +385,7 @@ if ( $op eq "add" ) { printbasketgrouppdf($basketgroupid); }elsif( $op eq "delete"){ my $basketgroupid = $input->param('basketgroupid'); - warn $basketgroupid; DelBasketgroup($basketgroupid); - warn "---------------"; print $input->redirect('/cgi-bin/koha/acqui/basketgroup.pl?booksellerid=' . $booksellerid); }elsif ( $op eq 'reopen'){ -- 2.39.5