clear_query_cmd
set Query(user_sort_flds) {Category State Priority Severity Number}
global State
global Priority
global Confidential
global Category
global Severity
global Class
global Responsible
set Responsible(Systems) Systems
set Responsible(Support) Support
set Responsible(Research) Research
set Responsible(gnats-admin) gnats-admin
global Submitter
global categories
.eboxs.clb.cat.l.list delete 0 end
.eboxs.clb.cat.r.list delete 0 end
foreach a $categories {
    if {[lsearch [array names Category] $a] < 0} {
        .eboxs.clb.cat.l.list insert end $a
    } {
        .eboxs.clb.cat.r.list insert end $a
    }
}
global submitters
.eboxs.slb.sub.l.list delete 0 end
.eboxs.slb.sub.r.list delete 0 end
foreach a $submitters {
    if {[lsearch [array names Submitter] $a] < 0} {
        .eboxs.slb.sub.l.list insert end $a
    } {
        .eboxs.slb.sub.r.list insert end $a
    }
}
global responsibles
.eboxs.rlb.res.l.list delete 0 end
.eboxs.rlb.res.r.list delete 0 end
foreach a $responsibles {
    if {[lsearch [array names Responsible] $a] < 0} {
        .eboxs.rlb.res.l.list insert end $a
    } {
        .eboxs.rlb.res.r.list insert end $a
    }
}
