Changeset 3109

Timestamp:

2002-04-29T15:38:12+12:00 (21 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.

Location:

trunk/gsdl/perllib/classify

Files:

• AZCompactList.pm (modified) (1 diff)
• AZList.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]/;
 

trunk/gsdl/perllib/classify/AZList.pm

@@ -194 +194 @@
 
     $title =~ s/^(&.{1,6};|<[^>]>|[^a-zA-Z0-9])//g; # remove any unwanted stuff
-    $title =~ s/^(.).*$/$1/;
+    # only need first char for classification
+    $title =~ m/^(.)/; $title=$1;
     $title =~ tr/[a-z]/[A-Z]/;
     if ($title =~ /^[0-9]$/) {$title = '0-9';}