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

Timestamp:

2008-08-11T15:49:12+12:00 (16 years ago)

Author:

mdewsnip

Message:

Fixed two bugs with resumption token support.

File:

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

gsdl/trunk/perllib/downloaders/OAIDownload.pm

@@ -196 +196 @@
     $accumulated_strIDs = $strIDs;
 
-    while ($strIDs =~ m/<resumptionToken.*?>(.*?)<\/resumptionToken>/s) {
+    while ($strIDs =~ m/<resumptionToken.*?>\s*(.*?)\s*<\/resumptionToken>/) {
     # top up list with further requests for IDs
 
@@ -203 +203 @@
     $cmdWget = $wgetOptions;
 
-    $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&resumptionToken=$resumption_token\"";
+    $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&metadataPrefix=$metadata_prefix&resumptionToken=$resumption_token\"";
 
     $strIDs =  $self->useWget($cmdWget);