Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
All tests and QA script pass.
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
if ($closed) {
open($out, ">", sprintf("$prefix%02d", $i));
$closed = 0;
- if ($indexmode == "dom" && $line !~ /<collection>/) {
+ if ($indexmode eq "dom" && $line !~ /<collection>/) {
print $out "<collection>";
}
}
print $out $line;
$count++ if ($line =~ m|^</record>|);
if ($count == $size) {
- if ($indexmode == "dom" && $line !~ m|</collection>|) {
+ if ($indexmode eq "dom" && $line !~ m|</collection>|) {
print $out "</collection>";
}
$count = 0;