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 ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "acqui/uncertainprice.tmpl",
+ = get_template_and_user({template_name => "acqui/uncertainprice.tt",
query => $input,
type => "intranet",
authnotrequired => 0,
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}) {