gift certificate

Give the gift of unlimited choice! Invite the person you love to browse our pages and select their favorite products.

% if ($error_message) {
<% $error_message %>
% }
% if ($GCAmount == 250) {
$250
% } else {
$250
% } % if ($GCAmount == 100) {
$100
% } else {
$100
% } % if ($GCAmount == 75) {
$75
% } else {
$75
% } % if ($GCAmount == 50) {
$50
% } else {
$50
% } % if ($GCAmount == 25) {
$25
% } else {
$25
% } % if ($GCAmount == 15) {
$15
% } else {
$15
% }
$250 provides the option of combining most wares and coffees.
Will also work for tea, spices and honey products.
from
to


 
delivery date
>Now
>Deliver on:
<%init> our $sidGlobal; our $userIdGlobal; our $firstNameGlobal; our $lastNameGlobal; my ($sql, $sth); my $dbh = $m->comp('/dbconnect.mas'); ## TODAY $sql = qq|SELECT MONTH(NOW()),DAY(NOW()),YEAR(NOW())|; $sth = $dbh->prepare($sql); $sth->execute(); my ($month, $day, $year) = $sth->fetchrow_array(); ## TOMORROW $sql = qq|SELECT MONTH(DATE_ADD(NOW(), INTERVAL 1 DAY)), DAY(DATE_ADD(NOW(), INTERVAL 1 DAY)), YEAR(DATE_ADD(NOW(), INTERVAL 1 DAY))|; $sth = $dbh->prepare($sql); $sth->execute(); my ($monthTomorrow, $dayTomorrow, $yearTomorrow) = $sth->fetchrow_array(); my $senderFirstNamePreload = $firstNameGlobal; my $senderLastNamePreload = $lastNameGlobal; if (!$senderFirstNamePreload) {$senderFirstNamePreload = "";} if (!$senderLastNamePreload) {$senderLastNamePreload = "";} my $GCAmount = $ARGS{GCAmount}; my $SFirstName = $ARGS{SFirstName}; my $SLastName = $ARGS{SLastName}; my $RFirstName = $ARGS{RFirstName}; my $RLastName = $ARGS{RLastName}; my $REmailAddress = $ARGS{REmailAddress}; $REmailAddress =~ s/ //g; my $Message = $ARGS{Message}; my $Delivery = $ARGS{Delivery}; my $Month = $ARGS{Month}; my $Day = $ARGS{Day}; my $Year = $ARGS{Year}; my $pid = "12999001"; if (!$GCAmount){$GCAmount = 250;} if ($Month <= 9){$Month = "0" . $Month} if ($Day <= 9){$Day = "0" . $Day} if ($ARGS{value} == 15){$GCAmount = 15;} if ($ARGS{value} == 25){$GCAmount = 25;} if ($ARGS{value} == 50){$GCAmount = 50;} if ($ARGS{value} == 75){$GCAmount = 75;} if ($ARGS{value} == 100){$GCAmount = 100;} if ($ARGS{value} == 250){$GCAmount = 250;} my @months = ("", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"); my $counter; my $error_message = ''; my $debug; my $gcAddTest; if (!$SFirstName) { $SFirstName = $senderFirstNamePreload; } if (!$SLastName) { $SLastName = $senderLastNamePreload; } $SFirstName = $m->comp('lib/sanitize.mas', sanitize=>$SFirstName); $SLastName = $m->comp('lib/sanitize.mas', sanitize=>$SLastName); $RFirstName = $m->comp('lib/sanitize.mas', sanitize=>$RFirstName); $RLastName = $m->comp('lib/sanitize.mas', sanitize=>$RLastName); $REmailAddress = $m->comp('lib/sanitize.mas', sanitize=>$REmailAddress); $Message = $m->comp('lib/sanitize.mas', sanitize=>$Message); ## REMOVE NEW LINES FROM MESSAGE IN ORDER TO PREVENT JSON ERRORS $Message =~ s/\n/
/g; $Message =~ s/\r//g; my @DeliveryOptions = (); if ((!$Delivery) or ($Delivery eq "now")) { $DeliveryOptions[0] = "CHECKED"; } else { $DeliveryOptions[1] = "CHECKED"; } if ($ARGS{submitTwo}) { $error_message .= "You must choose a gift certificate amount
" if (!$GCAmount); $error_message .= "You must specify a sender first name
" if ($SFirstName eq ''); $error_message .= "You must specify a sender last name
" if ($SLastName eq ''); $error_message .= "You must specify a recipient first name
" if ($RFirstName eq ''); $error_message .= "You must specify a recipient last name
" if ($RLastName eq ''); $error_message .= "You must specify an email address
" if ($REmailAddress eq ''); $error_message .= "You have entered an invalid email address
" if $REmailAddress !~ /[\w.-]+\@([\w-]+\.)+\w+$/ and $REmailAddress ne ''; if ($Delivery eq "later") { if ($Year < $year) { $error_message .= "Your delivery date is past.
"; } elsif (($Year == $year) and ($Month < $month)) { $error_message .= "Your delivery date is past..
"; } elsif (($Year == $year) and ($Month == $month) and ($Day < $day)) { $error_message .= "Your delivery date is past...
"; } } if ($error_message eq '') { ## DETERMINE IF EITHER CUSTOMER OR SENDER IS AN ADAGIO CUSTOMER $sql = qq|SELECT USER_ID FROM users WHERE USER_ID = ?|; $sth = $dbh->prepare($sql); $sth->execute($userIdGlobal); my ($testEmailSender) = $sth->fetchrow_array(); $sql = qq|SELECT USER_ID FROM users WHERE EMAIL = ?|; $sth = $dbh->prepare($sql); $sth->execute($REmailAddress); my ($testEmailRecipient) = $sth->fetchrow_array(); if ($month >= 11) { if ((!$testEmailSender) and (!$testEmailRecipient)) { $error_message = "You may only send an e-gift cert to an existing Adagio Teas customer.
"; } } } if ($error_message eq '') { if ($Delivery eq "later") { $Delivery = "$Year-$Month-$Day"; } # LOOP THROUGH CART my $pidList; $sql = qq|SELECT PID FROM session_pid WHERE SID_ID = ?|; $sth = $dbh->prepare($sql); $sth->execute($sidGlobal); while (my ($pid) = $sth->fetchrow_array()) { $pidList .= ",$pid,"; } ## DETERMINE NEXT PID if ($pidList !~ /,012999001,/) {$pid = "012999001"} if ($pidList !~ /,012999002,/) {$pid = "012999002"} if ($pidList !~ /,012999003,/) {$pid = "012999003"} if ($pidList !~ /,012999004,/) {$pid = "012999004"} if ($pidList !~ /,012999005,/) {$pid = "012999005"} $m->comp("lib/sid_items_add.mas", pid=>$pid, json=>qq|{"amount":"$GCAmount","sFirst":"$SFirstName","sLast":"$SLastName","rFirst":"$RFirstName","rLast":"$RLastName","rEmail":"$REmailAddress","message":"$Message","delivery":"$Delivery"}|); $gcAddTest = 1; } } <%attr> title => 'WEBSITE_NAME - Gift Certificate'