- Timestamp:
- 2008-01-11T14:10:27+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/downloaders/OAIDownload.pm
r14926 r14941 50 50 'type' => "string", 51 51 'reqd' => "yes"}, 52 { 'name' => "metadata_prefix", 53 'disp' => "{OAIDownload.metadata_prefix_disp}", 54 'desc' => "{OAIDownload.metadata_prefix}", 55 'type' => "string", 56 'deft' => "oai_dc", 57 'reqd' => "no"}, 52 58 { 'name' => "set", 53 59 'disp' => "{OAIDownload.set_disp}", … … 166 172 print STDERR "Gathering OAI identifiers.....\n"; 167 173 168 if($self->{'set'} ne "") 169 { 170 $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&metadataPrefix=oai_dc&set=$self->{'set'}\" "; 171 } 172 else 173 { 174 $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&metadataPrefix=oai_dc\" "; 175 } 174 my $metadata_prefix = $self->{'metadata_prefix'}; 175 $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&metadataPrefix=$metadata_prefix"; 176 177 178 # if $set specified, add it in to URL 179 my $set = $self->{'set'}; 180 $cmdWget .= "&set=$set" if ($set ne ""); 181 182 $cmdWget .= "\" "; 176 183 177 184 … … 277 284 my $intDocCounter = 0; 278 285 286 my $metadata_prefix = $self->{'metadata_prefix'}; 287 279 288 foreach my $strID ( @$aryIDs) 280 289 { 281 290 print STDERR "Gathering OAI record with ID:$strID.....\n"; 282 291 283 my $cmdWget= $strWgetOptions." -q -O - \"$strBasURL?verb=GetRecord&metadataPrefix= oai_dc&identifier=$strID\"";292 my $cmdWget= $strWgetOptions." -q -O - \"$strBasURL?verb=GetRecord&metadataPrefix=$metadata_prefix&identifier=$strID\""; 284 293 285 294 my $strRecord = $self->useWget($cmdWget);
Note:
See TracChangeset
for help on using the changeset viewer.