Changeset 16704


Ignore:
Timestamp:
2008-08-11T15:49:12+12:00 (13 years ago)
Author:
mdewsnip
Message:

Fixed two bugs with resumption token support.

File:
1 edited

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);
Note: See TracChangeset for help on using the changeset viewer.