From bbb27ee1abbf217166f37d3d13292afe9d4832e0 Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Thu, 30 Dec 1999 23:40:51 +0000
Subject: [PATCH] Set up web interface to update charges

---
 charges.pl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 charges.pl

diff --git a/charges.pl b/charges.pl
new file mode 100755
index 0000000..8ae4976
--- /dev/null
+++ b/charges.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+#script to display reports
+#written 8/11/99
+
+use strict;
+use CGI;
+use C4::Output;
+use C4::Database;
+
+my $input = new CGI;
+print $input->header;
+my $type=$input->param('type');
+print startpage();
+print startmenu('issue');
+
+
+my $dbh=C4Connect;
+my $query="Select description from categories";
+my $sth=$dbh->prepare($query);
+$sth->execute;
+print "<Table><tr><td> &nbsp</td>";
+
+while (my $data=$sth->fetchrow_hashref){
+  print "<td>$data->{'description'}</td>";
+}
+print "</tr>";
+print "</table>";
+print endmenu('issue');
+print endpage();