//<script language="JavaScript">


function SetURLParam(strUrl, strParam, strValue)
{
	var TstrUrl = strUrl;
	var TstrUrlleft = "";
	var TstrUrlright = "";
	var TlstParams = Array();
	var TlngFound = -1;
	var TblnParamFound = false;
	var newUrl = "";

	// Gibt es Parameter?
	TlngFound = TstrUrl.indexOf("?");

	// Wenn Ja, dann Parameter aus Url auslesen
	if(TlngFound > 0)
	{
		TstrUrlleft = TstrUrl.substr(0, TlngFound);
		TstrUrlright = TstrUrl.substr(TlngFound + 1, TstrUrl.length);
		TlstParams = TstrUrlright.split("&");
		
		// Parameter in die einzelnen Bestandteile zerlegen
		var TlstSingleParams = Array();
		for (i = 0; i < TlstParams.length; i++)
		{
			value = TlstParams[i];
			lngIndex = value.indexOf("=");
			TlstSingleParams[TlstSingleParams.length] = value.substr(0, lngIndex);
			TlstSingleParams[TlstSingleParams.length] = value.substr(lngIndex + 1, value.length);
			/*
			TlstSingleParams.push(value.substr(0, lngIndex));
			TlstSingleParams.push(value.substr(lngIndex + 1, value.length));
			*/
			
			if(value.substr(0, lngIndex) == strParam)
				TblnParamFound = true;
		}

		// Parameter schon vorhanden??? Dann Wert ersetzen
		if(TblnParamFound)
		{
			for (i = 0; i < TlstSingleParams.length; i = i+2)
			{
				value = TlstSingleParams[i];
				
				if(TlstSingleParams[i] == strParam)
					TlstSingleParams[i + 1] = strValue;
			}
		}
		// Ansonsten einfach hinzufügen
		else
		{
			TlstSingleParams[TlstSingleParams.length] = strParam;
			TlstSingleParams[TlstSingleParams.length] = strValue;
			/*
			TlstSingleParams.push(strParam);
			TlstSingleParams.push(strValue);
			*/
		}
		
		// Url wieder zusammensetzen und zurückgeben
		for (i = 0; i < TlstSingleParams.length; i = i+2)
		{
			if(i > 0)
				newUrl += "&";
			
			newUrl += TlstSingleParams[i] + "=" + TlstSingleParams[i + 1];
		}
		newUrl = TstrUrlleft + "?" + newUrl
	}
	else
	{
		// Es ist der erste Parameter in der Liste
		
	}

	return newUrl;
}

//netyard Anfang
function getURLParam(str, strParam)
 {
	var liste = new Array(0);
	var temp = new Array(0);
  var temp2 = new Array(0);
	var url = str;
  	if (url != "")
   	{
   	 url = url.substring(1,url.length);                                                                     
     liste = url.split("&"+strParam);                     
 	 if (liste.length > 1){
	 	//alert (liste.length);
		temp = liste[1].split("&");
 	 	temp2 = temp[0].split("=");                       
     	//alert(liste[0] + ' xxx ' + liste[1] + ' xxx ' + temp[0] + ' xxx ' + temp[1] + ' xxx ' + temp2[0] + ' xxx ' + temp2[1]); 
     	return temp2[1];
	 }
	 else{
	   return "-1"
	 }
    }
  }
 
 function expandURLParam(str, strParam, expandStr)
 {
  var url = str;
	var tmp;
	var newParam;
	var newUrl;
  	if (url != "")
   	{
	  tmp = getURLParam (url, strParam);
	  newParam = tmp + expandStr;
	  newUrl = SetURLParam(url,strParam,newParam); 
	  window.location.replace(newUrl);   
    }
  }
  
 function Special_SetURLParam(strURL, strParam, strValue)
  {
   var newUrl;
   newUrl = SetURLParam(strURL, strParam, strValue);
   window.location.replace(newUrl);
  }
 
 function RegioLink_SetURLParam(strURL, strParam, strValue, strRegion)
  {
   var newUrl;
	 var newValue;
	 if(strRegion == 'land'){newValue = '-1'};
   if(strRegion == 'bland'){newValue = strValue.substr(0,4) + '000000000000'};
	 if(strRegion == 'regbez'){newValue = strValue.substr(0,6) + '0000000000'};
	 if(strRegion == 'landkr'){newValue = strValue.substr(0,8) + '00000000'};
	 newUrl = SetURLParam(strURL, strParam, newValue);
   window.location.replace(newUrl);
  }
	
	function opera_Z3(strURL)
	{
	  var newURL;
	  newURL = strURL + "&Z3=-1";
		return newURL;
	}
 
//netyard Ende