Changeset 18508 for gsdl/trunk/perllib/inexport.pm

Timestamp:

2009-02-11T17:42:17+13:00 (15 years ago)

Author:

davidb

Message:

Had to move location of where deletion of archive files was done

File:

• gsdl/trunk/perllib/inexport.pm (modified) (2 diffs)

gsdl/trunk/perllib/inexport.pm

@@ -169 +169 @@
             $val =~ s/^<index-status>(.*)$/<index-status>D/m;
             &GDBMUtils::gdbmDatabaseSet($arcinfo_doc_filename,$oid,$val);
-            my $doc_file = $doc_rec->{'doc-file'}->[0];
-
-            my $doc_filename = &util::filename_cat($archivedir,$doc_file);
-
-
-            my ($doc_tailname, $doc_dirname, $suffix) 
-            = File::Basename::fileparse($doc_filename, "\\.[^\\.]+\$");
-
-            print STDERR "Removing $doc_dirname\n" if ($verbosity>2);
-
-            &util::rm_r($doc_dirname);
-            
         }
         }
@@ -258 +246 @@
 
 
+
 1;