X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;fp=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;h=af0b52949d73b5489214a1e361f9147476787362;hp=79e6fa2ac304d600170b51856c7a12eda94de778;hb=c4aef4c3e4fb86ba75feefedce3ffd7d0a4a5b16;hpb=0be609769852d0c19faf33b001d90554909ba9e4 diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm index 79e6fa2..af0b529 100644 --- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm +++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm @@ -20,6 +20,29 @@ my @queries = ( ### We can add more queries here ); +my @syntax = ( + 'canmarc', + 'danmarc', + 'grs-1', + 'ibermarc', + 'intermarc', + 'jpmarc', + 'librismarc', + 'mab', + 'normarc', + 'opac', + 'picamarc', + 'rusmarc', + 'summary', + 'sutrs', + 'swemarc', + 'ukmarc', + 'unimarc', + 'usmarc', + 'xml' + ); +#@syntax = qw(grs-1 sutrs usmarc xml); # simplify for debugging + sub start { my $class = shift(); @@ -62,28 +85,6 @@ sub completed_search { return ZOOM::IRSpy::Status::TASK_DONE; } - my @syntax = ( - 'canmarc', - 'danmarc', - 'grs-1', - 'ibermarc', - 'intermarc', - 'jpmarc', - 'librismarc', - 'mab', - 'normarc', - 'opac', - 'picamarc', - 'rusmarc', - 'summary', - 'sutrs', - 'swemarc', - 'ukmarc', - 'unimarc', - 'usmarc', - 'xml' - ); - #@syntax = qw(grs-1 sutrs usmarc xml); # simplify for debugging foreach my $i (0 ..$#syntax) { my $syntax = $syntax[$i]; $conn->irspy_rs_record($task->{rs}, 0,