use CGI;
use C4::Bookseller qw/GetBookSellerFromId/;
-use C4::Acquisition qw/GetPendingOrders GetOrder ModOrder/;
+use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;
use C4::Biblio qw/GetBiblioData/;
my $input=new CGI;
my $bookseller = &GetBookSellerFromId($booksellerid);
#show all orders that have uncertain price for the bookseller
-my $pendingorders = &GetPendingOrders($booksellerid,0,$owner,$basketno);
+my $pendingorders = SearchOrders({
+ booksellerid => $booksellerid,
+ owner => $owner,
+ basketno => $basketno,
+ pending => 1,
+});
my @orders;
foreach my $order (@{$pendingorders}) {