remove extraneous warns

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Galen Charlton 2010-07-02 08:19:14 -04:00
parent 0eea24a8a1
commit b1c1f6f434

View file

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