From a001e1d0f993bfa9bd9abcfc3f348b3e9f96ad40 Mon Sep 17 00:00:00 2001 From: rangi Date: Sun, 18 Mar 2001 22:06:39 +0000 Subject: [PATCH] Script to list overdue books under the headings Due-Date Patron Phone Title Author The patron can be email by clicking on the name (if the database contains an email address for them) Courtesy of Glen Stewart --- overdue.pl | 89 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 89 insertions(+) create mode 100755 overdue.pl diff --git a/overdue.pl b/overdue.pl new file mode 100755 index 0000000000..ec0d4ffd99 --- /dev/null +++ b/overdue.pl @@ -0,0 +1,89 @@ +#!/usr/bin/perl + +use strict; +use C4::Output; +use CGI; +use C4::Database; + +my $input = new CGI; +print $input->header; +my $type=$input->param('type'); +print startpage(); +print startmenu('report'); + +my $duedate; +my $bornum; +my $itemnum; +my $data1; +my $data2; +my $data3; +my $name; +my $phone; +my $email; +my $biblionumber; +my $title; +my $author; +my @datearr = localtime(time()); +my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]); + +print "Items Overdue as of $todaysdate

"; + +print << "EOF"; + + + + + + + + +EOF + +my $dbh=C4Connect; + +my $query="select date_due,borrowernumber,itemnumber from issues where isnull(returndate) && date_due<'$todaysdate' order by date_due,borrowernumber"; +my $sth=$dbh->prepare($query); +$sth->execute; +while (my $data=$sth->fetchrow_hashref) { + $duedate=$data->{'date_due'}; + $bornum=$data->{'borrowernumber'}; + $itemnum=$data->{'itemnumber'}; + + my $query="select concat(firstname,' ',surname),phone,emailaddress from borrowers where borrowernumber='$bornum'"; + my $sth1=$dbh->prepare($query); + $sth1->execute; + $data1=$sth1->fetchrow_hashref; + $name=$data1->{'concat(firstname,\' \',surname)'}; + $phone=$data1->{'phone'}; + $email=$data1->{'emailaddress'}; + $sth1->finish; + + my $query="select biblionumber from items where itemnumber='$itemnum'"; + my $sth2=$dbh->prepare($query); + $sth2->execute; + $data2=$sth2->fetchrow_hashref; + $biblionumber=$data2->{'biblionumber'}; + $sth2->finish; + + my $query="select title,author from biblio where biblionumber='$biblionumber'"; + my $sth3=$dbh->prepare($query); + $sth3->execute; + $data3=$sth3->fetchrow_hashref; + $title=$data3->{'title'}; + $author=$data3->{'author'}; + $sth3->finish; + + if (!$email){ + print ""; + } else { + print ""; + } +} + +$sth->finish; +$dbh->disconnect; + +print "
Due DatePatronPhoneTitleAuthor
$duedate$name$phone$title$author
$duedate$name$phone$title$author
"; + +print endmenu('report'); +print endpage(); -- 2.39.5