From c4aef4c3e4fb86ba75feefedce3ffd7d0a4a5b16 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 6 Jul 2010 11:37:45 +0100 Subject: [PATCH] @syntax made global. --- lib/ZOOM/IRSpy/Test/Record/Fetch.pm | 45 ++++++++++++++++++----------------- 1 file changed, 23 insertions(+), 22 deletions(-) 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, -- 1.7.10.4