Changeset 7704

Timestamp:

2004-07-05T21:29:18+12:00 (20 years ago)

Author:

jrm21

Message:

oops... we were failing on documents that start with a 0 (zero)...
if ($1) ... isn't true if $1 == 0.
Changed it to if (defined($1) && $1 ne "")

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -724 +724 @@
     # only want first character for classification
     $title =~ m/^(.)/;
-    if ($1) {
+    if (defined($1) && $1 ne "") {
         $title=$1;
     } else {