koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Henri-Damien LAURENT
Subject: [Koha-cvs] CVS: koha/opac opac-serial-issues.pl,1.1.2.5,1.1.2.6
Date: Fri, 03 Jun 2005 05:53:10 -0700

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"),




reply via email to

[Prev in Thread] Current Thread [Next in Thread]