/* Side Bar Script Version 2.0 -- Serge Medow IIASA serge@iiasa.ac.at */

var Sb_InTable=0;

if ((typeof SbTit) == 'undefined') var SbTit = new Array();

if ((typeof SbSta) == 'undefined') SbSta = new Array();

if (! (typeof Sta_is_Txt).indexOf('un')) Sta_is_Txt = 1 ;

function GetVar(V){
  var argv=window.location.search;
  var pvar=V + "=";
  var pvar=argv.indexOf(pvar);
  var len=V.length + 1;
  var endpvar=argv.indexOf("&", pvar+len);

  var rpvar="";

  if (pvar != -1){
    if (endpvar > -1){
      rpvar=argv.substring(pvar+len, endpvar);
    } else{
     rpvar=argv.substring(pvar+len);
    }
  }
  return rpvar;
}

var SbNow = GetVar("sb");
var QArg = 0;

function DW(t){document.write(t);}

function SbT(n){
  if (! (typeof SbTit[n]).indexOf('un'))
    SbTit[n] = SbTxt[n];
  return ('title="'+SbTit[n]+'"');
}

function SbBeg(){
DW('<table width=220 border=0 cellspacing=0 cellpadding=0><tr><td height=2 colspan=2><img src="spacer.gif" width=220 height=1></td></tr>');
Sb_InTable=1;
}

function SbEnd(){
DW('<tr><td width="220" colspan="2" height="1"><img src="spacer.gif" width="220" height="1"></td></tr><tr><td width="220" colspan="2" class="iicol-hd" height="2"><img src="spacer.gif" width="220" height="1"></td> </tr></table>');
Sb_InTable=0;
}

function SbHdr(col,txt,htm,sbno){
var p2, ih=htm.indexOf("#");
var t='<tr><td width=8 class="iicol-hd" height=16>';
  if (sbno==SbNow)
    t+='<img src="/rains/js/arr-rd.gif" height="13" width="8" align="center" alt="" hspace="0" vspace="0">';
  else t+='&nbsp;';
  t+='</td><td width=212 align="left" class="iicol-hd">';
  if (ih){
    p2="";
    if (ih>0){
    p2 = htm.substring(ih);
    htm = htm.substring(0,ih);
    }
    if (ih>=0) QArg=1;
    t+='<a '+SbT(sbno)+' class="link'+col+'-nofade" onMouseOver="SbMov('+sbno+');return (Sta_is_Txt?true:false);" onMouseOut="SbOut();" href="'+htm;
    if(!QArg) t+='?sb='+sbno;
    t+=p2+'">'+txt+'</a>';
  } else t+='<span class="'+col+'">'+txt+'</span>';
  t+='</td></tr>';
  DW(t);
}

function sbNrm(col,txt,htm,sbno){
var p2, ih=htm.indexOf("#");
var t='<tr><td width=8 class="iicol-txt">';
  if (sbno==SbNow)
    t+='<img src="/rains/arr-rd.gif" height="13" width="8" align="center" alt="" hspace="0" vspace="0">';
  else t+='&nbsp;';
    t+='</td><td width=212 align="left" class="iicol-txt">';
  if (ih){
    p2="";
    if (ih>0){
     p2 = htm.substring(ih);
     htm = htm.substring(0,ih);
    }
    if (ih>=0) QArg=1;
    t+='<a '+SbT(sbno)+' class="link'+col+'-nofade" onMouseOver="SbMov('+sbno+');return (Sta_is_Txt?true:false);" onMouseOut="SbOut();" href="'+htm;
    if (!QArg) t+='?sb='+sbno;
    t+=p2+'">'+txt+'</a>';
  } else t+=txt;
  t+='</td></tr>';
  DW(t);
}

function SbMov(n){
  if (Sta_is_Txt){
    if (! (typeof SbSta[n]).indexOf('un'))
      SbSta[n] = SbTxt[n] ;
      status=SbSta[n] ;
  }
  return Sta_is_Txt ;
}

function SbOut(){
if (Sta_is_Txt)
  status="";
  return Sta_is_Txt ;
}

function SideBar(col){
var i, BegTab;
  for (i = 1 ; i <= MaxSb ; i++){
    if (! (typeof SbTxt[i]).indexOf('un') || ! (typeof SbHtm[i]).indexOf('un')){
      alert("Missing text or html link for side-bar line: "+i);window.close();
    }
    BegTab=0;
    QArg=0;

    while(SbHtm[i].substring(0,1)=="*"||SbHtm[i].substring(0,1)=="?"){
      if (!SbHtm[i].indexOf("*")){
	SbHtm[i] = SbHtm[i].substr(1);
	BegTab=1;
      }
      if (!SbHtm[i].indexOf("?")){
	SbHtm[i] = SbHtm[i].substr(1);
	QArg=1;
      }
    }

    while(SbTxt[i].substring(0,1)=="*"||SbTxt[i].substring(0,1)=="?"){
      if (!SbTxt[i].indexOf("*")){
	SbTxt[i] = SbTxt[i].substr(1);
	BegTab=1;
      }
      if (!SbTxt[i].indexOf("?")){
	SbTxt[i] = SbTxt[i].substr(1);
	QArg=1;
      }
    }

    if (BegTab==1){
      if (Sb_InTable) SbEnd();
      SbBeg();
      SbHdr(col, SbTxt[i], SbHtm[i], i);
    } else{
      if (!Sb_InTable) SbBeg();
      sbNrm(col, SbTxt[i], SbHtm[i], i);
    }
  }
  if (Sb_InTable) SbEnd();
}