overdue.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use C4::Output;
   5 use CGI;
   6 use C4::Database;
   7
   8 my $input = new CGI;
   9 print $input->header;
  10 my $type=$input->param('type');
  11 print startpage();
  12 print startmenu('report');
  13
  14 my $duedate;
  15 my $bornum;
  16 my $itemnum;
  17 my $data1;
  18 my $data2;
  19 my $data3;
  20 my $name;
  21 my $phone;
  22 my $email;
  23 my $biblionumber;
  24 my $title;
  25 my $author;
  26 my @datearr = localtime(time());
  27 my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]);
  28
  29 print "<FONT SIZE=6><em>Items Overdue as of $todaysdate</em></FONT><br><P>";
  30
  31 print << "EOF";
  32 <TABLE  cellspacing=0 cellpadding=5 border=0 align=center>
  33 <TR VALIGN=TOP>
  34 <TD  bgcolor="99cc33" background="/koha/images/background-mem.gif" colspan ><b>Due Date</b></td>
  35 <TD  bgcolor="99cc33" background="/koha/images/background-mem.gif" colspan ><b>Patron</b></td>
  36 <TD  bgcolor="99cc33" background="/koha/images/background-mem.gif"><b>Phone</b></td>
  37 <TD  bgcolor="99cc33" background="/koha/images/background-mem.gif"><b>Title</b></td>
  38 <TD  bgcolor="99cc33" background="/koha/images/background-mem.gif"><b>Author</b></td>
  39 </tr>
  40 EOF
  41
  42 my $dbh=C4Connect;
  43
  44 my $query="select date_due,borrowernumber,itemnumber from issues where isnull(returndate) && date_due<'$todaysdate' order by date_due,borrowernumber";
  45 my $sth=$dbh->prepare($query);
  46 $sth->execute;
  47 while (my $data=$sth->fetchrow_hashref) {
  48   $duedate=$data->{'date_due'};
  49   $bornum=$data->{'borrowernumber'};
  50   $itemnum=$data->{'itemnumber'};
  51
  52   my $query="select concat(firstname,' ',surname),phone,emailaddress from borrowers where borrowernumber='$bornum'";
  53   my $sth1=$dbh->prepare($query);
  54   $sth1->execute;
  55   $data1=$sth1->fetchrow_hashref;
  56   $name=$data1->{'concat(firstname,\' \',surname)'};
  57   $phone=$data1->{'phone'};
  58   $email=$data1->{'emailaddress'};
  59   $sth1->finish;
  60
  61   my $query="select biblionumber from items where itemnumber='$itemnum'";
  62   my $sth2=$dbh->prepare($query);
  63   $sth2->execute;
  64   $data2=$sth2->fetchrow_hashref;
  65   $biblionumber=$data2->{'biblionumber'};
  66   $sth2->finish;
  67
  68   my $query="select title,author from biblio where biblionumber='$biblionumber'";
  69   my $sth3=$dbh->prepare($query);
  70   $sth3->execute;
  71   $data3=$sth3->fetchrow_hashref;
  72   $title=$data3->{'title'};
  73   $author=$data3->{'author'};
  74   $sth3->finish;
  75
  76   if (!$email){
  77     print "<tr><td>$duedate</td><td>$name</td><td>$phone</td><td>$title</td><td>$author</td></tr>";
  78   } else {
  79     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>";
  80   }
  81 }
  82
  83 $sth->finish;
  84 $dbh->disconnect;
  85
  86 print "</table>";
  87
  88 print endmenu('report');
  89 print endpage();