[sword-svn] r189 - trunk/versification

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-04-02 20:17:35 -0700 (Thu, 02 Apr 2009)
New Revision: 189

Modified:
   trunk/versification/makeabbrevs.pl
Log:
case fold before sorting


Modified: trunk/versification/makeabbrevs.pl
===================================================================
--- trunk/versification/makeabbrevs.pl	2009-03-20 20:26:05 UTC (rev 188)
+++ trunk/versification/makeabbrevs.pl	2009-04-03 03:17:35 UTC (rev 189)
@@ -28,13 +28,13 @@
 	if ($line =~ /<id>(.+?)<\/id>/) {
 	    $id = $1;
 	    $osis{lc($id)} = $id;
-	    push @abbrevsQueue, "$id"
+	    push @abbrevsQueue, uc($id);
 	}
 	elsif ($line =~ /<name>(.+?)<\/name>/) {
 	    $name = $1;
 	    if ($osis{lc($name)} eq "") {
 		$osis{lc($name)} = $id;
-		push @abbrevsQueue, "$name"
+		push @abbrevsQueue, uc($name);
 	    }
 	    else {
 		if ($warn) {
@@ -63,7 +63,7 @@
     if ($a =~ /^.+\d/) {
 	$abbrevs .= "//";
     }
-    $abbrevs .= "  {\"" . uc($a) . "\", \"" . $osis{lc($a)} . "\"},\t\t// " . $idmap{$osis{lc($a)}} . "\n";
+    $abbrevs .= "  {\"" . $a . "\", \"" . $osis{lc($a)} . "\"},\t\t// " . $idmap{$osis{lc($a)}} . "\n";
 }
 $abbrevs .= "  {\"\", \"\"}\n};\n\n\nSWORD_NAMESPACE_END\n\n\n#endif\n";