Changeset 544 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1999-09-08T12:17:00+12:00 (25 years ago)

Author:

sjboddie

Message:

minor change so 'filename' can be any case

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -261 +261 @@
         my ($bool) = $field =~ /^(.)/;
         $field =~ s/^.// if $bool eq '!';
-        if ($field eq "filename") {
+        if ($field =~ /^filename$/i) {
         $field = $doc_obj->get_source_filename();
         } else {