Initial revision
[wip/koha-chris_n.git] / 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");