3 #script to add an order into the system
4 #written 29/2/00 by chris@katipo.co.nz
13 #print $input->header;
15 #print startmenu('acquisitions');
17 my $basketno=$input->param('basketno');
18 my $count=$input->param('number');
19 for (my $i=0;$i<$count;$i++){
20 my $bibnum=$input->param("bibnum$i");
21 my $ordnum=$input->param("ordnum$i");
22 my $quantity=$input->param("quantity$i");
24 delorder($bibnum,$ordnum);
27 print $input->redirect("basket.pl?basket=$basketno");
29 #print endmenu('acquisitions');