Changeset 29461

Timestamp:

2014-11-21T17:48:52+13:00 (9 years ago)

Author:

ak19

Message:

Dr Bainbridge fixed a bug where import/build perl script arguments that are purely punctuation are discarded. This became a problem, and was noticed by a member on the mailing list, when setting the removesuffix option on the List classifier to remove all starting period marks. Since the regex param contained only punctuation characters, the regex param value was discarded by collConfigxml.pm, but needed to be preserved. Other elements' param values do not need this special handling.

File:

• main/trunk/greenstone2/perllib/collConfigxml.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/collConfigxml.pm

@@ -342 +342 @@
         push (@{$data->{$key}->[$currentIndex]}, $name);
     }
-    if (defined $value and $value =~ /\w/) {
+    if (defined $value and $value !~ /^\s*$/) {
             push (@{$data->{$key}->[$currentIndex]}, $value);
     }