function OptGen(vert,teksts,sak) {
   var cSel = ''

   if (vert==sak) {
      cSel = 'selected '
   }

   return '<OPTION '+cSel+'value="'+vert+'">'+teksts
   }

function OptGenText(vert,teksts,cSakText) {
   var cSel = ''

   if (teksts==cSakText) {
      cSel = 'selected '
   }

   return '<OPTION '+cSel+'value="'+vert+'">'+teksts
   }

function OptVirkneGenBody(sak,no,lidz) {
   var x = ''

   for (var sk=no; sk<=lidz; sk++) {
      x+=OptGen(sk,sk,sak)
   }

   return x
}

function OptVirkneGenBodyLpad(sak,no,lidz,gar) {
   var x = ''
   var simb

   for (var sk=no; sk<=lidz; sk++) {
      simb=padl(sk+'',gar,'0')
      x+=OptGen(simb,simb,sak)
   }

   return x
}

function OptVirkneGen(sak,no,lidz,oSak) {
   return oSak+OptVirkneGenBody(sak,no,lidz)+'</SELECT>'  
   }

function OptVirkneGenTukss(sak,no,lidz,oSak,tukss) {
   
   if (tukss==null) {
      var cTukss=''
   } else {
      var cTukss=OptGen(tukss,' ',sak)
   }

   return oSak+cTukss+OptVirkneGenBody(sak,no,lidz)+'</SELECT>'  
   }

function OptVirkneGenLpad(sak,no,lidz,oSak,gar) {
   return oSak+OptVirkneGenBodyLpad(sak,no,lidz,gar)+'</SELECT>'  
   }

function sel_sak(outhtm) {
   return outhtm.substring(0,outhtm.indexOf('>')+1)
   }

function opt_set(oOpt,vert) {
oOpt.options[0].selected=true

for  (var i=0;i<oOpt.options.length;i++) {
   
   if (oOpt.options[i].value==vert)
      oOpt.options[i].selected=true
   }
}

function opt_set_text(oOpt,cText) {
oOpt.options[0].selected=true

for  (var i=0;i<oOpt.options.length;i++) {
   
   if (oOpt.options[i].text==cText)
      oOpt.options[i].selected=true
   }
}

function OptGetSel(oOpt) {
var nAtb = null

for  (var i=0;i<oOpt.options.length;i++) {
   
   if (oOpt.options[i].selected) {
      nAtb = i
      break
   }

}

return nAtb
}

function OptGetSelText(oOpt) {
	return oOpt.options[oOpt.selectedIndex].text
}

function OptGetMultiSelText(oOpt) {
	var cSel=''

	for  (var i=0;i<oOpt.options.length;i++) {
	
		if (oOpt.options[i].selected) {
			cSel+=oOpt.options[i].text+','
		}

	}

	return cSel.replace(/.$/,'')
}

function OptGetMultiSelValue(oOpt,cAtd) {
//vajag strings.js
	var cSel=''

	for  (var i=0;i<oOpt.options.length;i++) {
	
		if (oOpt.options[i].selected) {
			cSel+=oOpt.options[i].value+cAtd
		}

	}

	return rtrim(cSel,cAtd)
}

function OptClearMulti(oOpt){

	for  (var i=0;i<oOpt.options.length;i++) {
		oOpt.options[i].selected=false
	}

	SetValue(getParent(oOpt,'TABLE'),'mselh_','')
}

function OptGenMas(oKontr,aNos,aId,nSak) {
   var cOuterHtml = sel_sak(oKontr.outerHTML)+OptGen(0,' ',nSak)
   var nVert

   for (var i=0;i<aNos.length ;i++ ){
      nVert = (aId==null ? i+1 : aId[i]*1)
 	  cOuterHtml+=OptGen(nVert,aNos[i],nSak)
   }

   return cOuterHtml+'</SELECT>'
}

function OptGenMasVert(oKontr,aNos,aVert,nSak) {
   var cOuterHtml = sel_sak(oKontr.outerHTML)+OptGen(0,' ',nSak)

   for (var i=0;i<aNos.length ;i++ ){
 	  cOuterHtml+=OptGen(aVert[i],aNos[i],nSak)
   }

   return cOuterHtml+'</SELECT>'
}

function OptGenMasText(oKontr,aNos,aId,cSakText) {
   var cOuterHtml = sel_sak(oKontr.outerHTML)+OptGenText(0,' ',cSakText)

   for (var i=0;i<aNos.length ;i++ ){
 	  cOuterHtml+=OptGenText(aNos[i],aNos[i],cSakText)
   }

   return cOuterHtml+'</SELECT>'
}

function OptGenMasTextMulti(oKontr,aNos,cSakIzv) {
	var oOpt=oKontr.options,aIzv=cSakIzv.split(',')
	oOpt.length=0

   for (var i=0;i<aNos.length ;i++ ){
		oOpt[i]=new Option(aNos[i],aNos[i],false,ascan(aIzv,aNos[i]) > -1)
   }

	SetValue(oKontr.parentElement,'mselh_',OptGetMultiSelText(oKontr))
}