[[ # window regsub -all {/} cgiscript___${currentRep}___$thisRepository {__} window regsub -all {\.|@|-} $window {_} window if ![[info exists cgi(year)]] {set cgi(year) {}} SetWidgetValue fieldname { conferencename journal } SELECTED set optionList { Aa-Ah Ai-Ao Ap-Ar As-Az Ba-Bo Bp-Bz Ca-Ch Ci-Cl Cm-Cz D Ea-En Eo-Ez F Ga-Ge Gf-Gz H I Ja-Jl Jm-Jz K-L Ma-Me Mf-Mz N-O Pa-Pe Pf-Pk Pl-Pz Q Ra-Rd Re-Re Rf-Rz Sa-Sl Sm-Sz Ta-Tl Tm-Tz U-Z } SetWidgetValue fieldvaluerange $optionList SELECTED foreach option $optionList { lappend optionList2 "