[sword-svn] r262 - trunk/modules/geneve

[refdoc at crosswire.org]

Author: refdoc
Date: 2009-12-30 18:28:58 -0700 (Wed, 30 Dec 2009)
New Revision: 262

Modified:
   trunk/modules/geneve/wb.pl
Log:
recognises now all verse references and tries to create osis refs. the latter does not yet work


Modified: trunk/modules/geneve/wb.pl
===================================================================
--- trunk/modules/geneve/wb.pl	2009-12-30 00:00:14 UTC (rev 261)
+++ trunk/modules/geneve/wb.pl	2009-12-31 01:28:58 UTC (rev 262)
@@ -1,5 +1,12 @@
 #!/usr/bin/perl
 
+sub vs2osisref {
+
+        `vs2osisref $_[0] de`
+        }
+
+
+
 my @files=`ls -1 *.abw`;
 
 foreach (@files){ 
@@ -23,7 +30,11 @@
                 s/<p.*?>(.*?)<\/p>/\t<def>\n\t\t$1\n\t<\/def>/;
                 s/<c\ style=\"Kursiv ZF\"\ >(.*?)<\/c>/<hi rend=\"italic\">$1<\/hi>/g;
 
-
+                # references
+                s/(([12345]?[A-Z][a-z]+)(;?\ [0-9]+(,[0-9]+(\-[0-9]+)?)?)+)(\ |\)|;)/<reference>$2:$3<\/reference>$^N/g;
+                
+                s/<reference>(.*?)<\/reference>/vs2osisref($1)/eg;
+                
                 # clean up
                 s/<c.*?>//g;
                 s/<\/c\s*>//g;