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

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

Return to bug 11492