i= '<script type="text/javascript">top.location="./"</script>';<!-- ';

/// lord please forgive me for these terrible hacks
/// one day it will be refactored!

//<script type="text/javascript" scr="products_data.csv"></script>

function roundNdp( X,n ) { var T= Number('1e'+n); return Math.round(X*T)/T ; }
function rdp( X ){ return roundNdp( X , 2 ); }

///// define the positions of data in the csv
PRD_PRICE = 8;
PRD_CODE = 0;
PRD_AREA = 24;
//PRD_PRICE=
PRD_DESC=2;
var type="0";
var ptype="0";
var envirn="0";

function include(a)
{
var h=document.getElementsByTagName('head')[0];
script = document.createElement('script');
script.src = a;
script.type='text/javascript';
h.appendChild(script);
p=script.innerHTML;
alert(p);
}

function getlocatio()
{
var sGeobytesCity,sGeobytesCountry
//<script type='text/javascript' src="http://gd.geobytes.com/gd?after=-1&variables=GeobytesCountry,GeobytesCity,GeobytesRegion,GeobytesNationalitySingular,GeobytesLatitude,GeobytesLongitude">
//</script>
//<script type='text/javascript'>
if(sGeobytesCountry=="United Kingdom")
document.write("It looks like you're currently close to: <b>"+sGeobytesCity+", "+sGeobytesRegion+", "+sGeobytesCountry+".</b><br>We will be able to deliver to your area<br>");
else
document.write("<b>You are not located in the United Kingdom.</b>We cannot send orders to your region please feel free to continue browsing the information. But you will not be able to make use of the simplified online ordering. although you may be able to create a product list and use it will a supplier in your area<br><br>" );
// </script>
}

function inValidCharSet(str,charset)
{
var result = true;
for (var i=0;i<charset.length;i++)

if (charset.substr(i,1)==str)
{
result = false;
break;
}
return result;
}


function validNum(formField, evt)
{
var result = true;
var e= String.fromCharCode(evt.which);
//evt.charCode
//alert("hello     " + e);
//if (required && !validRequired(formField,fieldLabel))
//result = false;
//if (result){ 
//if (inValidCharSet(formField.value,"1234567890.,"))
if (inValidCharSet( e,"1234567890.,"))
{
alert('Please enter a number for the field.');
formField.focus();
result = false;
}
else
formField.value= formField.value ;
//}
return result;
}

function validateForm(theForm)
{
if (!validNum(theForm.code,"Item code:",true))		return false;
return true;
}

function get_data()
{

//if(1){
//spltt=1;
var dt=top.d.document.getElementsByTagName('body')[0].innerHTML;
//alert(dt);
//.split('\n');
////////// we need to use a reg exp to remove quotes (")
var re= new RegExp('"',"g");
var testst='hebgd,"fdef","ikewe",trf';
var dtt = dt.replace(re,'').split('\n');
//alert(testst + '\n' + dp);
 //childNodes[0].nodeValue;
//var datapp=dtt.split('\n');
parent.p= new Array(dtt.length);
for(var i=0;i< dtt.length;i++){
//p[i] = new Array(200);
parent.p[i]=dtt[i].split(',');
}

//// we need to convert strings to numbers????
//parseFloat(ee[2])* parseInt(nn)
//}
}

function passporder( str, b ) {
var T =top.frames['header'].document.order.plist.value ;
var indd = T.indexOf(str);
var svl= T.substring(indd);
var vl= svl.indexOf("=") +1 ;
var cub = parseInt(b) + parseInt(svl.substring(vl) );
//if(cub==NaN) { alert('bad'); return; }
//if(!cub) { alert('bad'); return; }
if(indd == -1)
top.frames['header'].document.order.plist.value = T + str + "=" + b + "\n";
else
{
var re = new RegExp (str + "=.*", 'gi');
var ee = T.replace(re, str + "=" + cub  );
top.frames['header'].document.order.plist.value = ee;
}

}


function product_details(a,d)
{


if(!parent.p)
get_data();

//alert("fdef"+ parent.p[2][0]);
//var p=parent.p;
if(a=="") return "" ;
var b=parseInt(d);

for(var i=0; i< parent.p.length ;i++){
if( parent.p[i][0]==a){ 
var rt = parent.p[i][PRD_CODE] + "\t\t" + parent.p[i][PRD_DESC] + "\t\tx " + b + "@ &pound; " + parent.p[i][PRD_PRICE] + "=  &pound; "  + rdp(parseFloat(parent.p[i][PRD_PRICE])* b) + "\n";
return rt ;
}
}
return a + " Error product found\n" ;
}

//var spltt=0;



function get_product(a)
{
//var hh="g";
//var gg= top.document.getElementsByTagName('frame');
//var geg=top.document.getElementById("d");
//hh=top.d.document.src;
//var hh=top.frames["main"].document.src;
//var p; //=op;
//alert(top.d.document.getElementsByTagName('script')[0].formdat);

if(!parent.p)
get_data();

for(var i=0;i<parent.p.length;i++){
if( parent.p[i][PRD_CODE]==a){
//alert( '\n' + parent.p[i][PRD_CODE] + '\n' + parent.p[i][3] + '\n' +  a);
	return parent.p[i] ;	}
}
return "Error no product found\n" ;
}

function pproduct_details(re,q)
{
passporder( re, q);
return product_details(re, q);
}

function check_analyse_form( a )
{
var inrr="";
var p=0;
for( var i=0 ; i<6 ; i++){
if( a.envirn.options[i].selected ) envirn=i;
if( a.type.options[i].selected ) type=i;
if( a.ptype.options[i].selected ) ptype=i;
}

if(envirn==0){ p=1;  inrr = "No environment selected"; }
if(type==0){ p=1; inrr = inrr + "\nno noise selected"; }
if(ptype==0){ p=1; inrr = inrr + "\nno noise selected"; }

if(p==1) alert(inrr);
else	return 0;

return -1 ;
}
//////////// Data tables are for each soundproofing system
////// format is [ system fitting instructions file, "list of materials,qty/sq meter".................]


var wall_calc = [
["soundproofing01.htm","plstrb","batten","SCREWS","M20AD","ASEAL","RBAR","AMW50",""],
["soundproofing02.htm","WASC1",    "ASEAL",   "",     ""],
["soundproofing03.htm","ESPLUS",            "ASEAL",   ""],
["soundproofing03.htm","ESPLUS",            "ASEAL",   ""],
["soundproofing05.htm","ESPLUS",            "ASEAL",   ""],
] ;



/////////////////////// this is the expert system lookup table each array item is a comma seperated list of combinations of form input options that require the system index number........
////// i.e. ceiling_lookup[1] contains all combinations of options that require ceiling_calc[1] soundproofing system.....
/// should probably put some wildcards in as well?????




var wall_lookup = [
"1234,1111,1232,2321",
"1111,2222,3333,4444,5555",
"4534,3453,5632,3233,2123,3213,2332,2322,",
"3244,3223,3434,2112,2342,1231,1233,3223,2324,2332"
];


////// we need to fix this so it compares with wildcards
function cmp_lookup(a,b)
{
if(b==a) return(1)
return(0);
}


function get_sys(a , b)
{
var i=0;
var possible_systems = new Array (0);
var n=0;
for(i=0;i<a.length;i++)
{
var vl=a[i].split(",");
var j=0;
for(j=0;j<vl.length;j++)
{
if(cmp_lookup(b,vl[j]))	possible_systems[n++]=i;
}

}
return(possible_systems);
}

/// list materials required
function list_mat( gf, m )
{
var d= "" ;
var tt=0 ;

if(!gf) return "no systems available";
//var cc=gf.split(',');
//var c=cc[0];
//alert( gf[1] + "   " + m) ; //ee[PRD_CODE] + "  " + ee[PRD_AREA] );
for( var i=1 ; gf[i]!="" ; i++ )
{
var c=gf[i].split('*')[0];
ee=get_product(c); //[i]);

var nn = Math.ceil( rdp(parseFloat(m) / parseFloat(ee[PRD_AREA]) ) ) ;
d = d + pproduct_details(c /*[i]*/, nn);
if( ee[PRD_PRICE] != "Na     " ){
tt= parseFloat(tt) + parseFloat(ee[PRD_PRICE])* parseInt(nn) ;
//passporder(c[i] , nn);
}
}
d=d + "\n\t\t\tTotal &pound; " + rdp(parseFloat(tt)) + "\n";
return d ;
}

function get_problem( a) 
{
var ttt= a.customer.value + a.envirn.value + a.type.value + a.ptype.value;
a.imp.value + a.imp1.value + a.imp2.value + a.ftype.value + a.wtype.value + a.assesment.value + a.floorav.value + a.ceilingav.value;

return (ttt);

}



/////////////////////////////////CEILING DATA
var ceiling_calc = [
["soundproofing01.htm","plstrb","batten","AMW100","R10","QBOARD","",""],
["soundproofing02.htm","plstrb","batten","AMW100",	"R10",	"QBOARD",	"SBM5",""],
["soundproofing03.htm","ESPLUS","ASEAL",""],
["soundproofing04.htm","TS",		"SA12",	"",	"",	"",	""],
["soundproofing05.htm","ESPLUS",		"ASEAL",	"",	"",	""]
] ;

var ceiling_lookup = [
"1234,1111,1232,2321","2232",
"1111,2222,3333,4444,5555",
"4534,3453,5632,3233,2123,3213,2332,2322,",
"3244,3223,3434,2112,2342,1231,1233,3223,2324,2332"
];

function ceiling_materials( a ) 
{
var materials = "";
var ty = get_problem( a);
var syst = get_sys(ceiling_lookup , ty);

//alert("You have the option of " + syst.length + "ceiling systems that match your requirements");
if( a.areasc.checked == true )
{
materials = "\n\nMATERIALS FOR CEILING:\n\n" +
list_mat( ceiling_calc[syst[0]], a.farea.value );
}
return materials ;
}


function ceiling_fitting(a){
var ilink_info = "";
if( a.areasc.checked == true )
{
ilink_info = "<li> <a href='guides/fitting/ceiling/" + ceiling_calc[1][0] + "'> Ceiling fitting instructions</a></li>";
}
return ilink_info ;
}



//////////////////////////////////// FLOOR DATA

var floor_calc = [
["soundproofing01.htm","batten*6","joist*3","SCREWS*30","AMW100*2","R10*2","QBOARD*2","",""],
["soundproofing02.htm","AMW100",        "R10",  "QBOARD", "SBM5","SVDC1", ""],
["soundproofing03.htm","AMW100",        "R10",  "QBOARD", "SBM5","",""],
["soundproofing04.htm","A10",           "",     "",     "",     ""],
["soundproofing05.htm","QF",            "",     "",     "",     ""]
] ;


var floor_lookup = [
"1234,1111,1232,2321",
"1111,2222,3333,4424,5555",
"3333,3453,5632,3233,2123,3213,2332,2322,",
"4444,3223,3434,2112,2342,1231,1233,3223,2324,2332"
];

function floor_materials( a ) 
{
var materials = "";

if( a.areasf.checked == true )
{
var ty = get_problem( a);

var syst = get_sys(floor_lookup , ty);

alert("You have the option of " + syst.length + " floor systems that match your requirements " + ty);

materials = "\n\nMATERIALS FOR FLOOR:\n\n" +
list_mat( floor_calc[syst[0]], a.farea.value );
}
return materials ;
}

function floor_fitting(a){
var ilink_info = "";
if( a.areasf.checked == true )
{
ilink_info = "<li> <a href='guides/fitting/floor/" + floor_calc[1][0] + "'> Floor fitting instructions</a></li>" ;
}
return ilink_info ;
}




//////////////////////////////////// WALL DATA

function wall_fitting(a){
var ilink_info = "";
if( a.areasw.checked == true )
{
ilink_info = "<li> <a href='guides/fitting/wall/" + wall_calc[1][0]  + "'> Wall fitting instructions</a></li>";
}
return ilink_info ;
}

function wall_materials( a ) 
{
var materials = "";
if( a.areasw.checked == true )
{
materials = "\n\nMATERIALS FOR WALLS:\n\n" +
list_mat( wall_calc[1], a.warea.value );
}

return materials ;
}




function storeform( a ) 
{

if( check_analyse_form( a ) == "-1" ) return 0 ;

var ndetail = "\nType of environment to be soundproofed: " + a.envirn.value +  '\ntype of noise: ' + 
a.type.value +  '\nRequired by date: ' + 
a.rdate.value +  '\ntype of soundproofing required: ' +  
a.ptype.value +  '\nbrief description of your noise problems : ' +  
a.prob.value +  '\nWall area: ' +  
a.warea.value +  '\nFloor area ' +  
a.farea.value ;

passprob( ndetail );

var tyut = '\nenvironment: \t\t\t' + 
a.envirn.value +  '\ntype of noise: \t\t\t' + 
a.type.value +  '\nDate required by: \t\t\t' + 
a.rdate.value +  '\nmethod \t\t' +  
a.ptype.value +  '\nnoise problem \t\t' +  
a.prob.value +  '\nwall area \t\t' +  
a.warea.value +  'm<sup>2</sup>\nfloor area \t\t' +  
a.farea.value +  'm<sup>2</sup>\n\n' +
"\n%0A\n%0A The following list of items were generated based on the above details. A certain amount \n" +
"of excess (12.5%) is provided to allow for waste and any other errors so you maybe able to \n" +
"reduce the cost by 12.5% if you are absolutely sure of your measurements and know there are \n" +
"no unforseen irregularitys in your installation. \n%0A\n%0A\n%0A WARNING THIS IS INVALID AT PRESENT PRICES ARE NOT AVAILABLE, LOGIC ALOGORITHMS HAVE NOT BEEN IMPLEMENTED CORRECTLY \n%0A AND WOULD PROBABLY TAKE 15-20 HOURS TO IMPLEMENT AND TESTING COULD TAKE > 3 TIMES THAT LONG!!\n%0A\n%0A THIS IS JUST A DEMO!!! \n%0A" +
"\n%0A\n%0A MATERIALS LIST\n%0ACode\t\tDescription\t\tQuantity\t\t\t\tPrice\n%0A" +
ceiling_materials(a) +
floor_materials(a) + 
wall_materials(a)  + '</pre>' ;

//parent.
passinfo( "please save and print the following fitting information<br>" +
tyut +
"please save and print the following fitting information<br>" +
floor_fitting(a) +
ceiling_fitting(a) +
wall_fitting(a) + "<br>"
);
this.location.href='./analysed.htm';

}

function pdetails()
{
var det = document.o.CardType.value + ":" + document.o.CardNumber.value  + ":" + document.o.iss.value  + ":" + document.o.fdat.value + ":" + document.o.edat.value + "\n";

return  det ;
}

function gdetails()
{
det = "Tel. No.:" + document.o.telnumber.value + "\nPostcode:" + document.o.postcode.value + ':\nAddress:' + document.o.address.value + ':\nRef. No. :' + document.o.refno.value + ":\nInvoice Address:" + document.o.iaddress.value  + '%0A\n';
return  det ;
}

function Write_Order(){
ee = writeorder();
document.write(ee);
}



function mailorder( str ){
var who="soundproofing";
var omp="@";
var ur="gmail";
var en=".com" ;
var sub1="Order";
var body1= str;

document.write("<pre>" + body1 + body2 + "</pre>" ) ;
this.location.href="mailto:"+who+omp+ur+en+"?subject="+sub1+",&body="+body1+",";
}

function passorder( str) {
top.frames['header'].document.order.olist.value = str;
}


function passinfo( str) { top.frames['header'].document.order.analysis.value = str; }

function passprob( str) { top.frames['header'].document.order.prob.value = str; }

function writeorder() { var TestVar =top.frames['header'].document.order.olist.value ; return  TestVar ; }

function writeporder() {
var TestVar =top.frames['header'].document.order.plist.value ;
return  TestVar ;
}

function writeprob() {
var TestVar =top.frames['header'].document.order.prob.value ;
return  TestVar ;
}

function writeinfo() {
var tVar =top.frames['header'].document.order.analysis.value ;
return  tVar ;
}

function showorder(a)
{

var p=a ;
var ry = "";
while(p){ var ny = p.substring(0,p.indexOf('\n') );

ry = ry + product_details(ny.substring(0,ny.indexOf('=')) ,  ny.substring(ny.indexOf('=')+1))  ;
p = p.substring(p.indexOf('\n')+1); }

return ry ;

}


function ppt(a)
{
var re = a.ordercode.value;
var quant=getorder_val(writeporder(),re);
if(a.quantity.value=="") return;

if(!parseInt(a.quantity.value)){ return; }
if(a.quantity.value<0){ return; }
//alert(quant + '\n\n' + re  + '\n\n' + writeporder()  );
passporder( re, a.quantity.value);

var ryy= showorder(writeporder());
alert(ryy);
top.frames['order'].document.location.href="ord.htm";
}


function getorder_val(a,b)
{
var p=a ;
var ry = "";
var ny = p.substring(p.indexOf(b) );
ry = ny.substring(ny.indexOf('=')+1,ny.indexOf('\n') );
if(ry=="NaN") return "0" ;
return ry ;

}

function add_product(a ){
var quant=getorder_val(writeporder(),a);
var prd = get_product(a);

if(prd!="Error no product found\n"){
document.write("<form name=ebuy ONSUBMIT=\"if (this.submitted); else{ppt(this); return false;}\"> ");
document.write("Order code:" + a );
document.write("<br>Price:" + prd[PRD_PRICE] + "\n<br><br>\n");
document.write("<input type=hidden name=ordercode value=\""  + a + "\">" );
document.write("<br>Quantity:<input type=text name=quantity size=5 value=\"" + quant + "\">" );
document.write("<input type=button class=\"button\" value=\"Add\" onClick=\"ppt(this.form)\"></form>");
}
else
document.write("db error cannot find product details");
}

i='-->';