Complete the order form, then print
it and fax it or post it to Chilla (NZ) Ltd, or telephone us with
your order.
VISA payment details can be taken over the phone, or by fax or email
106 Blackbridge Rd
R.D.4 Albany
AUCKLAND 0794
New Zealand
Phone/Fax: 09 426 3281 (International +64 9 426 3281)
Mobile: 027 426 3287 (International +64 27 426 3287)
email: info@chilla.co.nz |
<%
}
# ----------------------------------------------------------------------------------------------------------------------------------------------------------
sub send
{
my ($hshrf_params) = @_;
my $from = 'nobody@alchemy.co.nz';
if(defined($$hshrf_params{'email'})) {$from = $$hshrf_params{'email'};}
my $message;
$message = "Order Request:\n";
$message .= "-------------------------------------------\n" .
"Name: $$hshrf_params{'name'}\n" .
"Email Address: $$hshrf_params{'email'}\n" .
"Address: " . (join "\n ", (split '\n', ($$hshrf_params{'address'}))) . "\n" .
"Phone Number: $$hshrf_params{'phone'}\n\n" .
"Credit Card Holder: $$hshrf_params{'cardholder'}\n" .
"Credit Card Number: $$hshrf_params{'c1'} $$hshrf_params{'c2'} $$hshrf_params{'c3'} $$hshrf_params{'c4'}\n" .
"Expiry Date: $$hshrf_params{'expmonth'} / $$hshrf_params{'expyear'}\n" .
"-------------------------------------------\n\n$$hshrf_params{'message'}";
my $result = &Alchemy::Net::SendMail::SendMessage(
-subject => $$hshrf_params{'subject'},
-to => $purchaseOfficer,
-from => $from,
-replyto => $from,
-body => $message);
if($result)
{
%>
<%
#store the details of the transaction before sending it
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $record = "Chilla Online Purchse - Date:$day/" . ($mon + 1) . "/$year $hour:$min:$sec; Name:$params{'name'}; Email:$params{'email'};";
open FILEHANDLE, ">> " . $Server->MapPath('/') . "/tlog.log";
print FILEHANDLE "$record\n";
close FILEHANLDE;
# send a copy of the record to the client
#&Alchemy::Net::SendMail::SendMessage(
# -subject => 'Chilla Online Purchase',
# -to => $secondaryOfficer,
# -from => $params{'email'},
# -replyto => $params{'email'},
# -body => $record);
}
else
{
%>
<%
}
}
%>
Postage within NZ $4.90
Overseas please contact
us for a quote
Note: all prices are in New Zealand
Dollars and include Goods and Services Tax (12.5%) for
New Zealand residents.
|
|
<%
if(defined($params{'build'})) {&build(\%params, \@products, \@equineproducts);}
elsif(defined($params{'send'})) {&send(\%params);}
else {&main(\@products, \@equineproducts);}
%>
|
