1 # IR toolkit for tcl/tk
3 # See the file LICENSE for details.
4 # Sebastian Hammer, Adam Dickmeiss
7 # Revision 1.4 1995-06-14 12:16:42 adam
8 # Minor presentation format changes.
10 # Revision 1.3 1995/06/13 14:39:06 adam
11 # Fix: if {$var != ""} doesn't work if var is a large numerical!
12 # Highlight when line format is used.
14 # Revision 1.2 1995/06/12 15:18:10 adam
15 # Work on presentation formats. These are used in the main window as well
20 proc display-medium {sno no w hflag} {
22 insertWithTags $w "\n$no\n" marc-data
26 set i [z39.$sno getMarc $no field 245 * a]
28 insertWithTags $w "Title: " marc-tag
29 insertWithTags $w [string trimright [lindex $i 0] /] marc-data
30 set i [z39.$sno getMarc $no field 245 * b]
32 insertWithTags $w [string trimright [lindex $i 0] /] marc-data
36 set i [z39.$sno getMarc $no field 700 * a]
38 set i [z39.$sno getMarc $no field 100 * a]
41 if {[llength $i] > 1} {
42 insertWithTags $w "Authors: " marc-tag
44 insertWithTags $w "Author: " marc-tag
47 insertWithTags $w $x marc-data
51 set i [z39.$sno getMarc $no field 110 * *]
53 insertWithTags $w "Co-Author: " marc-tag
55 insertWithTags $w $x marc-data
60 set i [z39.$sno getMarc $no field 650 * *]
63 insertWithTags $w "Keywords: " marc-tag
68 insertWithTags $w $x marc-data
73 set i [concat [z39.$sno getMarc $no field 260 * a] \
74 [z39.$sno getMarc $no field 260 * b]]
76 insertWithTags $w "Publisher: " marc-tag
78 insertWithTags $w $x marc-data
82 set i [z39.$sno getMarc $no field 020 * a]
84 insertWithTags $w "ISBN: " marc-tag
86 insertWithTags $w $x marc-data
90 set i [z39.$sno getMarc $no field 022 * a]
92 insertWithTags $w "ISSN: " marc-tag
94 insertWithTags $w $x marc-data
98 set i [z39.$sno getMarc $no field 030 * a]
100 insertWithTags $w "CODEN: " marc-tag
102 insertWithTags $w $x marc-data
106 set i [z39.$sno getMarc $no field 015 * a]
108 insertWithTags $w "Ctl number: " marc-tag
110 insertWithTags $w $x marc-data
114 set i [z39.$sno getMarc $no field 010 * a]
116 insertWithTags $w "LC number: " marc-tag
118 insertWithTags $w $x marc-data