[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 => \@itemsloop,
 						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.
 #