Changeset 3109 for trunk/gsdl/perllib/classify/AZCompactList.pm

Timestamp:

2002-04-29T15:38:12+12:00 (22 years ago)

Author:

jrm21

Message:

When getting first char for classification, s/^{(.).*$/$1/g isn't good enough
as problems occur if the title is eg "Line 1\nLine 2" - we get a
"first letter" of "LLine 2" !!! Do m/}(.)/ ; $title=$1 instead, so we
are absolutely sure that the classification is only one character long.

File:

• trunk/gsdl/perllib/classify/AZCompactList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -573 +573 @@
     $title =~ s/^\W+//g;
 ### $title =~ s/^(\'|\`|\"|\:|\()//g; # remove any opening punctutation
-    $title =~ s/^(.).*$/$1/;
+
+# only want first character for classification
+    $title =~ m/^(.)/; $title=$1;
     $title =~ tr/[a-z]/[A-Z]/;