1 # IR toolkit for tcl/tk
3 # See the file LICENSE for details.
4 # Sebastian Hammer, Adam Dickmeiss
7 # Revision 1.1 1995-06-12 15:18:10 adam
8 # Work on presentation formats. These are used in the main window as well
13 proc display-line {sno no w hflag} {
14 set type [z39.$sno type $no]
20 set nostr [format "%5d " $no]
21 insertWithTags $w $nostr marc-tag
23 set title [lindex [z39.$sno getMarc $no field 245 * a] 0]
24 set year [lindex [z39.$sno getMarc $no field 260 * c] 0]
25 insertWithTags $w "$title - $year\n" marc-data
27 } elseif {$type == "SD"} {
28 set err [lindex [z39.$sno diag $no] 1]
29 set add [lindex [z39.$sno diag $no] 2]
33 $w insert end "Error ${err}${add}\n"
34 } elseif {$type == ""} {