var ajax = [];
function pjx(args,fname,method) {
 this.target=args[1];
 this.args=args[0];
 method=(method)?method:'GET';
 if(method=='post'){
method='POST';
}
 this.method = method;
 this.r=ghr();
 this.url = this.getURL(fname);
}
function formDump()
{
 var all = [];
 var fL = document.forms.length;
 for(var f = 0;f<fL;f++){
 var els = document.forms[f].elements;
 for(var e in els){
 var tmp = (els[e].id != undefined)? els[e].id : els[e].name;
 if(typeof tmp != 'string'){
continue;
}
 if(tmp){
 all[all.length]=tmp}
 }
 }
 return all;
}
function getVal(id) {
 if (id.constructor == Function ) {
 return id();
 }
 if (typeof(id)!= 'string') {
 return id;
 }
 var element = document.getElementById(id) || document.forms[0].elements[id];
 if(!element){
 alert('ERROR: Cant find HTML element with id or name: ' + id+'. Check that an element with name or id='+id+' exists');
 return 0;
 }
 if(element.type == 'select-one') {
 if(element.selectedIndex == -1) return;
 var item = element[element.selectedIndex];
 return item.value || item.text
 }
 if (element.type == 'select-multiple') {
 var ans = [];
 var k =0;
 for (var i=0;i<element.length;i++) {
 if (element[i].selected || element[i].checked ) {
 ans[k++]= element[i].value || element[i].text;
 }
 }
 return ans;
 }
 if(element.type == 'radio' || element.type == 'checkbox'){
 var ans =[];
 var elms = document.getElementsByTagName('input');
 var endk = elms.length;
 var i =0; for(var k=0;k<endk;k++){
 if(elms[k].type== element.type && elms[k].checked && elms[k].id==id){
 ans[i++]=elms[k].value;
 }
 }
 return ans;
 }
 if( element.value == undefined ){
 return element.innerHTML;
 }
else{
 return element.value;
 }
}
function fnsplit(arg) {
 var url="";
 if(arg=='NO_CACHE'){
return '&pjxrand='+Math.random()
}
 if((typeof(arg)).toLowerCase() == 'object'){
 for(var k in arg){
 url += '&' + k + '=' + arg[k];
 }
 }
else if (arg.indexOf('__') != -1) {
 arga = arg.split(/__/);
 // JS split works different from perl =(
 if (arga.length > 2) {
    arga[1] = arga.slice(1, arga.length).join('__');
 }
 url += '&' + arga[0] +'='+ encodeURIComponent(arga[1]);
 //arga = arg.split(/__/); url += '&' + arga[0] +'='+ escape(arga[1]);
 }
 else {
 var res = getVal(arg) || '';
if(res.constructor != Array){ res = [res] }
for(var i=0;i<res.length;i++) {
 url += '&args=' + encodeURIComponent(res[i]) + '&' + arg + '=' + encodeURIComponent(res[i]);
 //url += '&args=' + escape(res[i]) + '&' + arg + '=' + escape(res[i]);
 }
 }
 return url;
}
pjx.prototype = { send2perl : function(){
 var r = this.r;
 var dt = this.target;
 this.pjxInitialized(dt);
 var url=this.url;
 var postdata;
 if(this.method=="POST"){
 var idx=url.indexOf('?'); postdata = url.substr(idx+1);
 url = url.substr(0,idx);
 }
 r.open(this.method,url,true);
 ;
 if(this.method=="POST"){
 r.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
 r.send(postdata);
 }
 if(this.method=="GET"){
 r.send(null);
 }
 r.onreadystatechange = handleReturn;
 }, pjxInitialized : function(){}, pjxCompleted : function(){}, readyState4 : function(){
 var rsp = unescape(this.r.responseText); /* the response from perl */
 var splitval = '__pjx__'; /* to split text */
 /* fix IE problems with undef values in an Array getting squashed*/
 rsp = rsp.replace(splitval+splitval+'g',splitval+" "+splitval);
 var data = rsp.split(splitval);
 dt = this.target;
 if (dt.constructor != Array) {
 dt=[dt]; }
 if (data.constructor != Array) {
 data=[data];
 }
 if (typeof(dt[0])!='function') {
 for ( var i=0; i<dt.length; i++ ) {
 var div = document.getElementById(dt[i]);
 if (div.type =='text' || div.type=='textarea' || div.type=='hidden' ) {
 div.value=data[i];
 } else{
 div.innerHTML = data[i];
 }
 }
 } else if (typeof(dt[0])=='function') {
 dt[0].apply(this,data);
 }
 this.pjxCompleted(dt);
 }, getURL : function(fname) {
 var args = this.args;
 var url= 'fname=' + fname;
 for (var i=0;i<args.length;i++) {
 url=url + args[i];
 }
 return url;
 }
};handleReturn = function() {
 for( var k=0; k<ajax.length; k++ ) {
 if (ajax[k].r==null) {
 ajax.splice(k--,1); continue;
 }
 if ( ajax[k].r.readyState== 4) {
 ajax[k].readyState4();
 ajax.splice(k--,1); continue;
 }
 }
};
var ghr=getghr();
function getghr(){
 if(typeof XMLHttpRequest != "undefined") {
 return function(){
return new XMLHttpRequest();
} 
}
 var msv= ["Msxml2.XMLHTTP.7.0", "Msxml2.XMLHTTP.6.0", "Msxml2.XMLHTTP.5.0", "Msxml2.XMLHTTP.4.0", "MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP", "Microsoft.XMLHTTP"];
 for(var j=0;j<=msv.length;j++){
 try {
 A = new ActiveXObject(msv[j]);
 if(A){
 return function(){
return new ActiveXObject(msv[j]);
}
 }
 } catch(e) { }
 }
 return false;
}function jsdebug(){
 var tmp = document.getElementById('pjxdebugrequest').innerHTML = "<br><pre>";
 for( var i=0; i < ajax.length; i++ ) {
 tmp += '<a href= '+ ajax[i].url +' target=_blank>' + decodeURI(ajax[i].url) + ' </a><br>';
 }
 document.getElementById('pjxdebugrequest').innerHTML = tmp + "</pre>";
}

function call_ajax() {
    var args = call_ajax.arguments;
    var url = args[0];
    if (url == '?') {
        url = '/' + url;
    }
    var a1 = args[1];
    for( var i=0; i<a1[0].length;i++ ) {
        a1[0][i] = fnsplit(a1[0][i]);
    }
    var name = args[2];
    var a3 = args[3];
    var l = ajax.length;
    ajax[l]= new pjx(a1,name,a3);
    ajax[l].url = url + ajax[l].url;
    ajax[l].send2perl();
}