[Koha-cvs] CVS: koha/opac opac-detail.pl,1.18,1.19

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4905/opac

Modified Files:
	opac-detail.pl 
Log Message:
Detailing the three latest issues on OPAC for serials

Index: opac-detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** opac-detail.pl	4 May 2005 09:02:38 -0000	1.18
--- opac-detail.pl	17 Jun 2005 13:44:25 -0000	1.19
***************
*** 30,34 ****
  my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
  my ($websitecount, @websites)             = &getwebsites($biblionumber);
- my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
  
  $dat->{'count'}=@items;
--- 30,33 ----
***************
*** 67,70 ****
--- 66,83 ----
  my $sitearray=\@websites;
  
+ #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;
+ }
+ 
  $template->param(BIBLIO_RESULTS => $resultsarray,
  				ITEM_RESULTS => $itemsarray,
***************
*** 72,75 ****
--- 85,89 ----
  				SITE_RESULTS => $sitearray,
  				subscriptionsnumber => $subscriptionsnumber,
+ 				subscriptions => \@subs,
  			     LibraryName => C4::Context->preference("LibraryName"),
  				suggestion => C4::Context->preference("suggestion"),
***************
*** 108,111 ****
  output_html_with_http_headers $query, $cookie, $template->output;
  
! output_html_with_http_headers $query, $cookie, $template->output;
  
--- 122,125 ----
  output_html_with_http_headers $query, $cookie, $template->output;
  
! #output_html_with_http_headers $query, $cookie, $template->output;