[sword-svn] r298 - trunk/modules/crossreferences

[refdoc at crosswire.org]

Author: refdoc
Date: 2010-08-17 14:47:46 -0700 (Tue, 17 Aug 2010)
New Revision: 298

Modified:
   trunk/modules/crossreferences/xrefmake.pl
Log:
OSIS completed. USFM completed


Modified: trunk/modules/crossreferences/xrefmake.pl
===================================================================
--- trunk/modules/crossreferences/xrefmake.pl	2010-08-17 21:22:53 UTC (rev 297)
+++ trunk/modules/crossreferences/xrefmake.pl	2010-08-17 21:47:46 UTC (rev 298)
@@ -47,7 +47,15 @@
         my $return = `parsekey "$_[0]" "$_[1]"`;
         $return =~ s/\n$//;
         $return;
-        } 
+    } 
+
+    sub vs2osis {
+
+        my $return = `vs2osisref "$_[0]" "$_[1]" $_[2]`;
+        $return =~ s/\n$//;
+        $return;
+    }
+                        
     
     my @bookname = ("GEN","EXO","LEV","NUM","DEU",
             "JOS","JDG","RUT","1SA","2SA","1KI",
@@ -128,10 +136,10 @@
                 $ref = "$OSISbook{ $bookname[ $columns[0] -1 ] }.$columns[1].$columns[2]";
                 $xref = &parsekey( "$OSISbook{ $bookname[ $columns[3] -1 ] }.$columns[4].$columns[5]", $locale );
                 if ($ref eq $o_ref) {
-                    print "$xref; "
+                    print &vs2osis($xref,$o_ref,$locale); 
                 }
                 else { 
-                    print "\n".$ref."\t".$xref."; ";
+                    print "</note>\n".$ref."\t <note type=\"crossreference\">".&vs2osis($xref,$o_ref,$locale)."; ";
                     $o_ref = $ref;
                 }