1 # $Id: display.tcl,v 1.2 1995-08-28 12:21:21 adam Exp $
4 proc display {zset no} {
5 set type [$zset type $no]
7 set err [lindex [$zset diag $no] 1]
8 set add [lindex [$zset diag $no] 2]
12 puts "Error ${err}${add}"
18 set rtype [$zset recordType $no]
19 if {$rtype == "SUTRS"} {
20 puts [join [$zset getSutrs $no]]
23 if {[catch {set r [$zset getMarc $no line * * *]}]} {
24 puts "Unknown record type: $rtype"
28 set tag [lindex $line 0]
29 set indicator [lindex $line 1]
30 set fields [lindex $line 2]
31 puts -nonewline "$tag "
32 if {$indicator != ""} {
33 puts -nonewline $indicator
35 foreach field $fields {
36 set id [lindex $field 0]
37 set data [lindex $field 1]
39 puts -nonewline " \$$id "