Changeset 22460 for main/trunk
- Timestamp:
- 2010-07-21T13:15:57+12:00 (14 years ago)
- Location:
- main/trunk/greenstone2
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/export.pl
r22459 r22460 114 114 [ 115 115 $saveas_argument, 116 { 'name' => " archivedir",116 { 'name' => "exportdir", 117 117 'desc' => "{export.archivedir}", 118 118 'type' => "string", -
main/trunk/greenstone2/perllib/inexport.pm
r22445 r22460 87 87 &PrintUsage::print_xml_usage($options); 88 88 print "\n"; 89 return ;89 return bless $self, $class; 90 90 } 91 91 … … 98 98 # -xml arg doesn't need a collection name 99 99 # Or if the user specified -h, then we output the usage also 100 100 101 if ($intArgLeftinAfterParsing != 1 || (@$argv && $argv->[0] =~ /^\-+h/)) 101 102 { … … 183 184 my $debug = $self->{'debug'}; 184 185 my $importdir = $self->{'importdir'}; 185 my $archivedir = $self->{'archivedir'} ;186 my $archivedir = $self->{'archivedir'} || $self->{'exportdir'}; 186 187 my $out = $self->{'out'}; 187 188 … … 330 331 331 332 my $importdir = $self->{'importdir'}; 332 my $archivedir = $self->{'archivedir'};333 my $archivedir = $self->{'archivedir'} || $self->{'exportdir'}; 333 334 334 335 my $incremental = $self->{'incremental'};
Note:
See TracChangeset
for help on using the changeset viewer.