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