Show
Ignore:
Timestamp:
17.02.2009 15:36:44 (11 years ago)
Author:
davidb
Message:

OIDmetadata wasn't supported in collect.cfg, but OIDtype was. Now rectified. Also introduced OIDcount as a file saved in the archives folder to help doc.pm use the correct value when working incrementally

Files:
1 modified

Legend:

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

    r18509 r18528  
    3232 
    3333use util; 
     34use doc; 
    3435use PrintInfo; 
    3536use plugin; 
     
    173174} 
    174175 
    175 # we don't do any file blocking 
    176176sub file_block_read { 
    177177 
    178178    my $self = shift (@_);   
    179179    my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $gli) = @_; 
     180 
     181    if ($file eq "OIDcount") { 
     182    my ($filename_full_path, $filename_no_path)  
     183        = &util::get_full_filenames($base_dir, $file); 
     184    $block_hash->{'file_blocks'}->{$filename_full_path} = 1; 
     185    return 1; 
     186    } 
     187 
     188    # otherwise, we don't do any file blocking 
    180189 
    181190    return undef; 
     
    287296    } 
    288297 
     298 
    289299    # wasn't an archives directory, someone else will have to process it 
    290300    return undef;