acqui/modorders.pl

   1 #!/usr/bin/perl
   2
   3 #script to add an order into the system
   4 #written 29/2/00 by chris@katipo.co.nz
   5
   6 use strict;
   7 use CGI;
   8 use C4::Output;
   9 use C4::Acquisitions;
  10 #use Date::Manip;
  11
  12 my $input = new CGI;
  13 #print $input->header;
  14 #print startpage();
  15 #print startmenu('acquisitions');
  16 #print $input->Dump;
  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");
  23   if ($quantity == 0){
  24     delorder($bibnum,$ordnum);
  25   }
  26 }
  27 print $input->redirect("basket.pl?basket=$basketno");
  28 #print $input->dump;
  29 #print endmenu('acquisitions');
  30 #print endpage();