[Koha-cvs] CVS: koha/opac opac-detail.pl,1.14.2.3,1.14.2.4

[Henri-Damien LAURENT]

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'}=@items;
  
--- 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'}=@items;
  
***************
*** 71,74 ****
--- 84,88 ----
  				WEB_RESULTS => $webarray,
  				SITE_RESULTS => $sitearray,
+ 				subscriptions => \@subs,
  				subscriptionsnumber => $subscriptionsnumber,
  			     LibraryName => C4::Context->preference("LibraryName"),