// ordbok.lagom.nl - form input helper functions -*- coding:iso-8859-1 -*-

var Q, F;
var framed = 0;

// onload
var dl, tl;
function ff() {
    // set form focus
    ffocus_select();
    
    // are we framed?
    dl = window.location;
    tl = top.location;
    
    // try/catch block since Opera does not allow reading of
    // variables belonging to other web sites
    var externalframe=0;
    try { x = tl.href; }
    catch (e) {
    	  allowed = document.referrer.match(RegExp("^http://www.lexicool.com/", ""));
    	  externalframe = (!allowed);
    }
    if (!externalframe && tl.href != dl.href) {
	tlhref = tl.href;
	if (!tlhref.match(RegExp("^http://(localhost|ordbok2?\.lagom\.nl)/", ""))) {
	    externalframe = 1;
	}
    }
    if (externalframe) {
       setTimeout("tl.href = dl.href;", 2000);
    }

}

// set focus
function ffocus() { F=document.f; Q = F.q; Q.focus(); }
function ffocus_select() { ffocus(); Q.select(); }

// add letter to form
function addlet(ch) { Q.value += ch; ffocus(); }

// replace {}| []\ by Swedish letters
function flet() {
    Q.value = Q.value.replace(/\}/g, "Å");
    Q.value = Q.value.replace(/\{/g, "Ä");
    Q.value = Q.value.replace(/\|/g, "Ö");
    Q.value = Q.value.replace(/\]/g, "å");
    Q.value = Q.value.replace(/\[/g, "ä");
    Q.value = Q.value.replace(/\\/g, "ö");
    Q.value = Q.value.replace(/a°/g, "å");
    Q.value = Q.value.replace(/°a/g, "å");
    Q.value = Q.value.replace(/^ */, "");
    //    Q.value = Q.value.replace(/ *$/, "");

    // radio buttons /n /s /z
    nq = Q.value.replace(/ *\/n/i, "");
    if (nq != Q.value) {
	F.l[0].checked = false;
	F.l[1].checked = true;
	Q.value = nq;
    }
    nq = Q.value.replace(/ *\/[zs]/i, "");
    if (nq != Q.value) {
	F.l[0].checked = true;
	F.l[1].checked = false;
	Q.value = nq;
    }
    
}