|
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 |
- |
|
|