summaryrefslogtreecommitdiffstats
path: root/modules/perlconverters/imp2osis.pl
diff options
context:
space:
mode:
Diffstat (limited to 'modules/perlconverters/imp2osis.pl')
-rwxr-xr-xmodules/perlconverters/imp2osis.pl14
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;
}