[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/catalogue detail.pl [rel_3_0]
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/catalogue detail.pl [rel_3_0] |
Date: |
Mon, 30 Oct 2006 09:53:38 +0000 |
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;