X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=formats%2Fraw.tcl;fp=formats%2Fraw.tcl;h=52fe8a7cf03c3d6397234a7007c33de760a348ac;hb=ea30bb8a69b329864b03a4daa7d9fd1e285d464e;hp=453115a3a53f863bcbd52ee31417a3d7b798e6b8;hpb=cf71e5f27e91fe8525d5cd7354d2cf6d17b4f4c1;p=ir-tcl-moved-to-github.git

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
     }