From ebf64cc314f8a8e7039ae1662366569a28a931f5 Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Sat, 1 Jan 2000 03:04:00 +0000
Subject: [PATCH] Updates categoryitem in database for charging for overdue
 items

---
 updatecharges.pl | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 updatecharges.pl

diff --git a/updatecharges.pl b/updatecharges.pl
new file mode 100755
index 0000000..55f8300
--- /dev/null
+++ b/updatecharges.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+
+#script to update charges for overdue in database
+#updates categoryitem
+# is called by charges.pl
+# written 1/1/2000 by chris@katipo.co.nz
+
+use strict;
+use CGI;
+use C4::Output;
+use C4::Database;
+
+my $input = new CGI;
+#print $input->header;
+#print startpage();
+#print startmenu('issue');
+
+
+my $dbh=C4Connect;
+#print $input->dump;
+my @names=$input->param();
+
+foreach my $key (@names){
+  
+  my $bor=substr($key,0,1);
+  my $cat=$key;
+  $cat =~ s/[A-Z]//i;
+  my $data=$input->param($key);
+  my @dat=split(',',$data);
+#  print "$bor $cat $dat[0] $dat[1] $dat[2] <br> ";
+  my $sth=$dbh->prepare("Update categoryitem set fine=$dat[0],startcharge=$dat[1],chargeperiod=$dat[2] where 
+  categorycode='$bor' and itemtype='$cat'");
+  $sth->execute;
+  $sth->finish;
+}
+$dbh->disconnect;
+print $input->redirect("/cgi-bin/koha/charges.pl");
+#print endmenu('issue');
+#print endpage();