clear_query_cmd
set Query(user_sort_flds) {Category State Priority Severity Number}
global State
set State(analyzed) analyzed
set State(feedback) feedback
set State(open) open
global Priority
global Confidential
global Category
global Severity
global Class
global Responsible
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
    }
}
