//
// Powder Inc. script for ordering blackpowder.
// All rights reserved, copyright 2002 Powder Inc.
// 2002-11-10 -- bk -- New page
/// 2006-01-25 - bk - Change to PerlShop 4.5.01
//
var // Global values
   PIsum = 0;
   PIprice5 = 0;
   PIprice10 = 0;
   PIprice25 = 0;
   PIprice12 = 0;
   PIprice24 = 0;
   PIorder_descr = "";
   PIinit = false;
   ReleaseFile = -1;
   fullCartonMax = 0;
   
// common js code for network
//Clear inherited frames  
if (parent != self) {
                top.location=self.document.location;
}


function PI_Init() {
   var i;
   if (PIinit) return;

   PIinit = true;

 
} // PI_Init()


function PI_Check_Release (name,msg) {
   var retry = true;
   while (retry) {
      retry--;
      if (document.powder[name].value == "") {
	     document.powder[name].value 
		  = window.prompt(msg + ":\n", document.powder[name].value);
	  } else {
	     retry = false;
      }
   }	
}

function PI_SumItem (name, price5, price10, price25, descr, substTag) {
   // window.alert(name + "/" + descr + " in PI_SumItem ");   
   var qty = document.powder[name].value;
   if (qty != "") {
      var myQty = parseInt (qty, 10);
	  if (isNaN (myQty)) {
	     window.alert(name + "/" + descr + " Not a number: " + myQty);
         document.powder[name].value = "";
      } else if  (myQty > 0) {
         PIsum += myQty;
         PIprice5  += myQty * price5;
         PIprice10 += myQty * price10;
         PIprice25 += myQty * price25;
	     PIorder_descr += descr + myQty + ",";
         if ((substTag != "") && (substTag)) {
           fullCartonMax = 10;
         }
	}
   }
   //window.alert("PI_SumItem qty " + myQty + "   PISum " + PIsum);
}

function PI_twodigits(val) {
   var dollars, cents;
   dollars = Math.floor(val);
   cents = Math.floor((val - dollars) * 100);
   if (cents < 10) cents = "0" + cents;
   return (dollars + "." + cents);
}

function PI_Sum(){
   var ship = 0;
   var request_count = 0;
   
   PIsum = 0;
   PIprice5 = 0;
   PIprice10 = 0;
   PIprice25 = 0;
   PIorder_descr = "";
   fullCartonMax = 50;

   // window.alert("PI_Sum, PI_Order.js, before SumItem");
   PI_SumItem("GOEX Powder: F",           21.35, 16.90, 13.60, "G1F");
   PI_SumItem("GOEX Powder: FF",          21.35, 16.90, 13.60, "G2F");
   PI_SumItem("GOEX Powder: FFF",         21.35, 16.90, 13.60, "G3F");
   PI_SumItem("GOEX Powder: FFFF",        21.35, 16.90, 13.60, "G4F");
   PI_SumItem("GOEX Powder: Meal-D",      21.35, 16.90, 13.60, "GMd");

   PI_SumItem("GOEX Powder: Cannon",      21.70, 17.10, 13.80, "GCAN");
   PI_SumItem("GOEX Powder: Cowboy",      21.70, 17.10, 13.80, "GCOW");
   PI_SumItem("GOEX Powder: Cartridge",   22.10, 17.60, 14.35, "GCRT");

   PI_SumItem("GOEX Express Powder: F",   26.00, 21.55, 18.80, "GX1F");
   PI_SumItem("GOEX Express Powder: FF",  26.00, 21.55, 18.80, "GX2F");
   PI_SumItem("GOEX Express Powder: FFF", 26.00, 21.55, 18.80, "GX3F");

   PI_SumItem("Swiss Powder: F",     27.50, 23.05, 20.10, "S1F");
   PI_SumItem("Swiss Powder: 1.5F",  27.50, 23.05, 20.10, "S1.5F");
   PI_SumItem("Swiss Powder: FF",    27.50, 23.05, 20.10, "S2F");
   PI_SumItem("Swiss Powder: FFF",   27.50, 23.05, 20.10, "S3F");
   PI_SumItem("Swiss Powder: FFFF",  27.50, 23.05, 20.10, "S4F");

   PI_SumItem("Swiss Powder: Nul-B", 33.75, 29.75, 26.55, "SNulB");

   PI_SumItem("KIK Powder: FF",  20.70, 16.25, 12.50, "K2F");   
   PI_SumItem("KIK Powder: FFF", 19.60, 15.15, 11.65, "K3F"); 

   PI_SumItem("Pinnacle Powder: 2F",   25.10, 20.15, 17.60, "Pinn2F",   "Y");
   PI_SumItem("Pinnacle Powder: 3F",   25.10, 20.15, 17.60, "Pinn3F",   "Y");

   PI_SumItem("Rem: Pyrodex P",   19.55, 15.75, 13.65, "rPyrP",   "Y");
   PI_SumItem("Rem: Pyrodex RS",  19.55, 15.75, 13.65, "rPyrRS",  "Y");
   PI_SumItem("Rem: Pyrodex S",   22.80, 19.00, 16.90, "rPyrSel", "Y");
   PI_SumItem("Rem: Pyrodex Pel", 17.30, 13.50, 11.40, "rPyrPlt", "Y");


   var now = new Date();
   var hours, mins,months,days, invoice;
   months = 1 + now.getMonth(); if (months < 10) months = "0" + months;
   days = now.getDate(); if (days < 10) days = "0" + days;
   hours = now.getHours(); if (hours < 10) hours = "0" + hours;
   mins = now.getMinutes(); if (mins < 10) mins = "0" + mins;
   invoice = // "DELAY -- shipping on Black Powder is 8-10 business days delayed.  \n"
             // + 
			 "PI" + now.getFullYear() + months + days 
                                   + "." + hours + "." + mins
                                   + "-" + PIsum;


   document.powder.submit.disabled = true;

   var price = 0;
	   order_descr = '';
	   total_price = '$ 0.00';
	   shipping_units = '';
	   name = "Not a full order";
	   shipping_info = '';
   if (PIsum > fullCartonMax) {
      invoice = " -- ";
	  price = PIprice25;
      total_price = "Order over 10 lb.";
      shipping_units = "";
      order_descr = "10 lb Max - with Black Powder Substitute";
   
   } else if (PIsum==50) {
      document.powder.submit.disabled = false;
      price = PIprice25;
      total_price = "$" + PI_twodigits(price);
      order_descr ="50 pound order.";
      shipping_units ="2 cartons";
      name = "50 lbs. Blackpowder";
	  
   } else if (PIsum==25) {
	  document.powder.submit.disabled = false;
	  price = PIprice25;
      total_price = "$" + PI_twodigits(PIprice25);
      order_descr ="25 pound order.";
      shipping_units = "1 carton";
      name = "25 lbs. Blackpowder";

   } else if (PIsum==10)  {
	  document.powder.submit.disabled = false;
	  price = PIprice10;
      total_price = "$" + PI_twodigits(PIprice10);
      order_descr ="10 pound order.";
      shipping_units = "1 carton";
      name = "10 lbs. Blackpowder";
   } else if (PIsum==5) {
	  document.powder.submit.disabled = false;
      price = PIprice5;
      total_price = "$" + PI_twodigits(PIprice5);
      order_descr ="5 pound order.";
      shipping_units = "1 carton";
	  name = "5 lbs. Blackpowder";

   } else if (PIsum==51) { // DEBUGGING entry
	  document.powder.submit.disabled = false;
      price = 1;
      total_price = "$" + PI_twodigits(2.13);
      order_descr = "1 pound debugging order.";
      shipping_units = "0 carton";
	  name = "Empty Practice Purchase";

   } else if (PIsum==0) {
	  order_descr ="empty order";
      total_price = "$ ";
      shipping_units = "";
	  price = 0;
      invoice = " -- ";
	  
   } else { // incomplete order
      invoice = " -- ";
	  if (PIsum<10) price = PIprice5;
	  else if (PIsum<25) price = PIprice10;
	  else price = PIprice25;
      total_price = "Not a Full Order";
      shipping_units = "";

      if (PIsum>50) order_descr = "Order greater than 50 lbs is not allowed.";
      else if (PIsum>25) order_descr = "Order is greater than 25 lbs.";
      else if (PIsum>10) order_descr = "Order is greater than 10 lbs.";
      else if (PIsum>5) order_descr = "Order is greater than 5 lbs.";
      else order_descr = "Less than full order";
   }

   document.powder.Order_Size.value=PIsum;
   document.powder.ITEM_OPTION2.value = PIorder_descr;									  
   document.powder.ITEM_OPTION3.value = invoice;

   document.powder.Powder_Price.value = "$" + PI_twodigits(price);
   document.powder.ITEM_PRICE.value = total_price;
   document.powder.Order_Description.value = order_descr;
   document.powder.Shipping_Units.value = shipping_units;
   document.powder.ITEM_NAME.value = name;
}



function PI_Submit () {
   PI_Sum();
   
   return (false);
}

function PI_ClearCalc () {
   document.powder.submit.disabled = true;
   document.powder.ITEM_OPTION3.value = " -- ";
   // window.alert("PI_ClearCalc, PI_Order.js");
   PI_Sum();
}