|
Lines 22-28
use Modern::Perl;
Link Here
|
| 22 |
use Carp; |
22 |
use Carp; |
| 23 |
|
23 |
|
| 24 |
use C4::Serials::Frequency; |
24 |
use C4::Serials::Frequency; |
| 25 |
use C4::Serials qw(issue_number); |
|
|
| 26 |
|
25 |
|
| 27 |
use Koha::Database; |
26 |
use Koha::Database; |
| 28 |
use Koha::Biblios; |
27 |
use Koha::Biblios; |
|
Lines 268-274
sub guess_irregularities {
Link Here
|
| 268 |
my $date = $nextexpected->{planneddate}; |
267 |
my $date = $nextexpected->{planneddate}; |
| 269 |
|
268 |
|
| 270 |
my ($issuenumber) = C4::Serials::GetFictiveIssueNumber($self->unblessed, $date); |
269 |
my ($issuenumber) = C4::Serials::GetFictiveIssueNumber($self->unblessed, $date); |
| 271 |
my $dow = issue_number( dt_from_string($date), $frequency->unit ); |
270 |
my $dow = C4::Serials::issue_number( dt_from_string($date), $frequency->unit ); |
| 272 |
|
271 |
|
| 273 |
if ( defined( $permanent_irregularities{$dow} ) ) { |
272 |
if ( defined( $permanent_irregularities{$dow} ) ) { |
| 274 |
push @irregularities, $issuenumber; |
273 |
push @irregularities, $issuenumber; |
|
Lines 277-283
sub guess_irregularities {
Link Here
|
| 277 |
while ( Delta_Days( split(/-/, $date), split(/-/, $enddate) ) >= 0 ) { |
276 |
while ( Delta_Days( split(/-/, $date), split(/-/, $enddate) ) >= 0 ) { |
| 278 |
$issuenumber++; |
277 |
$issuenumber++; |
| 279 |
$date = C4::Serials::GetNextDate($self->unblessed, $date); |
278 |
$date = C4::Serials::GetNextDate($self->unblessed, $date); |
| 280 |
$dow = issue_number( dt_from_string($date), $frequency->unit ); |
279 |
$dow = C4::Serials::issue_number( dt_from_string($date), $frequency->unit ); |
| 281 |
|
280 |
|
| 282 |
if ( defined( $permanent_irregularities{$dow} ) ) { |
281 |
if ( defined( $permanent_irregularities{$dow} ) ) { |
| 283 |
push @irregularities, $issuenumber; |
282 |
push @irregularities, $issuenumber; |