Changeset 31132 for main/trunk/greenstone2
- Timestamp:
- 2016-11-21T13:50:51+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/import.pl
r29107 r31132 69 69 # Pragma 70 70 use strict; 71 no strict 'subs'; # allow barewords (eg STDERR) as function arguments 71 72 use warnings; 72 73 … … 147 148 'reqd' => "no", 148 149 'modegli' => "3" }, 149 @$inexport::arguments 150 @$inexport::arguments, 151 { 'name' => "NO_IMPORT", 152 'desc' => "{import.NO_IMPORT}", 153 'type' => "flag", 154 'reqd' => "no", 155 'modegli' => "3"} 150 156 ]; 151 157 … … 175 181 foreach my $argument (@ARGV) 176 182 { 183 if ($argument eq "-NO_IMPORT") { 184 &gsprintf(STDERR, "{import.NO_IMPORT_set}\n\n"); 185 exit 0; 186 } 177 187 # proper arguments start with a hyphen 178 188 if ($argument =~ /^-/ && defined $function_to_inexport_subclass_mappings->{$argument}) … … 213 223 { 214 224 my ($config_filename,$collect_cfg) = $inexport->read_collection_cfg($collection,$options); 215 225 if ($collect_cfg->{'NO_IMPORT'}) { 226 &gsprintf(STDERR, "{import.NO_IMPORT_set}\n\n"); 227 exit 0; 228 } 216 229 #$inexport->set_collection_options($collect_cfg); 217 230 &set_collection_options($inexport, $collect_cfg); 218 231 232 219 233 my $pluginfo = $inexport->process_files($config_filename,$collect_cfg); 220 234
Note:
See TracChangeset
for help on using the changeset viewer.