Changeset 17197 for gsdl/trunk/perllib/plugins/OAIPlugin.pm

Timestamp:

2008-09-08T10:42:56+12:00 (16 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

File:

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

gsdl/trunk/perllib/plugins/OAIPlugin.pm

@@ -172 +172 @@
     $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/;
 
+    # block the srcdocs dir - we will process files in them when we find an OAI record for them
     return 0 if ((-d $filename) && ($filename =~ m/srcdocs$/));
-
     if ($self->SUPER::read(@_)) {
-
     # Do encoding stuff
     my ($language, $encoding) = $self->textcat_get_language_encoding ($filename);
     
-    my $url_array = $metadata->{'URL'};
+    my $url_array = $metadata->{'dc.Identifier'};
     my $num_urls = (defined $url_array) ? scalar(@$url_array) : 0;
     
@@ -187 +186 @@
     
     for (my $i=0; $i<$num_urls; $i++) {
-        
         if ($url_array->[$i] !~ m/^(http|ftp):/) {
         
         my $src_filename = &util::filename_cat($filename_dir, $url_array->[$i]);
-        
         if (-e $src_filename) {
             $srcdoc_pos = $i;