//VALERT
var $valert=false;
var $valert_click=false;
function valert(con,til,act,dgb,fnc,lbl_0,lbl_1,lbl_2){ //if two functions (yes/no), send separated by ^ delimeter
	var typ=false;
	var lbv;
	shad=ge('page_shade');
	targ=ge('valert');
	act=act?act:'show';
	typ=act;
	if(typ=='yesno' || typ=='input' || typ=='punter' || typ=='nilno'){
		act='show';
	}
	ge('vad_ok0').style.display='none';
	ge('vad_inp').style.display='none';
	ge('vad_yca').style.display='none';
	var bx0=ge('vad_box');bx0.style.display='none';
	var bx1=ge('vad_bx1');bx1.style.display='none';
	var bx2=ge('vad_bx2');bx2.style.display='none';
	var ib0=ge('vai_box');ib0.value='';
	var ib1=ge('vai_bx1');ib1.value='';
	var ib2=ge('vai_bx2');ib2.value='';
	ge('vad_lbl').innerHTML=lbl_0?lbl_0:'';
	ge('vad_lb1').innerHTML=lbl_1?lbl_1:'';
	ge('vad_lb2').innerHTML=lbl_2?lbl_2:'';
	ge('vad_tlr').innerHTML="<div id='vad_clo' onclick=\"valert(0,0,'close',true);\"></div>";
	var iflag=false;
	switch(act){
		case 'show':
			targ.style.display='block';
			if(typ=='yesno' || typ=='nilno'){
				var yes=ge('vvv_yes')
				var cancel=ge('vvv_can')
				var fn=fnc.split('^');
				ge('vad_yca').style.display='block';
				if(fn.length==1){fn[1]='';}
				fn[0]+=(right(fn[0],1)!=';')?';':'';
				lbv=lbl_0?'<p id="vad_yes_txt">'+lbl_0+'</p>':'<p id="vad_yes_txt">YES</p>';
				var fn_clo=(typ=='yesno')?"valert(0,0,'close',false);":"";
				yes.innerHTML="<div id='vad_yes' class='ibt_M' onclick=\""+fn[0]+fn_clo+"\">"+lbv+"</div>"
				ge('vad_tlr').innerHTML="<div id='vad_clo' onclick=\"valert(0,0,'close',true);"+fn[1]+"\"></div>";								
				lbv=lbl_1?'<p>'+lbl_1+'</p>':'<p>CANCEL</p>';
				cancel.innerHTML="<div id='vad_can' class='ibt_M' onclick=\"valert(0,0,'close',false);"+fn[1]+"\">"+lbv+"</div>"
			}else if(typ=='input' || typ=='punter'){
				iflag=true;
				bx0.style.display='block';
				if(typ=='punter'){
					bx1.style.display='block';
					if(lbl_2){
						bx2.style.display='block';
					}
				}
				ge('vad_inp').style.display='block';
				ge('vvv_ien').innerHTML="<div id='vad_ien' class='ibt_M' onclick=\""+fnc+"\"><p>ENTER</p></div>";				
			}else{
				ge('vad_ok0').style.display='block';
			}
			con+='';
			con=con.replace(/\n/g, '<br>')
			var doc=document.documentElement;
			ge('vad_til').innerHTML=til?til:((sys_v=='sav')?$prog:sys_v);
			ge('vad_con').innerHTML=con?con:'<br><br>';			
			center_show(targ,false,false,true);
			$valert=true;			
			targ.style.visibility='visible';
			shad.style.display='block';
			shad.style.height=ieblows?'100%':page_height()+'px';
			if(iflag){ib0.focus();} //convoluted shit because of IE
			break;	
		case 'close':
			vadex_show(false);
			targ.style.display='none';
			targ.style.visibility='hidden';
			shad.style.height='100px';
			shad.style.display='none';
			$drag_block=dgb;
			$valert=false;
			$valert_click=true;
			break;		
	}
}
function vadex_show(con){
	var vadex=gi('vadex');
	if(con){
		vadex.innerHTML=con;
		vadex.style.display='block';
		vadex.style.visibility='visible';		
	}else{
		vadex.innerHTML='';
		vadex.style.display='none';
		vadex.style.visibility='hidden';		
	}
}
function vini(ix){
	var box=(ix==0)?'box':'bx'+ix;
	return ge('vai_'+box).value.trim();
}
//DRAGGING
var $drag=false;
var $drag_block=false;
function drag_select(e,id){
	if($drag_block){$drag_block=false;return false;}
	var htype='move';
	if (e==null){e=window.event; htype='move';} 
	if(id){
		var targ=e.target!=null?e.target:e.srcElement;
		if(targ.getAttribute('nodrag')==1){$drag_block=false;return false;}
		targ=ge(id);
	}else{
		var targ=e.target!=null?e.target:e.srcElement;
	}
	ori_cursor=targ.style.cursor;
	$drag=targ;       
	drag_ini();
	var p=f_pos($drag);
	$drag.style.cursor=htype;
	if($valert){
		drag_x=e.clientX-(targ.style.left.replace('px','')*1);
		//drag_y=15;
		drag_y=e.clientY-(targ.style.top.replace('px','')*1);;
	}else{
		drag_x=e.clientX-p[0];
		drag_y=e.clientY-p[1];
	}
	document.onmousemove=drag_move;
	document.onmouseup=drag_end;
	return false;
}

function drag_ini(){
	var ori_cursor=null;
	var drag_x=0;
	var drag_y=0;
}
function drag_move(e){
	if (e == null) { e = window.event } 
	if (e.button<=1 && $drag){
		$drag.style.left=e.clientX-drag_x+'px';
		$drag.style.top =e.clientY-drag_y+'px';
		return false;
	}
}
function drag_end(e) {
	document.onmousemove=null;
	document.onmouseup=null;
	$drag.style.cursor=ori_cursor;
	$drag=false;
}