my $enddate = $subscription->{startdate};
# we don't do the same test if the subscription is based on X numbers or on X weeks/months
- if ($subscription->{periodicity}){
+ if (($subscription->{periodicity} % 16) >0){
if ( $subscription->{numberlength} ) {
#calculate the date of the last issue.
my $length = $subscription->{numberlength};
my ($subscriptionid) = @_;
my $dbh = C4::Context->dbh;
my $subscription = GetSubscription($subscriptionid);
- if ($subscription->{periodicity}>0){
+ if (($subscription->{periodicity} % 16)>0){
my $expirationdate = GetExpirationDate($subscriptionid);
my $query = qq|
SELECT max(planneddate)
my $dbh = C4::Context->dbh;
my $subscription = GetSubscription($subscriptionid);
my $per = $subscription->{'periodicity'};
- if ($per>0){
+ if ($per % 16>0){
my $expirationdate = GetExpirationDate($subscriptionid);
my $sth =
$dbh->prepare(
my @res=split /-/,$res;
@res=Date::Calc::Today if ($res[0]*$res[1]==0);
my @endofsubscriptiondate=split/-/,$expirationdate;
- my $per = $subscription->{'periodicity'};
my $x;
if ( $per == 1 ) {$x=7;}
if ( $per == 2 ) {$x=7; }
(@endofsubscriptiondate &&
Delta_Days($res[0],$res[1],$res[2],
$endofsubscriptiondate[0],$endofsubscriptiondate[1],$endofsubscriptiondate[2]) >= 0) );
- return 0;
+ return 0;
} elsif ($subscription->{numberlength}>0) {
return (countissuesfrom($subscriptionid,$subscription->{'startdate'}) >=$subscription->{numberlength}-1);
} else {return 0}
my @resultdate;
# warn "DOW $dayofweek";
- if ( $subscription->{periodicity} == 0 ) {
+ if ( $subscription->{periodicity} % 16 == 0 ) {
return 0;
}
if ( $subscription->{periodicity} == 1 ) {