diff options
| -rwxr-xr-x | modules/geneve/wb.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/geneve/wb.pl b/modules/geneve/wb.pl index e16dc5d..2b28e7d 100755 --- a/modules/geneve/wb.pl +++ b/modules/geneve/wb.pl @@ -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 @@ sub vs2osisref { -my @files=`ls -1 *.abw`; +my @files=`ls -1 wb.abw`; foreach (@files){ @@ -43,7 +43,7 @@ foreach (@files){ 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; |