1 # IR toolkit for tcl/tk
3 # See the file LICENSE for details.
4 # Sebastian Hammer, Adam Dickmeiss
7 # Revision 1.3 1995-06-13 14:39:06 adam
8 # Fix: if {$var != ""} doesn't work if var is a large numerical!
9 # Highlight when line format is used.
11 # Revision 1.2 1995/06/12 15:18:10 adam
12 # Work on presentation formats. These are used in the main window as well
17 proc display-medium {sno no w hflag} {
19 insertWithTags $w "\n$no\n" marc-data
23 set i [z39.$sno getMarc $no field 245 * a]
26 insertWithTags $w "Title: " marc-tag
27 insertWithTags $w $i marc-data
28 set i [z39.$sno getMarc $no field 245 * b]
30 insertWithTags $w [lindex $i 0] marc-data
34 set i [z39.$sno getMarc $no field 700 * a]
36 set i [z39.$sno getMarc $no field 100 * a]
39 if {[llength $i] > 1} {
40 insertWithTags $w "Authors: " marc-tag
42 insertWithTags $w "Author: " marc-tag
45 insertWithTags $w $x marc-data
49 set i [z39.$sno getMarc $no field 110 * *]
51 insertWithTags $w "Co-Author: " marc-tag
53 insertWithTags $w $x marc-data
58 set i [z39.$sno getMarc $no field 650 * *]
61 insertWithTags $w "Keywords: " marc-tag
66 insertWithTags $w $x marc-data
71 set i [concat [z39.$sno getMarc $no field 260 * a] \
72 [z39.$sno getMarc $no field 260 * b]]
74 insertWithTags $w "Publisher: " marc-tag
76 insertWithTags $w $x marc-data
80 set i [z39.$sno getMarc $no field 020 * a]
82 insertWithTags $w "ISBN: " marc-tag
84 insertWithTags $w $x marc-data
88 set i [z39.$sno getMarc $no field 022 * a]
90 insertWithTags $w "ISSN: " marc-tag
92 insertWithTags $w $x marc-data
96 set i [z39.$sno getMarc $no field 030 * a]
98 insertWithTags $w "CODEN: " marc-tag
100 insertWithTags $w $x marc-data
104 set i [z39.$sno getMarc $no field 015 * a]
106 insertWithTags $w "Ctl number: " marc-tag
108 insertWithTags $w $x marc-data
112 set i [z39.$sno getMarc $no field 010 * a]
114 insertWithTags $w "LC number: " marc-tag
116 insertWithTags $w $x marc-data