1 # IR toolkit for tcl/tk
3 # See the file LICENSE for details.
4 # Sebastian Hammer, Adam Dickmeiss
7 # Revision 1.5 1995-06-22 13:16:29 adam
8 # Feature: SUTRS. Setting getSutrs implemented.
9 # Work on display formats.
11 # Revision 1.4 1995/06/14 12:16:42 adam
12 # Minor presentation format changes.
14 # Revision 1.3 1995/06/13 14:39:06 adam
15 # Fix: if {$var != ""} doesn't work if var is a large numerical!
16 # Highlight when line format is used.
18 # Revision 1.2 1995/06/12 15:18:10 adam
19 # Work on presentation formats. These are used in the main window as well
24 proc display-medium {sno no w hflag} {
26 insertWithTags $w "\n$no\n" marc-data
30 set type [z39.$sno type $no]
32 set err [lindex [z39.$sno diag $no] 1]
33 set add [lindex [z39.$sno diag $no] 2]
37 insertWithTags $w "Error ${err}${add}\n" marc-id
43 set rtype [z39.$sno recordType $no]
44 if {$rtype == "SUTRS"} {
45 insertWithTags $w [join [z39.$sno getSutrs $no]] {}
49 if {[catch {set i [z39.$sno getMarc $no field 245 * a]}]} {
50 insertWithTags $w "Unknown record type: $rtype\n" marc-id
54 insertWithTags $w "Title: " marc-tag
55 insertWithTags $w [string trimright [lindex $i 0] /] marc-data
56 set i [z39.$sno getMarc $no field 245 * b]
58 insertWithTags $w [string trimright [lindex $i 0] /] marc-data
62 set i [z39.$sno getMarc $no field 700 * a]
64 set i [z39.$sno getMarc $no field 100 * a]
67 if {[llength $i] > 1} {
68 insertWithTags $w "Authors: " marc-tag
70 insertWithTags $w "Author: " marc-tag
73 insertWithTags $w $x marc-data
77 set i [z39.$sno getMarc $no field 110 * *]
79 insertWithTags $w "Co-Author: " marc-tag
81 insertWithTags $w $x marc-data
86 set i [z39.$sno getMarc $no field 650 * *]
89 insertWithTags $w "Keywords: " marc-tag
94 insertWithTags $w $x marc-data
99 set i [concat [z39.$sno getMarc $no field 260 * a] \
100 [z39.$sno getMarc $no field 260 * b]]
102 insertWithTags $w "Publisher: " marc-tag
104 insertWithTags $w $x marc-data
108 set i [z39.$sno getMarc $no field 020 * a]
110 insertWithTags $w "ISBN: " marc-tag
112 insertWithTags $w $x marc-data
116 set i [z39.$sno getMarc $no field 022 * a]
118 insertWithTags $w "ISSN: " marc-tag
120 insertWithTags $w $x marc-data
124 set i [z39.$sno getMarc $no field 030 * a]
126 insertWithTags $w "CODEN: " marc-tag
128 insertWithTags $w $x marc-data
132 set i [z39.$sno getMarc $no field 015 * a]
134 insertWithTags $w "Ctl number: " marc-tag
136 insertWithTags $w $x marc-data
140 set i [z39.$sno getMarc $no field 010 * a]
142 insertWithTags $w "LC number: " marc-tag
144 insertWithTags $w $x marc-data