[sword-svn] r530 - trunk/modules/perlconverters

[refdoc at crosswire.org]

Author: refdoc
Date: 2018-06-10 02:27:02 -0700 (Sun, 10 Jun 2018)
New Revision: 530

Modified:
   trunk/modules/perlconverters/imp2osis.pl
Log:
improved milestoned output (chapters are now milestoned too)


Modified: trunk/modules/perlconverters/imp2osis.pl
===================================================================
--- trunk/modules/perlconverters/imp2osis.pl	2018-06-08 13:48:35 UTC (rev 529)
+++ trunk/modules/perlconverters/imp2osis.pl	2018-06-10 09:27:02 UTC (rev 530)
@@ -677,7 +677,12 @@
 
 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 @@
 		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;
 	    }