1 # IR toolkit for tcl/tk
3 # See the file LICENSE for details.
4 # Sebastian Hammer, Adam Dickmeiss
7 # Revision 1.2 1995-06-12 15:18:10 adam
8 # Work on presentation formats. These are used in the main window as well
13 proc display-raw {sno no w hflag} {
15 insertWithTags $w "\n$no\n" {}
19 set r [z39.$sno getMarc $no list * * *]
21 set tag [lindex $line 0]
22 set indicator [lindex $line 1]
23 set fields [lindex $line 2]
25 if {$indicator != ""} {
26 insertWithTags $w "$tag $indicator" marc-tag
28 insertWithTags $w "$tag " marc-tag
30 foreach field $fields {
31 set id [lindex $field 0]
32 set data [lindex $field 1]
34 insertWithTags $w " $id " marc-id
36 set start [$w index insert]
37 insertWithTags $w $data {}