var xml_http;

function load_uri(uri) {
   xml_http = get_xml_http_object();

   xml_http.onreadystatechange=get_response;
   xml_http.open("GET", uri, true);
   xml_http.send(null);
   return;
}

function set_date() {
   var timedate = new Date();
   var date = document.getElementsByName("date");
   date[0].value = (timedate.getMonth()+1) + "/" + timedate.getDate() + "/";
   if (timedate.getYear() < 1000) {
      date[0].value += (timedate.getYear() + 1900);
   }
   else {
      date[0].value += timedate.getYear();
   }
   return;
}

function add_item(object, caption, value) {
   var option = new Option(caption, value);
   var sel = document.getElementById(object);
   sel.options[sel.options.length] = option;
   return;
}

function delete_item(object) {
   var sel = document.getElementById(object);
   if (sel.selectedIndex != -1) {
      sel.remove(sel.selectedIndex);
   }
   return;
}

function move_item(dest, src) {
   var option_src = document.getElementById(src);
   if (option_src.selectedIndex != -1) {
      add_item(dest, option_src.options[option_src.selectedIndex].text, option_src.options[option_src.selectedIndex].value);
      delete_item(src);
   }
}

function get_response() {
   if (xml_http.readyState==4 || xml_http.readyState=="complete") { 
      document.getElementById('control_panel').innerHTML=xml_http.responseText ;
   } 
   return;
} 

function get_xml_http_object() { 
   var obj_XML_Http=null

   if (window.XMLHttpRequest) {
      obj_XML_Http=new XMLHttpRequest()
   }
   else if (window.ActiveXObject) {
      obj_XML_Http=new ActiveXObject("Microsoft.XMLHTTP")
   }

   return obj_XML_Http
}