insertWithTags $w "Title " marc-pref
insertWithTags $w [string trimright [lindex $i 0] /] marc-text
set i [z39.$sno getMarc $no field 245 * b]
insertWithTags $w "Title " marc-pref
insertWithTags $w [string trimright [lindex $i 0] /] marc-text
set i [z39.$sno getMarc $no field 245 * b]