diff options
| author | Chris Little <chrislit@crosswire.org> | 2009-11-08 00:59:06 +0000 |
|---|---|---|
| committer | Chris Little <chrislit@crosswire.org> | 2009-11-08 00:59:06 +0000 |
| commit | 17b17f4728288681c7e1bed61e90192aabb9d468 (patch) | |
| tree | e00d1d0ceac7e1f58187fbae60d53bd0be3565bc /modules/perlconverters/imp2osis.pl | |
| parent | 3a9511049e97df830a4842e3e8a190f795446de9 (diff) | |
| download | sword-tools-17b17f4728288681c7e1bed61e90192aabb9d468.tar.gz | |
added some code to revert non-native versification data introduced by imp2mod
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@230 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'modules/perlconverters/imp2osis.pl')
| -rw-r--r-- | modules/perlconverters/imp2osis.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/modules/perlconverters/imp2osis.pl b/modules/perlconverters/imp2osis.pl index dca53f9..0e166e8 100644 --- a/modules/perlconverters/imp2osis.pl +++ b/modules/perlconverters/imp2osis.pl @@ -669,6 +669,18 @@ sub closeBook { while (<INF>) { $line = $_; + + #revert old v11n hack + while ($line =~ /(.+?)\[ \(([^)]+)\) (.+?) \](.*)/) { + push @datab, $1; + push @datab, "\$\$\$$2"; + $line = "$3$4"; + } + + push @datab, $line; +} + +foreach $line (@datab) { $line =~ s/\s+$//; |