diff options
author | Peter von Kaehne <refdoc@gmx.net> | 2009-10-20 00:53:06 +0000 |
---|---|---|
committer | Peter von Kaehne <refdoc@gmx.net> | 2009-10-20 00:53:06 +0000 |
commit | 4d208dcdd21e4251d7afd84bb4d2942bed997bfd (patch) | |
tree | 433d28a78b0f4d8306585414fd627c42cfedd840 | |
parent | 6126301b7d8c17f08f6f195a5e307dd52720ba0d (diff) | |
download | sword-tools-4d208dcdd21e4251d7afd84bb4d2942bed997bfd.tar.gz |
added support for Acrostic marker
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@215 07627401-56e2-0310-80f4-f8cd0041bdcd
-rw-r--r-- | modules/perlconverters/usfm2osis.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl index 1826600..3a2a186 100644 --- a/modules/perlconverters/usfm2osis.pl +++ b/modules/perlconverters/usfm2osis.pl @@ -529,11 +529,16 @@ foreach $file (@files) { $line =~ s/\\nb\b//; ### Poetry--Markers Supported: \q#, \qs...\qs*, \qc, \qm# - #### Markers Not Yet Supported: \qr, \qa, \qac...\qac*, \b + #### Markers Not Yet Supported: \qr, \qac...\qac*, \b # \qt...\qt*, OT quotation (handle early) $line =~ s/\\qt\b\s*(.*?)\\qt\*/<seg type="otPassage">$1<\/seg>/g; + # \qa (Acrostic marker) + + $line =~ s/\\qa\b\s*(.*?)/<hi type=\"acrostic\">$1<\/hi>/g; + + # \q line if ($line =~ /^\\q/) { if ($l != 1) { |