Changeset 18508 for gsdl/trunk/perllib/inexport.pm
- Timestamp:
- 2009-02-11T17:42:17+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/inexport.pm
r18469 r18508 169 169 $val =~ s/^<index-status>(.*)$/<index-status>D/m; 170 170 &GDBMUtils::gdbmDatabaseSet($arcinfo_doc_filename,$oid,$val); 171 my $doc_file = $doc_rec->{'doc-file'}->[0];172 173 my $doc_filename = &util::filename_cat($archivedir,$doc_file);174 175 176 my ($doc_tailname, $doc_dirname, $suffix)177 = File::Basename::fileparse($doc_filename, "\\.[^\\.]+\$");178 179 print STDERR "Removing $doc_dirname\n" if ($verbosity>2);180 181 &util::rm_r($doc_dirname);182 183 171 } 184 172 } … … 258 246 259 247 248 260 249 1;
Note:
See TracChangeset
for help on using the changeset viewer.