|
Lines 110-119
$sth->execute();
Link Here
|
| 110 |
while ( my $issue = $sth->fetchrow_hashref ) { |
110 |
while ( my $issue = $sth->fetchrow_hashref ) { |
| 111 |
|
111 |
|
| 112 |
my $subscription = &GetSubscription( $issue->{subscriptionid} ); |
112 |
my $subscription = &GetSubscription( $issue->{subscriptionid} ); |
| 113 |
my $planneddate = $issue->{planneddate}; |
113 |
my $publisheddate = $issue->{publisheddate}; |
| 114 |
|
114 |
|
| 115 |
if ( $subscription && $planneddate && $planneddate ne "0000-00-00" ) { |
115 |
if ( $subscription && $publisheddate && $publisheddate ne "0000-00-00" ) { |
| 116 |
my $nextpublisheddate = GetNextDate( $planneddate, $subscription ); |
116 |
my $nextpublisheddate = GetNextDate( $subscription, $publisheddate ); |
| 117 |
my $today = format_date_in_iso( C4::Dates->new()->output() ); |
117 |
my $today = format_date_in_iso( C4::Dates->new()->output() ); |
| 118 |
|
118 |
|
| 119 |
if ( $nextpublisheddate && $today ) { |
119 |
if ( $nextpublisheddate && $today ) { |
| 120 |
- |
|
|