change to report

C4/Stats.pm

@@ -202,10 +202,14 @@ sub Getpaidbranch{
 
 sub unfilledreserves {
   my $dbh=C4Connect;
-  my $query="select *,biblio.title from reserves,biblio,borrowers where found <> 'F' and cancellationdate
-is NULL and biblio.biblionumber=reserves.biblionumber and
-reserves.borrowernumber=borrowers.borrowernumber order by
-biblio.title,reservedate";
+  my $query="select *,biblio.title from reserves,reserveconstraints,biblio,borrowers,biblioitems where found <> 'F' and cancellationdate
+is NULL and biblio.biblionumber=reserves.biblionumber 
+and (reserves.biblionumber=reserveconstraints.biblionumber
+and reserves.borrowernumber=reserveconstraints.borrowernumber)
+and
+reserves.borrowernumber=borrowers.borrowernumber and
+biblioitems.biblioitemnumber=reserveconstraints.biblioitemnumber order by
+biblio.title,reserves.reservedate";
   my $sth=$dbh->prepare($query);
   $sth->execute;
   my $i=0;

reservereport.pl

@@ -20,7 +20,7 @@ print mktablehdr();
 my ($count,$data)=unfilledreserves();
 print $count;
 for (my $i=0;$i<$count;$i++){
-  print mktablerow(3,'white',"$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}",$data->[$i]->{'reservedate'},$data->[$i]->{'title'});
+  print mktablerow(4,'white',"$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}",$data->[$i]->{'reservedate'},$data->[$i]->{'title'},"$data->[$i]->{'classification'}$data->[$i]->{'dewey'}");
 }
 print mktableft();
 print endmenu('report');