set_stylesheet();

// Tries to find the sting "pat" inside the sting "str".
// Returns: Index of the first occurance, -1 if not found.
// I use this function, because string::search isn't working
// correctly in opera 4!
function search(str, pat)
{
    var patpos=0;

    for(var i=0 ; i<str.length ; i++) {
	if(str.charAt(i) == pat.charAt(patpos)) {
	    patpos++;

	    if(patpos >= pat.length)
		return i-pat.length+1;
	} else {
	    patpos = 0;
	}
    }

    return -1;
}

function set_stylesheet()
{
    var css = "opera.css";

    if (navigator.appName == "Microsoft Internet Explorer") {
	css = "ie.css";
    } else if(navigator.appName == "Netscape") {
	if(search(navigator.userAgent, "Opera") != -1 &&
	   search(navigator.userAgent, "BeOS") != -1) {
	    // BeOS version of Opera
	    css = "opera.css";
	} else {
		// Netscape or Windows Opera
	    css = "netscape.css";
	}
    }

    document.writeln('<LINK REL="stylesheet" HREF="common/' + css + '">');
}
