// global variables to form MY addresses
var pref = ""; // special prefix, or ""
var at1 = "@";
var dot = ".";
var typ = "com";
var id3 = "buy";    // real id1
var id4 = "art";    // real id2
var url1 = "sheiladejohn";       // real URL
var id1 = "h2o";    // real id1
var id2 = "color";    // real id2
var url = "bendcable";       // real URL
var fid1 = "art";      // fake id1
var fid2 = "buy"    // fake id2
var furl = "sheiladejohn";    // fake URL

function FixBusi (obj1) {  // PayPal FORM business value
var tmp;
  if (obj1.business) {     // see what is in this form 
    tmp = obj1.business.value;
    obj1.business.value = id1 + id2 + at1 + url + dot + typ;

  }
  return true;             // make it work...
}

function FixLink (obj1) {  // fix any PayPal link in calling FORM
var tmp,org,ary=new Array();
  for (i=0; i<obj1.length; i++) {  // run whole FORM
    obj = obj1.elements[i];        // address an element
alert(obj.name);
    org = obj.value;
    tmp = org;  // place holder
    ary = tmp.split (furl);  // do we have a fake
    if (ary.length > 1) {    // still a fake
      tmp = ary.join (pref + url);
      obj.value = tmp;
alert("Fix URL... \n\n" +
      obj.name + " value was ... \n   " + org + "\n\n\n" +
      "New value IS  ... \n   " + tmp);
    }
    org = tmp;  // any more stuff to fix?
    ary = tmp.split (fid1 + fid2);  // have a fake ID here?
    if (ary.length > 1) {    // still a fake
      tmp = ary.join (id1 + id2);
      obj.value = tmp;
alert("Fix ID... \n\n" +
      obj.name + " value was ... \n   " + org + "\n\n\n" +
      "New value IS  ... \n   " + tmp);
    }
  }
}

function FixMail (obj1) {  // fix a hyperlink mail addr
var tmp;
  tmp = obj1.href;
  obj1.href = "mailto:" + id1 + id2 + at1 + url + dot + typ;
  return true;             // make it work...
}
function FixMail1 (obj1) {  // fix a hyperlink mail addr
var tmp;
  tmp = obj1.href;
  obj1.href = "mailto:" + id3 + id4 + at1 + url1 + dot + typ;
  return true;             // make it work...
}

var ac = 0;    // table for qty/amt pairs
var aqty = new Array ();  // qty brkpt
var aamt = new Array ();  // amount to charge

var pc = 0;    // table for qty/percent pairs
var pqty = new Array ();  // qty brkpt
var pper = new Array ();  // percent to discount

function Dollar (val) {  // force to valid dollar amount
var str,pos,rnd=0;
  if (val < .995) rnd = 1;  // for old Netscape browsers
  str = escape (val*1.0 + 0.005001 + rnd);  // float, round, escape
  pos = str.indexOf (".");
  if (pos > 0) str = str.substring (rnd, pos + 3);
  return str;
}

function ReadForm (obj1) { // quantity based discounts
var i,amt,des,qty;
  amt = obj1.baseamt.value*1.0; // base amount
  des = obj1.basedes.value;     // base description
  qty = obj1.qty.value;         // get user quantity
  if (isNaN (qty) || qty < 1) { // make sure it's good
    alert ('"' + qty + '"' + ' is not a valid number!');
    ac = 0;                     // always zap the table
    pc = 0;
    return false;               // th-th-that's all, folks.
  }
  qty = qty*1.0;                // force to numeric

  for (i=ac-1; i>=0; i=i-1) {   // run table backwards
    if (qty >= aqty[i]) {       // use this entry
      amt = aamt[i];            // this is the real amount
      break;                    // get out, we're done
    }
  }
  for (i=pc-1; i>=0; i=i-1) {   // run table backwards
    if (qty >= pqty[i]) {       // use this entry
      amt = amt - (amt/100.0 * pper[i]);
      break;                    // get out, we're done
    }
  }

  obj1.item_name.value = des + ", package of " + qty + " items @" +
                         Dollar (amt) + " each.";
  obj1.amount.value = Dollar (amt * qty);
  ac = 0;  // reset item discount
  pc = 0;
}

function SetAmt (q1, a1) {  // set up a quantity-based amount table
var i;
  ac = 0;
  for (i=0; i<arguments.length; i=i+2) {  // build the table
    aqty[ac] = arguments[i];   // get real args and store 
    aamt[ac] = arguments[i+1];
    ac = ac + 1;               // number of pairs in table
  }
}

function SetPer (q1, p1) {  // set up a quantity-based percent table
var i;
  pc = 0;
  for (i=0; i<arguments.length; i=i+2) {  // build the table
    pqty[pc] = arguments[i];   // get real args and store 
    pper[pc] = arguments[i+1];
    pc = pc + 1;               // number of pairs in table
  }
}