'}else{c='
';}
vlAlertAux(c+s+'
',t,null,null,null,null,true,true,true);
}
function vlTip(s,p){
var dw = 100;
try{
dw = s.length * 8;
}catch(e){}
if(dw>200)dw=200;
global_vlAlert_width = dw;
vlAlertAux(s,2000,p,'GC',false);
global_vlAlert_width = def_global_vlAlert_width;
}
function vlAlertT(s,t,p,a){
//s=string, p=parent ob, a=placement string, supClose=true hides the close icon
if(t==null)t=2000;
if(isInDiv(p,MM_findObj('VTDIVI'))){
vlAlertAux2(s,t,p,a,false);
}else{
vlAlertAux(s,t,p,a,false);
}
}
function vlAlert(s,p,a,supClose,noFade){
vlAlertAux(s,null,p,a,false,false,supClose,false,null,noFade);
}
function vlAlert2(s,p,a,supClose,noFade){
//Provides a second level if required
if(isInDiv(p,MM_findObj('VTDIVI'))){
vlAlertAux2(s,null,p,a,false,false,supClose,false,null,noFade);
return 'VTDIVI2';f
}else{
vlAlertAux(s,null,p,a,false,false,supClose,false,null,noFade);
return 'VTDIVI';
}
}
function vlAlertProg(p){
var objForm = (document.forms['INTERNAL'] || document.forms['ROINTERNAL'] || document.forms['MODAL']);
if(objForm==null){objForm = document.forms['MODAL'];}
myLoc = '?BSLSessionStr='+objForm.BSLSessionStr.value;
vlAlert('
',p,'HA',true);
}
function vlAlertX(s,p,a){
//Places the result in a TEXTBOX
vlAlertAux(s,null,p,a,true);
}
function vlAlertSetWidth(w,mDivID){
if(!mDivID){mDivID='VTDIVI';}
var mDiv = MM_findObj(mDivID);
if(mDiv){mDiv.style.width=w+'px';}
}
function vlAlertAuxRaw(s,mDivID){
if(!mDivID){mDivID='VTDIVI';}
var mDiv = MM_findObj(mDivID);
if(mDiv){
mDiv.innerHTML='
';
}else{
//Fail by alerting anyway
alert('** NO VTDIV on Page **\n'+s);
}
}
/* vlAlert perhaps needs to allow two alert levels so we can have alerts on ajax deliveries
We rely on there being only one VTDIV to hide extraneous objects when a new one comes along.
If we have two, we then need a mechanism to say where we are, what the priority levels are and so on.
This is tricky.
In the instance of a calendar object, if we always use VTDIVI2 the situation is SIMPLER ==
We currently rely on the calendar closing the existing alerts, which is cool if the calendar is OUTSIDE the VTDIV
If it is INSIDE then closing the div kills the div (and the calendar is not shown either)
If we could work out whether we are in the div then that might be useful.
The first thing to tackle is the on entry message on date fields...
*/
function HTMLNodeIterator()
{
//task:function,node:HTML Node
this.iterate = function iterate(task,node)
{
//if(task(node))return true;
var x=0;
for(x=0;x
0 )
if(this.iterate(task,childNode))return true;
}
return false;
}
}
function setFocusToGrab(ob){
// alert(ob.innerHTML);return;
var htmlNodeIterator = new HTMLNodeIterator();
htmlNodeIterator.iterate(setFocusToGrabDo,ob);
}
function setFocusToGrabDo(ob){
// alert(ob.innerHTML);
try{
var gfo=ob.getAttribute('grabfocus');
if(gfo){
try{ob.focus();}catch(e){alert(e);}
return true;
}
}catch(e1){}
return false;
}
function setGlRet(ob){
// alert(ob.innerHTML);return;
var htmlNodeIterator = new HTMLNodeIterator();
htmlNodeIterator.iterate(setGlRetDo,ob);
}
function setGlRetDo(ob){
// alert(ob.innerHTML);
try{
var gfo=ob.getAttribute('gl_ret');
if(gfo){
gl_ret=ob.id;
return true;
}
}catch(e1){}
return false;
}
function isInDiv(ob,div){
if(ob==null)return false;
while(ob=ob.parentNode){
if(div==ob)return true;
}
return false;
}
function vlAlertAux(s,t,p,a,textbox,replace,supClose,noShift,supTimerStyle,noFade){
vlAlertClose();
var mDiv = MM_findObj('VTDIVI');
vlAlertAuxDo(mDiv,s,t,p,a,textbox,replace,supClose,noShift,supTimerStyle,noFade);
mnOvrKill();
setFocusToGrab(mDiv);
setGlRet(mDiv);
}
function vlAlertAux2(s,t,p,a,textbox,replace,supClose,noShift,supTimerStyle,noFade){
var mDiv = MM_findObj('VTDIVI2');
if(mDiv==null){
//div id="VTDIVI" class="hidden" style="position:absolute;">