[Koha-cvs] CVS: koha request.pl,1.13,1.14
Finlay Thompson
finlayt at users.sourceforge.net
Thu Sep 19 02:24:30 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv27637
Modified Files:
request.pl
Log Message:
Fixed the ordering of bibitems displayed in the request page. Most recent at top, ordered by dateaccessioned on the items table.
Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** request.pl 22 Aug 2002 04:45:07 -0000 1.13
--- request.pl 19 Sep 2002 00:24:28 -0000 1.14
***************
*** 72,77 ****
! for (my $i=0; $i<$count2; $i++) {
! my @barcodes = barcodes($data[$i]->{'biblioitemnumber'});
my $barcodestext = "";
foreach my $num (@barcodes) {
--- 72,77 ----
! foreach my $dat (sort {$b->{'dateaccessioned'} cmp $a->{'dateaccessioned'}} @data) {
! my @barcodes = barcodes($dat->{'biblioitemnumber'});
my $barcodestext = "";
foreach my $num (@barcodes) {
***************
*** 82,105 ****
$barcodestext = substr($barcodestext, 0, -4);
! $data[$i]->{'dewey'}="" if ($data[$i]->{'dewey'} == 0);
! $data[$i]->{'volumeddesc'} = " " 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'}";
my $select;
! if (($data[$i]->{'notforloan'})
! || ($data[$i]->{'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'}>";
}
$bibitemrows .= <<"EOF";
<tr VALIGN=TOP>
<TD>$select</td>
! <TD>$data[$i]->{'description'}</td>
<TD>$class</td>
! <td>$data[$i]->{'volumeddesc'}</td>
! <td>$data[$i]->{'publicationyear'}</td>
<td>$barcodestext</td>
</tr>
--- 82,105 ----
$barcodestext = substr($barcodestext, 0, -4);
! $dat->{'dewey'}="" if ($dat->{'dewey'} == 0);
! $dat->{'volumeddesc'} = " " unless $dat->{'volumeddesc'};
! $dat->{'dewey'}=~ s/\.0000$//;
! $dat->{'dewey'}=~ s/00$//;
! my $class="$dat->{'classification'}$dat->{'dewey'}$dat->{'subclass'}";
my $select;
! if (($dat->{'notforloan'})
! || ($dat->{'itemlost'} == 1)) {
$select = "Cannot be reserved.";
} else {
! $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>$dat->{'description'}</td>
<TD>$class</td>
! <td>$dat->{'volumeddesc'}</td>
! <td>$dat->{'publicationyear'}</td>
<td>$barcodestext</td>
</tr>
More information about the Koha-cvs
mailing list