MAXCOL  = 8;
MAXROW  = 8;
CLEAVER = "^";

function getcookie(cookiename)
{ if (document.cookie.length > 0)
  { begin = document.cookie.indexOf(cookiename+"=");
    if (begin != -1)
    { begin += cookiename.length+1;
      end = document.cookie.indexOf(";",begin);
      if (end == -1) end = document.cookie.length;
      return unescape(document.cookie.substring(begin, end));
    }
  }
  return "";
}  	

function eatcookie(cookiename)
{ if (getcookie(cookiename))
  { document.cookie = cookiename + "=" + 
    "; expires=Thu, 01-Jan-70 00:00:01 GMT";
  }
}

function bakecookie(cookiename, value, expiredays)
{ var ExpireDate = new Date();
  ExpireDate.setTime(ExpireDate.getTime() + (expiredays*24*3600*1000) );
  document.cookie = cookiename + "=" + escape(value) + 
    ((expiredays == null) ? "":";expires=" + ExpireDate.toGMTString());    
}

function getbasket(abasket)
{ 
  var t1=getcookie("a");
  begin=0;
  end=-1;
  for (var i=0;i<=MAXROW;i++)
  {
    for (var j=0;j<=MAXCOL;j++)
    { 
      if ((end+1)<t1.length)          
      {
        begin = end+1;        
        if (t1.indexOf(CLEAVER,begin) == -1) end = t1.length;
        else end = t1.indexOf(CLEAVER,begin);
        if (begin < end) 
        { abasket[i][j] = t1.substring(begin, end);
          continue;
        }
      }
      abasket[i][j]="";
    }
  }
}

function savebasket(abasket)
{ 
  var t1="";
  var j=0;
  var t2="";
  for (var i=0;i<=MAXROW;i++)
  { 
    for (j=0;j<=MAXCOL;j++)
    {
      while (abasket[i][j].indexOf(CLEAVER) > -1)
        abasket[i][j]=abasket[i][j].substring(0,a.indexOf(CLEAVER))
        +"`"+abasket[i][j].substring(abasket[i][j].indexOf(CLEAVER)+1);
      t1=t1+abasket[i][j]+CLEAVER;
    }
  }
  bakecookie("a",t1,1);
}

function showbasket()
{
  var abasket=new Array(new Array(), new Array(),new Array(),new Array(),
   new Array(),new Array(),new Array(),new Array(),new Array(),new Array());
  getbasket(abasket);
  document.write("<BR>showbasket");
  for (var i=0;i<=MAXROW;i++)
  {
    document.write("<br>");
    for (var j=0;j<=MAXCOL;j++)
    {
      document.write(i);document.write(j);
      document.write(abasket[i][j]+CLEAVER)
    }
  }
}

function eatbasket()
{
  eatcookie("a");
}

function additem(a1)
{
  var abasket=new Array(new Array(), new Array(),new Array(),new Array(),
           new Array(),new Array(),new Array(),new Array(),new Array());
  var dupsOK  = 0;
  var col = 1;
  getbasket(abasket);
  for (var row=1;row<=MAXROW;row++)
  { 
    if (abasket[row][1]=="")
    { // if the quantity is 0 exit
      if (a1[2]=="0") return 0; 
      //existing SKU not found and new item qty is 0
      for (col=1;col<=MAXCOL;col++) abasket[row][col]=a1[col];
      savebasket(abasket);
      break;
    }
    else
    { 
      if (abasket[row][1] == a1[1] && dupsOK == 0)
      {
        if (a1[2]=="0")
        { //sku,qty,price,desc 
          if (confirm("Click OK to remove\nItem: "+abasket[row][4]
            +"\nQuantity: "+abasket[row][2]+
            "\nfrom your shopping cart"))
          {
            eatitem(row);
          }
          return -1;
        }      
        if (confirm("This item is already in your shopping cart.\n"+
                    "Click OK to replace it or Cancel to add another."))
        { for (col=1;col<=MAXCOL;col++) abasket[row][col]=a1[col];       
          savebasket(abasket);
          break;
        } 
        dupsOK = 1;
      }
    }
  }
  if (row==MAXROW+1)
  { 
   alert("This item was not added to your shopping cart\n"+
         "because your Shopping Cart is full.\n"+
         "Please check out before adding more items.");
   return 0;
  }
  return 1;
}

function eatitem(linenumber)
{
  var abasket=new Array(new Array(), new Array(),new Array(),new Array(),
            new Array(),new Array(),new Array(),new Array(),new Array());
  var f1=1;
  getbasket(abasket);
  for (var row=linenumber;row<=MAXROW;row++)
  { 
    if ((linenumber==row) || (row==MAXROW && f1==0))
    {
      for (col=1;col<=MAXCOL;col++) abasket[row][col]="";
      f1=0;
    }
    if (f1==0 && row<MAXROW)
    {
      for (col=1;col<=MAXCOL;col++) abasket[row][col]=abasket[row+1][col];
    }
  }
  savebasket(abasket);
}

function ValidInt(vit)
{
 var ValidIntText=""+vit
 if (ValidIntText.length == 0 || ValidIntText == null || 
     ValidIntText == "")  return "";
 var intstring = "";
 var altstring = "";
 var qcharacter = "";
 for (var i = 0; i < ValidIntText.length; i++)
 {
   qcharacter = ValidIntText.substring(i, i + 1);
   if ((qcharacter<"0"||qcharacter>"9")&&qcharacter!=" ") return "";
   if (qcharacter=="0") altstring="0";
   if ((intstring!=""||qcharacter!="0") && (qcharacter!=" ")) intstring+=qcharacter;
   if (qcharacter==" " && (intstring!="" || altstring=="0")) break;
 }
 if (intstring=="" && altstring=="0") return altstring;
 else return intstring;
}

function AddToOrder(obj)
{
 var form = obj.form;
 if (form.amt.value=="NA") 
 {
  alert("This item is not currently available");
  form.qty.value="0";
  return;
 }
 if ((0+form.amt.value)<=0) 
 {
  alert("Please Call to order this item");
  form.qty.value="0";
  return;
 }
 var AddToOrderQty=ValidInt(form.qty.value);
 if (AddToOrderQty=="") 
 {
  alert("Please enter a valid quantity");
  form.qty.value="0";
  return;
 }
 var tcolor="";
 var tsize="";
 var tlbs="";
 for (var i=0;i<form.elements.length;i++)
 {
   if (form.elements[i].name=="color") tcolor=form.elements[i].value;
   if (form.elements[i].name=="size") tsize=form.elements[i].value;
   if (form.elements[i].name=="weight") tlbs=form.elements[i].value;
 }
 // empty,sku,quantity,amount,description,calling page,color,size,weight
 var itemtoadd=new Array("",form.sku.value,AddToOrderQty,
                         form.amt.value,form.desc.value,
                         document.location+"",tcolor,tsize,tlbs);
 var f1=additem(itemtoadd);
 if (f1==1)
   {
     alert("You have added the following to your order"+
           "\nItem: "+form.desc.value+" "+tsize+" "+tcolor+
           "\nPrice per Item: "+form.amt.value+
           "\nQuantity: "+AddToOrderQty
          );
   }
 form.qty.value="0";
}

function RemoveFromOrder(line)
{
 eatitem(1*line);
 ReLoadItems();
}

function RemoveAllItems()
{
 for (var i=1;i<=MAXROW;i++) eatitem(1);
 ReLoadItems();
}

function FixLength(s2,n2)
{
  var n1=0+n2;
  var s1=""+s2;
  if (s1.length>(n1-1))
  { s1=s1.substring(0,n1);
  }
  else
  {
   while (s1.length<n1) s1=s1+" ";
  }
  return s1;
}


function ReLoadItems()
{
  var i=0; var v1=0; var v2=0; var f1=0; var f2=0; var f3=0; var f4=0; var f5=0; var f6=0; var f7=0; var f8=0;var f9=0;
  for (var j=0;j<document.forms.length;j++)
  {
    for (i=0;i<document.forms[j].elements.length;i++)
    { 
      if (document.forms[j].elements[i].name=="description1") {f1=j; v1=i};
      if (document.forms[j].elements[i].name=="description2") {v2=i};
      if (document.forms[j].elements[i].name=="sku1") f2=i;
      if (document.forms[j].elements[i].name=="color1") f3=i;
      if (document.forms[j].elements[i].name=="size1") f4=i;
      if (document.forms[j].elements[i].name=="price1") f5=i;
      if (document.forms[j].elements[i].name=="quantity1") f6=i;
      if (document.forms[j].elements[i].name=="subtot1") f7=i;
      if (document.forms[j].elements[i].name=="weight1") f8=i;
      if (document.forms[j].elements[i].name=="STATETAX") f9=i;
    }
    if (v2>0) break;
  }
  if (v2==0) return;
  var abasket=new Array(new Array(), new Array(),new Array(),new Array(),
   new Array(),new Array(),new Array(),new Array(),new Array(),new Array());
  getbasket(abasket);
  var row=0; var a2=0;
  for (j=v1;j<v1+MAXROW*(v2-v1);j=j+v2-v1)
  {
    row=row+1;
    document.forms[f1].elements[j].value=FixLength(abasket[row][4],document.forms[f1].elements[j].size)   ; //description
    if (f2!=0) document.forms[f1].elements[j+f2-v1].value=FixLength(abasket[row][1],document.forms[f1].elements[j+f2-v1].size); //"part number"
    if (f4!=0) document.forms[f1].elements[j+f4-v1].value=FixLength(abasket[row][7],document.forms[f1].elements[j+f4-v1].size); //"size";
    if (f3!=0) document.forms[f1].elements[j+f3-v1].value=FixLength(abasket[row][6],document.forms[f1].elements[j+f3-v1].size); //"color";
    if (f6!=0) document.forms[f1].elements[j+f6-v1].value=FixLength(abasket[row][2],document.forms[f1].elements[j+f6-v1].size); //"qty";
    if (f5!=0) document.forms[f1].elements[j+f5-v1].value=FixLength(abasket[row][3],document.forms[f1].elements[j+f5-v1].size); //"price";
    if (f8!=0) document.forms[f1].elements[j+f8-v1].value=FixLength(abasket[row][8],document.forms[f1].elements[j+f8-v1].size); //"weight";
    if (f7!=0) 
    {
      if (abasket[row][3]=="") document.forms[f1].elements[j+f7-v1].value=""; //subtot
      else 
      {
//		alert(abasket[row][3]+" "+abasket[row][2]+" "+FormInt(abasket[row][3]));
            document.forms[f1].elements[j+f7-v1].value=
            FormAmt(""+(FormInt(abasket[row][3])*abasket[row][2]),10);
//		alert(            document.forms[f1].elements[j+f7-v1].value);
      }
    }
    a2=a2+FormInt(abasket[row][3])*abasket[row][2];
//    alert(a2);
  }
  //   empty,sku,quantity,amount,description,calling page,color,size,weight
  // a2=subtotal a3=tax a4=shipping a5=special a6=total  *100 a7=discount
  var a3=0;var a4=0;var a5=0;var a7=0;
  document.forms[f1].subtotal.value=FormAmt(a2,10);
  // DISCOUNT DISCOUNT DISCOUNT DISCOUNT DISCOUNT DISCOUNT at 25 percent off
  // if (a2>9999) a7=a2*0.200 ;
  // DISCOUNT $100 20%, 500 25 1000 30
  // if (a2>9999) a7=a2*.20;
  // if (a2>49999) a7=a2*.25;
  // if (a2>99999) a7=a2*.30;
  // TAX RATE TAX RATE TAX RATE TAX RATE TAX RATE TAX RATE TAX RATE TAX RATE
  //  at 8 percent a3=a2*.0800 +.49
  // at 8.25 percent a3=a2*.0825 +.5
  if (f9>0) {
     if (document.forms[f1].STATETAX[0].checked) a3=(a2-a7)*.0825 +.5 ;
  }
  // SHIPPING SHIPPING SHIPPING SHIPPING SHIPPING SHIPPING SHIPPING SHIPPING 
  var rates=new Array(2000,700,4999,800,7499,900,9999,1000,19999,1250);
  for (var i1=0;(i1<rates.length)&&(a2>0);i1=i1+2)
  {
    if (a2<1*rates[i1])
      { a4=1*rates[i1+1];
        break;
      }
  }
  //Blanket percentage if the rates above did not apply
  if ((a4==0)&&(a2>0)) a4=a2*.10+.5;
  a5=1*ValidInt(100*document.forms[f1].special.value);
  document.forms[f1].discount.value=FormAmt(-a7,10);
  document.forms[f1].tax.value=FormAmt(a3,10);
  document.forms[f1].shipping.value=FormAmt(a4,10);
  document.forms[f1].special.value=FormAmt(a5,10);
  document.forms[f1].total.value=FormAmt(a2+a3+a4+a5-a7,10);
  // future: add link back to originating page and auto determine length of FormAmt fields.
}

function FormAmt(s2,n2) //expects value*100
{
  var n1=n2;
  var s1=""+s2;
  if ((0+s2)==0) s1="000";
//  alert("FormAmt "+s2+" "+s1);
  if (s1=="") return "";
  if (s1.indexOf(".") > -1) s1=s1.substring(0,s1.indexOf("."));
  if (0+s1==0) s1="000";
  if (s1.length>=n1) n1=s1.length+1;
  while (s1.length<(n1-1)) s1=" "+s1;
  s1=s1.substring(0,n1-3)+"."+s1.substring(n1-3);
  return s1;
}

function FormInt(s2) //returns value*100
{
  var s1=""+s2+"00";
  var n1=0;
//  alert("FormInt "+s2+" "+s1+" "+s1.substring(0,s1.indexOf("."))+" "+s1.substring(s1.indexOf("."),2));
  if ((0+s2)==0) s1="000";
  if (s1=="") return "";
  if (s1.indexOf(".") > -1)
  {
   n1=s1.indexOf(".")+2;
   s1=s1.substring(0,s1.indexOf("."))+s1.substring(s1.indexOf(".")+1);
   s1=s1.substring(0,n1);
  }
  if (0+s1==0) s1="000";
//  alert("FormInt "+s2+" "+s1);
  n1=0+s1
  return n1;
}



function ChgQty(n1)
{
  var i=0; var v1=0; var v2=0; var f1=0; var f6=0;
  for (var j=0;j<document.forms.length;j++)
  {
    for (i=0;i<document.forms[j].elements.length;i++)
    { 
      if (document.forms[j].elements[i].name=="sku1") {f1=j; v1=i}
      if (document.forms[j].elements[i].name=="sku2") {v2=i; break}
      if (document.forms[j].elements[i].name=="quantity1") f6=i;
    }
    if (v2>0) break;
  }
  if (v2==0) return;
  var qty=document.forms[f1].elements[(v2-v1)*(n1-1)+f6].value;
  if (1*qty<=0 || (ValidInt(qty)=="")) RemoveFromOrder(n1);
  else
  { //change quantity
    var abasket=new Array(new Array(), new Array(),new Array(),new Array(),
              new Array(),new Array(),new Array(),new Array(),new Array());
    getbasket(abasket);
    if ((0+abasket[n1][2]!=0+qty) && (abasket[n1][1]!=""))
    {
      abasket[n1][2]=ValidInt(qty);    
      savebasket(abasket);
      ReLoadItems();
      // Future: seperate items and calc - then only change amt here
    }
    else document.forms[f1].elements[(v2-v1)*(n1-1)+f6].value=abasket[n1][2];
    
  }
}

function PleaseCall()
{
alert("Please call to order this item");
}