[Koha-cvs] koha/C4 Serials.pm

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	paul poulain <tipaul>	07/05/23 17:36:00

Modified files:
	C4             : Serials.pm 

Log message:
	Bug Fixing :
	managing abouttoexpire function for irregular serial
	
	Need more work.
	HDL from Paul's machine

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Serials.pm?cvsroot=koha&r1=1.16&r2=1.17

Patches:
Index: Serials.pm
===================================================================
RCS file: /sources/koha/koha/C4/Serials.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- Serials.pm	23 May 2007 16:19:40 -0000	1.16
+++ Serials.pm	23 May 2007 17:35:59 -0000	1.17
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Serials.pm,v 1.16 2007/05/23 16:19:40 tipaul Exp $
+# $Id: Serials.pm,v 1.17 2007/05/23 17:35:59 tipaul Exp $
 
 use strict;
 use C4::Date;
@@ -35,7 +35,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.16 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.17 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -1745,7 +1745,7 @@
     my ($subscriptionid) = @_;
     my $dbh              = C4::Context->dbh;
     my $subscription     = GetSubscription($subscriptionid);
-    if ($subscription->{periodicity}){
+    if ($subscription->{periodicity}>0){
       my $expirationdate   = GetExpirationDate($subscriptionid);
       my $query = qq|
             SELECT max(planneddate)