function keydrop(kstr, keypar, delimiter)
/*
' Die Funktion ermittelt den Key-Parameter aus einer Feld-String
'
' kstr      (in): key-string
' Key       (in): Key-Parameter
' Delimiter (in):  ";"; Alternativen:  "," oder " " oder ...
'
' Beispiel:
' keydrop("a=1,b=2,c=3,d=4,e=5", "b", ",")=> "a=1;d=4;e=5"
'
*/
{
var i;
var max;
var ar;
var c;
var e;
if (delimiter==null) delimiter=";"
i=0;
ar=kstr.split(delimiter);
max = ar.length;
e ="";
while (i<max)
      { 
      c=strleft(ar[i], "=");
      if (c!=keypar)
         {
         if (i==0)
            {
             e=ar[i]; 
            }
         else
            {
            e = e + delimiter + ar[i]; 
            }
         } 
      i++;
      }  
return e;
}
/***************************************** */

function keyget(fstr,keypar,delimiter)
/*
' Die Funktion ermittelt den Key-Parameter aus einer Feld-String
'
' Fstr      (in): Fieldstring
' Key       (in): Key-Parameter
' Delimiter (in):  ";"; Alternativen:  "," oder " " oder ...
'
' Beispiel:
' "3" = keyget("a=1,b=2,c=3,d=4,e=5", "c", ",")
'
*/
{
var i;
var max;
var ar;
var c;
var e;
if (delimiter==null) delimiter=";"
i=0;
ar=fstr.split(delimiter);
max = ar.length;
e =""
while (i<=max)
      { 
      c=strleft(ar[i], "=");
      if (c==keypar)
         {
         e = strright(ar[i], "=");
         i = max+1;
         } 
      i++;
      }  
return e;
}
/***************************************** */

function strleft(str,delimiter)
/*
' Die Funktion ermittelt den linke Seite eines Strings getrennt durch enen Delimiter
'
' str (in): String
' Delimiter (in):  ";"; Alternativen:  "," oder " " oder ...
'
' Beispiel:
' "a" = strleft("a=1", "=")
'
*/
{
var ar;
if (delimiter==null) delimiter=";";
ar=str.split(delimiter);
return ar[0];
}

/***************************************** */
function strright(str,delimiter)
/*
' Die Funktion ermittelt den linke Seite eines Strings getrennt durch enen Delimiter
'
' str (in): String
' Delimiter (in):  ";"; Alternativen:  "," oder " " oder ...
'
' Beispiel:
' "1" = strright("a=1", "=")
'
*/
{
var ar;
if (delimiter==null) delimiter=";";
ar=str.split(delimiter);
return ar[1];
}
/***************************************** */

function strindex(qstr,sstr,ncase)
/*
' Die Funktion ermittelt den linke Seite eines Strings getrennt durch enen Delimiter
'
' qstr (in): Quell-String
' sstr (in): Suchstring
'
' Beispiel:
' 6 = strindex("abcdef", "f")
'
*/
{
var _qstr = qstr.toUpperCase();
var _sstr = sstr.toUpperCase();
if (ncase==0)
   {
   _qstr = qstr;
   _sstr = sstr;
   }
var i=_qstr.indexOf(_sstr)+1;
return i;
}
/***************************************** */

function fieldget (FStr, pos, delimiter)
{
/*
' Die Funktion ermittelt den Parameter aus einer Feld-String mit Position pos
'
' Fstr (in): Fieldstring
' pos (in): Position des Parameters in der Feldliste
' Delimiter (in): Default = ";"; Alternativen:  "," oder " " oder ...
'
' Beispiel:
' "b" = FieldGet("a,b,c,d,e", 2, ",")
'
*/
var i=0;
var i_counter=0;
var max = FStr.length;
var c="";
var str="";
while (i < max)
      {
      c="";
      c = FStr.substr(i,1);	  
	  /* alert(c); */
      if (c == delimiter) 
	    {
	    i_counter++;
		}
      if (i_counter < (pos-1))
	      ;
      else if (i_counter == (pos-1) && c == delimiter)
	       ;			
      else if (i_counter > (pos-1))
	     {
	     i = max;                   /*  2) Ende der Parameterzone */
		 }
      else if (i_counter==(pos-1))
	     { 
         str = str + c;                  /* 3) Innerhalb der Parameterzone */		 
		 }
      i++;
	  }
return str;
}
/***************************************** */

function framehtml (frame_name, html_name){
/* 
' Die Funktion framewindow gibt eine html-Seite (html_name + html_id) in einem
' i-Framefenster (frame_name) aus.
'
' frame_name (in): Name des iframes definiert über den id-Parameter: z. B. id="Frame_Name"
' html_name  (in): Html-Rumpf-Name
'
' Der iframe muss definiert sein wie z. B. 
'
' <iframe id="Frame" src="./test_1.html" width="400" height="300"></iframe>  
*/
/* document.getElementById("kategorien").selectedIndex=0; */
 document.getElementById(frame_name).src = html_name 
}
function sel(wert){
framehtml('Frame','paccaya_' + wert + '.html')
}
/***************************************** */

function js_alert(Textvar, _Par,_timepar) 
/* 
' Die Funktion js_alert() gibt einen formatierten Text aus
'
' Textvar (in):  Text der ausgegeben werden soll
'_Par     (in):  Parameter für die Ausgaben
'               z.B. _par ='width=600,height=80,scrollbars'><   
*/
{
var MeinFenster = window.open("", "Zweitfenster");
var FPar = 'width=300,height=200,scrollbars';
var _time;
var c;
if (_Par==null)
   {
    FPar = FPar;
   }
else
  {
   FPar=_Par;
  }
if (_timepar==null)
   {
   _time=20000;
   }
else
  {
   _time=_timepar;
  }
if (MeinFenster.closed == true) 
   {      
   }
else 
   {
   MeinFenster.close();
   }	 
MeinFenster = window.open("", "Zweitfenster",FPar);
MeinFenster.document.write(Textvar);  
MeinFenster.focus();
if  (_time!="")
   {
    MeinFenster.setTimeout("close()", _time);
   }
}
/***************************************** */

function test_(avar)
{
var ar;
var i;
ar=avar.split(';');
/*i = ar.length;
return i;*/
}