Changeset 618

Timestamp:

1999-09-22T10:11:35+12:00 (25 years ago)

Author:

sjboddie

Message:

removed a couple of instances where =~ /\w/ was used to test for an empty
string. this doesn't work for chinese as most characters don't match \w

Location:

trunk/gsdl/perllib/classify

Files:

• AZList.pm (modified) (1 diff)
• AZSectionList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZList.pm

@@ -76 +76 @@
     # if this document doesn't contain the metadata element we're
     # sorting by we won't include it in this classification
-    if (defined $metavalue && $metavalue =~ /\w/) {
+    if (defined $metavalue && $metavalue ne "") {
     if ($self->{'metaname'} eq 'Creator') {
         &sorttools::format_string_name_english (\$metavalue);

trunk/gsdl/perllib/classify/AZSectionList.pm

@@ -89 +89 @@
     # if this section doesn't contain the metadata element we're
     # sorting by we won't include it in this classification
-    if (defined $metavalue && $metavalue =~ /\w/) {
+    if (defined $metavalue && $metavalue ne "") {
     if ($self->{'metaname'} eq 'Creator') {
         &sorttools::format_string_name_english (\$metavalue);