Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
my $pdfformat = C4::Context->preference("OrderPdfFormat");
eval "use $pdfformat" ;
my $pdfformat = C4::Context->preference("OrderPdfFormat");
eval "use $pdfformat" ;
eval "use C4::Branch";
my $basketgroup = GetBasketgroup($basketgroupid);
eval "use C4::Branch";
my $basketgroup = GetBasketgroup($basketgroupid);
printbasketgrouppdf($basketgroupid);
}elsif( $op eq "delete"){
my $basketgroupid = $input->param('basketgroupid');
printbasketgrouppdf($basketgroupid);
}elsif( $op eq "delete"){
my $basketgroupid = $input->param('basketgroupid');
DelBasketgroup($basketgroupid);
DelBasketgroup($basketgroupid);
- warn "---------------";
print $input->redirect('/cgi-bin/koha/acqui/basketgroup.pl?booksellerid=' . $booksellerid);
}elsif ( $op eq 'reopen'){
print $input->redirect('/cgi-bin/koha/acqui/basketgroup.pl?booksellerid=' . $booksellerid);
}elsif ( $op eq 'reopen'){