[Koha-cvs] koha/bookshelves shelves.pl [rel_3_0]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   06/10/30 09:50:45

Modified files:
        bookshelves    : shelves.pl 

Log message:
        better perl writting

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/bookshelves/shelves.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.9.2.2&r2=1.9.2.3

Patches:
Index: shelves.pl
===================================================================
RCS file: /sources/koha/koha/bookshelves/shelves.pl,v
retrieving revision 1.9.2.2
retrieving revision 1.9.2.3
diff -u -b -r1.9.2.2 -r1.9.2.3
--- shelves.pl  17 Oct 2006 07:59:35 -0000      1.9.2.2
+++ shelves.pl  30 Oct 2006 09:50:45 -0000      1.9.2.3
@@ -211,18 +211,9 @@
        my $color='';
        my @itemsloop;
        foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) {
-               my %line;
                ($color eq 1) ? ($color=0) : ($color=1);
-               $line{'toggle'}=$color;
-               $line{'itemnumber'}=$item->{'itemnumber'};
-               $line{'barcode'}=$item->{'barcode'};
-               $line{'title'}=$item->{'title'};
-               $line{'author'}=$item->{'author'};
-               $line{'publicationyear'}=$item->{'publicationyear'};
-               $line{'itemtype'}=$item->{'itemtype'};
-               $line{'ccode'}=$item->{'ccode'};
-               $line{biblionumber} = $item->{biblionumber};
-               push(@itemsloop, \%line);
+               $item->{'toggle'}=$color;
+               push(@itemsloop, $item);
        }
        $template->param(       itemsloop => address@hidden,
                                                shelfname => 
$shelflist->{$shelfnumber}->{'shelfname'},
@@ -234,6 +225,9 @@
 
 #
 # $Log: shelves.pl,v $
+# Revision 1.9.2.3  2006/10/30 09:50:45  tipaul
+# better perl writting
+#
 # Revision 1.9.2.2  2006/10/17 07:59:35  toins
 # ccode added.
 #