// Coding & Javascripts by Serge Medow - serge@iiasa.ac.at

function GetVar(V) {
    var argv=window.location.search;
    var pvar=V + "=" ;
    var pvar=argv.indexOf(pvar) ;
    var len=V.length + 1;
    if (pvar != -1) {
	var endpvar=argv.indexOf("&", pvar+len) ;
	if (endpvar != -1) {
	    var rpvar=argv.substring(pvar+len, endpvar);
	} else
	{   var rpvar=argv.substring(pvar+len) ;
	}
    } else {
	var rpvar="" ;
    }
    return rpvar ;
}

function DoTitle(t) {
    var titl=GetVar(t);
    titl = NoStr(titl, "%20") ;
    titl = NoStr(titl, "_") ;
    document.write(titl) ;
}

function NoStr(s, c)
{
    var t=s ;
    var ns=t.indexOf(c) ;
    while (ns != -1) {
        t = t.substring(0,ns) + " " + t.substring(ns+c.length) ;
	ns=t.indexOf(c) ;
    }
    return(t) ;
}

function DoMap() {
    var fil = "<img src='gif/" + GetRes() + "/map" + GetVar("map") + GetVar("rgn") + ".gif'>" ;
    document.write(fil) ;
}

function DoMapb() {
 var   res = GetRes() ;

 var   fil = "<img src='" ;
 fil = fil + "gif/" + res + "/map" + GetVar("map") ;
 fil = fil + ".gif' usemap ='#Map' border='0'><map name='Map'>" ;
 if (res == "hr") {
  fil = fil + "<area shape='rect' coords='18,8,277,139' href=" ;
  fil = fil + Rhref(1, "North_America") + ">" ;

  fil = fil + "<area shape='rect' coords='141,138,224,183' href=" ;
  fil = fil + Rhref(2, "Central_America") + ">" ; 
 
  fil = fil + "<area shape='poly' coords='226,166,222,180,211,203,224,318,251,319,326,214,266,171' href=" ;
  fil = fil + Rhref(3, "South_America") + ">" ; 

  fil = fil + "<area shape='rect' coords='625,192,748,311' href=" ;
  fil = fil + Rhref(7, "Austrialia") + ">" ; 
 
  fil = fil + "<area shape='rect' coords='359,34,505,120' href=" ;
  fil = fil + Rhref(4, "Europe") + ">" ;
 
  fil = fil + "<area shape='rect' coords='351,120,516,285' href=" ;
  fil = fil + Rhref(5, "Africa") + ">" ; 
 
  fil = fil + "<area shape='rect' coords='517,120,688,191' href=" ;
  fil = fil + Rhref(6, "South_Asia") + ">" ;
 
  fil = fil + "<area shape='rect' coords='504,73,704,122' href=" ;
  fil = fil + Rhref(8, "Central_Asia") + ">" ;
 
  fil = fil + "<area shape='rect' coords='505,19,763,73' href=" ;
  fil = fil + Rhref(9, "North_Asia") + ">" ;
 
  } else {

  fil = fil + "<area shape='rect' coords='20,10,209,100' href=" ;
  fil = fil + Rhref(1, "North_America") + ">" ;

  fil = fil + "<area shape='rect' coords='160,136,252,247' href=" ;
  fil = fil + Rhref(3, "South_America") + ">" ; 

  fil = fil + "<area shape='rect' coords='104,100,192,136' href=" ;
  fil = fil + Rhref(2, "Central_America") + ">" ; 

  fil = fil + "<area shape='rect' coords='389,89,523,141' href=" ;
  fil = fil + Rhref(6, "South_Asia") + ">" ;

  fil = fil + "<area shape='rect' coords='386,53,555,89' href=" ;
  fil = fil + Rhref(8, "Central_Asia") + ">" ;

  fil = fil + "<area shape='rect' coords='384,13,586,53' href=" ;
  fil = fil + Rhref(9, "North_Asia") + ">" ;

  fil = fil + "<area shape='rect' coords='263,89,389,204' href=" ;
  fil = fil + Rhref(5, "Africa") + ">" ; 

  fil = fil + "<area shape='rect' coords='453,140,573,228' href=" ;
  fil = fil + Rhref(7, "Austrialia") + ">" ; 

  fil = fil + "<area shape='rect' coords='266,28,386,89' href=" ;
  fil = fil + Rhref(4, "Europe") + ">" ;
  }
  fil = fil + "</map>";
    document.write(fil) ;
}

function WinLgd() {
  var H  = 400 ;
  var W  = 290 ;

  var ww = screen.availWidth - (W + 12) ;
  var hh = screen.availHeight - (H + 51) ;

  var fil = "gif/lgd/lgd" + GetVar("map") ;
  fil = "lgd.htm?lgd=" + fil ;

  if (!window.LgdWin || LgdWin.closed)
      LgdWin = window.open(fil,'legend','scrollbars=no,status=no,width='+W+',height='+H+',menubar=no,toolbar=no,resizable=yes,screenX='+ww+',screenY='+hh+',top='+hh+',left='+ww) ;
  else
        LgdWin.focus() ;
}

function DoLgd() {
    var  fil = "<img src='" ;
    fil= fil + "gif/" + GetRes() + "/lgd" + GetVar("map") ;
    fil= fil + ".gif'>" ;
    document.write(fil) ;
}

function DoRgn(r,rn) {
    var fil = "<a href=" + Rhref(r, rn) ;
    fil = fil + " class='Plate' border='0'>" + NoStr(rn, "_") + "</a>" ;
    document.write(fil) ;
}

function Go(url) {
    if (document.images)
        location.replace(url);
    else
        location.href = url;
}

function Rhref(r,rn)
{
    var fil = "'javascript:Go(\"pc.htm?map=" + GetVar("map") + "&" ;
    fil = fil + "rgn=" + r + "&" ;
    fil = fil + "t2=" + rn + "\");'";
   return (fil) ;
}

function Backb() {
     var fil = "<a href='javascript:Go(\"pb.htm?map=" + GetVar("map") + "\");'>" ;

    fil = fil + "<img src='" + "gif/" + GetRes() + "/map" 
    fil = fil + GetVar("map") + "r" + GetVar("rgn") + ".gif' border='0'>" ;
    fil = fil + "</a>" ;
    document.write(fil) ;
}

function LgdWinClose()
{
    if (window.LgdWin)
	LgdWin.close() ;
}
document.onkeypress = Kh;
var NoKeyPress = 0 ;
function Kh(e){var k;
if (NoKeyPress)return ;
if(document.layers)k=e.which;
else k=window.event.keyCode;
alert("Javascripts, Code, and Html by: Serge Medow (serge@iiasa.ac.at)");}