Product Finder
<%
#Read Field List File
$OFile = "MMFields.txt";
open (ORDNUM, $OFile);
while () {
$FieldList = $_;
}
$ONum = ++$ONum;
close (ORDNUM);
@Fields = split(/,/,($FieldList));
#print $FieldList;
#Setup Search Variables
if ( $Request->Form('flash_make') ne "" ) {
$Mode="FIND";
$Group=$Request->Form('flash_make');
$SubGroup=$Request->Form('flash_model');
}
elsif ( $Request->QueryString('flash_make') ne "" ) {
$Mode="FIND";
$Group=$Request->QueryString('flash_make');
$SubGroup=$Request->QueryString('flash_model');
}
else {
$Mode="SHOW";
}
if ($SubGroup=="~any~") {
$Mode="SHOW";
}
if ( $Mode eq 'FIND' ){
&ProcessRecords;
}
else {
print "";
}
%>
<%
#Process Search Records
sub ProcessRecords {
$SearchFile = "MMProduct.txt";
$Matched=0;
$Found=0;
open (LISTINGS, $SearchFile);
while ($Listing = ) {
#$VAR{'hidden_fields'} = $hidden_fields;
@data_fields = split(/\|/,$Listing);
$Show=1;
#Check Model Match
if ($SubGroup){
if (@data_fields[1] ne $SubGroup){
$Show=0;
}
}
#If Record Passed Search Criteria then Show the records\
$Matched =0;
$ctr=0;
if ($Show) {
$Matched = ++$Matched;
foreach $rfield (@Fields) {
$VAR{$rfield} = @data_fields[$ctr];
#print $ctr . $rfield . "=" . @data_fields[$ctr] . "
"; $ctr = ++$ctr; } %>
<%
}
}
close (LISTINGS);
if ($Found eq 0){
%>
<%="" . $VAR{"Make"} . " " . $VAR{"Model"} %> Coming Soon!
<%
}
}
%>
Please, select a flash make and model.
"; $ctr = ++$ctr; } %>
|
<%="" . $VAR{"Make"} . " " . $VAR{"Model"} %> |
|||
| Product | Price |  |
|
| <%= $VAR{"Omni_Name"} %> | <%= $VAR{"Omni_Price"} %> |
&function=add">
|
|
| <%= $VAR{"TwoWay_Name"} %> | <%= $VAR{"TwoWay_Price"} %> |
&function=add">
|
|
| <%= $VAR{"ColorSet_Name"} %> | <%= $VAR{"ColorSet_Price"} %> |
&function=add">
|
|
| <%= $VAR{"Green_Name"} %> | <%= $VAR{"Green_Price"} %> |
&function=add">
|
|
| <%= $VAR{"Gold_Name"} %> | <%= $VAR{"Gold_Price"} %> |
&function=add">
|
|
| <%= $VAR{"Snoot_Name"} %> | <%= $VAR{"Snoot_Price"} %> |
&function=add">
|
|
| <%= $VAR{"Sensor_Name"} %> | <%= $VAR{"Sensor_Price"} %> |
&function=add">
|
|
| <%= $VAR{"OMA_Name"} %> | <%= $VAR{"OMA_Price"} %> |
&function=add">
|
|
| <%= $VAR{"TWA_Name"} %> | <%= $VAR{"TWA_Price"} %> |
&function=add">
|
NOTE: Omni-Adapter is NOT included with Green, Gold and Color Sets |