From ea30bb8a69b329864b03a4daa7d9fd1e285d464e Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Mon, 28 Aug 1995 12:22:09 +0000
Subject: [PATCH] Use 'line' instead of 'list' in MARC extraction.

---
 formats/raw.tcl |    7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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
     }
-- 
1.7.10.4