diff options
| author | Chris Little <chrislit@crosswire.org> | 2012-02-25 14:59:16 +0000 |
|---|---|---|
| committer | Chris Little <chrislit@crosswire.org> | 2012-02-25 14:59:16 +0000 |
| commit | 32130c695b3d9d7103dcee69c850993ec171a5f1 (patch) | |
| tree | 827a3aa9a6097d2fccdad51d13291dacb5c1e05c /modules/perlconverters | |
| parent | 7374499d8cf037499d3964e3bc5d96cba91b22cb (diff) | |
| download | sword-tools-32130c695b3d9d7103dcee69c850993ec171a5f1.tar.gz | |
changed handling of \vp to generate <seg type="verseNumber"> rather than deleting
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@350 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'modules/perlconverters')
| -rw-r--r-- | modules/perlconverters/usfm2osis.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/perlconverters/usfm2osis.pl b/modules/perlconverters/usfm2osis.pl index b287f99..9aba683 100644 --- a/modules/perlconverters/usfm2osis.pl +++ b/modules/perlconverters/usfm2osis.pl @@ -612,9 +612,9 @@ foreach $file (@files) { } } - # \vp...\vp# published verse numbers (just delete for now) + # \vp...\vp# published verse numbers $line =~ s/\\vp\*\s*//g; - $line =~ s/\\vp\b\s*(\d+[a-z]?|[a-z])\s*//g; + $line =~ s/\\vp\b\s*(\d+[a-z]?|[a-z])\s*/<seg type="verseNumber">$1<\/seg>/g; ### Paragraphs--Markers Supported: \p, \b, \m, \nb, \cls #### Markers Not Yet Supported: \m, \pmo, \pm, \pmc, \pmr, \pi#, \mi, \li#, \pc, \pr, \ph#, \b |