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

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

Return to bug 12375