|
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 |
- |
|
|