|
Lines 71-77
if($op eq 'cud-gennext' && @subscriptionid){
Link Here
|
| 71 |
my $planneddate = $date_received_today ? dt_from_string : $issue->{planneddate}; |
71 |
my $planneddate = $date_received_today ? dt_from_string : $issue->{planneddate}; |
| 72 |
ModSerialStatus( $issue->{serialid}, $issue->{serialseq}, |
72 |
ModSerialStatus( $issue->{serialid}, $issue->{serialseq}, |
| 73 |
$planneddate, $issue->{publisheddate}, |
73 |
$planneddate, $issue->{publisheddate}, |
| 74 |
$issue->{publisheddatetext}, $status, "", $count_forward ); |
74 |
$issue->{publisheddatetext}, $status, $issue->{notes}, $count_forward ); |
| 75 |
} else { |
75 |
} else { |
| 76 |
require C4::Serials::Numberpattern; |
76 |
require C4::Serials::Numberpattern; |
| 77 |
my $subscription = GetSubscription($subscriptionid); |
77 |
my $subscription = GetSubscription($subscriptionid); |
| 78 |
- |
|
|