/* All content copyright © 2003-2009 Tatler Software. */

var win=window;var agt=navigator.userAgent;var Mac=(agt.indexOf("Mac")!=-1);var Opr=win.opera;var MSIE=(navigator.appName=="Microsoft Internet Explorer"&&!Opr);var DOM=document.getElementById;var IE4=(MSIE&&document.all&&!DOM);var NN4=document.layers;var NN6=(DOM&&!document.all);var DHTML=(IE4||NN4||DOM);var PRT=(win.print);var dotCnt=0;var offset=26;var relWid=.8;var relHgt=.8;var cltW,sBar,difW,difH,offX,offY,winW,winH,winX,winY,popW,popH,tabX,posX,timer,delay,popups;function winInit(){}function resize(){}function getNum(n){n=Math.round(n);return n;}function getOffset(w,h){if(!difW||!difH){var bdy,pop,hgt,wid;pop=win.open("","tmpwin");pop.document.open("text/html");pop.document.write("<html><head><\/head><body>&nbsp;<\/body><\/html>");pop.document.close();bdy=(pop.document.body||pop.document.documentElement);wid=bdy.offsetWidth;hgt=bdy.offsetHeight;pop.resizeTo(400,400);difW=(400-(bdy.offsetWidth-wid))-wid;difH=(400-(bdy.offsetHeight-hgt))-hgt-29;pop.close();}offX=(winX&&winX>0)?getNum(winX+offset-difW/2):offset;offY=(winY&&winY>0)?getNum(winY+offset-difH):offset;popW=getNum((winW+difW/2)*w);popH=getNum(winH*h);}function checkWin(w,h){if(!DHTML)return;var bdy,clt,lft,top,wid,hgt,mov,siz;bdy=(document.body||document.documentElement);clt=(bdy&&bdy.clientWidth);lft=(win.screenLeft||win.screenX);top=(win.screenTop||win.screenY);wid=(win.innerWidth||(bdy&&bdy.offsetWidth));hgt=(win.innerHeight||(bdy&&bdy.offsetHeight));mov=(lft!=winX||top!=winY);siz=(wid!=winW||hgt!=winH);if(!popW||!popH||mov||siz){cltW=(MSIE)?(wid-clt):0;winW=wid;winH=hgt;winX=lft;winY=top;if(MSIE)getOffset(w,h);else{difW=win.outerWidth-winW;difH=win.outerHeight-winH;sBar=(NN6&&difW>18)?difW-8:0;offX=(winX&&winX>0)?(NN6)?getNum(winX+offset+sBar):getNum(winX+offset):offset;offY=(winY&&winY>0)?getNum(winY+offset):offset;popW=getNum(winW*w);popH=getNum(winH*h);}}}function updList(id){if(!popups){popups=new Array();popups[0]=id;}else{var len=popups.length;for(var i=0;i<len;i++)if(popups[i]==id)return;popups[len]=id;}}function openHelp(url,des){des=(des)?des:'';openWin('dBar_help','QLR Help',des,'qlr_manager/help/'+url,675,400,2);}function dBarWin(pop,nam,des,dir,url,id){var edt,doc,col,tst,tbl,dsc,scr,hdr,cls,tle,win;doc=pop.document;edt=(pop.name.toLowerCase().indexOf("edtwin")!=-1);col=(pop.name.toLowerCase().indexOf("colwin")!=-1);tst=(id&&id.indexOf("test")!=-1);tbl=(col&&id&&id.indexOf("colwin")!=-1)?des:0;dsc=(col)?"Table info:&nbsp;&nbsp;"+des:des;scr=(des)?'<script language="javascript" type="text/javascript">var desc = "'+dsc+'";var dbTbl = "'+tbl+'";<\/script>':'';hdr=(col)?"dbhdr":(edt)?"edthdr":(tst)?"testhdr":"helphdr";cls=(col||edt)?"dbcls":"helpcls";tle=(col)?(tbl)?"DB Table: "+tbl:"Database Table Columns":nam;win='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN"><html><head>';win+='<script language="javascript" type="text/javascript">var hdrRdy;function setHeader(){if(hdrRdy)setTimeout("frames[0].setHead()",100);else setTimeout("setHeader()",100);}<\/script>';win+='<title>'+tle+'<\/title>';win+=scr+'<\/head>';win+='<frameset rows="36,*,28" border="0" frameborder="0" framespacing="0">';win+='<frame src="'+dir+'qlr_manager/help/'+hdr+'.html" name="descBar" scrolling="no" \/>';win+='<frame src="'+dir+url+'" name="content" scrolling="auto" \/>';win+='<frame src="'+dir+'qlr_manager/help/'+cls+'.html" name="closebtn" scrolling="no" \/>';win+='<\/frameset><\/html>';doc.open("text/html");doc.write(win);doc.close();if(col)closeWin(0,pop);}function openWin(id,nam,des,url,w,h,fix,ctr,scr,menu,tool,addr,stat,pctW,pctH,pos0){if(win.focus&&frames[0])frames[0].focus();if(id=="pdfwin"){pdfwin=win.open(url);return;}var x,y,adj,arg,ctl,dir,hdr,hgt,loc,wid,opt,pos,scr;var adj=0;ctl=(win.name=="qlrwin");arg=openWin.arguments.length;dir=(ctl)?"../":(win.qlrMgr)?"./":(frames[2]&&frames[2].servDir)?frames[2].servDir:(win.servDir)?servDir:"./";hdr=(id.indexOf('dBar_')!=-1);id=id.replace(/\W/ig,"").substring(0,20);id=(hdr)?id.substring(id.indexOf('dBar_')+5,id.length):id;wid=(pctW)?pctW/100:relWid;hgt=(pctH)?pctH/100:relHgt;if(!pos0&&!ctl)checkWin(wid,hgt);updList(id);pos=((winX||(winX&&winX==0))&&(winY||(winY&&winY==0))&&winW&&winH);opt=new Array();opt[0]=(scr||arg<9)?1:0;opt[1]=(!menu||arg<10)?0:1;opt[2]=(!tool||arg<11)?0:1;opt[3]=(!addr||arg<12)?0:1;opt[4]=(!stat||arg<13)?0:1;for(i=1;i<opt.length;i++)if(opt[i])adj+=25;w=(fix==2)?Math.max(popW||0,w):(ctl||fix&&w)?w:(popW)?popW:w;h=(fix==2)?Math.max(popH||0,h):(ctl||fix&&h)?h:(popH)?popH:h;x=(ctl||pos0||Opr)?1:(ctr)?(MSIE)?((winW-w)/2)+winX-difW+cltW/2:((winW-w)/2)+winX+sBar:offX;y=(ctl||pos0||Opr)?1:(ctr)?(MSIE)?winY-offset+((winH-h-difH-adj)/2):winY-offset+((winH-h+difH)/2):offY;y=(ctr&&y&&y<offY)?offY:y;win[id]=win.open("",id,"width="+w+",height="+h+",menubar="+opt[1]+",toolbar="+opt[2]+",directories=no,location="+opt[3]+",status="+opt[4]+",resizable=yes,scrollbars="+opt[0]+",screenX="+x+",screenY="+y+",left="+x+",top="+y+",true");if(win[id]){win[id].opener=win;if(win.focus)setTimeout("win['"+id+"'].focus()",100);des=des.replace(/"/g,"&#34").replace (/'/g,"&#39");if(hdr&&id!="qlrwin")setTimeout("dBarWin(win['"+id+"'],'"+nam+"','"+des+"','"+dir+"','"+url+"','"+id+"')",200);else if(url)setTimeout("win['"+id+"'].location.href = '"+dir+url+"'",100);}}function closeWin(id,obj){if(!win.close)return;var col,len,opn,pop;len=(id)?1:(popups)?popups.length:0;for(var i=0;i<len;i++){pop=(id)?win[id]:win[popups[i]];opn=(pop&&!pop.closed&&pop.open);col=(opn&&pop.name&&pop.name.toLowerCase().indexOf("colwin")!=-1);if(col&&obj&&obj!=pop)pop.moveBy(offset,offset);if(!obj&&opn)pop.close();}}function printPage(frame,arg){if(frame==win)printThis();else link=arg;printFrame(frame);}function printThis(){if(PRT)win.print();else if(MSIE&&!Mac)vbPrintPage();else alert("Sorry, your browser doesn't support this feature.");}function printFrame(frame){if(PRT&&MSIE){frame.focus();win.print();link.focus();}else if(PRT)frame.print();else if(MSIE&&!Mac){frame.focus();setTimeout("vbPrintPage();link.focus();",100);}else alert("Sorry, your browser doesn't support this feature.");}if(MSIE&&!PRT&&!Mac)with(document){writeln('<object id="WB" width="0" height="0" classid="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"><\/object>');writeln('<script language="VBScript">');writeln('Sub window_onunload');writeln('  On Error Resume Next');writeln('  Set WB = nothing');writeln('End Sub');writeln('Sub vbPrintPage');writeln('  OLECMDID_PRINT = 6');writeln('  OLECMDEXECOPT_DONTPROMPTUSER = 2');writeln('  OLECMDEXECOPT_PROMPTUSER = 1');writeln('  On Error Resume Next');writeln('  WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER');writeln('End Sub');writeln('<\/script>');}function msgWin(clr){if(delay)clearTimeout(delay);if(timer)clearTimeout(timer);dotCnt=0;if(frames[1]&&page&&page!="browser"){if(clr&&IE4)return;frames[1].location=frames[1].location;if(!clr&&frames[2].iniStatus&&!frames[2].sectionIt&&!frames[2].initMenu)frames[2].iniStatus();}}function showMsg(msg,typ,x,sec,err,pos){if(delay)clearTimeout(delay);if(timer)clearTimeout(timer);if(!frames[1]||!msgRdy)return;errMsg=(typ==1&&err)?1:0;posX=(!win.qlrMgr)?10:(win.name=="ctlwin")?8:(typ==1&&win.ePos)?win.ePos:(typ==1&&!pos)?100:(x)?x:(tabX)?tabX:211;if(msg=="clr"){curPge=0;msgWin(1);}else if(DHTML){var msgCss=(typ==1)?"errtxt":(typ==2||typ==3)?"gettxt":(typ==4)?"vertxt":"msgtxt";var mskDiv=(NN4)?frames[1].document.layers['pgMask']:(DOM)?frames[1].document.getElementById('pgMask'):eval(frames[1].document.all['pgMask']);var msgDiv=(NN4)?frames[1].document.layers['msgBox']:(DOM)?frames[1].document.getElementById('msgBox'):eval(frames[1].document.all['msgBox']);var msgTbl='<table border="0" cellspacing="0" cellpadding="1"><tr><td nowrap class="'+msgCss+'">'+msg+'<\/td><\/tr><\/table>';var mskVis=(msg&&(page=="report"||typ==1||typ==2||x==100))?"visible":"hidden";if(msgDiv&&NN4){if(mskDiv)mskDiv.visibility=mskVis;msgDiv.left=posX;msgDiv.document.open();msgDiv.document.write(msgTbl);msgDiv.document.close();msgDiv.visibility=(msg)?"visible":"hidden";}else if(msgDiv&&(IE4||DOM)){if(mskDiv)mskDiv.style.visibility=mskVis;msgDiv.style.left=posX+"px";msgDiv.innerHTML=msgTbl;msgDiv.style.visibility=(msg)?"visible":"hidden";}if(msg){if(typ==1&&msg.indexOf("session")!=-1&&msg.indexOf("expired")!=-1){wizReset=1;if(window.wizSave)wizSave.length=0;if(window.wizUndo)wizUndo.length=0;}else if(msgDiv&&typ==2)addDots(msg,typ,posX);}}if(sec)delay=setTimeout('showMsg("")',sec*1000);}function addDots(str,typ,x){if(dotCnt<10)str+=" .";else{str=(str.indexOf(" .")!=-1)?str.substring(0,str.indexOf(" .")+2):str+=" .";dotCnt=0;}timer=setTimeout('showMsg("'+str+'",'+typ+',"'+x+'",0,1)',1000);dotCnt++;}function getAttr(arr,inc,cnt,nxt){for(var k=0;k<arr.length;k+=inc)if(arr[k]==cnt){if(nxt)return arr[k+nxt];else return arr;}return false;}function makeBtn(b,tgt){var id,bgc,wid,hgt,spc,tbl,end,arr,cel,clr,usr,bg,cs,rs,al,va,td,tr,rw,w,h,i,j,k;var row=wid=hgt="";if(b.BTN){if(b.BTN[0])wid=' width="'+b.BTN[0]+'"';if(b.BTN[1])hgt=' height="'+b.BTN[1]+'"';rw=(b.BTN=="no")?1:0;}id=(b.ID)?' id="'+b.ID+'"':'';bgc=(b.BGC)?(NN4)?' bgcolor="'+b.BGC+'"':' bgcolor="'+b.BGC+'" style="background:'+b.BGC+'"':'';spc=(b.BTN&&b.BTN[2])?'"'+b.BTN[2]+'"':"0";tbl=(rw)?'':'<table'+id+' border="0" cellspacing='+spc+' cellpadding=0'+wid+hgt+bgc+'><tr>';for(i=0;i<b.CNT;i++){arr=cel=id=bg=cs=rs=al=va=tr=td=w=h="";w=(b.TD&&b.TD[0])?' width="'+b.TD[0]+'"':' width="1"';h=(b.TD&&b.TD[1])?' height="'+b.TD[1]+'"':' height="1"';if(b.ALN&&(arr=getAttr(b.ALN,1,i)))al=' align="'+arr[1]+'"';if(b.VAL&&(arr=getAttr(b.VAL,1,i)))va=' valign="'+arr[1]+'"';if(b.TR)for(j in b.TR)if(b.TR[j]==i)tr='<\/tr><tr>';if(b.BG)for(j=0;j<b.BG.length;j+=2)if(getAttr(b.BG[j],1,i))bg=(NN4)?' bgcolor="'+b.BG[j+1]+'"':' bgcolor="'+b.BG[j+1]+'" style="background:'+b.BG[j+1]+'"';if(b.W_H&&(arr=getAttr(b.W_H,2,i,1))){w=(arr[0])?' width="'+arr[0]+'"':'';h=(arr[1])?' height="'+arr[1]+'"':'';}if(b.SPN&&(arr=getAttr(b.SPN,2,i,1))){cs=' colspan="'+arr[0]+'"';rs=' rowspan="'+arr[1]+'"';}if(b.CEL&&(arr=getAttr(b.CEL,2,i,1)))cel=arr;if(b.USR){usr=b.USR.length-1;for(j in b.USR)if(b.USR[j]==i){bg=(NN4)?' bgcolor="'+b.USR[usr][2]+'"':' bgcolor="'+b.USR[usr][2]+'" style="background:'+b.USR[usr][2]+'"';id=' id="'+b.USR[usr][0]+b.USR[usr][1]+'" align="center"';b.USR[usr][1]++;}}td=id+cs+rs+w+h+al+va+bg;row+=(tr)?tr:(cel)?'<td'+td+' nowrap>'+cel+'<\/td>':'<td'+td+'><spacer type="block"'+w+h+' \/><\/td>';}end=(rw)?'':'<\/tr><\/table>';if(tgt)tgt.innerHTML=tbl+row+end;return tbl+row+end;}