From: Adam Dickmeiss <adam@indexdata.dk>
Date: Mon, 28 Aug 1995 12:22:09 +0000 (+0000)
Subject: Use 'line' instead of 'list' in MARC extraction.
X-Git-Tag: IRTCL.1.4~215
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=ea30bb8a69b329864b03a4daa7d9fd1e285d464e;p=ir-tcl-moved-to-github.git

Use 'line' instead of 'list' in MARC extraction.
---

diff --git a/formats/raw.tcl b/formats/raw.tcl
index 453115a..52fe8a7 100644
--- a/formats/raw.tcl
+++ b/formats/raw.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: raw.tcl,v $
-# Revision 1.4  1995-06-22 13:16:29  adam
+# Revision 1.5  1995-08-28 12:22:09  adam
+# Use 'line' instead of 'list' in MARC extraction.
+#
+# Revision 1.4  1995/06/22  13:16:29  adam
 # Feature: SUTRS. Setting getSutrs implemented.
 # Work on display formats.
 #
@@ -41,7 +44,7 @@ proc display-raw {sno no w hflag} {
         $w insert end "\n"
         return
     } 
-    if {[catch {set r [z39.$sno getMarc $no list * * *]}]} {
+    if {[catch {set r [z39.$sno getMarc $no line * * *]}]} {
         insertWithTags $w "Unknown record type: $rtype\n" marc-id
         return
     }