tidyaccounts.pl

   1 #!/usr/bin/perl
   2 #
   3 # written 31/5/00 by chris@katipo.co.nz to make a way to fix account mistakes
   4 #
   5
   6 use strict;
   7 use C4::Database;
   8 use CGI;
   9 use C4::Accounts2;
  10
  11 my $input=new CGI;
  12
  13 #print $input->header();
  14 #print $input->dump;
  15
  16 my $bornum=$input->param('bornum');
  17
  18 my @name=$input->param;
  19
  20 foreach my $key (@name){
  21   if ($key ne 'bornum'){
  22     my $temp=$input->param($key);
  23
  24 #    print $temp,$key;
  25     if ($temp ne ''){
  26       fixaccounts($bornum,$key,$temp);
  27
  28     }
  29   }
  30 }
  31
  32 print $input->redirect("boraccount.pl?bornum=$bornum");