From c4aef4c3e4fb86ba75feefedce3ffd7d0a4a5b16 Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@miketaylor.org.uk>
Date: Tue, 6 Jul 2010 11:37:45 +0100
Subject: [PATCH 1/1] @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