Changeset 16704

Show
Ignore:
Timestamp:
11.08.2008 15:49:12 (11 years ago)
Author:
mdewsnip
Message:

Fixed two bugs with resumption token support.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/downloaders/OAIDownload.pm

    r14948 r16704  
    196196    $accumulated_strIDs = $strIDs; 
    197197 
    198     while ($strIDs =~ m/<resumptionToken.*?>(.*?)<\/resumptionToken>/s) { 
     198    while ($strIDs =~ m/<resumptionToken.*?>\s*(.*?)\s*<\/resumptionToken>/) { 
    199199    # top up list with further requests for IDs 
    200200 
     
    203203    $cmdWget = $wgetOptions; 
    204204 
    205     $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&resumptionToken=$resumption_token\""; 
     205    $cmdWget .= " -q -O - \"$strBasURL?verb=ListIdentifiers&metadataPrefix=$metadata_prefix&resumptionToken=$resumption_token\""; 
    206206 
    207207    $strIDs =  $self->useWget($cmdWget);