[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] Changes to koha/opac/opac-ISBDdetail.pl [rel_2_2]
From: |
paul poulain |
Subject: |
[Koha-cvs] Changes to koha/opac/opac-ISBDdetail.pl [rel_2_2] |
Date: |
Fri, 02 Dec 2005 12:15:48 -0500 |
Index: koha/opac/opac-ISBDdetail.pl
diff -u koha/opac/opac-ISBDdetail.pl:1.5.2.5
koha/opac/opac-ISBDdetail.pl:1.5.2.6
--- koha/opac/opac-ISBDdetail.pl:1.5.2.5 Fri Sep 23 10:08:41 2005
+++ koha/opac/opac-ISBDdetail.pl Fri Dec 2 17:15:48 2005
@@ -56,6 +56,7 @@
use MARC::Record;
use C4::Biblio;
use C4::Acquisition;
+use C4::Bull; #uses getsubscriptionfrom biblionumber
use HTML::Template;
my $query=new CGI;
@@ -70,6 +71,21 @@
my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
my $record =MARCgetbiblio($dbh,$bibid);
+
+#coping with subscriptions
+my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
+my $dat = MARCmarc2koha($dbh,$record);
+my @subscriptions = getsubscriptions($dat->{title},$dat->{issn},$biblionumber);
+my @subs;
+foreach my $subscription (@subscriptions){
+ my %cell;
+ $cell{subscriptionid}= $subscription->{subscriptionid};
+ $cell{subscriptionnotes}= $subscription->{notes};
+ #get the three latest serials.
+
$cell{latestserials}=getlatestserials($subscription->{subscriptionid},3);
+ push @subs, \%cell;
+}
+
# open template
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name =>
"opac-ISBDdetail.tmpl",
@@ -81,6 +97,8 @@
$template->param(LibraryName => C4::Context->preference("LibraryName"),
suggestion =>
C4::Context->preference("suggestion"),
virtualshelves =>
C4::Context->preference("virtualshelves"),
+ subscriptions => address@hidden,
+ subscriptionsnumber => $subscriptionsnumber,
);
my $ISBD = C4::Context->preference('ISBD');
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] Changes to koha/opac/opac-ISBDdetail.pl [rel_2_2],
paul poulain <=