[Koha-cvs] CVS: koha/opac opac-serial-issues.pl,1.1.2.5,1.1.2.6

Henri-Damien LAURENT hdl at users.sourceforge.net
Fri Jun 3 14:53:10 CEST 2005


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

Modified Files:
      Tag: rel_2_2
	opac-serial-issues.pl 
Log Message:
Featuring OPAC with Full History Subscription

Index: opac-serial-issues.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-serial-issues.pl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -C2 -r1.1.2.5 -r1.1.2.6
*** opac-serial-issues.pl	2 Jun 2005 21:04:35 -0000	1.1.2.5
--- opac-serial-issues.pl	3 Jun 2005 12:53:08 -0000	1.1.2.6
***************
*** 25,35 ****
  my $subscriptions = get_full_subscription_list_from_biblionumber($biblionumber);
  
! my $year;
! my $yearmin=$subscriptions->[1]{year};
! warn "yearmin".$yearmin;
! my $yearmax;
! my @loopissues;
! my $yearmax=$subscriptions->[scalar(@$subscriptions)]{year};
! warn "yearmax".$yearmax;
  
  
--- 25,34 ----
  my $subscriptions = get_full_subscription_list_from_biblionumber($biblionumber);
  
! my $title = $subscriptions->[0]{bibliotitle};
! warn "title ".$title;
! my $yearmin=$subscriptions->[0]{year};
! warn "yearmin ".$yearmin;
! my $yearmax=$subscriptions->[scalar(@$subscriptions)-1]{year};
! warn "yearmax ".$yearmax;
  
  
***************
*** 50,53 ****
--- 49,53 ----
  	yearmin => $yearmin,
  	yearmax =>$yearmax,
+ 	bibliotitle => $title,
  	suggestion => C4::Context->preference("suggestion"),
  	virtualshelves => C4::Context->preference("virtualshelves"),





More information about the Koha-cvs mailing list