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