X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FFetch.pm;h=5e62a969523073a43a4262f3875fc2ebd58e1c87;hb=4f36c963da80271ffea671999e41aaa04ea9a36f;hp=af0b52949d73b5489214a1e361f9147476787362;hpb=c4aef4c3e4fb86ba75feefedce3ffd7d0a4a5b16;p=irspy-moved-to-github.git

diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index af0b529..5e62a96 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',
+	       'xml',
+	       'grs-1',
+	       'summary',
+	       'opac',
 	    );
-#@syntax = qw(grs-1 sutrs usmarc xml); # simplify for debugging
 
 
 sub start {