adding Algorithm::CheckDigits dependancy, for barcode printing

[koha_gimpoz] / misc / tidyaccounts.pl

diff --git a/misc/tidyaccounts.pl b/misc/tidyaccounts.pl
index a85748e..0edbd6c 100755 (executable)
--- a/misc/tidyaccounts.pl
+++ b/misc/tidyaccounts.pl
@@ -23,23 +23,23 @@
 
 use strict;
 use CGI;
-use C4::Accounts2;
+use C4::Accounts;
 
 my $input=new CGI;
 
 #print $input->header();
 #print $input->dump;
 
-my $bornum=$input->param('bornum');
+my $borrowernumber=$input->param('borrowernumber');
 
 my @name=$input->param;
 
 foreach my $key (@name){
-  if ($key ne 'bornum'){
+  if ($key ne 'borrowernumber'){
     if (my $temp=$input->param($key)){
-      fixaccounts($bornum,$key,$temp);
+      fixaccounts($borrowernumber,$key,$temp);
     }
   }
 }
 
-print $input->redirect("boraccount.pl?bornum=$bornum");
+print $input->redirect("boraccount.pl?borrowernumber=$borrowernumber");