[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/opac opac-detail.pl,1.14.2.3,1.14.2.4
From: |
Henri-Damien LAURENT |
Subject: |
[Koha-cvs] CVS: koha/opac opac-detail.pl,1.14.2.3,1.14.2.4 |
Date: |
Tue, 28 Jun 2005 00:35:51 -0700 |
Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20116/opac
Modified Files:
Tag: rel_2_2
opac-detail.pl
Log Message:
Adding not issued and delete state to state collection
And display the three latest numbers of every subscription received or lacked
in opac.
Index: opac-detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.14.2.3
retrieving revision 1.14.2.4
diff -C2 -r1.14.2.3 -r1.14.2.4
*** opac-detail.pl 25 Mar 2005 17:04:27 -0000 1.14.2.3
--- opac-detail.pl 28 Jun 2005 07:35:48 -0000 1.14.2.4
***************
*** 30,35 ****
my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
my ($websitecount, @websites) = &getwebsites($biblionumber);
- my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
$dat->{'count'address@hidden;
--- 30,48 ----
my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
my ($websitecount, @websites) = &getwebsites($biblionumber);
+ #coping with subscriptions
+ my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
+ my @subscriptions =
getsubscriptions($dat->{title},$dat->{issn},$biblionumber);
+ my @subs;
+ foreach my $subscription (@subscriptions){
+ warn "subsid :".$subscription->{subscriptionid};
+ my %cell;
+ $cell{subscriptionid}= $subscription->{subscriptionid};
+ $cell{subscriptionnotes}= $subscription->{notes};
+ #get the three latest serials.
+
$cell{latestserials}=getlatestserials($subscription->{subscriptionid},3);
+ push @subs, \%cell;
+ }
+
$dat->{'count'address@hidden;
***************
*** 71,74 ****
--- 84,88 ----
WEB_RESULTS => $webarray,
SITE_RESULTS => $sitearray,
+ subscriptions => address@hidden,
subscriptionsnumber => $subscriptionsnumber,
LibraryName =>
C4::Context->preference("LibraryName"),
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/opac opac-detail.pl,1.14.2.3,1.14.2.4,
Henri-Damien LAURENT <=