Changeset 17197

Timestamp:

2008-09-08 10:42:56 (3 months 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:

• 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);
-        
-URL
+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;