Changeset 4225

Timestamp:

2003-05-05T14:32:06+12:00 (21 years ago)

Author:

jrm21

Message:

if the "removeprefix" option makes the metadata value empty, we skip this
entry. (Tidies perl warning output).

File:

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

trunk/gsdl/perllib/classify/AZCompactList.pm

@@ -263 +263 @@
         if ($self->{'removeprefix'}) {
             $metavalue =~ s/^$self->{'removeprefix'}//;
+
+            # check that it's not now empty
+            if (!$metavalue) {next;}
         }
 
@@ -406 +409 @@
         if ($self->{'removeprefix'}) {
             $formatted_node =~ s/^$self->{'removeprefix'}//;
+            # check that it's not now empty
+            if (!$formatted_node) {next;}
         }