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