X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;h=93df7d8c633d08b59d76d497fc91734f81f98496;hp=af0b52949d73b5489214a1e361f9147476787362;hb=05630e3dfe14355424516e6a2879b651620b114f;hpb=18fb57abfe6c3aa71788d4b2d4296b9f8a1843c0

diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index af0b529..93df7d8 100644
--- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
+++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
@@ -20,28 +20,37 @@ my @queries = (
 	       ### We can add more queries here
 	       );
 
+# Certain fetch attempts cause the connection to be lost (e.g. the
+# decoding of OPAC records fails for the National Library of
+# Education, Denmark (grundtvig.dpu.dk:2100/S), after which all
+# subsequent fetches fail -- see bug #3548.  To amerliorate the
+# consequences of this, we check the record syntaxes in order of
+# importance and likelihood of not causing the connection to be
+# dropped.  Of course, for well-behaved servers, this makes no
+# difference at all.
+
+#@syntax = qw(grs-1 sutrs usmarc xml); # simplify for debugging
 my @syntax = (
+	       'usmarc',
 	       'canmarc',
 	       'danmarc',
-	       'grs-1',
 	       'ibermarc',
 	       'intermarc',
 	       'jpmarc',
 	       'librismarc',
 	       'mab',
 	       'normarc',
-	       'opac',
 	       'picamarc',
 	       'rusmarc',
-	       'summary',
-	       'sutrs',
 	       'swemarc',
 	       'ukmarc',
 	       'unimarc',
-	       'usmarc',
-	       'xml'
+	       'sutrs',
+	       'grs-1',
+	       'xml',
+	       'summary',
+	       'opac',
 	    );
-#@syntax = qw(grs-1 sutrs usmarc xml); # simplify for debugging
 
 
 sub start {