View | Details | Raw Unified | Return to bug 8896
Collapse All | Expand All

(-)a/C4/Serials.pm (-2 / +5 lines)
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
- 

Return to bug 8896