summaryrefslogtreecommitdiffstats
path: root/modules/perlconverters
diff options
context:
space:
mode:
authorPeter von Kaehne <refdoc@gmx.net>2011-07-22 23:59:47 +0000
committerPeter von Kaehne <refdoc@gmx.net>2011-07-22 23:59:47 +0000
commit85c7a0fce33f59e9e81d41af5772790f0aaf0960 (patch)
treef08c83f786416694ed63ea1116656e0d929ad36f /modules/perlconverters
parentca7227bf5e27f4cc2d2f1b02e2c512b016214787 (diff)
downloadsword-tools-85c7a0fce33f59e9e81d41af5772790f0aaf0960.tar.gz
added support for \rq..\rq*, i.e. inline reference
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@336 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'modules/perlconverters')
-rw-r--r--modules/perlconverters/usfm2osis.pl8
1 files changed, 5 insertions, 3 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl
index 39f7222..845ee9b 100644
--- a/modules/perlconverters/usfm2osis.pl
+++ b/modules/perlconverters/usfm2osis.pl
@@ -421,8 +421,8 @@ foreach $file (@files) {
}
- ### Titles, Headings, and Labels (elsewhere?)--Markers Supported: \d, \ms#, \s#, \mt#, \r, \sp
- #### Markers Not Yet Supported: \mte#, \mr, \sr, \rq...\rq*
+ ### Titles, Headings, and Labels (elsewhere?)--Markers Supported: \d, \ms#, \s#, \mt#, \r, \sp, \rq..\rq*
+ #### Markers Not Yet Supported: \mte#, \mr, \sr
# \ms majorSection
if ($line =~ /^\\ms\b\s*(.+)/) {
@@ -511,7 +511,9 @@ foreach $file (@files) {
$line = "<speaker>$1<\/speaker>";
}
-
+ # \rq..\rq* inline reference
+ $line =~ s/\\rq( .*?)\\rq\*/<reference>$1<\/reference>/g;
+
### Chapters and Verses--Markers Supported: \c, \v, \vp...\vp*, \cl
#### Markers Not Yet Supported: \ca...\ca*, \cp, \cd, \va...\va*