Lines 1040-1046
sub ModSerialStatus {
Link Here
|
1040 |
$recievedlist .= "; $serialseq" |
1040 |
$recievedlist .= "; $serialseq" |
1041 |
unless ( index( "$recievedlist", "$serialseq" ) >= 0 ); |
1041 |
unless ( index( "$recievedlist", "$serialseq" ) >= 0 ); |
1042 |
} |
1042 |
} |
1043 |
|
1043 |
# in case serial has been previously marked as missing |
|
|
1044 |
if ( $status ~~ (2,3,7)) { |
1045 |
$missinglist =~ s/[,;]?\s?$serialseq//g; |
1046 |
} |
1044 |
# warn "missinglist : $missinglist serialseq :$serialseq, ".index("$missinglist","$serialseq"); |
1047 |
# warn "missinglist : $missinglist serialseq :$serialseq, ".index("$missinglist","$serialseq"); |
1045 |
$missinglist .= "; $serialseq" |
1048 |
$missinglist .= "; $serialseq" |
1046 |
if ( $status == 4 |
1049 |
if ( $status == 4 |
1047 |
- |
|
|