Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Script to list overdue books under the headings

Browse source 
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
This commit is contained in:
rangi 2001-03-18 22:06:39 +00:00
parent fabacc26ef
commit a001e1d0f9
1 changed files with 89 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

89
overdue.pl Executable file
View file

@ -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 "<FONT SIZE=6><em>Items Overdue as of $todaysdate</em></FONT><br><P>";
print << "EOF";
<TABLE cellspacing=0 cellpadding=5 border=0 align=center>
<TR VALIGN=TOP>
<TD bgcolor="99cc33" background="/koha/images/background-mem.gif" colspan ><b>Due Date</b></td>
<TD bgcolor="99cc33" background="/koha/images/background-mem.gif" colspan ><b>Patron</b></td>
<TD bgcolor="99cc33" background="/koha/images/background-mem.gif"><b>Phone</b></td>
<TD bgcolor="99cc33" background="/koha/images/background-mem.gif"><b>Title</b></td>
<TD bgcolor="99cc33" background="/koha/images/background-mem.gif"><b>Author</b></td>
</tr>
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 "<tr><td>$duedate</td><td>$name</td><td>$phone</td><td>$title</td><td>$author</td></tr>";
} else {
print "<tr><td>$duedate</td><td><a href=\"mailto:$email?subject=Overdue: $title\">$name</a></td><td>$phone</td><td>$title</td><td>$author</td></tr>";
}
}
$sth->finish;
$dbh->disconnect;
print "</table>";
print endmenu('report');
print endpage();