function wprint() {
    var WPrint  = window.open("order.cgi?ACTION=Print","print","width=650,height=500,scrollbars");
};
function calctotal() {
     var stotal = document.orderfrm.STotal.value;
     var taxes  = document.orderfrm.Taxes.value;
     var core   = document.orderfrm.Core.value;
     var shipp  = document.orderfrm.Shipp.value;
     var total  = parseFloat(stotal) +  parseFloat(taxes) + parseFloat(core) + parseFloat(shipp);
     document.orderfrm.TOTAL.value = total;
};

function calcsubt() {
     var stotal = 0;
     var en;
     if ( document.orderfrm == null ) {
        message("no orderfrm");
        return;
     }
     var len = document.orderfrm.elements.length;
//     var WDebug = window.open("","_DEBUG","width=500,height=150,scrollbars");
//     WDebug.document.write("==========<br>\n length: " + len + "<br>\n");
     for (en=0; en<len; en++) {
         var el = document.orderfrm.elements[en];
//         WDebug.document.write("element: (" + en +" of "+len+") "+ (typeof el)+"<br>\n");
         if(!el) continue;
         var name = document.orderfrm.elements[en].name;
//         WDebug.document.write(name + "<br>\n");
         var partf = name.match(/^(\w+)_(\w+)/);
	 if(partf != null ) {
 	    if ( partf[1] == "PTotal" ) {
     	    	var ptotal = document.orderfrm.elements[en].value;
 	    	stotal=stotal + parseFloat(ptotal);
//                WDebug.document.write("part:" + partf[2] + "price:" + ptotal+ "<br>");
 	    }
	}
     }
//     WDebug.document.write("<br>\n---------------<br>\n");
//     WDebug.document.write("element: (" + en +" of "+document.orderfrm.elements.length+") " + "<br>\n---------------<br>\n");
     document.orderfrm.STotal.value = stotal;
};

function corecalc(part) {
    var vcore   = document.orderfrm.elements['VCore_'+part].value;
    var fcore   = document.orderfrm.elements['FCore_'+part].checked;
    var ecore   = document.orderfrm.Core.value;
    if (fcore == true) {
	ecore = parseFloat(ecore) + parseFloat(vcore);
    }else {
	ecore = ecore - vcore;
    }
    document.orderfrm.Core.value = ecore;
    calctotal();
};

function countadd(nm) {
    var cnt    =  document.orderfrm.elements["Count_"+nm].value;
    var price  =  document.orderfrm.elements["Price_"+nm].value;
//    var WDebug = window.open("","_DEBUG","width=500,height=150,scrollbars");
//    WDebug.document.write("part:" + nm + "price:" + price + "<br>");
    document.orderfrm.elements["Count_"+nm].value = ++cnt;
    document.orderfrm.elements["PTotal_"+nm].value = cnt * price;
    calcsubt();
    localzone();
    calctotal();
};

function localzone() {
    var en;
    var num = 0;
    var nam = 0;
    var val = 0;
    var chc = 0;
     for (en=0;en<document.orderfrm.elements.length;en++) {
        num += 1;
     	nam = document.orderfrm.elements[en].name;
	if ( nam  == "Local" ) {
     	    val = document.orderfrm.elements[en].value;
     	    chc = document.orderfrm.elements[en].checked;
//............!??!!!!!!............nu..pogodi!!!????......
	    if("" + chc == "true" ) {
		loczone(val);
		break;
	    }
//	    var WDebug  = window.open("","_DEBUG","width=500,height=150,scrollbars");
//	    WDebug.document.write("num:" + num + "!nam:" + nam + "!val:" + val + "!checked:" + chc + "<br>");
	}
    }
};

function loczone(local) {
    var stotal = document.orderfrm.STotal.value;
    var taxes  = 0;
    var shipp  = 0;
    if(local == 'MAS') {
	taxes  = 0.05 * stotal;
    }
    if(local == 'MAS' || local == 'USA') {
	shipp = 0.1 * stotal;
	if(shipp < 6) shipp = 6;
    }
    if(local == 'GLB') {
	shipp = 0.2 * stotal;
	if(shipp < 12) shipp = 12;
    }
    document.orderfrm.Taxes.value  = taxes;
    document.orderfrm.Shipp.value  = shipp;
    calctotal();
};