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 C4::Biblio;
  11 #use Date::Manip;
  12
  13 my $input = new CGI;
  14 #print $input->header;
  15 #print startpage();
  16 #print startmenu('acquisitions');
  17 #print $input->Dump;
  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");
  24   if ($quantity == 0){
  25     delorder($bibnum,$ordnum);
  26   }
  27 }
  28 print $input->redirect("basket.pl?basket=$basketno");
  29 #print $input->dump;
  30 #print endmenu('acquisitions');
  31 #print endpage();