gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Made a little change to allow the reading record to be sorted, and now 

defaults to the last 50 items borrowed
This commit is contained in:
rangi 2001-06-20 03:36:01 +00:00
parent 177d7f994e
commit c74ad16d2e
2 changed files with 29 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
C4/Search.pm
View File

@ -574,7 +574,7 @@ sub ItemInfo {
and biblio.biblionumber='$biblionumber' and branches.branchcode=
items.holdingbranch ";
# print $type;
if ($type ne 'intra'){
if ($type eq 'opac'){
$query.=" and (items.itemlost<>1 or items.itemlost is NULL)
and (wthdrawn <> 1 or wthdrawn is NULL)";
}
@ -924,13 +924,18 @@ by date_due";
}
sub allissues {
my ($bornum)=@_;
my ($bornum,$order,$limit)=@_;
my $dbh=C4Connect;
my $query;
$query="Select * from issues,biblio,items where borrowernumber='$bornum' and
items.itemnumber=issues.itemnumber and
items.biblionumber=biblio.biblionumber order
by date_due";
$query="Select * from issues,biblio,items,biblioitems
where borrowernumber='$bornum' and
items.biblioitemnumber=biblioitems.biblioitemnumber and
items.itemnumber=issues.itemnumber and
items.biblionumber=biblio.biblionumber";
$query.=" order by $order";
if ($limit !=0){
$query.=" limit $limit";
}
#print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
@ -1036,7 +1041,7 @@ sub itemcount {
my $dbh=C4Connect;
my $query="Select * from items where
biblionumber=$bibnum ";
if ($type ne 'intra'){
if ($type eq 'opac'){
$query.=" and (itemlost <>1 or itemlost is NULL) and
(wthdrawn <> 1 or wthdrawn is NULL)";
}
@ -1085,7 +1090,8 @@ sub itemcount {
$sth2->finish;
}
# if ($count == 0){
my $query2="Select * from aqorders where biblionumber=$bibnum";
my $query2="Select * from aqorders where biblionumber=$bibnum and
datecancellationprinted is NULL";
my $sth2=$dbh->prepare($query2);
$sth2->execute;
if (my $data=$sth2->fetchrow_hashref){

18
readingrec.pl
View File

@ -14,7 +14,18 @@ my $input=new CGI;
my $bornum=$input->param('bornum');
#get borrower details
my $data=borrdata('',$bornum);
my ($count,$issues)=allissues($bornum);
my $order=$input->param('order');
my $order2=$order;
if ($order2 eq ''){
$order2="date_due desc";
}
my $limit=$input->param('limit');
if ($limit eq 'full'){
$limit=0;
} else {
$limit=50;
}
my ($count,$issues)=allissues($bornum,$order2,$limit);
print $input->header;
@ -23,9 +34,10 @@ print startmenu('member');
#print $count;
print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
print mktablehdr();
print mktablerow(4,'white',bold('TITLE'),bold('AUTHOR'),bold('DATE'));
print mktablerow(1,'white',"<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=full>Full output</a>");
print mktablerow(4,'white',"<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&order=title&limit=$limit><b>TITLE</b></a>","<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&order=author&limit=$limit><b>AUTHOR</b></a>","<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=$limit><b>DATE</b></a>","<b>Volume</b>");
for (my $i=0;$i<$count;$i++){
print mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'});
print mktablerow(4,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'},$issues->[$i]->{'volumeddesc'});
}
print mktableft();
print endmenu('member');