2 proc display-raw {sno no w} {
4 set r [z39.$sno getMarc $no list * * *]
6 set tag [lindex $line 0]
7 set indicator [lindex $line 1]
8 set fields [lindex $line 2]
10 if {$indicator != ""} {
11 insertWithTags $w "$tag $indicator" marc-tag
13 insertWithTags $w "$tag " marc-tag
15 foreach field $fields {
16 set id [lindex $field 0]
17 set data [lindex $field 1]
19 insertWithTags $w " $id " marc-id
21 set start [$w index insert]
22 insertWithTags $w $data {}