Changeset 14941 for gsdl/trunk/perllib/downloaders/OAIDownload.pm

Timestamp:

2008-01-11T14:10:27+13:00 (16 years ago)

Author:

dmn

Message:

updates for qualified DC

File:

• gsdl/trunk/perllib/downloaders/OAIDownload.pm (modified) (3 diffs)

gsdl/trunk/perllib/downloaders/OAIDownload.pm

@@ -50 +50 @@
     'type' => "string",
     'reqd' => "yes"},
+      { 'name' => "metadata_prefix", 
+    'disp' => "{OAIDownload.metadata_prefix_disp}",
+    'desc' => "{OAIDownload.metadata_prefix}",
+    'type' => "string",
+    'deft' => "oai_dc",
+    'reqd' => "no"},
       { 'name' => "set", 
     'disp' => "{OAIDownload.set_disp}",
@@ -166 +172 @@
     print STDERR  "Gathering OAI identifiers.....\n";
 
-    if($self->{'set'} ne "")
-    {
-    $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&metadataPrefix=oai_dc&set=$self->{'set'}\" ";
-    }
-    else
-    {
-    $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&metadataPrefix=oai_dc\" ";
-    }
+    my $metadata_prefix = $self->{'metadata_prefix'};
+    $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&metadataPrefix=$metadata_prefix";
+
+
+    # if $set specified, add it in to URL
+    my $set = $self->{'set'};
+    $cmdWget .= "&set=$set" if ($set ne "");
+
+    $cmdWget .= "\" ";
 
  
@@ -277 +284 @@
     my $intDocCounter = 0;
 
+    my $metadata_prefix = $self->{'metadata_prefix'};
+
     foreach my $strID ( @$aryIDs)
     {
     print  STDERR "Gathering OAI record with ID:$strID.....\n";
        
-    my $cmdWget= $strWgetOptions." -q -O - \"$strBasURL?verb=GetRecord&metadataPrefix=oai_dc&identifier=$strID\"";
+    my $cmdWget= $strWgetOptions." -q -O - \"$strBasURL?verb=GetRecord&metadataPrefix=$metadata_prefix&identifier=$strID\"";
 
     my $strRecord =  $self->useWget($cmdWget);