Advanced Search

Please narrow your choices by selecting a desired origin, roast level or taste profile. Find the coffees you want quickly with our advance search options.
<% $copy %>
% if ($ARGS{preload} eq "decaf") { % } % if ($ARGS{preload} eq "light") { % } % if ($ARGS{preload} eq "med_light") { % } % if ($ARGS{preload} eq "medium") { % } % if ($ARGS{preload} eq "dark") { % } <%init> my ($sql, $sth); my ($sql2, $sth2); my $dbh = $m->comp('/dbconnect.mas'); my $counter; my $copy; my $copyAdditional; my $counterCat = 1; my $checkMarkOnCheck; my %V = %{$m->comp('../checkout/lib/restore_state.mas', namelist=>['tea_search_adv'])}; my $stringSession = $V{tea_search_adv}; my $preloadTest; my $tempId; my $fontSize; my $fullName; my $stringMatch; ########################################################################################## ## PRIMARY $sql = qq| SELECT ID, USER_ID, CATEGORY_NAME FROM taxonomy_category WHERE SITE = "lardera" AND STATUS = 1 ORDER BY POSITION |; $sth = $dbh->prepare($sql); $sth->execute; while (my ($id, $userId, $categoryName) = $sth->fetchrow_array()) { $sql2 = qq| SELECT CUSTOMER_FIRST_NAME, CUSTOMER_LAST_NAME FROM users WHERE USER_ID = ? |; $sth2 = $dbh->prepare($sql2); $sth2->execute($userId); my ($firstName, $lastName) = $sth2->fetchrow_array(); $fullName = $firstName . " " . substr($lastName, 0, 1); if ($userId == 388) {$fullName = "Adagio Teas";} $stringMatch = $id . "___"; if (($userId == 3) or ($stringSession =~ /$stringMatch/)) { $copy .= qq|
close
$categoryName
|; } else { $copy .= qq|
$categoryName
|; } else { $copy .= qq|
taxonomy by $fullName
|; } $copy .= qq|
|; } <%attr> title => 'WEBSITE_NAME: Advanced Search' meta => ''