/*js for object6 and suche6 */
/* change log:
 06032003	changed calcPrufZeichen
 05052004	added redirect for IVL neu
 10082004	changed empty
 16082004	changed setButImgHover, added printObj,setHtml
 16022005	changed imgwin
 24012006	changed omoCursorOn/Off, new version of imgwin
 17042009	changed calcPrufZeichen - Gattungszeichen Pu, Pg, Ps, EuM
*/
/* functions list:
 redirect() {
 calcPrufZeichen(but,suff) {
 setKatVars(doc) {
 setKat2(sel) {
 setButImgHover(doc) {
 omoCursorOn(but) {
 omoCursorOff(but) {
 omoHover(himg) {
 omoUnhover(himg) {
 editMode(but) {
 empty(but) {
 calwin(link,w,h,l,t) {
 helpwin(link,w,h,l,t) {
 imgwin(link,wid,hei,l,t)
 imgwinold(link) {old version
 chkimg() {
 closeback() {
 ws(txt) {
 right(num) {
 rightC(str) {rechts vom String SM 5.4.2006
 dispSelect(sel) {
 toggleDisplay(id,onoff) {
 noenter() {
 printObj(obj) {
 setHtml(id,value,alrt) {
function showId(id,doc) {
function hideId(id,doc) {
function formatDate(field): Datum formatieren mit führenden 0 SM 20.09.2007
*/
var isEdit = false;
var preloadImg = new Array();
var tracewin; //usage:
/*tracewin=window.open('','tracewin',
 'menubar=yes,toolbar=no,scrollbars=yes,resizable=yes,'+
 'left=800,top=100,width=400,height=600');*/
/*if (tracewin) tracewin.document.writeln('traceString<br>');*/
var allKat;/*2-dim,row[i]: [i][0]=Kat, [i][j]=Subkats*/
/* Vars für imgwin/chkimg */
var img;
var count;
var msec = 100;
function redirect() {/*for onLoad;redirect to link with id=redirect*/
 var links = self.document.links;
 for (var i=0; i<links.length; i++) {
  if (links[i].id=="redirect") {
   window.location.href = links[i].href;
   break;
  }
 }
}
function calcPrufZeichen(but,suff) {/*calc Prüfzeichen dep on GZ*/
 /*suff for 2nd set of fields*/
 var gzcode;
 if (suff==null) suff = '';
 var pz = 'abdfghkmpistvwxyz';
 var elem = but ? but.form.elements : self.document.forms[0].elements;
 var ger = Number(elem['Ger'].value);/*06032003*/
 var ga = Number('0' + elem['GA'+suff].value);/*06032003*/
 var gz = elem['GZ'+suff];/*select-one/input*/
 gz = gz.type=='select-one' ? gz.options[gz.selectedIndex].value : gz.value;
 var zahl = ('00000' + elem['Zahl'+suff].value).right(5);
 var jahr = elem['Jahr'+suff];/*select!*/
 jahr = jahr.options[jahr.selectedIndex].value.right(2);
 switch (gz.toUpperCase()) {
  case 'A' :     case 'CG' :  case 'U' :    case 'UR' :	case 'HR' :
   gzcode = 1; break; /*4*/
  case 'FAM' :
   gzcode = 2; break; /* 02.02.2005 SM */
  case 'BAZ' :   case 'CGA' : case 'E' :    case 'HV' :  case 'ST' :
  case 'UT' : case 'PG' : case 'PS': case 'PU':
   gzcode = 3; break; /*6*/
  case 'BE' :    case 'CGS' : case 'F' :    case 'FSC' : case 'FSS' :
  case 'HC' :    case 'HS' :  case 'MSCH' : case 'NC' :  case 'NS' :
  case 'PSCH' :  case 'RV' :  case 'S' :    case 'SA' :  case 'SE' :
  case 'SEU' :   case 'SVV' : case 'T' :    case 'UB' :  case 'HST' :
   gzcode = 5; break; /*19*/
  case 'BL' :    case 'BS' :  case 'OS' :   case 'P' :   case 'SW' :
  case 'JV' :    case 'EUM' :
   gzcode = 7; break; /*5*/
  case 'OB' :    case 'OBA' : case 'OBS' :  case 'R' :   case 'RA' :
  case 'RS' : case 'HA' :
   gzcode = 9; break; /*6*/
  default :
   gzcode = 0; /*43*/
 }/*switch*/
 /*whole number too large, split it:*/
 var part1 = ger*1000 + gzcode*100 + ga;/* max 981 8aa */ /*06032003*/
 var part2 = zahl + jahr;/* max 9 999 9jj */
 var part1mod = part1 % 17;/*wasNumber( 06032003*/
 var num = part1mod.toString() + part2;/* max 169 999 9jj */
//alert(part1+' : '+part2+'\n'+num);
 num = Number(num) % 17;
 if (but) elem['PZ'+suff].value = pz.substr(num,1);
 return(pz.substr(num,1));
}
function setKatVars(doc) {/*get Kat1/2 vars from Notes field*/
 if (!doc.forms[0].elements['Kat1']) return;/*if Kat1 not in form*/
 if (!doc.forms[0].elements['PKat']) return;/*if PKat not in form*/
 allKat = doc.forms[0].elements['PKat'].value.split('~');
 for (var i=0;i<allKat.length;i++) allKat[i] = allKat[i].split('|');
 var kats = doc.forms[0].elements['Kat1'];/*set Kat1 w/o Domino encoding*/
 for (var i=0; i<allKat.length; i++) {/*Kat1[0] is --Bitte..--*/
//alert(kats.options[i+1].text);
  kats.options[i+1] = new Option(allKat[i][0],allKat[i][0]);
 }/*fo*/
}
function setKat2(sel) {/*set Kat2 options dep on selected Kat1 option*/
// sel: select object Kat1
 var kat2 = sel.form.elements['Kat2'];
 var num = kat2.options.length;
 for (var i=num-1; i>0; i-- ) kat2.options[i]=null;
 var kat2opt0 = new Option('--Keine Auswahl--','NUL');
 num = 0;
 for (var i=1; i<sel.options.length; i++) if (sel.options[i].selected) num++;
 /*more>1 option selected? (Suche only)*/
 if (num>1) {kat2.options[0] = kat2opt0;kat2.options[0].selected=true;return}
 var selind = sel.selectedIndex;
 /*--Bitte-- selected?*/
 if (selind<=0) {kat2.options[0] = kat2opt0;kat2.options[0].selected=true;return}
 var kat2opt = allKat[selind-1]; //eval(selval);
 if (kat2opt) ; else {alert('Kat2 Options not found');return};
 /*no suboptions avlbl?*/
 if (kat2opt.length==1) {kat2.options[0] = kat2opt0;kat2.options[0].selected=true;return}
 kat2opt0 = new Option('--Bitte wählen--','NUL');
 kat2.options[0] = kat2opt0;
 kat2.options[0].selected = true;
 for (var i=1; i<kat2opt.length; i++) {/*[0] is Kat1*/
  kat2.options[i] = new Option(kat2opt[i],kat2opt[i]);
 }
}
function setButImgHover(doc) {
 for (var j=0;j<doc.forms.length;j++) {/*16082004*/
  for (var i=0;i<doc.forms[j].elements.length;i++) {
   with (doc.forms[j].elements[i]) {
    if (type=='button' || type=='submit') {
     doc.forms[j].elements[i].onmouseover = omoCursorOn;/*NS6 needs full object*/
     doc.forms[j].elements[i].onmouseout = omoCursorOff;
    }/*if*/
   }/*with*/
  }/*i*/
 }/*j*/
// return;/*31122002 NS6*/
 var allimgs = '|';
 for (var i=0;i<doc.images.length;i++) {
  with (doc.images[i]) {
   if (name) {
    if (name.substr(0,4) != 'help') continue;
    doc.images[i].onmouseover = omoHover;
    doc.images[i].onmouseout  = omoUnhover;
    var newsrc = src.replace(/\.gif/i,'i.gif');/* xxx.gif -> xxxi.gif */
    if (allimgs.search(new RegExp(newsrc))>-1) continue;
    allimgs += newsrc + '|'; //alert(allimgs);
    var j = preloadImg.length;
    preloadImg[j] = new Image();
    preloadImg[j].src = newsrc;
   }/*if*/
  }/*wi*/
 }/*fo*/
}
var butbgcol = '#c0c0c0'; /*Windows button colour: #d4d0c8 or #c0c0c0*/
var butcol   = '#000000';
function omoCursorOn(but) {/*but:IE4 null,NS6 event; this:IE4,NS6 button*/
 if (this) but = this;
 if (but.style) {
  if (but.currentStyle) {/*IE*/
   butbgcol = but.currentStyle.backgroundColor;
   butcol = but.currentStyle.color;
  } else {/*FF*/
   butbgcol = but.style.backgroundColor;
   butcol = but.style.color;
  }
  but.style.cursor = 'hand';
  but.style.color = '#ffffff';
  but.style.backgroundColor = '#666666';
 }
}
function omoCursorOff(but) {
 if (this) but = this;
 if (but.style) {
  but.style.color = butcol;
  but.style.backgroundColor = butbgcol;
 }
}
function omoHover(himg) {/*himg:IE4 null,NS6 event; this:IE4,NS6 img*/
 if (this) himg=this;
 if (himg.src) {
  himg.src = himg.src.replace(/\.gif/i,'i.gif');
 }
}
function omoUnhover(himg) {
 if (this) himg=this;
 if (himg.src) {
  himg.src = himg.src.replace(/i\.gif/i,'.gif');
 }
}
function editMode(but) {
 var url = self.document.location.href;
 self.document.location.href = url.replace(/!open/i, '!Edit');
}
function empty(but) {
/*handle Checkbox,Radio,Select,Text,Textarea 10082004*/
/*leave  Button,FileUpload,Hidden,Password,Reset,Submit 10082004*/
 var type;/*avoid undefined msg for radio/checkbox*/
 var elem = but.form.elements;
 for (var i in fldns) {
  if (elem[fldns[i]]) {
   with (elem[fldns[i]]) {
    switch (type) {
     case 'text' :
     case 'textarea' : value = ''; break;
     case 'select-one' : selectedIndex = 0; break;
     case 'select-multiple' :
      for (var j=1;j<options.length;j++) options[j].selected = false;
      options[0].selected = true;
      break;
     default :
      if (length>0) {/*radio,checkbox 10082004*/
       for (j=0;j<length;j++)
        elem[fldns[i]][j].checked=false;
      }/*if*/
    }/*switch*/
   }/*with*/
  }/*if*/
  }/*for*/
 if (but.form.elements['Kat1']) setKat2(but.form.elements['Kat1']);/*recalc*/
}
function calwin(link,w,h,l,t) {/*open calendar window*/
 var hw=(w) ? w : 200;
 var hh=(h) ? h : 220;
 var hl=(l) ? l : 500;
 var ht=(t) ? t : 350;
 var calwindow=window.open(link,'calwindow',
  'menubar=no,toolbar=no,scrollbars=no,resizable=no,left='+
  hl+',top='+ht+',width='+hw+',height='+hh);
 calwindow.focus();
}
function helpwin(link,w,h,l,t) {/*open help window*/
 var hw=(w) ? w : screen.width-300;
 var hh=(h) ? h : screen.height-300;
 var hl=(l) ? l : 100;
 var ht=(t) ? t : 100;
 var helpwindow=window.open(link,'helpwindow',
  'menubar=yes,toolbar=yes,scrollbars=yes,resizable=yes,left='+
  hl+',top='+ht+',width='+hw+',height='+hh);
 helpwindow.focus();
}
function imgwin(link, wid, hei, l, t) { 
/*test with EX, BM, public and www.sv. and LN03 !!!*/
/* if wid/hei not avlbl, use  750x500 */
/* if left/top not avlbl, use  50,50 */
 var w = wid ? wid : 750;
 var h = hei ? hei : 500;
 w = Math.min( w + 40, screen.width-100);
 h = Math.min( h + 40, screen.height-100);
 var hl=(l) ? l : 50;
 var ht=(t) ? t : 50;
 self.status = 'Bild wird geladen b='+w+', h='+h;
 var path = self.location.pathname;
 var modlink = link.replace(/\+/g,'%2b').replace(/\#/g,'%23');/*escape + # chars*/
/*old Bekinsolvpub uses relative urls to itself, new EX31 absolute urls to Obj31*/
 if ( modlink.search(/\.nsf\//i)<0 ) { /*no .nsf/, relative url*/
  path = path.replace( /\.nsf\/.*/i , '.nsf/');/*take current path*/
  modlink = path + modlink;
 }
 var imgwindow=self.open( modlink ,'imgwindow',
  'menubar=yes,toolbar=no,scrollbars=yes,resizable=yes,dependent,'+
  'left='+hl+',top='+ht+',width='+w+',height='+h);
/*keep https to avoid IE "you are leaving..." msg if on Edikte230*/
/*not necessary if img is 'proloaded' like above*/
// modlink = self.location.protocol + '//' + self.location.host + modlink;
 var txt = "Klicken Sie hier zum Schließen des Fensters";
 imgwindow.document.open('text/html');
 imgwindow.document.writeln('<html><head><title>' + self.document.title + '</title></head>');
 imgwindow.document.writeln('<body><a href="javascript:self.close()" title="' + txt + '">');
 imgwindow.document.writeln('<img border="0" src="'+modlink+
   '" alt="' + txt + '"></a></body></html>');
 imgwindow.document.close();
 imgwindow.focus();
 return;
}/*imgwin*/
function imgwinold(link) {
 img = new Image();
 var modlink = link.replace(/\+/g,'%2b').replace(/\#/g,'%23');/*16022005*/
 var appname = (navigator) ? ((navigator.appName) ? navigator.appName : 'unk') : 'unk';
 img.src = (appname.indexOf('Explorer')>-1) ? modlink : unescape(modlink); // NS/Opera don't unescape, so get rid of escapes, esp %252B -> %2B
 window.status='Bild wird geladen';
 count = 1;
 setTimeout(chkimg, msec);
}
function chkimg() {
 if (img.complete) {
  var w = Math.min( img.width + 40, screen.width-140);
  var h = Math.min( img.height + 40, screen.height-140);
  var imgwindow=window.open('/edikte/ex/edparm3.nsf/dummy!OpenPage','imgwindow',
  'menubar=yes,toolbar=no,scrollbars=yes,resizable=yes,dependent,left=100,top=100,'+
  'width='+w+',height='+h);
  imgwindow.document.open('text/html');
  imgwindow.document.writeln('<html><head><title>Bild</title></head>');
  imgwindow.document.writeln('<body><a href="javascript:window.close()">');
  imgwindow.document.writeln('<img border=0 src="'+img.src+
  '" alt="Klicken Sie hier zum Schließen des Fensters"></a></body></html>');
  imgwindow.document.close();
  window.status='Bild geladen in '+count+' Zyklen';
  imgwindow.focus();
 } else {
  count += 1;
  setTimeout(chkimg, msec);
 };
}
function closeback() {
 if (window.name=='helpwindow') {self.close()}
 else {history.go(-1)}
}
function ws(txt) {/*set window status text*/
 window.status=txt;
 return true;
}
function right(num) {/*@Right*/
 return this.substr( this.length-num );
}
function rightC(str) {/*@Right*/
 return this.substr( 1+this.lastIndexOf(str) );
}
function dispSelect(sel) {/* display Selection object*/
 var result = sel.name+':<br>\n';
 for (var i=0;i<sel.options.length;i++) {
  result += sel.options[i].text + ': ' + sel.options[i].value +
  (sel.options[i].selected ? ' +++':'') + '<br>\n';
 }
 if (tracewin) tracewin.document.writeln(result); else alert(result);
}
function toggleDisplay(id,onoff) {
	if (self.document.all) {
		var st = self.document.all[id].style;
		st.display = onoff ? 'block' : 'none';
	}
	else	{
		var st =self.document.getElementById(id).style;
		st.display = onoff ? 'block' : 'none';
	}
}
function noenter() {/* disable submit by enter */
 return !(window.event && window.event.keyCode == 13); 
}
function printObj(obj) {
 if (obj==null) {alert('NULL');return false;}
 var result='';
 if (obj.name) result+= 'NAME: '+obj.name+'\n';
 if (obj.id) result+= 'ID: '+obj.id+'\n';
 for (var i in obj){result+=i+': '+obj[i]+'\n';}
 alert(result);
}
function printObjW(obj) {
	var result='';
	var newwindow=window.open("","printObjW")
	for (var i in obj){result+=i+': '+obj[i]+'<br>';} newwindow.document.write(result);
	newwindow.document.close();
}
function setHtml(id,value,alrt) {/*if can't set, alert if alrt*/
 var doc = document;
 if (doc.getElementById) {
  doc.getElementById(id).innerHTML = value; }
 else if (doc.all) {
  doc.all[id].innerHTML = value; }
 else {
  if (alrt)
   alert(value.replace(/<strong>|<\/strong>|<b>|<\/b>/gi,'').replace(/<br>/gi,'\n'));
 }
}
function showId(id,doc) {
 if (doc.getElementById)
  doc.getElementById(id).style.display='block';
 else
  if (doc.all)
   doc.all[id].style.display='block';
}
function hideId(id,doc) {
 if (doc.getElementById)
  doc.getElementById(id).style.display='none';
 else
  if (doc.all)
   doc.all[id].style.display='none';
}
function formatDateField(field) {
/* Field validation and padding with leading 0  */
/* Prereq: function dateFormat in valid0.jsf, function right  */
	var origdat = field.value;
	if (dateFormat.isValid(origdat)) {
		var match = dateFormat.regexp.exec(origdat)
		var newdat = ('00' + match[dateFormat.dayix]).right(2)+'.'+ ('00' + match[dateFormat.monthix]).right(2)+'.'+ ('0000' + match[dateFormat.yearix]).right(4);
		field.value = newdat;
	}
}
function formatDate(datestring) {
/* Field validation and padding with leading 0  */
/* Prereq: function dateFormat in valid0.jsf, function right  */
	var origdat = datestring;
	if (dateFormat.isValid(origdat)) {
		var match = dateFormat.regexp.exec(origdat)
		var newdat = ('00' + match[dateFormat.dayix]).right(2)+'.'+ ('00' + match[dateFormat.monthix]).right(2)+'.'+ ('0000' + match[dateFormat.yearix]).right(4);
		return(newdat)
	}
}