- set title [lindex [z39.$setno getMarc $o field 245 * a] 0]
- set year [lindex [z39.$setno getMarc $o field 260 * c] 0]
- set nostr [format "%5d" $o]
- .data.list insert end "$nostr $title - $year"
+ set type [z39.$setno type $o]
+ if {$type == "DB"} {
+ set title [lindex [z39.$setno getMarc $o field 245 * a] 0]
+ set year [lindex [z39.$setno getMarc $o field 260 * c] 0]
+ set nostr [format "%5d" $o]
+ .data.list insert end "$nostr $title - $year"
+ } elseif {$type == "SD"} {
+ set err [lindex [z39.$setno diag $o] 1]
+ set add [lindex [z39.$setno diag $o] 2]
+ if {$add != {}} {
+ set add " :${add}"
+ }
+ .data.list insert end "Error ${err}${add}"
+ } elseif {$type == ""} {
+ .data.list insert end "empty"
+ }