- insertWithTags $w "([lindex $e 0]:[lindex $e 2])" marc-tag
- if {[lindex $e 3] == "string"} {
- insertWithTags $w [lindex $e 4] {}
- insertWithTags $w "\n" {}
- } elseif {[lindex $e 3] == "subtree"} {
- insertWithTags $w "\n" {}
- display-grs-line $w [lindex $e 4] [expr $i+1]
+ set ttype [lindex $e 0]
+ set tval [lindex $e 2]
+ if {[info exists tagSet($ttype,$tval)]} {
+ insertWithTags $w "$tagSet($ttype,$tval) " marc-pref