Changeset 32539 for main/trunk/greenstone2/perllib/plugin.pm
- Timestamp:
- 2018-10-25T18:12:59+13:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugin.pm
r30597 r32539 179 179 sub load_plugins { 180 180 my ($plugin_list) = shift @_; 181 my ($incremental_mode, $gs_version );182 ($verbosity, $outhandle, $failhandle, $globaloptions, $incremental_mode, $gs_version ) = @_; # globals181 my ($incremental_mode, $gs_version, $site); 182 ($verbosity, $outhandle, $failhandle, $globaloptions, $incremental_mode, $gs_version, $site) = @_; # globals 183 183 my @plugin_objects = (); 184 184 $verbosity = 2 unless defined $verbosity; … … 204 204 # put quotes around each option to the plugin, unless the option is already quoted 205 205 map { $_ = "\"$_\"" unless ($_ =~ m/^\s*\".*\"\s*$/) ; } @$pluginoptions; 206 my $options = "-gs_version,$gs_version,".join (",", @$pluginoptions); 206 my $site_option = $site ? "\"-site_name\",\"$site\"," : ""; 207 my $options = "$site_option"."-gs_version,$gs_version,".join (",", @$pluginoptions); 207 208 if ($globals) { 208 209 if (@$pluginoptions) {
Note:
See TracChangeset
for help on using the changeset viewer.