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

(-)a/C4/Serials.pm (-22 / +16 lines)
Lines 1630-1665 sub NewIssue { Link Here
1630
        }
1630
        }
1631
    );
1631
    );
1632
1632
1633
    my $dbh   = C4::Context->dbh;
1634
    my $serialid = $serial->serialid();
1633
    my $serialid = $serial->serialid();
1635
1634
1636
    my $query = qq|
1635
    my $subscription_history = $schema->resultset('Subscriptionhistory')->find($subscriptionid);
1637
        SELECT missinglist,recievedlist
1636
    my $missinglist = $subscription_history->missinglist();
1638
        FROM   subscriptionhistory
1637
    my $recievedlist = $subscription_history->recievedlist();
1639
        WHERE  subscriptionid=?
1640
    |;
1641
    my $sth = $dbh->prepare($query);
1642
    $sth->execute($subscriptionid);
1643
    my ( $missinglist, $recievedlist ) = $sth->fetchrow;
1644
1638
1645
    if ( $status == 2 ) {
1639
    if ( $status == 2 ) {
1646
      ### TODO Add a feature that improves recognition and description.
1640
        ### TODO Add a feature that improves recognition and description.
1647
      ### As such count (serialseq) i.e. : N18,2(N19),N20
1641
        ### As such count (serialseq) i.e. : N18,2(N19),N20
1648
      ### Would use substr and index But be careful to previous presence of ()
1642
        ### Would use substr and index But be careful to previous presence of ()
1649
        $recievedlist .= "; $serialseq" unless (index($recievedlist,$serialseq)>0);
1643
        $recievedlist .= "; $serialseq"
1644
          unless ( index( $recievedlist, $serialseq ) > 0 );
1650
    }
1645
    }
1651
    if ( $status == 4 ) {
1646
    if ( $status == 4 ) {
1652
        $missinglist .= "; $serialseq" unless (index($missinglist,$serialseq)>0);
1647
        $missinglist .= "; $serialseq"
1648
          unless ( index( $missinglist, $serialseq ) > 0 );
1653
    }
1649
    }
1654
    $query = qq|
1650
1655
        UPDATE subscriptionhistory
1656
        SET    recievedlist=?, missinglist=?
1657
        WHERE  subscriptionid=?
1658
    |;
1659
    $sth = $dbh->prepare($query);
1660
    $recievedlist =~ s/^; //;
1651
    $recievedlist =~ s/^; //;
1661
    $missinglist  =~ s/^; //;
1652
    $missinglist  =~ s/^; //;
1662
    $sth->execute( $recievedlist, $missinglist, $subscriptionid );
1653
1654
    $subscription_history->recievedlist($recievedlist);
1655
    $subscription_history->missinglist($missinglist);
1656
    $subscription_history->update();
1657
1663
    return $serialid;
1658
    return $serialid;
1664
}
1659
}
1665
1660
1666
- 

Return to bug 12375