diff options
-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 |