[Koha-cvs] koha/catalogue detail.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:53:38

Modified files:
	catalogue      : detail.pl 

Log message:
	better perl writting

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/detail.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.6.2.2&r2=1.6.2.3

Patches:
Index: detail.pl
===================================================================
RCS file: /sources/koha/koha/catalogue/detail.pl,v
retrieving revision 1.6.2.2
retrieving revision 1.6.2.3
diff -u -b -r1.6.2.2 -r1.6.2.3
--- detail.pl	19 Oct 2006 14:16:09 -0000	1.6.2.2
+++ detail.pl	30 Oct 2006 09:53:38 -0000	1.6.2.3
@@ -15,7 +15,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: detail.pl,v 1.6.2.2 2006/10/19 14:16:09 toins Exp $
+# $Id: detail.pl,v 1.6.2.3 2006/10/30 09:53:38 tipaul Exp $
 
 use strict;
 require Exporter;
@@ -41,9 +41,6 @@
     $biblionumber=$query->param('bib');
 }
 
-$template->param(biblionumber => $biblionumber);
-
-
 # change back when ive fixed request.pl
 my @items                                 = &GetItemsInfo($biblionumber, 'intra');
 my $dat                                   = &bibdata($biblionumber);
@@ -81,16 +78,14 @@
 
 my @results = ($dat,);
 
-my $resultsarray=\@results;
-my $itemsarray=\@items;
-my $webarray=\@webbiblioitems;
-my $sitearray=\@websites;
-
-$template->param(BIBLIO_RESULTS => $resultsarray,
-				ITEM_RESULTS => $itemsarray,
-				WEB_RESULTS => $webarray,
-				SITE_RESULTS => $sitearray,
+foreach (keys %{$dat}) {
+    $template->param("$_" => $dat->{$_}."");
+}
+$template->param(ITEM_RESULTS => \@items,
+				WEB_RESULTS => \@webbiblioitems,
+				SITE_RESULTS => \@websites,
 				subscriptionsnumber => $subscriptionsnumber,
+				biblionumber => $biblionumber,
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;