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