Lines 53-66
splitfile() {
Link Here
|
53 |
if ($closed) { |
53 |
if ($closed) { |
54 |
open($out, ">", sprintf("$prefix%02d", $i)); |
54 |
open($out, ">", sprintf("$prefix%02d", $i)); |
55 |
$closed = 0; |
55 |
$closed = 0; |
56 |
if ($indexmode == "dom" && $line !~ /<collection>/) { |
56 |
if ($indexmode eq "dom" && $line !~ /<collection>/) { |
57 |
print $out "<collection>"; |
57 |
print $out "<collection>"; |
58 |
} |
58 |
} |
59 |
} |
59 |
} |
60 |
print $out $line; |
60 |
print $out $line; |
61 |
$count++ if ($line =~ m|^</record>|); |
61 |
$count++ if ($line =~ m|^</record>|); |
62 |
if ($count == $size) { |
62 |
if ($count == $size) { |
63 |
if ($indexmode == "dom" && $line !~ m|</collection>|) { |
63 |
if ($indexmode eq "dom" && $line !~ m|</collection>|) { |
64 |
print $out "</collection>"; |
64 |
print $out "</collection>"; |
65 |
} |
65 |
} |
66 |
$count = 0; |
66 |
$count = 0; |
67 |
- |
|
|