Lines 20-26
package Koha::Subscription;
Link Here
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use C4::Serials::Frequency; |
22 |
use C4::Serials::Frequency; |
23 |
use C4::Serials qw(issue_number); |
|
|
24 |
|
23 |
|
25 |
use Koha::Database; |
24 |
use Koha::Database; |
26 |
use Koha::Biblios; |
25 |
use Koha::Biblios; |
Lines 263-269
sub guess_irregularities {
Link Here
|
263 |
my $date = $nextexpected->{planneddate}; |
262 |
my $date = $nextexpected->{planneddate}; |
264 |
|
263 |
|
265 |
my ($issuenumber) = C4::Serials::GetFictiveIssueNumber( $self->unblessed, $date ); |
264 |
my ($issuenumber) = C4::Serials::GetFictiveIssueNumber( $self->unblessed, $date ); |
266 |
my $dow = issue_number( dt_from_string($date), $frequency->unit ); |
265 |
my $dow = C4::Serials::issue_number( dt_from_string($date), $frequency->unit ); |
267 |
|
266 |
|
268 |
if ( defined( $permanent_irregularities{$dow} ) ) { |
267 |
if ( defined( $permanent_irregularities{$dow} ) ) { |
269 |
push @irregularities, $issuenumber; |
268 |
push @irregularities, $issuenumber; |
Lines 272-278
sub guess_irregularities {
Link Here
|
272 |
while ( Delta_Days( split( /-/, $date ), split( /-/, $enddate ) ) >= 0 ) { |
271 |
while ( Delta_Days( split( /-/, $date ), split( /-/, $enddate ) ) >= 0 ) { |
273 |
$issuenumber++; |
272 |
$issuenumber++; |
274 |
$date = C4::Serials::GetNextDate( $self->unblessed, $date ); |
273 |
$date = C4::Serials::GetNextDate( $self->unblessed, $date ); |
275 |
$dow = issue_number( dt_from_string($date), $frequency->unit ); |
274 |
$dow = C4::Serials::issue_number( dt_from_string($date), $frequency->unit ); |
276 |
|
275 |
|
277 |
if ( defined( $permanent_irregularities{$dow} ) ) { |
276 |
if ( defined( $permanent_irregularities{$dow} ) ) { |
278 |
push @irregularities, $issuenumber; |
277 |
push @irregularities, $issuenumber; |
279 |
- |
|
|