Changeset 81

Timestamp:

1998-12-18T13:40:41+13:00 (25 years ago)

Author:

sjboddie

Message:

fixed minor bug in create_index_mapping()

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -203 +203 @@
     # next comes a processed version of the subcollection if there is one.
     # the processed version contains the first character and the next
-    # consonant if there's only one field, other wise the first character
+    # consonant if there's only one field, otherwise the first character
     # of the first two fields
     if (defined ($subcollection) && $subcollection =~ /\w/) {
@@ -212 +212 @@
         $dirname .= join("", @fields);
         } else {
-        $subcollection =~ s/^(.).*?([bcdfghjklmnpqrstvwxyz]).*$/$1$2/i;
+        $subcollection =~ s/^(.).*?([bcdfghjklmnpqrstvwxyz]?).*$/$1$2/i;
         $dirname .= $subcollection;
         }