Show
Ignore:
Timestamp:
08.09.2008 10:42:56 (11 years ago)
Author:
kjdon
Message:

previous metadata changes meant that there was no longer URL metadata (used to find the source doc). Now it uses dc.Identifier

Files:
1 modified

Legend:

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

    r17126 r17197  
    172172    $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/; 
    173173 
     174    # block the srcdocs dir - we will process files in them when we find an OAI record for them 
    174175    return 0 if ((-d $filename) && ($filename =~ m/srcdocs$/)); 
    175  
    176176    if ($self->SUPER::read(@_)) { 
    177  
    178177    # Do encoding stuff 
    179178    my ($language, $encoding) = $self->textcat_get_language_encoding ($filename); 
    180179     
    181     my $url_array = $metadata->{'URL'}; 
     180    my $url_array = $metadata->{'dc.Identifier'}; 
    182181    my $num_urls = (defined $url_array) ? scalar(@$url_array) : 0; 
    183182     
     
    187186     
    188187    for (my $i=0; $i<$num_urls; $i++) { 
    189          
    190188        if ($url_array->[$i] !~ m/^(http|ftp):/) { 
    191189         
    192190        my $src_filename = &util::filename_cat($filename_dir, $url_array->[$i]); 
    193          
    194191        if (-e $src_filename) { 
    195192            $srcdoc_pos = $i;