*** empty log message ***

countreturns.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=Count('return','today');
+print $count;