var dbug=0;

function d_a(ary) {
var beg = next_entry(ary) - 1; 
for (var i = beg ; i > -1; i--) {
ary[i] = null;
}
}

function init_array() {
var ary = new Array(null); 
return ary;
} 

function set_cookie (name,value) {
document.cookie = name + '=' + escape(value) + '; path=/';
}

function get_cookie(name) {
if (dbug) {alert('get_cookie'); }
var dcookie = document.cookie; 
var cname = name + "="; 
var clen = dcookie.length; var cbegin = 0; 
while (cbegin < clen) {
var vbegin = cbegin + cname.length;
if (dcookie.substring(cbegin, vbegin) == cname) {
var vend = dcookie.indexOf (";", vbegin); 
if (vend == -1) vend = clen; return unescape(dcookie.substring(vbegin, vend));
}
cbegin = dcookie.indexOf(" ", cbegin) + 1; if (cbegin == 0) break;
} return null;
}

function del_cookie(name) {
if (dbug) alert('del_cookie');
document.cookie = name + '=' + '; expires=Thu, 01-Jan-70 00:00:01 GMT; path=/';
}

function get_array(name, ary) {
d_a(ary); 
var ent = get_cookie(name); 
if (ent) {
i = 1; 
while (ent.indexOf('^') != '-1') {
ary[i] = ent.substring(0,ent.indexOf('^')); 
i++;
ent = ent.substring(ent.indexOf('^')+1, ent.length);}
}
} 

function set_array(name, ary, nofitems) {
var value = ''; 
for (var i = 1; i<=nofitems; i++) {
value = value + ary[i] + '^';
}
set_cookie(name, value);
}
 
function debug_on() {
dbug = 1;
}

function debug_off() {
dbug = 0;
}

function dump_cookies() {
if (document.cookie == '') document.write('No Cookies Found'); 
else {
thisCookie = document.cookie.split('; ');
for (i=0; i<thisCookie.length; i++) {
document.write(thisCookie[i] + '<br \/>');
}
}
}

function next_entry(ary) {
if (dbug) alert('next_entry');
var j = 0; 
for (var i = 1; ary[i]; i++) {
j = i
}
return j + 1;
}