|
Lines 1140-1146
sub ModSerialStatus {
Link Here
|
| 1140 |
} |
1140 |
} |
| 1141 |
# in case serial has been previously marked as missing |
1141 |
# in case serial has been previously marked as missing |
| 1142 |
if (grep /$status/, (1,2,3,7)) { |
1142 |
if (grep /$status/, (1,2,3,7)) { |
| 1143 |
$missinglist =~ s/[,;]?\s?$serialseq//g; |
1143 |
#delete e.g. 3 not 31: therefore check on punct. and \D |
|
|
1144 |
$missinglist =~ s/(^|\s|[,;])$serialseq(?=\D|$)//g; |
| 1145 |
#cleanup the ; mess :) |
| 1146 |
$missinglist =~ s/[,;\s]+/;/g; |
| 1147 |
$missinglist =~ s/^[,;\s]+|[,;\s]+$//; |
| 1144 |
} |
1148 |
} |
| 1145 |
# warn "missinglist : $missinglist serialseq :$serialseq, ".index("$missinglist","$serialseq"); |
1149 |
# warn "missinglist : $missinglist serialseq :$serialseq, ".index("$missinglist","$serialseq"); |
| 1146 |
$missinglist .= "; $serialseq" |
1150 |
$missinglist .= "; $serialseq" |
| 1147 |
- |
|
|