Lines 1133-1150
sub ModSerialStatus {
Link Here
|
1133 |
$sth = $dbh->prepare($query); |
1133 |
$sth = $dbh->prepare($query); |
1134 |
$sth->execute($subscriptionid); |
1134 |
$sth->execute($subscriptionid); |
1135 |
my ( $missinglist, $recievedlist ) = $sth->fetchrow; |
1135 |
my ( $missinglist, $recievedlist ) = $sth->fetchrow; |
1136 |
if ( $status == 2 ) { |
1136 |
|
|
|
1137 |
#Arrived: add to received list, remove from missing |
1138 |
if($status==2) { |
1137 |
$recievedlist .= "; $serialseq" |
1139 |
$recievedlist .= "; $serialseq" |
1138 |
if $recievedlist!~/(^|;)\s*$serialseq(?=;|$)/; |
1140 |
if $recievedlist!~/(^|;)\s*$serialseq(?=;|$)/; |
|
|
1141 |
$missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g; |
1139 |
} |
1142 |
} |
1140 |
# in case serial has been previously marked as missing |
1143 |
#Expected,late,claimed: remove optionally from received+missing |
1141 |
if (grep /$status/, (1,2,3,7)) { |
1144 |
if (grep /$status/, (1,3,7)) { |
|
|
1145 |
$recievedlist=~ s/(^|;)\s*$serialseq(?=;|$)//g; |
1142 |
$missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g; |
1146 |
$missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g; |
1143 |
} |
1147 |
} |
1144 |
$missinglist .= "; $serialseq" |
1148 |
#Missing, not available: add to missing, remove from received |
1145 |
if $status==4 && $missinglist!~/(^|;)\s*$serialseq(?=;|$)/; |
1149 |
#No longer putting additional text into missing field |
1146 |
$missinglist .= "; not issued $serialseq" |
1150 |
if($status==4 || $status==5) { |
1147 |
if $status==5 && $missinglist!~/(^|;)\s*$serialseq(?=;|$)/; |
1151 |
$missinglist .= "; $serialseq" |
|
|
1152 |
if $missinglist!~/(^|;)\s*$serialseq(?=;|$)/; |
1153 |
$recievedlist=~ s/(^|;)\s*$serialseq(?=;|$)//g; |
1154 |
} |
1148 |
|
1155 |
|
1149 |
$query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE subscriptionid=?"; |
1156 |
$query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE subscriptionid=?"; |
1150 |
$sth = $dbh->prepare($query); |
1157 |
$sth = $dbh->prepare($query); |
1151 |
- |
|
|