remove extraneous warns
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
parent
0eea24a8a1
commit
b1c1f6f434
1 changed files with 0 additions and 3 deletions
|
@ -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'){
|
||||
|
|
Loading…
Reference in a new issue