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