diff options
| author | Peter von Kaehne <refdoc@gmx.net> | 2009-10-20 02:17:05 +0000 |
|---|---|---|
| committer | Peter von Kaehne <refdoc@gmx.net> | 2009-10-20 02:17:05 +0000 |
| commit | 8f4ab29725f3641c79769b4ee032babea4001502 (patch) | |
| tree | 7771be280f32f65a8175796420ae1e03a2667d3c | |
| parent | 4d208dcdd21e4251d7afd84bb4d2942bed997bfd (diff) | |
| download | sword-tools-8f4ab29725f3641c79769b4ee032babea4001502.tar.gz | |
correction - enclose up to end of line for acrostic
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@216 07627401-56e2-0310-80f4-f8cd0041bdcd
| -rw-r--r-- | modules/perlconverters/usfm2osis.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl index 3a2a186..c438684 100644 --- a/modules/perlconverters/usfm2osis.pl +++ b/modules/perlconverters/usfm2osis.pl @@ -528,15 +528,15 @@ foreach $file (@files) { # \nb $line =~ s/\\nb\b//; - ### Poetry--Markers Supported: \q#, \qs...\qs*, \qc, \qm# - #### Markers Not Yet Supported: \qr, \qac...\qac*, \b + ### Poetry--Markers Supported: \q#, \qs...\qs*, \qc, qa, \qm# + #### Markers Not Yet Supported: \qac...\qac*, \qr \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; + $line =~ s/^\\qa\b\s*(.*$)/<hi type=\"acrostic\">$1<\/hi>/g; # \q line |