Browse Source

change to report

master
chris 21 years ago
parent
commit
e5c750bc39
2 changed files with 9 additions and 5 deletions
  1. +8
    -4
      C4/Stats.pm
  2. +1
    -1
      reservereport.pl

+ 8
- 4
C4/Stats.pm View File

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


+ 1
- 1
reservereport.pl View File

@@ -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