// (c) SW-Tools 2000 ico/common.js
function wif(a) // Testprint
{ if (typeof(wifw)=="undefined" || !wifw) wifw=window.open('','wifwin','scrollbars=yes,resizable=yes');
w=wifw.document;
w.writeln(a+"
");
}
function kok(navn,val) // Cookie Read: x=kok("a"), Write: kok("a",x), Delete: kok("a",""), ReadFirst: x=kok()
{
var r,i,koks,expir,na;
r=""; // Returnvalue
if (document.cookie!="") // Read it
{ koks=document.cookie.split(";");
for (i=0; i ;
r=r.replace(/\%3d/g,"="); // %3d -> =
r=r.replace(/\%2c/g,","); // %2c -> ,
r=r.replace(/\%0d/g,"\015"); // lf -> %0d
r=r.replace(/\%0a/g,"\012"); // cr -> %0a
break;
}
}
}
if (typeof(val)=="undefined" || val==null) return(r); // Just getit
expir=new Date; i=val=="" ? -1 : 1; // Delete by pulling expiration down
expir.setFullYear(expir.getFullYear()+i); // New expires in one year
val=val.replace(/\012/g,"%0a"); // cr -> %0a
val=val.replace(/\015/g,"%0d"); // lf -> %0d
val=val.replace(/\,/g,"%2c"); // , --> %2c
val=val.replace(/\=/g,"%3d"); // = --> %3d
val=val.replace(/\;/g,","); // ; --> ,
if (document.domain) val+="; domain="+document.domain; // All paths in this domain
val+="; path="+"/";
//val+="; secure="+"0";
document.cookie=navn+"="+val+";expires="+expir.toGMTString();
return(val);
}
function put(nr,str,val,sep) // csv_put(nr,str,val)
{
var j,m,r,x;
if (nr<=0) return("");
if (typeof(str)=="undefined" || str==null) str="";
if (typeof(val)=="undefined" || val==null) val=""; else val=""+val;
if (typeof(sep)=="undefined" || sep==null) sep=";", val=val.replace(/\;/g,","); // ; --> ,
val=val.replace(/\;/g,"%3b"); // ; -> %3b
for (x=str.split(sep),x[nr-1]=val,j=0,m=0,r=""; j=x.length || typeof(x[nr])=="undefined" || x[nr]==null) return("");
x=x[nr].replace(/\%3b/g,";"); // %3b -> ;
return(x);
}
function kokload(felt) // put/get all fields in a form
{
var form,txt,i;
if (typeof(felt.form)!="undefined") //
{ form=felt.form, txt=kok(form.name);
if (txt.length)
for (i=0; i