// Cookie Toolbox Javascript
// copyright 4th September 2002, by Stephen Chapman, Felgall Pty Ltd

// Modified for BOA with standard fields:
// [1] Name
// [2] BOA Number
// [3] Email address
// [4] ZIP Code
// [5] Spc Field REF
// [6] Spc Field Value
// ------------------------------------------
// For instructions on how to use these functions see "A Cookie Toolbox"
// in the Javascript section of http://www.felgall.com/
//

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() {
if (dbug) alert('init_cookie');
var ary = new Array(null);
return ary;}

function set_cookie(name,value,daysexpr) {
if (dbug) alert('set_cookie');
var today = new Date();
var expires = new Date(today.getTime()+daysexpr*24*60*60*1000);
document.cookie = name + '=' + escape(value) + '; expires=' + expires.toGMTString() + '; 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) {
if (dbug) alert('get_array');
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, expires) {
  if (dbug) alert('set_array');
  var value = '';
  for (var i = 1; ary[i]; i++) {
    value += ary[i] + '^';
    }
  set_cookie(name, value, expires);
  }

function del_entry(name, ary, pos, expires) {
  if (dbug) alert('del_entry');
  var value = '';
  get_array(name, ary);
  for (var i = 1; i < pos; i++) {
    value += ary[i] + '^';
    }
  for (var j = pos + 1; ary[j]; j++) {
    value += ary[j] + '^';
    }
  set_cookie(name, value, expires);
  }

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

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 \/>');
      }
    }
  }



// <script type="text/javascript" src="cookieToolbox.js"></script>