[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