+ set rtype [z39.$sno recordType $no]
+ if {$rtype == "SUTRS"} {
+ insertWithTags $w [join [z39.$sno getSutrs $no]]
+ } else {
+ if {[catch {
+ set title [lindex [z39.$sno getMarc $no field 245 * a] 0]
+ set year [lindex [z39.$sno getMarc $no field 260 * c] 0]
+ insertWithTags $w "$title - $year\n" marc-data
+ }]} {
+ insertWithTags $w "Unknown record type: $rtype\n" marc-id
+ }