[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 address@hidden;
-my address@hidden;
-my address@hidden;
-my address@hidden;
-
-$template->param(BIBLIO_RESULTS => $resultsarray,
-                               ITEM_RESULTS => $itemsarray,
-                               WEB_RESULTS => $webarray,
-                               SITE_RESULTS => $sitearray,
+foreach (keys %{$dat}) {
+    $template->param("$_" => $dat->{$_}."");
+}
+$template->param(ITEM_RESULTS => address@hidden,
+                               WEB_RESULTS => address@hidden,
+                               SITE_RESULTS => address@hidden,
                                subscriptionsnumber => $subscriptionsnumber,
+                               biblionumber => $biblionumber,
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;