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

[refdoc at crosswire.org]

Author: refdoc
Date: 2010-01-25 08:00:09 -0700 (Mon, 25 Jan 2010)
New Revision: 269

Modified:
   trunk/modules/geneve/wb.pl
Log:
corrections


Modified: trunk/modules/geneve/wb.pl
===================================================================
--- trunk/modules/geneve/wb.pl	2010-01-25 14:58:53 UTC (rev 268)
+++ trunk/modules/geneve/wb.pl	2010-01-25 15:00:09 UTC (rev 269)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-sub vs2osisref {
+sub vs2osis {
        
         my $context = $_[0];
         $context =~ s/([12345]?[A-Z][a-z]+)\ .*/$1/;
@@ -19,7 +19,7 @@
 
 
 
-my @files=`ls -1 *.abw`;
+my @files=`ls -1 wb.abw`;
 
 foreach (@files){ 
 
@@ -43,7 +43,7 @@
                 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]+)?)?)+)(\ |\)|;)/ &vs2osisref("$1").$^N/eg;
+                s/(([12345]?[A-Z][a-z]+)(;?\ [0-9]+(,[0-9]+(\-[0-9]+)?)?)+)(\ |\)|;)/ &vs2osis("$1").$^N/eg;
                 
  #               s/<r>(.*?)<\/r>/&vs2osisref($1)/eg;