From 9faad76fadfbb67f35d8034d6c47d03249ec782c Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Fri, 12 Nov 1999 01:18:43 +0000
Subject: [PATCH] Reporting scripts

---
 countoverdues.pl | 12 ++++++++++++
 countowing.pl    | 12 ++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100755 countoverdues.pl
 create mode 100755 countowing.pl

diff --git a/countoverdues.pl b/countoverdues.pl
new file mode 100755
index 0000000..b10f0d7
--- /dev/null
+++ b/countoverdues.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+#script to keep total of number of issues;
+
+use C4::Output;
+use C4::Stats;
+use CGI;
+
+my $input=new CGI;
+print $input->header;
+my $count=Overdues();
+print $count;
diff --git a/countowing.pl b/countowing.pl
new file mode 100755
index 0000000..7c5faec
--- /dev/null
+++ b/countowing.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+#script to keep total of number of issues;
+
+use C4::Output;
+use C4::Stats;
+use CGI;
+
+my $input=new CGI;
+print $input->header;
+my $count=TotalOwing('fine');
+print $count;