From: Galen Charlton <gmcharlt@gmail.com>
Date: Fri, 2 Jul 2010 12:19:14 +0000 (-0400)
Subject: remove extraneous warns
X-Git-Tag: v3.02.00-rc~139
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;ds=sidebyside;h=b1c1f6f434276811ba231b29db4e3efbe006b0bd;p=koha_fer

remove extraneous warns

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---

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'){