misc/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     if (my $temp=$input->param($key)){
  23       fixaccounts($bornum,$key,$temp);
  24     }
  25   }
  26 }
  27
  28 print $input->redirect("boraccount.pl?bornum=$bornum");