Changeset 24351 for main/trunk/greenstone2/perllib

Timestamp:

2011-07-29T13:18:31+12:00 (13 years ago)

Author:

davidb

Message:

Minor tweak that looked out for 'buildproc' to do the check case-insensitive. This is because some of the extension versions more make better use of capitialization to make filenames more readable, as in AudioBuildproc

File:

• main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm

@@ -153 +153 @@
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
-
 }
 
@@ -223 +222 @@
 
     # This function only makes sense at build-time
-    return if (ref($processor) !~ /buildproc$/);
+    return if (ref($processor) !~ /buildproc$/i);
 
     # Get the infodbtype value for this collection from the buildproc object