|
Lines 1137-1143
sub ModSerialStatus {
Link Here
|
| 1137 |
$recievedlist .= "; $serialseq" |
1137 |
$recievedlist .= "; $serialseq" |
| 1138 |
unless ( index( "$recievedlist", "$serialseq" ) >= 0 ); |
1138 |
unless ( index( "$recievedlist", "$serialseq" ) >= 0 ); |
| 1139 |
} |
1139 |
} |
| 1140 |
|
1140 |
# in case serial has been previously marked as missing |
|
|
1141 |
if (grep /$status/, (2,3,7)) { |
| 1142 |
$missinglist =~ s/[,;]?\s?$serialseq//g; |
| 1143 |
} |
| 1141 |
# warn "missinglist : $missinglist serialseq :$serialseq, ".index("$missinglist","$serialseq"); |
1144 |
# warn "missinglist : $missinglist serialseq :$serialseq, ".index("$missinglist","$serialseq"); |
| 1142 |
$missinglist .= "; $serialseq" |
1145 |
$missinglist .= "; $serialseq" |
| 1143 |
if ( $status == 4 |
1146 |
if ( $status == 4 |
| 1144 |
- |
|
|