Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Fixed the ordering of bibitems displayed in the request page. Most recent at top, ordered by dateaccessioned on the items table.

Browse source
This commit is contained in:
finlayt 2002-09-19 00:24:27 +00:00
parent 1e0e50e304
commit 70003da4ec
2 changed files with 18 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
C4/Search.pm
View file

@ -1337,7 +1337,7 @@ sub itemcount {
if (my $data2=$sth2->fetchrow_hashref){
$nacount++;
} else {
if ($data->{'holdingbranch'} eq 'C'){
if ($data->{'holdingbranch'} eq 'C' || $data->{'holdingbranch'} eq 'LT'){
$lcount++;
}
if ($data->{'holdingbranch'} eq 'F' || $data->{'holdingbranch'} eq 'FP'){
@ -1437,7 +1437,10 @@ sub ItemType {
sub bibitems {
my ($bibnum) = @_;
my $dbh = C4Connect;
my $query = "SELECT biblioitems.*, itemtypes.*, MIN(items.itemlost) as itemlost
my $query = "SELECT biblioitems.*,
itemtypes.*,
MIN(items.itemlost) as itemlost,
MIN(items.dateaccessioned) as dateaccessioned
FROM biblioitems, itemtypes, items
WHERE biblioitems.biblionumber = ?
AND biblioitems.itemtype = itemtypes.itemtype

26
request.pl
View file

@ -71,8 +71,8 @@ my ($count2,@data) = bibitems($bib);
my $bibitemrows = "";
for (my $i=0; $i<$count2; $i++) {
my @barcodes = barcodes($data[$i]->{'biblioitemnumber'});
foreach my $dat (sort {$b->{'dateaccessioned'} cmp $a->{'dateaccessioned'}} @data) {
my @barcodes = barcodes($dat->{'biblioitemnumber'});
my $barcodestext = "";
foreach my $num (@barcodes) {
my $message = $num->{'itemlost'} == 1 ? "(lost)" :
@ -81,26 +81,26 @@ for (my $i=0; $i<$count2; $i++) {
}
$barcodestext = substr($barcodestext, 0, -4);
$data[$i]->{'dewey'}="" if ($data[$i]->{'dewey'} == 0);
$dat->{'dewey'}="" if ($dat->{'dewey'} == 0);
$data[$i]->{'volumeddesc'} = "&nbsp;" unless $data[$i]->{'volumeddesc'};
$data[$i]->{'dewey'}=~ s/\.0000$//;
$data[$i]->{'dewey'}=~ s/00$//;
my $class="$data[$i]->{'classification'}$data[$i]->{'dewey'}$data[$i]->{'subclass'}";
$dat->{'volumeddesc'} = "&nbsp;" unless $dat->{'volumeddesc'};
$dat->{'dewey'}=~ s/\.0000$//;
$dat->{'dewey'}=~ s/00$//;
my $class="$dat->{'classification'}$dat->{'dewey'}$dat->{'subclass'}";
my $select;
if (($data[$i]->{'notforloan'})
|| ($data[$i]->{'itemlost'} == 1)) {
if (($dat->{'notforloan'})
|| ($dat->{'itemlost'} == 1)) {
$select = "Cannot be reserved.";
} else {
$select = " <input type=checkbox name=reqbib value=$data[$i]->{'biblioitemnumber'}><input type=hidden name=biblioitem value=$data[$i]->{'biblioitemnumber'}>";
$select = " <input type=checkbox name=reqbib value=$dat->{'biblioitemnumber'}><input type=hidden name=biblioitem value=$dat->{'biblioitemnumber'}>";
}
$bibitemrows .= <<"EOF";
<tr VALIGN=TOP>
<TD>$select</td>
<TD>$data[$i]->{'description'}</td>
<TD>$dat->{'description'}</td>
<TD>$class</td>
<td>$data[$i]->{'volumeddesc'}</td>
<td>$data[$i]->{'publicationyear'}</td>
<td>$dat->{'volumeddesc'}</td>
<td>$dat->{'publicationyear'}</td>
<td>$barcodestext</td>
</tr>
EOF