diff options
| -rwxr-xr-x | modules/perlconverters/imp2osis.pl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/modules/perlconverters/imp2osis.pl b/modules/perlconverters/imp2osis.pl index e843706..0c1cf92 100755 --- a/modules/perlconverters/imp2osis.pl +++ b/modules/perlconverters/imp2osis.pl @@ -677,7 +677,12 @@ sub closeVers { sub closeChap { if ($openChap == 1) { - print OUTF "<\/chapter>\n"; + if ($milestone == 0) { + print OUTF "<\/chapter>\n"; + } + else { + print OUTF "<chapter eID=\"$book.$chap\"\/>\n"; + } } $openChap = 0; } @@ -738,8 +743,13 @@ foreach $line (@datab) { if ($lastChap > 0) { closeChap(); } - print OUTF "<chapter osisID=\"$book.$chap\">\n"; $openChap = 1; + if ($milestone == 0) { + print OUTF "<chapter osisID=\"$book.$chap\">\n"; + } + else { + print OUTF "<chapter osisID=\"$book.$chap\" sID=\"$book.$chap\"\/>\n"; + } $lastVers = -1; } |