Changeset 17197
- Timestamp:
- 2008-09-08T10:42:56+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/OAIPlugin.pm
r17126 r17197 172 172 $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/; 173 173 174 # block the srcdocs dir - we will process files in them when we find an OAI record for them 174 175 return 0 if ((-d $filename) && ($filename =~ m/srcdocs$/)); 175 176 176 if ($self->SUPER::read(@_)) { 177 178 177 # Do encoding stuff 179 178 my ($language, $encoding) = $self->textcat_get_language_encoding ($filename); 180 179 181 my $url_array = $metadata->{' URL'};180 my $url_array = $metadata->{'dc.Identifier'}; 182 181 my $num_urls = (defined $url_array) ? scalar(@$url_array) : 0; 183 182 … … 187 186 188 187 for (my $i=0; $i<$num_urls; $i++) { 189 190 188 if ($url_array->[$i] !~ m/^(http|ftp):/) { 191 189 192 190 my $src_filename = &util::filename_cat($filename_dir, $url_array->[$i]); 193 194 191 if (-e $src_filename) { 195 192 $srcdoc_pos = $i;
Note:
See TracChangeset
for help on using the changeset viewer.