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-medium {sno no w hflag} {
15 insertWithTags $w "\n$no\n" marc-data
19 set i [z39.$sno getMarc $no field 245 * a]
22 insertWithTags $w "Title: " marc-tag
23 insertWithTags $w $i marc-data
24 set i [z39.$sno getMarc $no field 245 * b]
26 insertWithTags $w [lindex $i 0] marc-data
30 set i [z39.$sno getMarc $no field 700 * a]
32 set i [z39.$sno getMarc $no field 100 * a]
35 if {[llength $i] > 1} {
36 insertWithTags $w "Authors: " marc-tag
38 insertWithTags $w "Author: " marc-tag
41 insertWithTags $w $x marc-data
45 set i [z39.$sno getMarc $no field 110 * *]
47 insertWithTags $w "Co-Author: " marc-tag
49 insertWithTags $w $x marc-data
54 set i [z39.$sno getMarc $no field 650 * *]
57 insertWithTags $w "Keywords: " marc-tag
62 insertWithTags $w $x marc-data
67 set i [concat [z39.$sno getMarc $no field 260 * a] \
68 [z39.$sno getMarc $no field 260 * b]]
70 insertWithTags $w "Publisher: " marc-tag
72 insertWithTags $w $x marc-data
76 set i [z39.$sno getMarc $no field 020 * a]
78 insertWithTags $w "ISBN: " marc-tag
80 insertWithTags $w $x marc-data
84 set i [z39.$sno getMarc $no field 022 * a]
86 insertWithTags $w "ISSN: " marc-tag
88 insertWithTags $w $x marc-data
92 set i [z39.$sno getMarc $no field 030 * a]
94 insertWithTags $w "CODEN: " marc-tag
96 insertWithTags $w $x marc-data
100 set i [z39.$sno getMarc $no field 015 * a]
102 insertWithTags $w "Ctl number: " marc-tag
104 insertWithTags $w $x marc-data
108 set i [z39.$sno getMarc $no field 010 * a]
110 insertWithTags $w "LC number: " marc-tag
112 insertWithTags $w $x marc-data