View | Details | Raw Unified | Return to bug 11492
Collapse All | Expand All

(-)a/C4/Serials.pm (-1 / +1 lines)
Lines 1163-1169 sub ModSerialStatus { Link Here
1163
                    WHERE  subscriptionid = ?";
1163
                    WHERE  subscriptionid = ?";
1164
        $sth = $dbh->prepare($query);
1164
        $sth = $dbh->prepare($query);
1165
        $sth->execute( $newlastvalue1, $newlastvalue2, $newlastvalue3, $newinnerloop1, $newinnerloop2, $newinnerloop3, $subscriptionid );
1165
        $sth->execute( $newlastvalue1, $newlastvalue2, $newlastvalue3, $newinnerloop1, $newinnerloop2, $newinnerloop3, $subscriptionid );
1166
        NewIssue( $newserialseq, $subscriptionid, $subscription->{'biblionumber'}, 1, $nextpubdate, $nextpubdate, $publisheddatetext, $notes, $routingnotes );
1166
        NewIssue( $newserialseq, $subscriptionid, $subscription->{'biblionumber'}, 1, $nextpubdate, $nextpubdate, undef, $notes, $routingnotes );
1167
        # check if an alert must be sent... (= a letter is defined & status became "arrived"
1167
        # check if an alert must be sent... (= a letter is defined & status became "arrived"
1168
        if ( $subscription->{letter} && $status == ARRIVED && $oldstatus != ARRIVED ) {
1168
        if ( $subscription->{letter} && $status == ARRIVED && $oldstatus != ARRIVED ) {
1169
            require C4::Letters;
1169
            require C4::Letters;
(-)a/serials/serials-collection.pl (-2 / +1 lines)
Lines 88-94 if($op eq 'gennext' && @subscriptionid){ Link Here
88
             my $planneddate = $date_received_today ? dt_from_string : $nextpublisheddate;
88
             my $planneddate = $date_received_today ? dt_from_string : $nextpublisheddate;
89
             ## Creating the new issue
89
             ## Creating the new issue
90
             NewIssue( $newserialseq, $subscriptionid, $subscription->{'biblionumber'},
90
             NewIssue( $newserialseq, $subscriptionid, $subscription->{'biblionumber'},
91
                     1, $planneddate, $nextpublisheddate, $issue->{publisheddatetext},
91
                     1, $planneddate, $nextpublisheddate, undef,
92
                     $issue->{notes}, $issue->{routingnotes} );
92
                     $issue->{notes}, $issue->{routingnotes} );
93
93
94
             ## Updating the subscription seq status
94
             ## Updating the subscription seq status
95
- 

Return to bug 11492