Lines 77-83
if($op eq 'gennext' && @subscriptionid){
Link Here
|
77 |
require C4::Serials::Numberpattern; |
77 |
require C4::Serials::Numberpattern; |
78 |
my $subscription = GetSubscription($subscriptionid); |
78 |
my $subscription = GetSubscription($subscriptionid); |
79 |
my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern}); |
79 |
my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern}); |
80 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequencies($subscription->{periodicity}); |
80 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subscription->{periodicity}); |
81 |
my $expected = GetNextExpected($subscriptionid); |
81 |
my $expected = GetNextExpected($subscriptionid); |
82 |
my ( |
82 |
my ( |
83 |
$newserialseq, $newlastvalue1, $newlastvalue2, $newlastvalue3, |
83 |
$newserialseq, $newlastvalue1, $newlastvalue2, $newlastvalue3, |
Lines 85-91
if($op eq 'gennext' && @subscriptionid){
Link Here
|
85 |
) = GetNextSeq($subscription, $pattern, $frequency, $expected->{publisheddate}); |
85 |
) = GetNextSeq($subscription, $pattern, $frequency, $expected->{publisheddate}); |
86 |
|
86 |
|
87 |
## We generate the next publication date |
87 |
## We generate the next publication date |
88 |
$frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subscription->{periodicity}); |
|
|
89 |
my $nextpublisheddate = GetNextDate($subscription, $expected->{publisheddate}, $frequency, 1); |
88 |
my $nextpublisheddate = GetNextDate($subscription, $expected->{publisheddate}, $frequency, 1); |
90 |
my $planneddate = $date_received_today ? dt_from_string : $nextpublisheddate; |
89 |
my $planneddate = $date_received_today ? dt_from_string : $nextpublisheddate; |
91 |
## Creating the new issue |
90 |
## Creating the new issue |
92 |
- |
|
|