Browse Source

change to report

master
chris 22 years ago
parent
commit
e5c750bc39
  1. 12
      C4/Stats.pm
  2. 2
      reservereport.pl

12
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;

2
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');

Loading…
Cancel
Save