2 proc display-nice {sno no w} {
4 set i [z39.$sno getMarc $no field 245 * a]
7 insertWithTags $w "Title: " marc-tag
8 insertWithTags $w $i marc-data
9 set i [z39.$sno getMarc $no field 245 * b]
11 insertWithTags $w [lindex $i 0] marc-data
15 set i [z39.$sno getMarc $no field 700 * a]
17 set i [z39.$sno getMarc $no field 100 * a]
20 if {[llength $i] > 1} {
21 insertWithTags $w "Authors: " marc-tag
23 insertWithTags $w "Author: " marc-tag
26 insertWithTags $w $x marc-data
30 set i [z39.$sno getMarc $no field 110 * *]
32 insertWithTags $w "Co-Author: " marc-tag
34 insertWithTags $w $x marc-data
39 set i [z39.$sno getMarc $no field 650 * *]
42 insertWithTags $w "Keywords: " marc-tag
47 insertWithTags $w $x marc-data
52 set i [concat [z39.$sno getMarc $no field 260 * a] \
53 [z39.$sno getMarc $no field 260 * b]]
55 insertWithTags $w "Publisher: " marc-tag
57 insertWithTags $w $x marc-data
61 set i [z39.$sno getMarc $no field 020 * a]
63 insertWithTags $w "ISBN: " marc-tag
65 insertWithTags $w $x marc-data
69 set i [z39.$sno getMarc $no field 022 * a]
71 insertWithTags $w "ISSN: " marc-tag
73 insertWithTags $w $x marc-data
77 set i [z39.$sno getMarc $no field 030 * a]
79 insertWithTags $w "CODEN: " marc-tag
81 insertWithTags $w $x marc-data
85 set i [z39.$sno getMarc $no field 015 * a]
87 insertWithTags $w "Ctl number: " marc-tag
89 insertWithTags $w $x marc-data
93 set i [z39.$sno getMarc $no field 010 * a]
95 insertWithTags $w "LC number: " marc-tag
97 insertWithTags $w $x marc-data