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

[refdoc at crosswire.org]

Author: refdoc
Date: 2010-07-11 05:31:02 -0700 (Sun, 11 Jul 2010)
New Revision: 284

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
added \imt (not the flush part of it)



Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2010-07-10 07:39:02 UTC (rev 283)
+++ trunk/modules/perlconverters/usfm2osis.pl	2010-07-11 12:31:02 UTC (rev 284)
@@ -371,6 +371,11 @@
 	    $line = "<p>$1<\/p>";
 	}
 	
+	# \im introduction paragraph ('left flush' - NOT IMPLENTED FLUSH)
+	if ($line =~ /^\\im\b\s*(.*)/) {
+	    $line = "<p>$1<\/p>";
+	}
+	
         # \ie introduction end (discard)
 	if ($line =~ /^\\ie\b/) {
 	    $line = "";