[Koha-cvs] CVS: koha request.pl,1.13,1.14

[Finlay Thompson]

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'} = "&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'}";
      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'} = "&nbsp;" 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>