<script type="text/javascript">
<!--
function list_reorder(dir, list){
 var si=list.selectedIndex;

 if (si>-1 && (dir<0 && si>0 || dir>0 && si<list.options.length)){
    var opt=list.options[si];
    list_add_option(list, opt, si+dir);
    list.remove(opt.index);
    if (dir>0) dir--;
    list.selectedIndex=si+dir;
 }
 
}

function list_remove_all(sel){
 while(sel.options.length>0){
      sel.remove(0);
 }
}

function list_add_option(list, option, index){
 if(!index || index==undefined)index=0;
 list_add_option_raw(list, option.text, option.value, index);
}

function list_add_option_raw(list, option_value, option_text, index){
 if(!index || index==undefined)index=0;
 var oOption=document.createElement("OPTION");
 oOption.text=option_text;
 oOption.value=option_value;
 list.options.add(oOption,index+0);
}

function is_option_in_list(list, option){
 for(var i=0;i<list.options.length;i++){
    if (list.options[i].value==option.value && list.options[i].text==option.text){
       return 1;
    }
 }
 return 0;
}

function list_select_all(list){
 for(var i=0;i<list.options.length;i++){
    list.options[i].selected=true;
 }
}

function list_copy_all(listA, listS){
 list_remove_all(listS);

 for(var i=0;i<listA.options.length;i++){
    list_add_option(listS, listA.options[i]);
 }
}

function list_copy(listA, listS){
 for(var i=0;i<listA.options.length;i++){
    if (listA.options[i].selected && !is_option_in_list(listS, listA.options[i])){
       list_add_option(listS, listA.options[i]);
    }
 }

}

//remove selected from list
function list_remove(list){

 for(var i=list.options.length-1;i>=0;i--){
    if (list.options[i].selected){
       list.remove(i);
    }
 }
}



//-->
</script>