function wpa_get_obj(object_name){var res=document.getElementById(object_name);return res;}
function wpa_catch_error(str){if(str!="")
throw new Error(str);}
function wpa_get_error(e){return e.message}
var wpa_ajax_prg_flag=new Array();var wpa_ajax_sct=new Array();function wpa_in_array(hook,stack){for(tmp in stack){if(tmp==hook)
return true;}
return false;}
function wpa_check_all(field,flag){var tmp;var i=0;do{tmp=wpa_get_obj(field+"_"+i.toString());tmp.checked=flag;i++;tmp=wpa_get_obj(field+"_"+i.toString());}while(tmp);}
function wpa_ajax_sct_reg(wpa_nm){if(!wpa_in_array(wpa_nm,wpa_ajax_sct))
wpa_ajax_sct[wpa_ajax_sct.length]=wpa_nm;}
function wpa_ajax_hnd_err(wpa_sct,e){wpa_ajax_disp_msg(wpa_sct,"error",wpa_get_error(e));wpa_ajax_disp_prg(wpa_sct,false);}
function wpa_ajax_disp_msg(wpa_sct,wpa_type,wpa_msg){wpa_ajax_hide_all_msg();var wpa_wrn=wpa_get_obj("sct_ajax_"+wpa_sct+"_msg");if(wpa_wrn==null)
return;wpa_wrn.className="ajax_message "+wpa_type;wpa_wrn.style.display="";wpa_wrn.innerHTML=wpa_msg;}
function wpa_ajax_hide_msg(wpa_sct){var wpa_msg=wpa_get_obj("sct_ajax_"+wpa_sct+"_msg");if(wpa_msg==null)
return;wpa_msg.style.display="none";wpa_msg.innerHTML=wpa_msg;}
function wpa_ajax_hide_all_msg(){for(wpa_sct in wpa_ajax_sct){wpa_ajax_hide_msg(wpa_ajax_sct[wpa_sct]);}}
function wpa_ajax_disp_prg(wpa_sct,wpa_prg){if(typeof wpa_prg=="undefined")
wpa_prg=true;if(typeof wpa_ajax_prg_flag[wpa_sct]=="undefined")
wpa_ajax_prg_flag[wpa_sct]=false;var wpa_frm=wpa_get_obj("sct_ajax_"+wpa_sct);var wpa_trn=wpa_get_obj("sct_ajax_"+wpa_sct+"_prg");if(wpa_prg){if(wpa_ajax_prg_flag[wpa_sct])
return;wpa_ajax_hide_msg(wpa_sct);if(wpa_to_int(wpa_frm.offsetHeight)<=20)
wpa_trn.style.height="20px";else
wpa_trn.style.height=wpa_frm.offsetHeight+"px";wpa_trn.style.width=wpa_frm.offsetWidth+"px";wpa_frm.style.display="none";wpa_trn.style.display="";wpa_ajax_prg_flag[wpa_sct]=true;}else{if(!wpa_ajax_prg_flag[wpa_sct])
return;wpa_frm.style.display="";wpa_trn.style.display="none";wpa_ajax_prg_flag[wpa_sct]=false;}}
function wpa_create_http_req(){var wpa_request;if(window.ActiveXObject){try{wpa_request=new ActiveXObject("Microsoft.XMLHTTP");}catch(e){wpa_request=false;}}else{try{wpa_request=new XMLHttpRequest();}catch(e){wpa_request=false;}}
if(!wpa_request)
wpa_catch_error("Your browser does not support AJAX!");else
return wpa_request;}
function wpa_ajax_query(prm_cmd,prm_wpa_dat_post,prm_wpa_misc){var wpa_xml=wpa_create_http_req();if(typeof prm_dat_get=="undefined")
var prm_dat_get={};if(typeof prm_wpa_dat_post=="undefined")
var prm_wpa_dat_post={};if(typeof prm_wpa_misc=="undefined")
var prm_wpa_misc={};function wpa_send_query(){if(prm_cmd==""){alert("No act to be send!");return false;}
if(wpa_xml.readyState==4||wpa_xml.readyState==0){req_url=wpa_url(prm_cmd);dat_str="";for(tmp in prm_wpa_dat_post){if(dat_str!="")
dat_str+="&";dat_str+=tmp+"="+prm_wpa_dat_post[tmp];}
if(dat_str==""){wpa_xml.open("GET",req_url,true);wpa_xml.onreadystatechange=wpa_response;wpa_xml.setRequestHeader("Accept-Charset","UTF-8");wpa_xml.send(null);}else{wpa_xml.open("POST",req_url,true);wpa_xml.onreadystatechange=wpa_response;wpa_xml.setRequestHeader("Content-Type","application/x-www-form-urlencoded");wpa_xml.setRequestHeader("Accept-Charset","UTF-8");wpa_xml.send(dat_str);}
return true;}
return false;}
function wpa_response(){try{if(wpa_xml.readyState==4){if(wpa_xml.status==200){try{wpa_res=wpa_xml.responseXML.documentElement;wpa_handle_response(wpa_res);if(typeof prm_wpa_misc.exec_cpl!="undefined")
eval(prm_wpa_misc.exec_cpl);if(typeof prm_wpa_misc.exec_done!="undefined")
eval(prm_wpa_misc.exec_done);}catch(err){}}else{wpa_catch_error(wpa_xml.responseText);}}}catch(e){if(typeof prm_wpa_misc.exec_fail!="undefined")
eval(prm_wpa_misc.exec_fail);if(typeof prm_wpa_misc.exec_done!="undefined")
eval(prm_wpa_misc.exec_done);wpa_catch_error(e);}}
function wpa_handle_response(wpa_reply){try{if(typeof prm_wpa_misc.exec!="undefined")
eval(prm_wpa_misc.exec+"(wpa_reply, prm_wpa_misc);");}catch(e){wpa_catch_error(e);}}
return wpa_send_query();}
function wpa_str_replace(str,sr,val){return str.replace(sr,val,"g");}
function wpa_parse_html(html){var wpa_res=html;wpa_res=wpa_str_replace(wpa_res,"&gt;",">");wpa_res=wpa_str_replace(wpa_res,"&lt;","<");wpa_res=wpa_str_replace(wpa_res,"&quot;","\"");wpa_res=wpa_str_replace(wpa_res,"&brvbar;","|");wpa_res=wpa_str_replace(wpa_res,"&amp;","&");return wpa_res;}
function wpa_to_int(str){wpa_res=parseInt(wpa_to_num(str));if(isNaN(wpa_res))
wpa_res=0;return wpa_res;}
function wpa_to_num(str){wpa_res=parseFloat(str);if(isNaN(wpa_res))
wpa_res=0;return wpa_res;}
function wpa_is_ie(){if(navigator.appName=="Microsoft Internet Explorer")
return true;else
return false;}
function wpa_is_opera(){if(navigator.appName=="Opera")
return true;else
return false;}
function wpa_url(wpa_nm){return wpa_base_url+"ajax/"+wpa_nm;}
function wpa_xml_nd_val(wpa_nd){try{return wpa_parse_html(wpa_nd.firstChild.data);}catch(e){return"";}}
function wpa_xml_nds_by_tag(wpa_xml,wpa_tag){wpa_res=new Array();wpa_nds=wpa_xml.getElementsByTagName(wpa_tag);wpa_len=wpa_nds.length;for(wpa_ai=0;wpa_ai<wpa_len;wpa_ai++)
wpa_res[wpa_ai]=wpa_nds[wpa_ai];return wpa_res;}
function wpa_xml_nd_chd(wpa_nd){wpa_res=new Array();wpa_nds=wpa_nd.childNodes;wpa_len=wpa_nds.length;for(wpa_bi=0;wpa_bi<wpa_len;wpa_bi++)
wpa_res[wpa_bi]=wpa_nds[wpa_bi];return wpa_res;}
function wpa_xml_msg(wpa_xml,wpa_tag){if(typeof wpa_tag=="undefined")
var wpa_tag="error";lst_msg=new Array();nds_msg=wpa_xml_nds_by_tag(wpa_xml,wpa_tag);if(nds_msg.length==0)
return"";for(nd_msg in nds_msg)
lst_msg[lst_msg.length]=wpa_xml_nd_val(nds_msg[nd_msg]);return lst_msg.join("<br/>");}