Show
Ignore:
Timestamp:
11.02.2009 17:42:17 (11 years ago)
Author:
davidb
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

    r18469 r18508  
    8888 
    8989    my $archive_info = $self->{'archive_info'}; 
     90    my $verbosity = $self->{'verbosity'}; 
     91    my $outhandle = $self->{'outhandle'}; 
    9092 
    9193    if (defined $archive_info) { 
     
    98100 
    99101        my $index_status = $archive_info->get_status_info($doc_oid); 
    100 ####        print STDERR "*** Away to Update $doc_oid $index_status\n"; 
    101102 
    102103        if ($index_status eq "D") { 
     
    104105        $archive_info->delete_info($doc_oid); 
    105106        &GDBMUtils::gdbmDatabaseRemove($archive_info_filename,$doc_oid); 
     107 
     108        my $doc_file = $subfile->[0]; 
     109        my $base_dir =$self->{'base_dir'}; 
     110 
     111        my $doc_filename = &util::filename_cat($base_dir,$doc_file); 
     112 
     113        my ($doc_tailname, $doc_dirname, $suffix)  
     114            = File::Basename::fileparse($doc_filename, "\\.[^\\.]+\$"); 
     115 
     116        print STDERR "Removing $doc_dirname\n" if ($verbosity>2); 
     117 
     118        &util::rm_r($doc_dirname); 
     119 
     120 
    106121        } 
    107122        elsif ($index_status =~ m/^(I|R)$/) { 
     
    120135    my ($pluginfo, $base_dir, $processor, $maxdocs) = @_; 
    121136 
     137    $self->{'base_dir'} = $base_dir; 
    122138} 
    123139 
     
    257273        } 
    258274 
    259  
    260  
    261275        if ($process_file) { 
    262276        # note: metadata is not carried on to the next level