|
rlm@0
|
1 function Dollar (val) { // force to valid dollar amount
|
|
rlm@0
|
2 var str,pos,rnd=0;
|
|
rlm@0
|
3 if (val < .995) rnd = 1; // for old Netscape browsers
|
|
rlm@0
|
4 str = escape (val*1.0 + 0.005001 + rnd); // float, round, escape
|
|
rlm@0
|
5 pos = str.indexOf (".");
|
|
rlm@0
|
6 if (pos > 0) str = str.substring (rnd, pos + 3);
|
|
rlm@0
|
7 return str;
|
|
rlm@0
|
8 }
|
|
rlm@0
|
9
|
|
rlm@0
|
10 var amt,des,obj,val,op1a,op1b,op2a,op2b,op3a,op3b,op4a,op4b,op5a,op5b,op6a,op6b,op7a,op7b,op8a,op8b,op9a,op9b,itmn;
|
|
rlm@0
|
11
|
|
rlm@0
|
12 function ChkTok (obj1) {
|
|
rlm@0
|
13 var j,tok,ary=new Array (); // where we parse
|
|
rlm@0
|
14 ary = val.split (" "); // break apart
|
|
rlm@0
|
15 for (j=0; j<ary.length; j++) { // look at all items
|
|
rlm@0
|
16 // first we do single character tokens...
|
|
rlm@0
|
17 if (ary[j].length < 2) continue;
|
|
rlm@0
|
18 tok = ary[j].substring (0,1); // first character
|
|
rlm@0
|
19 val = ary[j].substring (1); // get data
|
|
rlm@0
|
20 if (tok == "@") amt = val * 1.0;
|
|
rlm@0
|
21 if (tok == "+") amt = amt + val*1.0;
|
|
rlm@0
|
22 if (tok == "%") amt = amt + (amt * val/100.0);
|
|
rlm@0
|
23 if (tok == "-") amt = amt - val*1.0;
|
|
rlm@0
|
24 if (tok == "#") { // record item number
|
|
rlm@0
|
25 if (obj1.item_number) obj1.item_number.value = val;
|
|
rlm@0
|
26 ary[j] = ""; // zap this array element
|
|
rlm@0
|
27 }
|
|
rlm@0
|
28 // Now we do 3-character tokens...
|
|
rlm@0
|
29 if (ary[j].length < 4) continue;
|
|
rlm@0
|
30 tok = ary[j].substring (0,3); // first 3 chars
|
|
rlm@0
|
31 val = ary[j].substring (3); // get data
|
|
rlm@0
|
32 if (tok == "s1=") { // value for shipping
|
|
rlm@0
|
33 if (obj1.shipping) obj1.shipping.value = val;
|
|
rlm@0
|
34 ary[j] = ""; // clear it out
|
|
rlm@0
|
35 }
|
|
rlm@0
|
36 if (tok == "s2=") { // value for shipping2
|
|
rlm@0
|
37 if (obj1.shipping2) obj1.shipping2.value = val;
|
|
rlm@0
|
38 ary[j] = ""; // clear it out
|
|
rlm@0
|
39 }
|
|
rlm@0
|
40 }
|
|
rlm@0
|
41 val = ary.join (" "); // rebuild val with what's left
|
|
rlm@0
|
42 }
|
|
rlm@0
|
43
|
|
rlm@0
|
44 function StorVal () {
|
|
rlm@0
|
45 var tag;
|
|
rlm@0
|
46 tag = obj.name.substring (obj.name.length-2); // get flag
|
|
rlm@0
|
47 if (tag == "1a") op1a = op1a + " " + val;
|
|
rlm@0
|
48 else if (tag == "1b") op1b = op1b + " " + val;
|
|
rlm@0
|
49 else if (tag == "2a") op2a = op2a + " " + val;
|
|
rlm@0
|
50 else if (tag == "2b") op2b = op2b + " " + val;
|
|
rlm@0
|
51 else if (tag == "3a") op3a = op3a + " " + val;
|
|
rlm@0
|
52 else if (tag == "3b") op3b = op3b + " " + val;
|
|
rlm@0
|
53 else if (tag == "4a") op4a = op4a + " " + val;
|
|
rlm@0
|
54 else if (tag == "4b") op4b = op4b + " " + val;
|
|
rlm@0
|
55 else if (tag == "5a") op5a = op5a + " " + val;
|
|
rlm@0
|
56 else if (tag == "5b") op5b = op5b + " " + val;
|
|
rlm@0
|
57 else if (tag == "6a") op6a = op6a + " " + val;
|
|
rlm@0
|
58 else if (tag == "6b") op6b = op6b + " " + val;
|
|
rlm@0
|
59 else if (tag == "7a") op7a = op7a + " " + val;
|
|
rlm@0
|
60 else if (tag == "7b") op7b = op7b + " " + val;
|
|
rlm@0
|
61 else if (tag == "8a") op8a = op8a + " " + val;
|
|
rlm@0
|
62 else if (tag == "8b") op8b = op8b + " " + val;
|
|
rlm@0
|
63 else if (tag == "9a") op9a = op9a + " " + val;
|
|
rlm@0
|
64 else if (tag == "9b") op9b = op9b + " " + val;
|
|
rlm@0
|
65 else if (tag == "3i") itmn = itmn + " " + val;
|
|
rlm@0
|
66 else if (des.length == 0) des = val;
|
|
rlm@0
|
67 else des = des + ", " + val;
|
|
rlm@0
|
68 }
|
|
rlm@0
|
69
|
|
rlm@0
|
70 function ReadForm (obj1, tst) { // Read the user form
|
|
rlm@0
|
71 var i,j,pos;
|
|
rlm@0
|
72 amt=0;des="";op1a="";op1b="";op2a="";op2b="";op3a="";op3b="";op4a="";op4b="";op5a="";op5b="";op6a="";op6b="";op7a="";op7b="";op8a="";op8b="";op9a="";op9b="";itmn="";
|
|
rlm@0
|
73 if (obj1.baseamt) amt = obj1.baseamt.value*1.0; // base amount
|
|
rlm@0
|
74 if (obj1.basedes) des = obj1.basedes.value; // base description
|
|
rlm@0
|
75 if (obj1.baseon0) op1a = obj1.baseon0.value; // base options
|
|
rlm@0
|
76 if (obj1.baseos0) op1b = obj1.baseos0.value;
|
|
rlm@0
|
77 if (obj1.baseon1) op2a = obj1.baseon1.value;
|
|
rlm@0
|
78 if (obj1.baseos1) op2b = obj1.baseos1.value;
|
|
rlm@0
|
79 if (obj1.baseon2) op3a = obj1.baseon2.value;
|
|
rlm@0
|
80 if (obj1.baseos2) op3b = obj1.baseos2.value;
|
|
rlm@0
|
81 if (obj1.baseon3) op4a = obj1.baseon3.value;
|
|
rlm@0
|
82 if (obj1.baseos3) op4b = obj1.baseos3.value;
|
|
rlm@0
|
83 if (obj1.baseon4) op5a = obj1.baseon4.value;
|
|
rlm@0
|
84 if (obj1.baseos4) op5b = obj1.baseos4.value;
|
|
rlm@0
|
85 if (obj1.baseon5) op6a = obj1.baseon5.value;
|
|
rlm@0
|
86 if (obj1.baseos5) op6b = obj1.baseos5.value;
|
|
rlm@0
|
87 if (obj1.baseon6) op7a = obj1.baseon6.value;
|
|
rlm@0
|
88 if (obj1.baseos6) op7b = obj1.baseos6.value;
|
|
rlm@0
|
89 if (obj1.baseon7) op8a = obj1.baseon7.value;
|
|
rlm@0
|
90 if (obj1.baseos7) op8b = obj1.baseos7.value;
|
|
rlm@0
|
91 if (obj1.baseon8) op9a = obj1.baseon8.value;
|
|
rlm@0
|
92 if (obj1.baseos8) op9b = obj1.baseos8.value;
|
|
rlm@0
|
93 if (obj1.baseitn) itmn = obj1.baseitn.value;
|
|
rlm@0
|
94 for (i=0; i<obj1.length; i++) { // run entire form
|
|
rlm@0
|
95 obj = obj1.elements[i]; // a form element
|
|
rlm@0
|
96
|
|
rlm@0
|
97
|
|
rlm@0
|
98
|
|
rlm@0
|
99
|
|
rlm@0
|
100
|
|
rlm@0
|
101 if (obj.type == "select-one") { // just selects
|
|
rlm@0
|
102 if (obj.name == "quantity" ||
|
|
rlm@0
|
103 obj.name == "amount") continue;
|
|
rlm@0
|
104 pos = obj.selectedIndex; // which option selected
|
|
rlm@0
|
105 val = obj.options[pos].value; // selected value
|
|
rlm@0
|
106 ChkTok (obj1); // check for any specials
|
|
rlm@0
|
107
|
|
rlm@0
|
108 if (obj.name == "on0" || // let this go where it wants
|
|
rlm@0
|
109 obj.name == "os0" ||
|
|
rlm@0
|
110 obj.name == "on1" ||
|
|
rlm@0
|
111 obj.name == "os1" ||
|
|
rlm@0
|
112 obj.name == "on2" ||
|
|
rlm@0
|
113 obj.name == "os2" ||
|
|
rlm@0
|
114 obj.name == "on3" ||
|
|
rlm@0
|
115 obj.name == "os3" ||
|
|
rlm@0
|
116 obj.name == "on4" ||
|
|
rlm@0
|
117 obj.name == "os4" ||
|
|
rlm@0
|
118 obj.name == "on5" ||
|
|
rlm@0
|
119 obj.name == "os5" ||
|
|
rlm@0
|
120 obj.name == "on6" ||
|
|
rlm@0
|
121 obj.name == "os6" ||
|
|
rlm@0
|
122 obj.name == "on7" ||
|
|
rlm@0
|
123 obj.name == "os7" ||
|
|
rlm@0
|
124 obj.name == "on8" ||
|
|
rlm@0
|
125 obj.name == "os8" ||
|
|
rlm@0
|
126 obj.name == "on9" ||
|
|
rlm@0
|
127 obj.name == "os9") continue;
|
|
rlm@0
|
128
|
|
rlm@0
|
129 StorVal ();
|
|
rlm@0
|
130
|
|
rlm@0
|
131 } else
|
|
rlm@0
|
132 if (obj.type == "checkbox" || // just get checkboxex
|
|
rlm@0
|
133 obj.type == "radio") { // and radios
|
|
rlm@0
|
134 if (obj.checked) {
|
|
rlm@0
|
135 val = obj.value; // the value of the selection
|
|
rlm@0
|
136 ChkTok (obj1);
|
|
rlm@0
|
137 StorVal ();
|
|
rlm@0
|
138 }
|
|
rlm@0
|
139 } else
|
|
rlm@0
|
140 if (obj.type == "select-multiple") { //one or more
|
|
rlm@0
|
141 for (j=0; j<obj.options.length; j++) { // run all options
|
|
rlm@0
|
142 if (obj.options[j].selected) {
|
|
rlm@0
|
143 val = obj.options[j].value; // selected value (default)
|
|
rlm@0
|
144 ChkTok (obj1);
|
|
rlm@0
|
145 StorVal ();
|
|
rlm@0
|
146 }
|
|
rlm@0
|
147 }
|
|
rlm@0
|
148 } else
|
|
rlm@0
|
149 if ((obj.type == "text" || // just read text,
|
|
rlm@0
|
150 obj.type == "textarea") &&
|
|
rlm@0
|
151 obj.name != "tot" && // but not from here
|
|
rlm@0
|
152 obj.name != "quantity") {
|
|
rlm@0
|
153 val = obj.value; // get the data
|
|
rlm@0
|
154 //if (val == "" && tst)
|
|
rlm@0
|
155 //{ // force an entry
|
|
rlm@0
|
156 // alert ("Enter data for " + obj.id);
|
|
rlm@0
|
157 // return false;
|
|
rlm@0
|
158 //}
|
|
rlm@0
|
159 StorVal ();
|
|
rlm@0
|
160 }
|
|
rlm@0
|
161 }
|
|
rlm@0
|
162 // Now summarize stuff we just processed, above
|
|
rlm@0
|
163 if (op1a.length > 0) obj1.on0.value = op1a;
|
|
rlm@0
|
164 if (op1b.length > 0) obj1.os0.value = op1b;
|
|
rlm@0
|
165 if (op2a.length > 0) obj1.on1.value = op2a;
|
|
rlm@0
|
166 if (op2b.length > 0) obj1.os1.value = op2b;
|
|
rlm@0
|
167 if (op3a.length > 0) obj1.on2.value = op3a;
|
|
rlm@0
|
168 if (op3b.length > 0) obj1.os2.value = op3b;
|
|
rlm@0
|
169 if (op4a.length > 0) obj1.on3.value = op4a;
|
|
rlm@0
|
170 if (op4b.length > 0) obj1.os3.value = op4b;
|
|
rlm@0
|
171 if (op5a.length > 0) obj1.on4.value = op5a;
|
|
rlm@0
|
172 if (op5b.length > 0) obj1.os4.value = op5b;
|
|
rlm@0
|
173 if (op6a.length > 0) obj1.on5.value = op6a;
|
|
rlm@0
|
174 if (op6b.length > 0) obj1.os5.value = op6b;
|
|
rlm@0
|
175 if (op7a.length > 0) obj1.on6.value = op7a;
|
|
rlm@0
|
176 if (op7b.length > 0) obj1.os6.value = op7b;
|
|
rlm@0
|
177 if (op8a.length > 0) obj1.on7.value = op8a;
|
|
rlm@0
|
178 if (op8b.length > 0) obj1.os7.value = op8b;
|
|
rlm@0
|
179 if (op9a.length > 0) obj1.on8.value = op9a;
|
|
rlm@0
|
180 if (op9b.length > 0) obj1.os8.value = op9b;
|
|
rlm@0
|
181 if (itmn.length > 0) obj1.item_number.value = itmn;
|
|
rlm@0
|
182 obj1.item_name.value = des;
|
|
rlm@0
|
183 obj1.amount.value = Dollar (amt);
|
|
rlm@0
|
184 if (obj1.tot) obj1.tot.value = "$" + Dollar (amt);
|
|
rlm@0
|
185 }
|
