- my $basketno = $query->param('basketno');
- my $booksellerid = $query->param('booksellerid');
- $basketno =~ /^\d+$/ and CloseBasket($basketno);
- print $query->redirect('/cgi-bin/koha/acqui/basketgroup.pl?basketno='.$basketno.'&op=attachbasket&booksellerid=' . $booksellerid);
- exit;
-
+ my $basketno = $query->param('basketno');
+ my $booksellerid = $query->param('booksellerid');
+ $basketno =~ /^\d+$/ and CloseBasket($basketno);
+ # if requested, create basket group, close it and attach the basket
+ if ($query->param('createbasketgroup')) {
+ my $basketgroupid = NewBasketgroup( { name => $basket->{basketname},
+ booksellerid => $booksellerid,
+ closed => 1,
+ });
+ ModBasket( { basketno => $basketno,
+ basketgroupid => $basketgroupid } );
+ print $query->redirect('/cgi-bin/koha/acqui/basketgroup.pl?booksellerid='.$booksellerid.'&closed=1');
+ } else {
+ print $query->redirect('/cgi-bin/koha/acqui/booksellers.pl?supplierid=' . $booksellerid);
+ }
+ exit;