#!/usr/bin/perl 
my $bFound = 0;
my $sDir;
foreach $sDir (@INC)
{
if ($sDir eq ".")
{
$bFound = 1;
last;
}
}
if (!$bFound)
{
push (@INC, ".");
}
push (@INC, "cgi-bin");
require al000001;
require as000001;
require ad000001;
require ae000001;
require ao000001;
use Socket;
use strict;
$::prog_name = "ORDERSCR";
$::prog_name = $::prog_name;
$::prog_ver = '$Revision: 357 $ ';
$::prog_ver = substr($::prog_ver, 11);
$::prog_ver =~ s/ \$//;
$::FORWARD	= 0;
$::BACKWARD	= 1;
$::eApplet 		= 0;
$::eSharedSSL	= 1;
$::eDelivery	= 0;
$::eInvoice		= 1;
$::ORDER_BLOB_VERSION = 20;
$::ORDER_DETAIL_BLOB_VERSION = 8;
$::g_sSmtpServer = "smtp.spiritualityworks.com";
$::g_nCurrentSequenceNumber = -1;
$::g_nNextSequenceNumber = -1;
my $nDebugLogLevel = 0;
Init();
ProcessInput();
exit;
sub Init
{
$::g_bFirstError = $::TRUE;
my (@Response, $Status, $Message);
@Response = ReadAndParseInput();
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
ACTINIC::TerminalError($Message);
}
if ($::g_InputHash{'SEQUENCE'} <= 3) 
{
CreateAddressBook();
}
@Response = ReadAndParseBlobs();
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
ACTINIC::ReportError($Message, ACTINIC::GetPath());
}
if($::g_InputHash{"ACTION"} eq "OCC_VALIDATE" ||
($::g_InputHash{ACTION} =~ /^AUTHORIZE/i) ||
($::g_InputHash{"ACTION"} eq "RECORDORDER" && $$::g_pSetupBlob{USE_SHARED_SSL}))
{
if(defined $::g_PaymentInfo{BUYERHASH})
{
$ACTINIC::B2B->Set('UserDigest', $::g_PaymentInfo{BUYERHASH});
$ACTINIC::B2B->Set('UserName', $::g_PaymentInfo{BUYERNAME});
$ACTINIC::B2B->Set('BaseFile', $::g_PaymentInfo{BASEFILE});
}
}
else
{
$ACTINIC::B2B->Set('UserDigest',ACTINIC::CAccFindUser());
}
ACTINIC::InitMonthMap();
if( $::g_InputHash{'BASE'} )
{
$::g_sContentUrl = $::g_InputHash{'BASE'};
}
}
sub ReadAndParseInput
{
my ($status, $message, $temp);
($status, $message, $::g_OriginalInputData, $temp, %::g_InputHash) = ACTINIC::ReadAndParseInput();
if ($status != $::SUCCESS)
{
return ($status, $message, 0, 0);
}
($status, $message, @::g_PageList) = ACTINIC::ProcessReferencePageData(%::g_InputHash);
if ($status != $::SUCCESS)
{
return ($status, $message, 0, 0);
}
($status, $message, $::g_sWebSiteUrl, $::g_sContentUrl) = ACTINIC::GetWebSiteURL(@::g_PageList);
if ($status != $::SUCCESS)
{
return ($status, $message, 0, 0);
}
if ($::g_InputHash{'COOKIE'})
{
my $sCookie = ACTINIC::DecodeText($::g_InputHash{'COOKIE'}, $ACTINIC::FORM_URL_ENCODED);
$ENV{'HTTP_COOKIE'} = $sCookie;
}
return ($::SUCCESS, "", 0, 0);
}
sub ReadAndParseBlobs
{
my ($Status, $Message, @Response, $sPath);
$sPath = ACTINIC::GetPath();
@Response = ACTINIC::ReadCatalogFile($sPath);
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::ReadSetupFile($sPath);
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::ReadLocationsFile($sPath);
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::ReadPaymentFile($sPath);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::ReadPhaseFile($sPath);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::ReadPromptFile($sPath);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::ReadTaxSetupFile($sPath);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::ReadSSPSetupFile($sPath);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
@Response = ActinicOrder::GetCartID(ACTINIC::GetPath());
($Status, $Message, $::g_sCartId) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
if ($::g_InputHash{CARTID} &&
$::g_InputHash{CARTID} =~ /^[a-zA-Z0-9]+$/)
{
$::g_sCartId = $::g_InputHash{CARTID};
}
if ($::g_InputHash{CART} &&
$::g_InputHash{CART} =~ /^[a-zA-Z0-9]+$/)
{
$::g_sCartId = $::g_InputHash{CART};
}
my ($pBillContact, $pShipContact, $pShipInfo, $pTaxInfo, $pGeneralInfo, $pPaymentInfo, $pLocationInfo);
@Response = ActinicOrder::RetrieveCheckoutStatus($sPath, $::g_sCartId);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
($Status, $Message, $pBillContact, $pShipContact, $pShipInfo, $pTaxInfo, $pGeneralInfo, $pPaymentInfo, $pLocationInfo) = @Response;
%::g_BillContact = %$pBillContact;
%::g_ShipContact = %$pShipContact;
%::g_ShipInfo		= %$pShipInfo;
%::g_TaxInfo		= %$pTaxInfo;
%::g_GeneralInfo = %$pGeneralInfo;
%::g_PaymentInfo = %$pPaymentInfo;
%::g_LocationInfo = %$pLocationInfo;
return ($::SUCCESS, "", 0, 0);
}
sub ProcessInput
{
my (@Response, $sDetailCookie);
$::g_nCurrentSequenceNumber = $::g_InputHash{'SEQUENCE'};
if (!defined $::g_nCurrentSequenceNumber)
{
$::g_nCurrentSequenceNumber = $::STARTSEQUENCE;
}
my ($sStartButton, $sDoneButton, $sNextButton, $sFinishButton, $sBackButton, $sCancelButton, $sChangeLocationButton);
$sStartButton = ACTINIC::GetPhrase(-1, 113);
$sDoneButton = ACTINIC::GetPhrase(-1, 114);
$sNextButton = ACTINIC::GetPhrase(-1, 502);
$sBackButton = ACTINIC::GetPhrase(-1, 503);
$sFinishButton = ACTINIC::GetPhrase(-1, 504);
$sCancelButton = ACTINIC::GetPhrase(-1, 505);
$sChangeLocationButton = ACTINIC::GetPhrase(0, 18);
my ($sHTML, $sAction, $eDirection);
$sAction = $::g_InputHash{'ACTION'};
if ($sAction eq "" &&
$::g_InputHash{ACTIONOVERRIDE})
{
$sAction = $::g_InputHash{ACTIONOVERRIDE};
}
if ($sAction =~ m/SSP_TRACK/i)
{
FormatTrackingPage();
@Response = FormatTrackingPage();
if ($Response[0] != $::SUCCESS)
{
ACTINIC::ReportError($Response[1], ACTINIC::GetPath());
return;
}
$sHTML = $Response[2];
goto THEEND;
}
elsif ($sAction =~ m/$sStartButton/i ||
$sAction =~ m/$sNextButton/i ||
$sAction =~ m/$sFinishButton/i ||
$sAction =~ m/^AUTHORIZE/i ||
$sAction =~ m/RECORDORDER/i ||
exists $::g_InputHash{$sNextButton . ".x"} ||
exists $::g_InputHash{$sFinishButton . ".x"})
{	
$eDirection = $::FORWARD;
}
elsif ($sAction =~ m/$sBackButton/i ||
$sAction =~ m/$sChangeLocationButton/i ||	
exists $::g_InputHash{$sBackButton . ".x"})
{
$eDirection = $::BACKWARD;
}
elsif ($sAction =~ m/$sDoneButton/i ||
exists $::g_InputHash{$sDoneButton . ".x"})
{
my $sRefPage;
if( $ACTINIC::B2B->Get('UserDigest') )
{
if (defined $$::g_pSetupBlob{'UNFRAMED_CHECKOUT_URL'} &&
$$::g_pSetupBlob{'UNFRAMED_CHECKOUT_URL'} ne "")
{
$sRefPage = $$::g_pSetupBlob{'UNFRAMED_CHECKOUT_URL'};
}
else
{
$sRefPage = ActinicOrder::GetLastPage();
}
}
else
{
if ($::g_InputHash{'HOME'} =~ /^http/)
{
$sRefPage = $::g_InputHash{'HOME'};
}
else
{
$sRefPage = $::g_sWebSiteUrl . $::g_InputHash{'HOME'};
}
if (defined $::g_InputHash{'ALTERNATEMALLHOME'})
{
$sRefPage = $::g_InputHash{'ALTERNATEMALLHOME'};
}
}
@Response = ACTINIC::BounceToPagePlain(0, undef, undef, \@::g_PageList, $::g_sWebSiteUrl,
$::g_sContentUrl, $::g_pSetupBlob, $sRefPage, \%::g_InputHash);
if ($Response[0] != $::SUCCESS)
{
ACTINIC::ReportError($Response[1], ACTINIC::GetPath());
return;
}
$sHTML = $Response[2];
if ($ACTINIC::B2B->Get('UserDigest'))
{
$sHTML =~ s/([\?|\&]ACTINIC_REFERRER[^\&|"|']*)//gi;
}
goto THEEND;
}
elsif ($sAction =~ m/OCC_VALIDATE/i)
{
@Response = GetOCCValidationData();
if ($Response[0] != $::SUCCESS)
{
ACTINIC::RecordErrors($Response[1], ACTINIC::GetPath());
$sHTML = '0';
}
else
{
$sHTML = $Response[2];
}
ACTINIC::PrintText($sHTML);
return;
}
else
{
$sHTML = GetCancelPage();
goto THEEND;
}
@Response = ValidateInput($eDirection);
if ($Response[0] == $::BADDATA)
{
$sHTML = $Response[1];
$sDetailCookie = $Response[2];
goto THEEND;
}
elsif ($Response[0] != $::SUCCESS)
{
ACTINIC::ReportError($Response[1], ACTINIC::GetPath());
return;
}
if($sAction =~ m/$sChangeLocationButton/i)
{
$::g_nCurrentSequenceNumber = $::STARTSEQUENCE;
$eDirection = $::FORWARD;
}
if ($eDirection == $::FORWARD)
{
$::g_nNextSequenceNumber = $::g_nCurrentSequenceNumber + 1;
}
else
{
$::g_nNextSequenceNumber = $::g_nCurrentSequenceNumber - 1;
}
ActinicOrder::ParseAdvancedTax();
@Response = DisplayPage("", $::g_nNextSequenceNumber, $eDirection);
if ($Response[0] != $::SUCCESS)
{
ACTINIC::ReportError($Response[1], ACTINIC::GetPath());
return;
}
$sHTML = $Response[2];
$sDetailCookie = $Response[3];
THEEND:
ACTINIC::UpdateDisplay($sHTML, $::g_OriginalInputData, \@::g_PageList, undef, undef, $sDetailCookie, ActinicOrder::GenerateCartCookie());
}
sub ValidateInput
{
my ($eDirection);
if ($#_ != 0)
{
$eDirection = $::FORWARD;
}
($eDirection) = @_;
my ($bActuallyValidate) = ($eDirection == $::FORWARD);
my (@Response);
if ($::g_nCurrentSequenceNumber == $::STARTSEQUENCE)
{
@Response = ValidateStart($bActuallyValidate); # validate the input/cart settings
return (@Response);
}
else
{
my ($sPhaseList) = $$::g_pPhaseList{$::g_nCurrentSequenceNumber};
my (@Phases) = split (//, $sPhaseList);
my ($nPhase, $sError);
foreach $nPhase (@Phases)
{
if ($nPhase == $::BILLCONTACTPHASE)
{
$sError .= ValidateBill($bActuallyValidate);
}
elsif ($nPhase == $::SHIPCONTACTPHASE)
{
$sError .= ValidateShipContact($bActuallyValidate);
}
elsif ($nPhase == $::SHIPCHARGEPHASE)
{
$sError .= ValidateShipCharge($bActuallyValidate);
}
elsif ($nPhase == $::TAXCHARGEPHASE)
{
$sError .= ActinicOrder::ValidateTax($bActuallyValidate);
}
elsif ($nPhase == $::GENERALPHASE)
{
$sError .= ValidateGeneral($bActuallyValidate);
}
elsif ($nPhase == $::PAYMENTPHASE)
{
$sError .= ValidatePayment($bActuallyValidate);
}
elsif ($nPhase == $::COMPLETEPHASE)
{
if($::g_InputHash{'ACTION'} =~ m/^AUTHORIZE_(\d+)$/i)
{
$::g_PaymentInfo{'METHOD'} = $1;
}
if (!defined $::g_PaymentInfo{'METHOD'})
{
if ($$::g_pSetupBlob{USE_DH})
{
$sError .=  ACTINIC::GetPhrase(-1, 2040);
}
else
{
$sError .= ACTINIC::GetPhrase(-1, 1282);
}
next;
}				
if (length $::g_PaymentInfo{'METHOD'} == 0)
{
EnsurePaymentSelection();
}
my ($ePaymentMethod) = ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{'METHOD'}); # the payment method is stored as "ENUMERATEDID:DESCRIPTION"
if ($ACTINIC::B2B->Get('UserDigest') &&
($ePaymentMethod == $::PAYMENT_ON_ACCOUNT ||
$ePaymentMethod == $::PAYMENT_INVOICE))
{
$sError .= ValidateSignature($bActuallyValidate);
}
}
elsif ($nPhase == $::RECEIPTPHASE)
{
}
elsif ($nPhase == $::PRELIMINARYINFOPHASE)
{
$sError .= ActinicOrder::ValidatePreliminaryInfo($bActuallyValidate);
}
}
if ($sError ne '')
{
@Response = DisplayPage($sError, $::g_nCurrentSequenceNumber, $eDirection);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$Response[0] = $::BADDATA;
$Response[1] = $Response[2];
$Response[2] = $Response[3];
return (@Response);
}
}
return (UpdateCheckoutRecord());
}
sub ValidateStart
{
if ($#_ != 0)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 12, 'ValidateStart'), 0, 0);
}
my ($bActuallyValidate) = @_;
if (!$bActuallyValidate)
{
return ($::SUCCESS, "", 0, 0);
}
my ($nLineCount, @Response, $Status, $Message);
@Response = ActinicOrder::CountCartItems($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $nLineCount) = @Response;
if ($Status == $::FAILURE)
{
return (@Response);
}
if ($nLineCount <= 0)
{
my ($sLocalPage, $sHTML);
$sLocalPage = ActinicOrder::GetLastPage();
push (@::g_PageList, $sLocalPage);
push (@::g_PageList, $sLocalPage);
@Response = ACTINIC::BounceToPageEnhanced(5, ACTINIC::GetPhrase(-1, 1962) . ACTINIC::GetPhrase(-1, 44, $::g_sCart, $::g_sCart) . ACTINIC::GetPhrase(-1, 1970) . ACTINIC::GetPhrase(-1, 2049),
$$::g_pSetupBlob{CHECKOUT_DESCRIPTION},
\@::g_PageList, $::g_sWebSiteUrl,
$::g_sContentUrl, $::g_pSetupBlob, $sLocalPage, \%::g_InputHash,
$::FALSE);
($Status, $Message, $sHTML) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
return ($::BADDATA, $sHTML, 0, 0);
}
my $sHTML;
($Status, $sHTML) = ActinicOrder::CheckBuyerLimit($::g_sCartId,'',$::TRUE);
if ($Status != $::SUCCESS)
{
return ($::BADDATA,$sHTML);
}
return ($::SUCCESS, "", 0, 0);
}
sub ValidateBill
{
if ($#_ != 0)
{
ACTINIC::ReportError(ACTINIC::GetPhrase(-1, 12, 'ValidateBill'));
}
my ($bActuallyValidate) = @_;
if( $::g_InputHash{ADBACTION} )
{
return('');
}
if( $::g_InputHash{ADDRESSSELECT} )
{
my $sUserDigest = $ACTINIC::B2B->Get('UserDigest');
my ($status, $sMessage, $pBuyer) = ACTINIC::GetBuyer($sUserDigest, ACTINIC::GetPath());
if ($status != $::SUCCESS)
{
return ($sMessage);
}
my $pAccount;
($status, $sMessage, $pAccount) = ACTINIC::GetCustomerAccount($$pBuyer{AccountID}, ACTINIC::GetPath());
if ($status != $::SUCCESS)
{
return ($sMessage);
}
my $pAddress;
($status, $sMessage, $pAddress) = ACTINIC::GetCustomerAddress($$pBuyer{AccountID}, $::g_InputHash{ADDRESSSELECT}, ACTINIC::GetPath());
ACTINIC::CloseCustomerAddressIndex();
if ($status != $::SUCCESS)
{
return ($sMessage);
}
if( $pBuyer->{InvoiceAddressRule} != 0 )
{
$::g_BillContact{'NAME'}		= $pBuyer->{Name};
$::g_BillContact{'SALUTATION'}= $pBuyer->{Salutation};
$::g_BillContact{'JOBTITLE'}	= $pBuyer->{Title};
$::g_BillContact{'PHONE'} 		= $pBuyer->{'TelephoneNumber'};
$::g_BillContact{'FAX'} 		= $pBuyer->{'FaxNumber'};
$::g_BillContact{'EMAIL'} 		= $pBuyer->{'EmailAddress'};
}
else
{
$::g_BillContact{'NAME'}		= $pAccount->{'Name'};
$::g_BillContact{'SALUTATION'}= $pAccount->{Salutation};
$::g_BillContact{'JOBTITLE'}	= $pAccount->{Title};
$::g_BillContact{'PHONE'} 		= $pAccount->{'TelephoneNumber'};
$::g_BillContact{'FAX'} 		= $pAccount->{'FaxNumber'};
$::g_BillContact{'EMAIL'} 		= $pAccount->{'EmailAddress'};
}
$::g_BillContact{'ADDRESS1'} 		= $pAddress->{'Line1'};
$::g_BillContact{'ADDRESS2'} 		= $pAddress->{'Line2'};
$::g_BillContact{'ADDRESS3'} 		= $pAddress->{'Line3'};
$::g_BillContact{'ADDRESS4'} 		= $pAddress->{'Line4'};
$::g_BillContact{'POSTALCODE'} 	= $pAddress->{'PostCode'};
$::g_BillContact{'COUNTRY'} 		= ACTINIC::GetCountryName($pAddress->{'CountryCode'});
$::g_BillContact{'SEPARATE'}		= $::TRUE;
ActinicOrder::ParseAdvancedTax();
if($$::g_pTaxSetupBlob{TAX_BY} == $::eTaxByInvoice)
{
if(defined $$::g_pTaxSetupBlob{TAX_1} &&
$$::g_pTaxSetupBlob{TAX_1}{ID} == $pAddress->{'Tax1ID'})
{
$::g_TaxInfo{'EXEMPT1'} = $pAddress->{'ExemptTax1'} ? 1 : 0;
$::g_TaxInfo{'EXEMPT1DATA'} = $pAddress->{'Tax1ExemptData'};
}
if(defined $$::g_pTaxSetupBlob{TAX_2} &&
$$::g_pTaxSetupBlob{TAX_2}{ID} == $pAddress->{'Tax2ID'})
{
$::g_TaxInfo{'EXEMPT2'} = $pAddress->{'ExemptTax2'} ? 1 : 0;
$::g_TaxInfo{'EXEMPT2DATA'} = $pAddress->{'Tax2ExemptData'};
}
}
$::g_BillContact{'MOVING'} 		= $::FALSE;
$::g_BillContact{'PRIVACY'} 		= $::TRUE;
$::g_BillContact{'REMEMBERME'}	= $::FALSE;
}
else
{
$::g_BillContact{'SALUTATION'} 	= $::g_InputHash{'INVOICESALUTATION'};
$::g_BillContact{'NAME'} 			= $::g_InputHash{'INVOICENAME'};
$::g_BillContact{'JOBTITLE'} 		= $::g_InputHash{'INVOICEJOBTITLE'};
$::g_BillContact{'COMPANY'} 		= $::g_InputHash{'INVOICECOMPANY'};
$::g_BillContact{'ADDRESS1'} 		= $::g_InputHash{'INVOICEADDRESS1'};
$::g_BillContact{'ADDRESS2'} 		= $::g_InputHash{'INVOICEADDRESS2'};
$::g_BillContact{'ADDRESS3'} 		= $::g_InputHash{'INVOICEADDRESS3'};
$::g_BillContact{'ADDRESS4'} 		= $::g_InputHash{'INVOICEADDRESS4'};
$::g_BillContact{'POSTALCODE'} 	= $::g_InputHash{'INVOICEPOSTALCODE'};
$::g_BillContact{'COUNTRY'} 		= $::g_InputHash{'INVOICECOUNTRY'};
$::g_BillContact{'PHONE'} 			= $::g_InputHash{'INVOICEPHONE'};
$::g_BillContact{'FAX'} 			= $::g_InputHash{'INVOICEFAX'};
$::g_BillContact{'EMAIL'} 			= $::g_InputHash{'INVOICEEMAIL'};
$::g_BillContact{'USERDEFINED'} 	= $::g_InputHash{'INVOICEUSERDEFINED'};
$::g_BillContact{'MOVING'} 		= ($::g_InputHash{'INVOICEMOVING'} ne "") ? $::TRUE : $::FALSE;
$::g_BillContact{'PRIVACY'} 		= ($::g_InputHash{'INVOICEPRIVACY'} ne "") ? $::TRUE : $::FALSE;
$::g_BillContact{'SEPARATE'}		= ($::g_InputHash{'SEPARATESHIP'} ne "") ? $::TRUE : $::FALSE;
$::g_BillContact{'REMEMBERME'}	= (defined $::g_InputHash{'REMEMBERME'} && $::g_InputHash{'REMEMBERME'} ne "") ?
$::TRUE : $::FALSE;
}
ACTINIC::TrimHashEntries(\%::g_BillContact);
my ($sError);
if (!$bActuallyValidate)
{
return ($sError);
}
my (@Response);
if (ACTINIC::IsPromptRequired(0, 0) &&
$::g_BillContact{'SALUTATION'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 0);
}
if (ACTINIC::IsPromptRequired(0, 1) &&
$::g_BillContact{'NAME'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 1);
}
if (ACTINIC::IsPromptRequired(0, 2) &&
$::g_BillContact{'JOBTITLE'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 2);
}
if (ACTINIC::IsPromptRequired(0, 3) &&
$::g_BillContact{'COMPANY'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 3);
}
if (ACTINIC::IsPromptRequired(0, 4) &&
$::g_BillContact{'ADDRESS1'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 4);
}
if (ACTINIC::IsPromptRequired(0, 5) &&
$::g_BillContact{'ADDRESS2'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 5);
}
if (ACTINIC::IsPromptRequired(0, 6) &&
$::g_BillContact{'ADDRESS3'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 6);
}
if (ACTINIC::IsPromptRequired(0, 7) &&
$::g_BillContact{'ADDRESS4'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 7);
}
if (ACTINIC::IsPromptRequired(0, 8) &&
$::g_BillContact{'POSTALCODE'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 8);
}
if (ACTINIC::IsPromptRequired(0, 9) &&
$::g_BillContact{'COUNTRY'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 9);
}
if (ACTINIC::IsPromptRequired(0, 10) &&
$::g_BillContact{'PHONE'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 10);
}
if (ACTINIC::IsPromptRequired(0, 11) &&
$::g_BillContact{'FAX'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 11);
}
if (ACTINIC::IsPromptRequired(0, 12) &&
$::g_BillContact{'EMAIL'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 12);
}
if (ACTINIC::IsPromptRequired(0, 14) &&
$::g_BillContact{'USERDEFINED'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(0, 14);
}
if($sError eq '')
{
$sError .= ActinicOrder::ValidatePreliminaryInfo($bActuallyValidate);
}
return ($sError);
}
sub ValidateShipContact
{
if ($#_ != 0)
{
ACTINIC::ReportError(ACTINIC::GetPhrase(-1, 12, 'ValidateShipContact'));
}
my ($bActuallyValidate) = @_;
if ($::ACT_ADB)
{
ConfigureAddressBook();
$::ACT_ADB->ToForm();
$::s_VariableTable{$::VARPREFIX.'ADDRESSBOOK'}	= $::ACT_ADB->Show();
}
else
{
$::s_VariableTable{$::VARPREFIX.'ADDRESSBOOK'}	= "";
}	
my $bCheckReversed = (defined $$::g_pSetupBlob{'REVERSE_ADDRESS_CHECK'} &&
$$::g_pSetupBlob{'REVERSE_ADDRESS_CHECK'});
if( $::g_InputHash{ADDRESSSELECT} )
{
my $sUserDigest = $ACTINIC::B2B->Get('UserDigest');
my ($status, $sMessage, $pBuyer) = ACTINIC::GetBuyer($sUserDigest, ACTINIC::GetPath());
if ($status != $::SUCCESS)
{
return ($sMessage);
}
my $pAccount;
($status, $sMessage, $pAccount) = ACTINIC::GetCustomerAccount($$pBuyer{AccountID}, ACTINIC::GetPath());
if ($status != $::SUCCESS)
{
return ($sMessage);
}
my $pAddress;
($status, $sMessage, $pAddress) = ACTINIC::GetCustomerAddress($$pBuyer{AccountID}, $::g_InputHash{ADDRESSSELECT}, ACTINIC::GetPath());
ACTINIC::CloseCustomerAddressIndex();
if ($status != $::SUCCESS)
{
return ($sMessage);
}
$::g_ShipContact{'COMPANY'}	= $pAccount->{AccountName};
$::g_ShipContact{'NAME'}		= $pBuyer->{Name};
$::g_ShipContact{'SALUTATION'}= $pBuyer->{Salutation};
$::g_ShipContact{'JOBTITLE'}	= $pBuyer->{Title};
$::g_ShipContact{'PHONE'} 		= $pBuyer->{'TelephoneNumber'};
$::g_ShipContact{'FAX'} 		= $pBuyer->{'FaxNumber'};
$::g_ShipContact{'EMAIL'} 		= $pBuyer->{'EmailAddress'};
$::g_ShipContact{'ADDRESS1'} 		= $pAddress->{'Line1'};
$::g_ShipContact{'ADDRESS2'} 		= $pAddress->{'Line2'};
$::g_ShipContact{'ADDRESS3'} 		= $pAddress->{'Line3'};
$::g_ShipContact{'ADDRESS4'} 		= $pAddress->{'Line4'};
$::g_ShipContact{'POSTALCODE'} 	= $pAddress->{'PostCode'};
$::g_ShipContact{'COUNTRY'} 		= ACTINIC::GetCountryName($pAddress->{'CountryCode'});
$::g_ShipContact{PRIVACY} 		   = $::TRUE;
}
else
{
if (((!$bCheckReversed && !$::g_BillContact{'SEPARATE'}) ||
($bCheckReversed && $::g_BillContact{'SEPARATE'})) )
{
$::g_ShipContact{'SALUTATION'} 	= $::g_BillContact{'SALUTATION'};
$::g_ShipContact{'NAME'} 			= $::g_BillContact{'NAME'};
$::g_ShipContact{'JOBTITLE'}		= $::g_BillContact{'JOBTITLE'};
$::g_ShipContact{'COMPANY'} 		= $::g_BillContact{'COMPANY'};
$::g_ShipContact{'ADDRESS1'}		= $::g_BillContact{'ADDRESS1'};
$::g_ShipContact{'ADDRESS2'}		= $::g_BillContact{'ADDRESS2'};
$::g_ShipContact{'ADDRESS3'}		= $::g_BillContact{'ADDRESS3'};
$::g_ShipContact{'ADDRESS4'}		= $::g_BillContact{'ADDRESS4'};
$::g_ShipContact{'POSTALCODE'} 	= $::g_BillContact{'POSTALCODE'};
$::g_ShipContact{'COUNTRY'} 		= $::g_BillContact{'COUNTRY'};
$::g_ShipContact{'PHONE'} 			= $::g_BillContact{'PHONE'};
$::g_ShipContact{'FAX'} 			= $::g_BillContact{'FAX'};
$::g_ShipContact{'EMAIL'} 			= $::g_BillContact{'EMAIL'};
$::g_ShipContact{'USERDEFINED'} 	= $::g_BillContact{'USERDEFINED'};
}
else
{
$::g_ShipContact{'SALUTATION'}	= $::g_InputHash{'DELIVERSALUTATION'};
$::g_ShipContact{'NAME'} 			= $::g_InputHash{'DELIVERNAME'};
$::g_ShipContact{'JOBTITLE'}		= $::g_InputHash{'DELIVERJOBTITLE'};
$::g_ShipContact{'COMPANY'} 		= $::g_InputHash{'DELIVERCOMPANY'};
$::g_ShipContact{'ADDRESS1'}		= $::g_InputHash{'DELIVERADDRESS1'};
$::g_ShipContact{'ADDRESS2'}		= $::g_InputHash{'DELIVERADDRESS2'};
$::g_ShipContact{'ADDRESS3'}		= $::g_InputHash{'DELIVERADDRESS3'};
$::g_ShipContact{'ADDRESS4'}		= $::g_InputHash{'DELIVERADDRESS4'};
$::g_ShipContact{'POSTALCODE'} 	= $::g_InputHash{'DELIVERPOSTALCODE'};
$::g_ShipContact{'COUNTRY'} 		= $::g_InputHash{'DELIVERCOUNTRY'};
$::g_ShipContact{'PHONE'} 			= $::g_InputHash{'DELIVERPHONE'};
$::g_ShipContact{'FAX'} 			= $::g_InputHash{'DELIVERFAX'};
$::g_ShipContact{'EMAIL'} 			= $::g_InputHash{'DELIVEREMAIL'};
$::g_ShipContact{'USERDEFINED'} 	= $::g_InputHash{'DELIVERUSERDEFINED'};
}
$::g_ShipContact{'PRIVACY'} 			= $::g_BillContact{'PRIVACY'};
}
ACTINIC::TrimHashEntries(\%::g_ShipContact);
my ($sError);
if (!$bActuallyValidate ||
(!$bCheckReversed && !$::g_BillContact{'SEPARATE'}) ||
($bCheckReversed && $::g_BillContact{'SEPARATE'}))
{
return ($sError);
}
my (@Response);
if (ACTINIC::IsPromptRequired(1, 0) &&
$::g_ShipContact{'SALUTATION'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 0);
}
if (ACTINIC::IsPromptRequired(1, 1) &&
$::g_ShipContact{'NAME'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 1);
}
if (ACTINIC::IsPromptRequired(1, 2) &&
$::g_ShipContact{'JOBTITLE'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 2);
}
if (ACTINIC::IsPromptRequired(1, 3) &&
$::g_ShipContact{'COMPANY'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 3);
}
if (ACTINIC::IsPromptRequired(1, 4) &&
$::g_ShipContact{'ADDRESS1'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 4);
}
if (ACTINIC::IsPromptRequired(1, 5) &&
$::g_ShipContact{'ADDRESS2'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 5);
}
if (ACTINIC::IsPromptRequired(1, 6) &&
$::g_ShipContact{'ADDRESS3'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 6);
}
if (ACTINIC::IsPromptRequired(1, 7) &&
$::g_ShipContact{'ADDRESS4'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 7);
}
if (ACTINIC::IsPromptRequired(1, 8) &&
$::g_ShipContact{'POSTALCODE'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 8);
}
if (ACTINIC::IsPromptRequired(1, 9) &&
$::g_ShipContact{'COUNTRY'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 9);
}
if (ACTINIC::IsPromptRequired(1, 10) &&
$::g_ShipContact{'PHONE'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 10);
}
if (ACTINIC::IsPromptRequired(1, 11) &&
$::g_ShipContact{'FAX'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 11);
}
if (ACTINIC::IsPromptRequired(1, 12) &&
$::g_ShipContact{'EMAIL'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 12);
}
if (ACTINIC::IsPromptRequired(1, 13) &&
$::g_ShipContact{'USERDEFINED'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(1, 13);
}
if($sError eq '')
{
$sError .= ActinicOrder::ValidatePreliminaryInfo($bActuallyValidate);
}
return ($sError);
}
sub ValidateShipCharge
{
if ($#_ != 0)
{
ACTINIC::ReportError(ACTINIC::GetPhrase(-1, 12, 'ValidateShipCharge'));
}
my ($bActuallyValidate) = @_;
my ($sError);
if ($$::g_pSetupBlob{MAKE_SHIPPING_CHARGE} &&
!ActinicOrder::IsPhaseHidden($::SHIPCHARGEPHASE))
{
my @Response = ActinicOrder::CallShippingPlugIn();
if ($bActuallyValidate)
{
if ($Response[0] != $::SUCCESS)
{
$sError .= ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) .  ACTINIC::GetPhrase(-1, 102) . ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970) . " - ". $Response[1] . "<BR>\n";
}
elsif (${$Response[2]}{ValidateFinalInput} != $::SUCCESS)
{
$sError .= ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(-1, 102) . ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970) . " - ". ${$Response[3]}{ValidateFinalInput} . "<BR>\n";
}
}
}
$::g_ShipInfo{'USERDEFINED'}	= $::g_InputHash{'SHIPUSERDEFINED'};
ACTINIC::TrimHashEntries(\%::g_ShipInfo);
if ($bActuallyValidate &&
ACTINIC::IsPromptRequired(2, 1) &&
$::g_ShipInfo{'USERDEFINED'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(2, 1);
}
if ($sError ne "")
{
$sError = "<B>" . ACTINIC::GetPhrase(-1, 149) . "</B>" . ACTINIC::GetPhrase(-1, 1961, $sError);
}
return ($sError);
}
sub ValidateGeneral
{
if ($#_ != 0)
{
ACTINIC::ReportError(ACTINIC::GetPhrase(-1, 12, 'ValidateGeneral'));
}
my ($bActuallyValidate) = @_;
$::g_GeneralInfo{'HOWFOUND'} 	= $::g_InputHash{'GENERALHOWFOUND'};
$::g_GeneralInfo{'WHYBUY'} 		= $::g_InputHash{'GENERALWHYBUY'};
$::g_GeneralInfo{'USERDEFINED'} = $::g_InputHash{'GENERALUSERDEFINED'};
ACTINIC::TrimHashEntries(\%::g_GeneralInfo);
my ($sError);
if (!$bActuallyValidate)
{
return ($sError);
}
my (@Response);
if (ACTINIC::IsPromptRequired(4, 0) &&
$::g_GeneralInfo{'HOWFOUND'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(4, 0);
}
if (ACTINIC::IsPromptRequired(4, 1) &&
$::g_GeneralInfo{'WHYBUY'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(4, 1);
}
if (ACTINIC::IsPromptRequired(4, 2) &&
$::g_GeneralInfo{'USERDEFINED'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(4, 2);
}
if ($sError ne "")
{
$sError = "<B>" . ACTINIC::GetPhrase(-1, 151) . "</B>" . ACTINIC::GetPhrase(-1, 1961, $sError);
}
return ($sError);
}
sub ValidatePayment
{
if ($#_ != 0)
{
ACTINIC::ReportError(ACTINIC::GetPhrase(-1, 12, 'ValidatePayment'));
}
my ($bActuallyValidate) = @_;
$::g_PaymentInfo{'METHOD'}			= $::g_InputHash{'PAYMENTMETHOD'};
$::g_PaymentInfo{'USERDEFINED'}	= $::g_InputHash{'PAYMENTUSERDEFINED'};
$::g_PaymentInfo{'PONO'}			= $::g_InputHash{'PAYMENTPONO'};
$::g_PaymentInfo{'CARDTYPE'}		= $::g_InputHash{'PAYMENTCARDTYPE'};
$::g_PaymentInfo{'CARDNUMBER'}	= $::g_InputHash{'PAYMENTCARDNUMBER'};
$::g_PaymentInfo{'CARDISSUE'}		= $::g_InputHash{'PAYMENTCARDISSUE'};
$::g_PaymentInfo{'CARDVV2'}		= $::g_InputHash{'PAYMENTCARDVV2'};
$::g_PaymentInfo{'EXPMONTH'}		= $::g_InputHash{'PAYMENTEXPMONTH'};
$::g_PaymentInfo{'EXPYEAR'}		= $::g_InputHash{'PAYMENTEXPYEAR'};
$::g_PaymentInfo{'STARTMONTH'}	= $::g_InputHash{'PAYMENTSTARTMONTH'};
$::g_PaymentInfo{'STARTYEAR'}		= $::g_InputHash{'PAYMENTSTARTYEAR'};
ACTINIC::TrimHashEntries(\%::g_PaymentInfo);
EnsurePaymentSelection();
my ($sError);
if (!$bActuallyValidate)
{
return ($sError);
}
my (@Response);
if (ACTINIC::IsPromptRequired(5, 6) &&
$::g_PaymentInfo{'PONO'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(5, 6);
}
if (ACTINIC::IsPromptRequired(5, 7) &&
$::g_PaymentInfo{'USERDEFINED'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(5, 7);
}
my ($ePaymentMethod) = ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{'METHOD'}); # the payment method is stored as "ENUMERATEDID:DESCRIPTION"
if ($ePaymentMethod == $::PAYMENT_CREDIT_CARD &&
!$$::g_pSetupBlob{USE_SHARED_SSL} &&
!$$::g_pSetupBlob{USE_DH} )
{
if ($::g_PaymentInfo{'CARDTYPE'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(5, 1);
}
my ($nIndex, $sCCID, $bFound);
$bFound = $::FALSE;
for ($nIndex = 0; $nIndex < 12; $nIndex++)
{
$sCCID = sprintf('CC%d', $nIndex);
if ($$::g_pSetupBlob{$sCCID} eq
$::g_PaymentInfo{'CARDTYPE'})
{
$bFound = $::TRUE;
last;
}
}
if (!$bFound)
{
$sError .= ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(5, 1) .
ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970) .
ACTINIC::GetPhrase(-1, 107, $::g_PaymentInfo{'CARDTYPE'}) . "<BR>\n"
}
my ($nNumber) = $::g_PaymentInfo{'CARDNUMBER'};
$nNumber =~ s/\s//g;
$nNumber =~ s/-//g;
if ($nNumber eq "")
{
$sError .= ACTINIC::GetRequiredMessage(5, 2);
}
if ($nNumber =~ /[^0-9]/)
{
$sError .= ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(5, 2) .
ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970) .
ACTINIC::GetPhrase(-1, 108) . "<BR>\n"
}
my ($nCheckSum, $nDigitCount) = (0, 0);
my ($nDigit, $nCheck);
for($nIndex = (length $nNumber) - 1; $nIndex >= 0; $nIndex--)
{
$nDigit = substr($nNumber, $nIndex, 1);
$nCheck = (1 + $nDigitCount++ % 2) *
$nDigit;
if ( $nCheck >= 10)
{
$nCheck++;
}
$nCheckSum += $nCheck;
}
if (($nCheckSum % 10) != 0)
{
$sError .= ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(5, 2) .
ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970) .
ACTINIC::GetPhrase(-1, 109) . "<BR>\n"
}
if ($$::g_pSetupBlob{$sCCID . '_ISSUENUMBERFLAG'})
{
if ($::g_PaymentInfo{'CARDISSUE'} eq "" ||
$::g_PaymentInfo{'CARDISSUE'} < 0 ||
$::g_PaymentInfo{'CARDISSUE'} > 255)
{
$sError .= ACTINIC::GetPhrase(-1, 110, ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(5, 5) . ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970), $::g_PaymentInfo{'CARDTYPE'}) . "<BR>\n"
}
}
else
{
$::g_PaymentInfo{'CARDISSUE'} = "";
}
if ($$::g_pSetupBlob{$sCCID . '_CVV2FLAG'})
{
if (length $::g_PaymentInfo{'CARDVV2'} != $$::g_pSetupBlob{$sCCID . '_CVV2DIGITS'})
{
$sError .= ACTINIC::GetPhrase(-1, 560) . "<BR>\n"
}
}
else
{
$::g_PaymentInfo{'CARDVV2'} = "";
}
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst, $sDate);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$mon++;
$year += 1900;
if ($$::g_pSetupBlob{$sCCID . '_STARTDATEFLAG'})
{
if ($::g_PaymentInfo{'STARTMONTH'} eq "" ||
$::g_PaymentInfo{'STARTYEAR'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(5, 3);
}
if ($::g_PaymentInfo{'STARTYEAR'} == $year &&
$::g_PaymentInfo{'STARTMONTH'} > $mon)
{
$sError .= ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(5, 3) .
ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970) .
ACTINIC::GetPhrase(-1, 111) . "<BR>\n"
}
}
else
{
$::g_PaymentInfo{'STARTMONTH'} = "";
$::g_PaymentInfo{'STARTYEAR'} = "";
}
if ($::g_PaymentInfo{'EXPMONTH'} eq "" ||
$::g_PaymentInfo{'EXPYEAR'} eq "")
{
$sError .= ACTINIC::GetRequiredMessage(5, 4);
}
if ($::g_PaymentInfo{'EXPYEAR'} == $year &&
$::g_PaymentInfo{'EXPMONTH'} < $mon)
{
$sError .= ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(5, 4) .
ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970) .
ACTINIC::GetPhrase(-1, 112) . "<BR>\n"
}
}
else
{
$::g_PaymentInfo{'CARDTYPE'}		= "";
$::g_PaymentInfo{'CARDNUMBER'}	= "";
$::g_PaymentInfo{'CARDISSUE'}		= "";
$::g_PaymentInfo{'CARDVV2'}		= "";
$::g_PaymentInfo{'EXPMONTH'}		= "";
$::g_PaymentInfo{'EXPYEAR'}		= "";
$::g_PaymentInfo{'STARTMONTH'}	= "";
$::g_PaymentInfo{'STARTYEAR'}		= "";
}
if ($sError ne "")
{
$sError = "<B>" . ACTINIC::GetPhrase(-1, 152) . "</B>" . ACTINIC::GetPhrase(-1, 1961, $sError);
}
return ($sError);
}
sub ValidateSignature
{
$::g_sSignature = $::g_InputHash{SIGNATURE};
if ($::g_sSignature ne '')
{
$::g_sSignature =~ /^([a-fA-F0-9]{32})$/;
$::g_sSignature = $1;
}
return (undef);
}
sub DisplayPage
{
if ($#_ != 2)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 12, 'DisplayPage'), 0, 0);
}
my (%VariableTable, $sDetailCookie);
my ($sError, $nPageNumber, $eDirection) = @_;
my (@Response, $sPath);
$sPath = ACTINIC::GetPath();
my ($pCartList);
my $bReDisplayReceipt = $::FALSE;
@Response = ActinicOrder::ReadCart($::g_sCartId, $sPath);
if ($Response[0] == $::EOF)
{
if ($::g_InputHash{'ACTION'} =~ m/RECORDORDER/i)
{
if ($$::g_pSetupBlob{USE_DH})
{
ACTINIC::PrintText("0" . ACTINIC::GetPhrase(-1, 2040));
}
else
{
ACTINIC::PrintText("0" . ACTINIC::GetPhrase(-1, 1282));
}
exit;
}
my ($sPhaseList) = $$::g_pPhaseList{$nPageNumber};
my (@Phases) = split (//, $sPhaseList);
if (($nPageNumber == 3 && $Phases[0] == $::COMPLETEPHASE) ||
($nPageNumber == 4 && $Phases[0] == $::RECEIPTPHASE))
{
my ($Status, $Message, $pBillContact, $pShipContact, $pShipInfo, $pTaxInfo, $pGeneralInfo, $pPaymentInfo, $pLocationInfo);
@Response = ActinicOrder::RetrieveCheckoutStatus($sPath, $::g_sCartId, $::TRUE);
if ($Response[0] == $::SUCCESS)
{
($Status, $Message, $pBillContact, $pShipContact, $pShipInfo, $pTaxInfo, $pGeneralInfo, $pPaymentInfo, $pLocationInfo) = @Response;
%::g_BillContact = %$pBillContact;
%::g_ShipContact = %$pShipContact;
%::g_ShipInfo		= %$pShipInfo;
%::g_TaxInfo		= %$pTaxInfo;
%::g_GeneralInfo = %$pGeneralInfo;
%::g_PaymentInfo = %$pPaymentInfo;
%::g_LocationInfo = %$pLocationInfo;
@Response = ActinicOrder::ReadCart($::g_sCartId, $sPath, $::TRUE);
if ($Response[0] == $::SUCCESS)
{
$bReDisplayReceipt = $::TRUE;			
}				
}
}
if (!$bReDisplayReceipt)
{
@Response = ACTINIC::BounceToPageEnhanced(7, ACTINIC::GetPhrase(-1, 1282),
$$::g_pSetupBlob{CHECKOUT_DESCRIPTION},
\@::g_PageList, $::g_sWebSiteUrl,
$::g_sContentUrl, $::g_pSetupBlob,
ActinicOrder::GetLastPage(),
\%::g_InputHash,
$::FALSE);
return (@Response);
}
}
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$pCartList = $Response[2];
my $nLineCount = CountValidCartItems($pCartList);
my $sMessage;
if ($nLineCount != scalar @$pCartList &&
$::g_bFirstError)
{
$::g_bFirstError = $::FALSE;
$sMessage = "<P>" . ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(-1, 175) . ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970);
return(DisplayPage($sMessage, $::g_nCurrentSequenceNumber, $eDirection));
}
my (@DeleteDelimiters, @KeepDelimiters, $nInc, $status);
my ($pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $nKeyCount, $pSelectTable);
if ($bReDisplayReceipt)
{
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = DisplayReceiptPhase($::g_PaymentInfo{'ORDERNUMBER'}, $::g_PaymentInfo{METHOD}, $bReDisplayReceipt);
$nPageNumber = 4;
}
else
{
$nInc = ($eDirection == $::FORWARD) ? 1 : -1;
$nKeyCount = 0;
while ($nKeyCount == 0 &&
$nPageNumber >= 0)
{
my $sTempCookie;
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable, $sTempCookie) =
ProcessPage($nPageNumber);
$sDetailCookie .= $sTempCookie;
if ($status != $::SUCCESS)
{
if ($::g_bFirstError)
{
$::g_bFirstError = $::FALSE;
$sMessage = "<P>" . ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . $sMessage . ACTINIC::GetPhrase(-1, 1975) . ACTINIC::GetPhrase(-1, 1970);
return(DisplayPage($sMessage, $::g_nCurrentSequenceNumber, $eDirection));
}
else
{
return($status, $sMessage, 0, undef);
}
}
$nKeyCount = (keys %$pVarTable) + (keys %$pSelectTable);
$nPageNumber += $nInc;
}
$nPageNumber -= $nInc;
if ($nKeyCount == 0)
{
if (length $sError > 0)
{
my ($sRefPage) = ActinicOrder::GetLastPage();
if ($$::g_pSetupBlob{UNFRAMED_CHECKOUT} &&
$$::g_pSetupBlob{UNFRAMED_CHECKOUT_URL})
{
$sRefPage = $$::g_pSetupBlob{UNFRAMED_CHECKOUT_URL};
}
my @Response = ACTINIC::BounceToPageEnhanced(-1, $sError, ACTINIC::GetPhrase(-1, 25),
\@::g_PageList, $::g_sWebSiteUrl, $::g_sContentUrl, $::g_pSetupBlob, $sRefPage, \%::g_InputHash);
if ($Response[0] != $::SUCCESS)
{
ACTINIC::ReportError($sError, ACTINIC::GetPath());
}
return ($::SUCCESS, '', $Response[2], undef);
}
else
{
return ($::SUCCESS, "", GetCancelPage(), undef);
}
}
}
@Response = ActinicOrder::GenerateShoppingCartLines($pCartList);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$VariableTable{$::VARPREFIX.'THEORDERDETAILS'} = $Response[2];
my (@a1, @a2);
@a1 = %VariableTable;
@a2 = %$pVarTable;
push (@a1, @a2);
%VariableTable = @a1;
@DeleteDelimiters = @$pDeleteDelimiters;
@KeepDelimiters = @$pKeepDelimiters;
$sError = ACTINIC::GroomError($sError);
$VariableTable{$::VARPREFIX.'SEQUENCE'} = $nPageNumber;
$VariableTable{$::VARPREFIX.'ERROR'} = $sError;
my ($sFileName);
$sFileName = sprintf('order%2.2d.html', $nPageNumber);
if ($::g_sOverrideCheckoutFileName)
{
$sFileName = $::g_sOverrideCheckoutFileName;
}
@Response = ACTINIC::TemplateFile($sPath.$sFileName, \%VariableTable);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($sDigest,$sBaseFile) = ACTINIC::CaccGetCookies();
$sPath = ($sBaseFile) ? $sBaseFile : $::g_sContentUrl;
@Response = ACTINIC::MakeLinksAbsolute($Response[2], $::g_sWebSiteUrl, $sPath);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($sHTML) = $Response[2];
my ($sDelimiter);
foreach $sDelimiter (@DeleteDelimiters)
{
$sHTML =~ s/$::DELPREFIX$sDelimiter(.*?)$::DELPREFIX$sDelimiter//gs;
}
foreach $sDelimiter (@KeepDelimiters)
{
$sHTML =~ s/$::DELPREFIX$sDelimiter//gs;
}
my ($sSelectName, $sDefaultOption);
while ( ($sSelectName, $sDefaultOption) = each %$pSelectTable)
{
$sHTML =~ s/(<\s*SELECT[^>]+?NAME\s*=\s*("|')?$sSelectName.+?)<OPTION\s+VALUE\s*=\s*("|')?$sDefaultOption("|')?\s*>/$1<OPTION SELECTED VALUE="$sDefaultOption">/is;
}	
return ($::SUCCESS, "", $sHTML, $sDetailCookie);
}
sub ProcessPage
{
if ($#_ != 0)
{
return($::SUCCESS, ACTINIC::GetPhrase(-1, 12, 'ProcessPage'), undef, undef, undef, undef, undef);
}
my ($nPageNumber) = $_[0];
my @scratch = keys %$::g_pPhaseList;
my $nPhaseCount = $#scratch - 1;
my $sDetailCookie;
if ($nPageNumber > $nPhaseCount)
{
return($::SUCCESS, ACTINIC::GetPhrase(-1, 146, $nPageNumber, $nPhaseCount), undef, undef, undef, undef, $sDetailCookie);
}
undef %::s_LargeVariableTable;
@::s_LargeDeleteDelimiters = ();
@::s_LargeKeepDelimiters = ();
undef %::s_LargeSelectTable;
my ($sPhaseList) = $$::g_pPhaseList{$nPageNumber};
my ($pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable);
my (@Phases) = split (//, $sPhaseList);
my ($nPhase, $status, $sMessage);
foreach $nPhase (@Phases)
{
if ($nPhase == $::BILLCONTACTPHASE)
{
($pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = DisplayBillContactPhase();
}
elsif ($nPhase == $::SHIPCONTACTPHASE)
{
($pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = DisplayShipContactPhase();
}
elsif ($nPhase == $::SHIPCHARGEPHASE)
{
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters) =
DisplayShipChargePhase();
if ($status != $::SUCCESS)
{
my $sDeliveryCountry = ACTINIC::GetCountryName($::g_LocationInfo{DELIVERY_COUNTRY_CODE});
if ($::g_BillContact{COUNTRY} eq $sDeliveryCountry &&
!$$::g_pLocationList{EXPECT_INVOICE})
{
undef $::g_BillContact{COUNTRY};
}
if ($::g_ShipContact{COUNTRY} eq $sDeliveryCountry)
{
undef $::g_ShipContact{COUNTRY};
}
return ($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable, $sDetailCookie);
}
UpdateCheckoutRecord();
}
elsif ($nPhase == $::TAXCHARGEPHASE)
{
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = ActinicOrder::DisplayTaxPhase();
if ($status != $::SUCCESS)
{
my $sInvoiceCountry = ACTINIC::GetCountryName($::g_LocationInfo{INVOICE_COUNTRY_CODE});
if ($::g_BillContact{COUNTRY} eq $sInvoiceCountry)
{
undef $::g_BillContact{COUNTRY};
}
if ($::g_ShipContact{COUNTRY} eq $sInvoiceCountry &&
!$$::g_pLocationList{EXPECT_DELIVERY})
{
undef $::g_ShipContact{COUNTRY};
}
my $sDeliveryCountry = ACTINIC::GetCountryName($::g_LocationInfo{DELIVERY_COUNTRY_CODE});
if ($::g_BillContact{COUNTRY} eq $sDeliveryCountry &&
!$$::g_pLocationList{EXPECT_INVOICE})
{
undef $::g_BillContact{COUNTRY};
}
if ($::g_ShipContact{COUNTRY} eq $sDeliveryCountry)
{
undef $::g_ShipContact{COUNTRY};
}
return ($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable, $sDetailCookie);
}
UpdateCheckoutRecord();
}
elsif ($nPhase == $::GENERALPHASE)
{
($pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = DisplayGeneralPhase();
}
elsif ($nPhase == $::PAYMENTPHASE)
{
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = DisplayPaymentPhase();
if ($status != $::SUCCESS)
{
return ($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable, $sDetailCookie);
}
}
elsif ($nPhase == $::COMPLETEPHASE)
{
if (length $::g_PaymentInfo{'METHOD'} == 0)
{
EnsurePaymentSelection();
}
my ($Status, $Message, $pCartList, @Response);
@Response = ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $pCartList) = @Response;
my (@SummaryResponse) = ActinicOrder::SummarizeOrder($pCartList);
my ($ePaymentMethod);
if ($SummaryResponse[6] == 0)
{
$ePaymentMethod = -1;
}
else
{
$ePaymentMethod= ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{'METHOD'}); # the payment method is stored as "ENUMERATEDID:DESCRIPTION"
}
if ($ePaymentMethod == $::PAYMENT_CREDIT_CARD &&
$$::g_pSetupBlob{USE_DH})
{
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = DisplayPageWithOrderDetails($::eApplet);
if ($status != $::SUCCESS)
{
return ($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable, $sDetailCookie);
}
}
elsif ($$::g_pPaymentList{$ePaymentMethod}{PAYMENT_TYPE})
{
my (@Response) = CallOCCPlugIn();
if ($Response[0] == $::ACCEPTED)
{
@Response = CompleteOrder();
if ($Response[0] != $::SUCCESS)
{
return(@Response);
}
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
($pVarTable, $pDeleteDelimiters, $pKeepDelimiters) =
(\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
elsif ($Response[0] == $::PENDING)
{
my ($sHTML) = $Response[2];
@Response = CompleteOrder();
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
ACTINIC::PrintPage($sHTML, undef, $::FALSE);
exit;
}
elsif ($Response[0] == $::REJECTED)
{
ACTINIC::PrintPage($Response[2], undef, $::FALSE);
exit;
}
else
{
return (@Response);
}
}
elsif ($ePaymentMethod == $::PAYMENT_CREDIT_CARD &&
$$::g_pSetupBlob{USE_SHARED_SSL})
{
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = DisplayPageWithOrderDetails($::eSharedSSL);
if ($status != $::SUCCESS)
{
return ($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable, $sDetailCookie);
}
my @Response = ACTINIC::TemplateFile(ACTINIC::GetPath() . 'sharedssllink.html', $pVarTable);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($sDigest,$sBaseFile) = ACTINIC::CaccGetCookies();
my $sPath = ($sBaseFile) ? $sBaseFile : $::g_sContentUrl;
@Response = ACTINIC::MakeLinksAbsolute($Response[2], $::g_sWebSiteUrl, $sPath);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($sHTML) = $Response[2];
my ($sDelimiter);
foreach $sDelimiter (@$pDeleteDelimiters)
{
$sHTML =~ s/$::DELPREFIX$sDelimiter(.*?)$::DELPREFIX$sDelimiter//gs;
}
foreach $sDelimiter (@$pKeepDelimiters)
{
$sHTML =~ s/$::DELPREFIX$sDelimiter//gs;
}
ACTINIC::PrintPage($sHTML, undef, $::FALSE);
exit;
}
elsif ($ACTINIC::B2B->Get('UserDigest') &&
($ePaymentMethod == $::PAYMENT_ON_ACCOUNT ||
$ePaymentMethod == $::PAYMENT_INVOICE))
{
my ($Status, $Message, $pCartList, @Response);
@Response = ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $pCartList) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
my (@SummaryResponse, $nTotal);
@SummaryResponse = ActinicOrder::SummarizeOrder($pCartList);
if ($SummaryResponse[0] != $::SUCCESS)
{
return (@SummaryResponse);
}
$nTotal = $SummaryResponse[6];
my $sVitalOrderDetails =
$::g_BillContact{NAME} .
$::g_BillContact{COMPANY} .
$::g_BillContact{ADDRESS1} .
$::g_BillContact{ADDRESS2} .
$::g_BillContact{ADDRESS3} .
$::g_BillContact{ADDRESS4} .
$::g_BillContact{POSTALCODE} .
$::g_BillContact{COUNTRY} .
$::g_BillContact{PHONE} .
$::g_BillContact{EMAIL} .
$::g_ShipContact{NAME} .
$::g_ShipContact{COMPANY} .
$::g_ShipContact{ADDRESS1} .
$::g_ShipContact{ADDRESS2} .
$::g_ShipContact{ADDRESS3} .
$::g_ShipContact{ADDRESS4} .
$::g_ShipContact{POSTALCODE} .
$::g_ShipContact{COUNTRY} .
$::g_ShipContact{PHONE} .
$::g_ShipContact{EMAIL} .
$nTotal;
my $pCartItem;
foreach $pCartItem (@$pCartList)
{
$sVitalOrderDetails .= $pCartItem->{PRODUCT_REFERENCE} . $pCartItem->{QUANTITY};
my ($sSectionBlobName);
($Status, $Message, $sSectionBlobName) = ACTINIC::GetSectionBlobName($pCartItem->{SID});
if ($Status == $::FAILURE)
{
return ($Status, $Message);
}
@Response = ACTINIC::GetProduct($pCartItem->{PRODUCT_REFERENCE},  $sSectionBlobName,
ACTINIC::GetPath());
my $pProduct;
($Status, $Message, $pProduct) = @Response;
if ($Status == $::NOTFOUND)
{
next;
}
if ($Status != $::SUCCESS)
{
return (@Response);
}
my $VariantList;
if( $pProduct->{COMPONENTS} )
{
my $sKey;
foreach $sKey (keys %$pCartItem)
{
if( $sKey =~ /^COMPONENT\_/ )
{
$VariantList->[$'] = $pCartItem->{$sKey};
}
}
}
my %Component;
my $pComponent;
foreach $pComponent (@{$pProduct->{COMPONENTS}})
{
@Response = ActinicOrder::FindComponent($pComponent,$VariantList);
($Status, %Component) = @Response;
if ($Status == $::SUCCESS and $Component{quantity} > 0 )
{
my $sProdName;
if( !$pComponent->[0] &&
$Component{text} )
{
$Component{quantity} = 0; # Quantity=0 for attributes
}
$sVitalOrderDetails .= $Component{code} . ($pCartItem->{QUANTITY} * $Component{quantity});
}
}
}
eval
{
require Digest::MD5;
import Digest::MD5 'md5_hex';
};
if ($@)
{
require di000001;
import Digest::Perl::MD5 'md5_hex';
}
my $sMD5Vitals = md5_hex($sVitalOrderDetails);
my $sUser = $ACTINIC::B2B->Get('UserName');
my $sMD5User = md5_hex($ACTINIC::B2B->Get('UserName') . $ACTINIC::B2B->Get('UserDigest'));
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
$::s_VariableTable{$::VARPREFIX.'USER'} = $sUser;
$::s_VariableTable{$::VARPREFIX.'VITAL'} = $sMD5Vitals;
$::s_VariableTable{$::VARPREFIX.'ID'} = $sMD5User;
($pVarTable, $pDeleteDelimiters, $pKeepDelimiters) =
(\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
$::g_sOverrideCheckoutFileName = 'signature.html';
}
else
{
my (@Response) = CompleteOrder();
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
($pVarTable, $pDeleteDelimiters, $pKeepDelimiters) =
(\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
}
elsif ($nPhase == $::RECEIPTPHASE)
{
my ($ePaymentMethod);
if($::g_InputHash{'ACTION'} =~ m/^AUTHORIZE_(\d+)$/i)
{
$ePaymentMethod = $1; # the : is to help parsing
}
elsif (length $::g_PaymentInfo{METHOD} == 0)
{
$ePaymentMethod = $::PAYMENT_CREDIT_CARD; # the : is to help parsing
}
else
{
($ePaymentMethod) = ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{METHOD}); # the payment method is stored as "ENUMERATEDID:DESCRIPTION"
}
if ($ACTINIC::B2B->Get('UserDigest') &&
($ePaymentMethod == $::PAYMENT_ON_ACCOUNT ||
$ePaymentMethod == $::PAYMENT_INVOICE))
{
my (@Response) = CompleteOrder();
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
}
if ($$::g_pPaymentList{$ePaymentMethod}{PAYMENT_TYPE} &&
$::g_InputHash{'ACTION'} =~ m/^AUTHORIZE/i)
{
LogData("AUTHORIZE:\n$::g_OriginalInputData");
if (defined $::g_InputHash{'ACT_POSTPROCESS'})
{
my ($sFilename, $pPaymentMethodHash);
$pPaymentMethodHash = $$::g_pPaymentList{$ePaymentMethod};
$sFilename = $$pPaymentMethodHash{POST_PROCESS};
my (@Response) = CallPlugInScript($sFilename);
my $sText = "1";
if ($Response[0] != $::SUCCESS)
{
$sText = "0" . ACTINIC::GetPhrase(-1, 1964);
}
$::g_PaymentInfo{'AUTHORIZERESULT'} = $sText;
LogData("AUTHORIZERESULT:\n$sText");
}
else
{
my $sText;
LogData ("RecordAuthorization:\n");
my $sError = RecordAuthorization();
if (length $sError != 0)
{
ACTINIC::RecordErrors($sError, ACTINIC::GetPath());
$sText = "0" . ACTINIC::GetPhrase(-1, 1964);
}
else
{
$sText = "1";
}
$::g_PaymentInfo{'AUTHORIZERESULT'} = $sText;
ACTINIC::PrintText($sText);
}
my ($UpdateStatus, $UpdateMsg) = UpdateCheckoutRecord();
LogData ("processing is complete: $UpdateStatus, $UpdateMsg\n");
exit;
}
elsif ($ePaymentMethod == $::PAYMENT_CREDIT_CARD &&
$::g_InputHash{'ACTION'} =~ m/RECORDORDER/i &&
defined $::g_InputHash{BLOB})
{
my $sText;
my $nOrderLength = length $::g_InputHash{BLOB};
if ($nOrderLength > 1024 * 250)
{
$sText = "0" . ACTINIC::GetPhrase(-1, 300);
}
else
{
my $sError = RecordOrder($::g_InputHash{ORDERNUMBER}, \$::g_InputHash{BLOB}, $::TRUE);
if (length $sError != 0)
{
my $bOmitMailDump = $::FALSE;
my $sErrorMessage = $sError;
if($sError =~ /^000/)
{
$bOmitMailDump = $::TRUE;
$sErrorMessage =~ s/^0+//;
}
NotifyOfError($sErrorMessage, $bOmitMailDump);
ACTINIC::RecordErrors($sErrorMessage, ACTINIC::GetPath()); # record the error to error.err
$sText = "0" . $sError;
}
else
{
$sText = "1";
}
}
ACTINIC::PrintText($sText);
exit;
}
else
{
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters) = DisplayReceiptPhase($::g_InputHash{ORDERNUMBER}, $ePaymentMethod);
if ($status != $::SUCCESS)
{
return ($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable, $sDetailCookie);
}
($status, $sMessage) = NotifyMallAdministratorOfNewOrder();
if ($status != $::SUCCESS)
{
return ($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $sDetailCookie);
}
my (%EmptyPaymentInfo);
$EmptyPaymentInfo{'METHOD'} 		= $::g_PaymentInfo{'METHOD'};
$EmptyPaymentInfo{'USERDEFINED'} = $::g_PaymentInfo{'USERDEFINED'};
$EmptyPaymentInfo{'PONO'}			= $::g_PaymentInfo{'PONO'};
$sDetailCookie = ActinicOrder::ContactDetailsToCookieString(\%::g_BillContact,
\%::g_ShipContact, \%::g_ShipInfo, \%::g_TaxInfo, \%::g_GeneralInfo,
\%EmptyPaymentInfo, \%::g_LocationInfo);
my (@ClearResponse);
@ClearResponse = ActinicOrder::ClearFiles(ACTINIC::GetPath(), $::g_sCartId);
if ($ClearResponse[0] != $::SUCCESS)
{
ACTINIC::RecordErrors($ClearResponse[1], ACTINIC::GetPath());
}
}
}
elsif ($nPhase == $::PRELIMINARYINFOPHASE)
{
($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable) = ActinicOrder::DisplayPreliminaryInfoPhase();
if ($status != $::SUCCESS)
{
return ($status, $sMessage, $pVarTable, $pDeleteDelimiters, $pKeepDelimiters, $pSelectTable, $sDetailCookie);
}
UpdateCheckoutRecord();
}
my (@Array1, @Array2);
@Array1 = %$pVarTable;
@Array2 = %::s_LargeVariableTable;
push (@Array1, @Array2);
%::s_LargeVariableTable = @Array1;
push (@::s_LargeDeleteDelimiters, @$pDeleteDelimiters);
push (@::s_LargeKeepDelimiters, @$pKeepDelimiters);
if (defined $pSelectTable)
{
@Array1 = %$pSelectTable;
@Array2 = %::s_LargeSelectTable;
push (@Array1, @Array2);
%::s_LargeSelectTable = @Array1;
undef $pSelectTable;
}
($pDeleteDelimiters, $pKeepDelimiters) = ActinicOrder::ParseDelimiterStatus($nPhase);
push (@::s_LargeDeleteDelimiters, @$pDeleteDelimiters);
push (@::s_LargeKeepDelimiters, @$pKeepDelimiters);
}
return ($::SUCCESS, '', \%::s_LargeVariableTable, \@::s_LargeDeleteDelimiters, \@::s_LargeKeepDelimiters,
\%::s_LargeSelectTable, $sDetailCookie);
}
sub DisplayBillContactPhase
{
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
if (ActinicOrder::IsPhaseComplete($::BILLCONTACTPHASE) ||
ActinicOrder::IsPhaseHidden($::BILLCONTACTPHASE))
{
push (@::s_DeleteDelimiters, 'INVOICEPHASE');
return (\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
else
{
push (@::s_KeepDelimiters, 'INVOICEPHASE');
}
if (0 == length $::g_BillContact{'COUNTRY'})
{
if ($$::g_pLocationList{EXPECT_INVOICE} &&
$::g_LocationInfo{INVOICE_COUNTRY_CODE} ne $ActinicOrder::REGION_NOT_SUPPLIED)
{
$::g_BillContact{'COUNTRY'} = ACTINIC::GetCountryName($::g_LocationInfo{INVOICE_COUNTRY_CODE});
}
elsif ($$::g_pLocationList{EXPECT_DELIVERY} &&
$::g_LocationInfo{DELIVERY_COUNTRY_CODE} ne $ActinicOrder::REGION_NOT_SUPPLIED)
{
$::g_BillContact{'COUNTRY'} = ACTINIC::GetCountryName($::g_LocationInfo{DELIVERY_COUNTRY_CODE});
}
}
$::s_VariableTable{$::VARPREFIX.'INVOICESALUTATION'} 	= ACTINIC::EncodeText2($::g_BillContact{'SALUTATION'});
$::s_VariableTable{$::VARPREFIX.'INVOICENAME'} 			= ACTINIC::EncodeText2($::g_BillContact{'NAME'});
$::s_VariableTable{$::VARPREFIX.'INVOICEJOBTITLE'} 	= ACTINIC::EncodeText2($::g_BillContact{'JOBTITLE'});
$::s_VariableTable{$::VARPREFIX.'INVOICECOMPANY'} 		= ACTINIC::EncodeText2($::g_BillContact{'COMPANY'});
$::s_VariableTable{$::VARPREFIX.'INVOICEADDRESS1'} 	= ACTINIC::EncodeText2($::g_BillContact{'ADDRESS1'});
$::s_VariableTable{$::VARPREFIX.'INVOICEADDRESS2'}		= ACTINIC::EncodeText2($::g_BillContact{'ADDRESS2'});
$::s_VariableTable{$::VARPREFIX.'INVOICEADDRESS3'} 	= ACTINIC::EncodeText2($::g_BillContact{'ADDRESS3'});
$::s_VariableTable{$::VARPREFIX.'INVOICEADDRESS4'} 	= ACTINIC::EncodeText2($::g_BillContact{'ADDRESS4'});
$::s_VariableTable{$::VARPREFIX.'INVOICEPOSTALCODE'} 	= ACTINIC::EncodeText2($::g_BillContact{'POSTALCODE'});
$::s_VariableTable{$::VARPREFIX.'INVOICECOUNTRY'} 		= ACTINIC::EncodeText2($::g_BillContact{'COUNTRY'});
$::s_VariableTable{$::VARPREFIX.'INVOICEPHONE'} 		= ACTINIC::EncodeText2($::g_BillContact{'PHONE'});
$::s_VariableTable{$::VARPREFIX.'INVOICEFAX'} 			= ACTINIC::EncodeText2($::g_BillContact{'FAX'});
$::s_VariableTable{$::VARPREFIX.'INVOICEEMAIL'} 		= ACTINIC::EncodeText2($::g_BillContact{'EMAIL'});
$::s_VariableTable{$::VARPREFIX.'INVOICEUSERDEFINED'} = ACTINIC::EncodeText2($::g_BillContact{'USERDEFINED'});
$::s_VariableTable{$::VARPREFIX.'INVOICETITLE'} 		= ACTINIC::GetPhrase(-1, 147);
if ($::g_BillContact{'MOVING'})
{
$::s_VariableTable{$::VARPREFIX.'INVOICEMOVINGCHECKSTATUS'} = 'CHECKED';
}
else
{
$::s_VariableTable{$::VARPREFIX.'INVOICEMOVINGCHECKSTATUS'} = '';
}
if ($::g_BillContact{'PRIVACY'})
{
$::s_VariableTable{$::VARPREFIX.'INVOICEPRIVACYCHECKSTATUS'} = 'CHECKED';
}
else
{
$::s_VariableTable{$::VARPREFIX.'INVOICEPRIVACYCHECKSTATUS'} = '';
}
if ($::g_BillContact{'SEPARATE'})
{
$::s_VariableTable{$::VARPREFIX.'INVOICESEPARATECHECKSTATUS'} = 'CHECKED';
}
else
{
$::s_VariableTable{$::VARPREFIX.'INVOICESEPARATECHECKSTATUS'} = '';
}
if ($::g_BillContact{'REMEMBERME'} ||
!defined $::g_BillContact{'REMEMBERME'})
{
$::s_VariableTable{$::VARPREFIX.'INVOICEREMEMBERME'} = 'CHECKED';
}
else
{
$::s_VariableTable{$::VARPREFIX.'INVOICEREMEMBERME'} = '';
}
return (\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
sub DisplayShipContactPhase
{
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
if (ActinicOrder::IsPhaseComplete($::SHIPCONTACTPHASE) ||
ActinicOrder::IsPhaseHidden($::SHIPCONTACTPHASE) )
{
push (@::s_DeleteDelimiters, 'DELIVERPHASE');
return (\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
elsif (defined $$::g_pSetupBlob{'REVERSE_ADDRESS_CHECK'} && $$::g_pSetupBlob{'REVERSE_ADDRESS_CHECK'})
{
if ($::g_BillContact{'SEPARATE'})
{
push (@::s_DeleteDelimiters, 'DELIVERPHASE');
return (\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
else
{
push (@::s_KeepDelimiters, 'DELIVERPHASE');
}
}
else
{
if (!$::g_BillContact{'SEPARATE'})
{
push (@::s_DeleteDelimiters, 'DELIVERPHASE');
return (\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
else
{
push (@::s_KeepDelimiters, 'DELIVERPHASE');
}
}
if ($::ACT_ADB)
{
ConfigureAddressBook();
$::ACT_ADB->ToForm();
$::s_VariableTable{$::VARPREFIX.'ADDRESSBOOK'}	= $::ACT_ADB->Show();
}
else
{
$::s_VariableTable{$::VARPREFIX.'ADDRESSBOOK'}	= "";
}		
if (0 == length $::g_ShipContact{'COUNTRY'})
{
if ($$::g_pLocationList{EXPECT_DELIVERY} &&
$::g_LocationInfo{DELIVERY_COUNTRY_CODE} ne $ActinicOrder::REGION_NOT_SUPPLIED)
{
$::g_ShipContact{'COUNTRY'} = ACTINIC::GetCountryName($::g_LocationInfo{DELIVERY_COUNTRY_CODE});
}
elsif ($$::g_pLocationList{EXPECT_INVOICE} &&
$::g_LocationInfo{INVOICE_COUNTRY_CODE} ne $ActinicOrder::REGION_NOT_SUPPLIED)
{
$::g_ShipContact{'COUNTRY'} = ACTINIC::GetCountryName($::g_LocationInfo{INVOICE_COUNTRY_CODE});
}
}
my $sFormat = "<INPUT TYPE=HIDDEN NAME=%s VALUE='%s'>\n";
my $sParam;
foreach (keys %::g_LocationInfo)
{
$sParam .= sprintf($sFormat, $_, $::g_LocationInfo{$_});
}
$::s_VariableTable{$::VARPREFIX.'LOCATIONINFO'} = $sParam;
$::s_VariableTable{$::VARPREFIX.'DELIVERSALUTATION'} 	= ACTINIC::EncodeText2($::g_ShipContact{'SALUTATION'});
$::s_VariableTable{$::VARPREFIX.'DELIVERNAME'} 			= ACTINIC::EncodeText2($::g_ShipContact{'NAME'});
$::s_VariableTable{$::VARPREFIX.'DELIVERJOBTITLE'} 	= ACTINIC::EncodeText2($::g_ShipContact{'JOBTITLE'});
$::s_VariableTable{$::VARPREFIX.'DELIVERCOMPANY'} 		= ACTINIC::EncodeText2($::g_ShipContact{'COMPANY'});
$::s_VariableTable{$::VARPREFIX.'DELIVERADDRESS1'} 	= ACTINIC::EncodeText2($::g_ShipContact{'ADDRESS1'});
$::s_VariableTable{$::VARPREFIX.'DELIVERADDRESS2'} 	= ACTINIC::EncodeText2($::g_ShipContact{'ADDRESS2'});
$::s_VariableTable{$::VARPREFIX.'DELIVERADDRESS3'} 	= ACTINIC::EncodeText2($::g_ShipContact{'ADDRESS3'});
$::s_VariableTable{$::VARPREFIX.'DELIVERADDRESS4'} 	= ACTINIC::EncodeText2($::g_ShipContact{'ADDRESS4'});
$::s_VariableTable{$::VARPREFIX.'DELIVERPOSTALCODE'} 	= ACTINIC::EncodeText2($::g_ShipContact{'POSTALCODE'});
$::s_VariableTable{$::VARPREFIX.'DELIVERCOUNTRY'} 		= ACTINIC::EncodeText2($::g_ShipContact{'COUNTRY'});
$::s_VariableTable{$::VARPREFIX.'DELIVERPHONE'} 		= ACTINIC::EncodeText2($::g_ShipContact{'PHONE'});
$::s_VariableTable{$::VARPREFIX.'DELIVERFAX'} 			= ACTINIC::EncodeText2($::g_ShipContact{'FAX'});
$::s_VariableTable{$::VARPREFIX.'DELIVEREMAIL'} 		= ACTINIC::EncodeText2($::g_ShipContact{'EMAIL'});
$::s_VariableTable{$::VARPREFIX.'DELIVERUSERDEFINED'} = ACTINIC::EncodeText2($::g_ShipContact{'USERDEFINED'});
$::s_VariableTable{$::VARPREFIX.'DELIVERTITLE'} 		= ACTINIC::GetPhrase(-1, 148);
return (\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
sub DisplayShipChargePhase
{
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
if (ActinicOrder::IsPhaseComplete($::SHIPCHARGEPHASE) ||
ActinicOrder::IsPhaseHidden($::SHIPCHARGEPHASE))
{
push (@::s_DeleteDelimiters, 'SHIPANDHANDLEPHASE');
return ($::SUCCESS, '', \%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
else
{
push (@::s_KeepDelimiters, 'SHIPANDHANDLEPHASE');
}
if ($$::g_pSetupBlob{MAKE_SHIPPING_CHARGE})
{
my @Response = ActinicOrder::CallShippingPlugIn();
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
elsif (${$Response[2]}{RestoreFinalUI} != $::SUCCESS)
{
return (${$Response[2]}{RestoreFinalUI}, ${$Response[3]}{RestoreFinalUI});
}
%::s_VariableTable = %{$Response[7]};
}
$::s_VariableTable{$::VARPREFIX.'SHIPPINGEXTRAINFO'} = $::s_Ship_sExtraInformation;
$::s_VariableTable{$::VARPREFIX.'SHIPUSERDEFINED'} = ACTINIC::EncodeText2($::g_ShipInfo{'USERDEFINED'});
return ($::SUCCESS, '', \%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
sub DisplayGeneralPhase
{
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
if (ActinicOrder::IsPhaseComplete($::GENERALPHASE) ||
ActinicOrder::IsPhaseHidden($::GENERALPHASE) )
{
push (@::s_DeleteDelimiters, 'GENERALPHASE');
return (\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
else
{
push (@::s_KeepDelimiters, 'GENERALPHASE');
}
$::s_VariableTable{$::VARPREFIX.'GENERALHOWFOUND'} 	= ACTINIC::EncodeText2($::g_GeneralInfo{'HOWFOUND'});
$::s_VariableTable{$::VARPREFIX.'GENERALWHYBUY'} 		= ACTINIC::EncodeText2($::g_GeneralInfo{'WHYBUY'});
$::s_VariableTable{$::VARPREFIX.'GENERALUSERDEFINED'} = ACTINIC::EncodeText2($::g_GeneralInfo{'USERDEFINED'});
$::s_VariableTable{$::VARPREFIX.'GENERALTITLE'} 		= ACTINIC::GetPhrase(-1, 151);
return (\%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
sub DisplayPaymentPhase
{
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
if (ActinicOrder::IsPhaseComplete($::PAYMENTPHASE) ||
ActinicOrder::IsPhaseHidden($::PAYMENTPHASE) )
{
push (@::s_DeleteDelimiters, 'PAYMENTPHASE');
return ($::SUCCESS, '', \%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
my ($Status, $Message, $pCartList, @Response);
@Response = ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $pCartList) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
my (@SummaryResponse, $nTotal);
@SummaryResponse = ActinicOrder::SummarizeOrder($pCartList);
if ($SummaryResponse[0] != $::SUCCESS)
{
return (@SummaryResponse);
}
$nTotal = $SummaryResponse[6];
my ($bPaymentHidden) = ($nTotal == 0 || !$$::g_pSetupBlob{'PRICES_DISPLAYED'});
if ($bPaymentHidden)
{
EnsurePaymentSelection();
}
if ( $bPaymentHidden &&
ACTINIC::IsPromptHidden(5, 7))
{
push (@::s_DeleteDelimiters, 'PAYMENTPHASE');
return ($::SUCCESS, '', \%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
else
{
push (@::s_KeepDelimiters, 'PAYMENTPHASE');
}
@Response = ActinicOrder::GeneratePaymentSelection();
if ($Response[0] != $::SUCCESS)
{
return(@Response);
}
$::s_VariableTable{$::VARPREFIX.'PAYMENTMETHODOPTIONS'} = $Response[1];
$::s_VariableTable{$::VARPREFIX.'PAYMENTUSERDEFINED'} = ACTINIC::EncodeText2($::g_PaymentInfo{'USERDEFINED'});
$::s_VariableTable{$::VARPREFIX.'PAYMENTPONO'} 			= ACTINIC::EncodeText2($::g_PaymentInfo{'PONO'});
$::s_VariableTable{$::VARPREFIX.'PAYMENTCARDNUMBER'} 	= ACTINIC::EncodeText2($::g_PaymentInfo{'CARDNUMBER'});
$::s_VariableTable{$::VARPREFIX.'PAYMENTCARDISSUE'} 	= ACTINIC::EncodeText2($::g_PaymentInfo{'CARDISSUE'});
$::s_VariableTable{$::VARPREFIX.'PAYMENTCARDVV2'} 		= ACTINIC::EncodeText2($::g_PaymentInfo{'CARDVV2'});
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst, $sDate);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$mon++;
$year += 1900;
my ($nYear, $nMonth);
for ($nMonth = 1; $nMonth < 13; $nMonth++)
{
if ($::g_PaymentInfo{'STARTMONTH'} eq '' &&
$nMonth == $mon)
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTSTARTMONTHS'} .= '<OPTION SELECTED>' . sprintf('%2.2d', $nMonth) . "\n";
}
elsif ($::g_PaymentInfo{'STARTMONTH'} == $nMonth)
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTSTARTMONTHS'} .= '<OPTION SELECTED>' . sprintf('%2.2d', $nMonth) . "\n";
}
else
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTSTARTMONTHS'} .= '<OPTION>' . sprintf('%2.2d', $nMonth) . "\n";
}
if ($::g_PaymentInfo{'EXPMONTH'} eq '' &&
$nMonth == $mon)
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTEXPMONTHS'} .= '<OPTION SELECTED>' . sprintf('%2.2d', $nMonth) . "\n";
}
elsif ($::g_PaymentInfo{'EXPMONTH'} == $nMonth)
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTEXPMONTHS'} .= '<OPTION SELECTED>' . sprintf('%2.2d', $nMonth) . "\n";
}
else
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTEXPMONTHS'} .= '<OPTION>' . sprintf('%2.2d', $nMonth) . "\n";
}
}
for ($nYear = 0; $nYear < 11; $nYear++)
{
my ($nStartYear, $nExpYear);
($nStartYear, $nExpYear) = ($nYear + $year - 10, $nYear + $year);
if ($::g_PaymentInfo{'STARTYEAR'} eq '' &&
$nStartYear == $year)
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTSTARTYEARS'} .= '<OPTION SELECTED>' . $nStartYear . "\n";
}
elsif ($::g_PaymentInfo{'STARTYEAR'} == $nStartYear)
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTSTARTYEARS'} .= '<OPTION SELECTED>' . $nStartYear . "\n";
}
else
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTSTARTYEARS'} .= '<OPTION>' . $nStartYear . "\n";
}
if ($::g_PaymentInfo{'EXPYEAR'} eq '' &&
$nExpYear == $year)
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTEXPYEARS'} .= '<OPTION SELECTED>' . $nExpYear . "\n";
}
elsif ($::g_PaymentInfo{'EXPYEAR'} == $nExpYear)
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTEXPYEARS'} .= '<OPTION SELECTED>' . $nExpYear . "\n";
}
else
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTEXPYEARS'} .= '<OPTION>' . $nExpYear . "\n";
}
}
if ($::g_PaymentInfo{'CARDTYPE'} ne '')
{
$::s_VariableTable{'<OPTION>' . $::g_PaymentInfo{'CARDTYPE'}} =
'<OPTION SELECTED>' . $::g_PaymentInfo{'CARDTYPE'};
}
if ($bPaymentHidden)
{
push (@::s_DeleteDelimiters, 'PAYMENTNOPRICES');
}
else
{
push (@::s_KeepDelimiters, 'PAYMENTNOPRICES');
}
$::s_VariableTable{$::VARPREFIX.'PAYMENTTITLE'} = ACTINIC::GetPhrase(-1, 152);
$::g_PaymentInfo{'AUTHORIZERESULT'} = "1";
return ($::SUCCESS, '', \%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
sub DisplayPageWithOrderDetails
{
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
my $eMode = $_[0];
my ($ePaymentMethod) = ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{'METHOD'}); # the payment method is stored as "ENUMERATEDID:DESCRIPTION"
my (@ParamList, $sParamFormat, $bEncoding);
if ($eMode == $::eApplet)
{
$sParamFormat = '<PARAM NAME="%s" VALUE="%s">';
$bEncoding = $::FALSE;
}
else
{
$sParamFormat = '<INPUT TYPE="HIDDEN" NAME="%s" VALUE="%s">';
$bEncoding = $::TRUE;
}
my ($status, $sMessage, $sPrevQuery, $sPageHistory) = ACTINIC::PrepareRefPageData($::g_OriginalInputData, \@::g_PageList, $::FALSE);
if ($status != $::SUCCESS)
{
return($status, $sMessage, undef, undef, undef);
}
my ($sParam, @Response);
if ($::g_InputHash{SHOP})
{
$sParam = sprintf($sParamFormat, 'SHOP', ACTINIC::EncodeText2($::g_InputHash{SHOP}, $bEncoding));
push (@ParamList, $sParam);
}
$sPageHistory =~ s/\|\|\|$//;
$sParam = sprintf($sParamFormat, 'REFPAGE', ACTINIC::EncodeText2($sPageHistory, $bEncoding));
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'PREVQUERY', ACTINIC::EncodeText2($sPrevQuery, $bEncoding));
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'SEQUENCE', 3);
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'REQUIRED_COLOR', $::g_sRequiredColor);
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'FORM_BACKGROUND_COLOR', $$::g_pSetupBlob{'FORM_BACKGROUND_COLOR'});
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'FORM_EMPHASIS_COLOR', $$::g_pSetupBlob{'FORM_EMPHASIS_COLOR'});
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'BACKGROUND_COLOR', $$::g_pSetupBlob{'BACKGROUND_IS_IMAGE'} == 0 ? $$::g_pSetupBlob{'BACKGROUND_VALUE'} : $$::g_pSetupBlob{'PALETTEBG_COLOR'});
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'FOREGROUND_COLOR', $$::g_pSetupBlob{'FOREGROUND_COLOR'});
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'LINK_COLOR', $$::g_pSetupBlob{'LINK_COLOR'});
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'ALINK_COLOR', $$::g_pSetupBlob{'ALINK_COLOR'});
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'VLINK_COLOR', $$::g_pSetupBlob{'VLINK_COLOR'});
push (@ParamList, $sParam);	
$sParam = sprintf($sParamFormat, 'COMPANY_NAME', $$::g_pSetupBlob{'COMPANY_NAME'});
push (@ParamList, $sParam);		
$sParam = sprintf($sParamFormat, 'CARTID', $::g_sCartId);
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'PROTOCOL_VERSION', 1);
push (@ParamList, $sParam);
my		$sCgiUrl;
if ($$::g_pSetupBlob{'SSL_USEAGE'} == "0")
{
$sCgiUrl = $$::g_pSetupBlob{CGI_URL};
}
else
{
$sCgiUrl = $$::g_pSetupBlob{SSL_CGI_URL};
}
if ($$::g_pSetupBlob{'USE_RELATIVE_CGI_URLS'})
{
my $sServer = ACTINIC::GetLastNonScript(\@::g_PageList);
if ($sServer =~ /(http(s?):\/\/[^\/]*\/)/)
{
$sServer = $1;
$sCgiUrl =~ s/http(s?):\/\/[^\/]*\//$sServer/;
}
}
$sParam = sprintf($sParamFormat, 'CGI_URL', ACTINIC::EncodeText2($sCgiUrl, $bEncoding));
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'CGI_ID', $$::g_pSetupBlob{'CGI_ID'});
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'CGI_EXT', $$::g_pSetupBlob{'CGI_EXT'});
push (@ParamList, $sParam);
my $sKeyLength = $$::g_pSetupBlob{'KEY_LENGTH'};
$sParam = sprintf($sParamFormat, 'KEY_LENGTH', $sKeyLength);
push (@ParamList, $sParam);
my ($nCount);
my ($pKey) = $$::g_pSetupBlob{'PUBLIC_KEY_' . $sKeyLength . 'BIT'};
for ($nCount = 0; $nCount <= $#$pKey; $nCount++)
{
$sParam = sprintf($sParamFormat, 'PUBLIC_KEY_' . $nCount, sprintf('%2.2x', $$pKey[$nCount]));
push (@ParamList, $sParam);
}
if ($ePaymentMethod == $::PAYMENT_CREDIT_CARD)
{
my ($nIndex, $sCCID, $sTemp);
for ($nIndex = 0; $nIndex < 12; $nIndex++)
{
$sCCID = sprintf('CC%d', $nIndex);
$sParam = sprintf($sParamFormat, $sCCID, $$::g_pSetupBlob{$sCCID});
push (@ParamList, $sParam);
$sTemp = $sCCID."_STARTDATEFLAG";
$sParam = sprintf($sParamFormat, $sTemp, $$::g_pSetupBlob{$sTemp});
push (@ParamList, $sParam);
$sTemp = $sCCID."_ISSUENUMBERFLAG";
$sParam = sprintf($sParamFormat, $sTemp, $$::g_pSetupBlob{$sTemp});
push (@ParamList, $sParam);
$sTemp = $sCCID."_CVV2FLAG";
$sParam = sprintf($sParamFormat, $sTemp, $$::g_pSetupBlob{$sTemp});
push (@ParamList, $sParam);
$sTemp = $sCCID."_CVV2DIGITS";
$sParam = sprintf($sParamFormat, $sTemp, $$::g_pSetupBlob{$sTemp});
push (@ParamList, $sParam);
}
}
my $sOrderNumber;
($status, $sMessage, $sOrderNumber) = GetOrderNumber();
if ($status != $::SUCCESS)
{
return ($status, $sMessage, undef, undef, undef);
}
$sParam = sprintf($sParamFormat, 'ORDERNUMBER', $sOrderNumber);
push (@ParamList, $sParam);
my ($sDate) = ACTINIC::GetActinicDate();
$::g_PaymentInfo{ORDERDATE} = $sDate;
UpdateCheckoutRecord();
$sParam = sprintf($sParamFormat, 'ORDER_DATE', $sDate);
push (@ParamList, $sParam);
@Response = GetSaferBlob($sOrderNumber, ACTINIC::GetPath(), $sDate);
if($Response[0] != $::SUCCESS)
{
return(@Response);
}
$sParam = sprintf($sParamFormat, 'ORDER_DETAILS_LEN', length $Response[2], $bEncoding);
push (@ParamList, $sParam);
my ($UUSaferBlob) = ACTINIC::UUEncode($Response[2]);
$sParam = sprintf($sParamFormat, 'ORDER_DETAILS', $UUSaferBlob, $bEncoding);
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'ORDER_BLOB_VERSION', $::ORDER_BLOB_VERSION);
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'ORDER_DETAIL_BLOB_VERSION', $::ORDER_DETAIL_BLOB_VERSION);
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'SHARED_SSL_TEST_MODE', $$::g_pSetupBlob{SHARED_SSL_TEST_MODE});
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'SHARED_SSL_USER_ID', $$::g_pSetupBlob{SHARED_SSL_USER_ID});
push (@ParamList, $sParam);
if ($eMode == $::eApplet)
{
my ($nPhraseId, $sPhrase);
for ($nPhraseId = 500; $nPhraseId < 600; $nPhraseId++)
{
$sPhrase = ACTINIC::GetPhrase(-1, $nPhraseId);
$sParam = sprintf($sParamFormat, 'PHRASE' . $nPhraseId, ACTINIC::EncodeText2($sPhrase, $bEncoding));
push (@ParamList, $sParam);
}
$::s_VariableTable{$::VARPREFIX.'APPLETPARAMS'} = join("\n", @ParamList);
}
else
{
my $sUserDigest = $ACTINIC::B2B->Get('UserDigest');
if ($sUserDigest)
{
my ($status, $sMessage, $pBuyer) = ACTINIC::GetBuyer($sUserDigest, ACTINIC::GetPath());
if ($status != $::SUCCESS)
{
return ($status, $sMessage);
}
my $nBuyerID = $$pBuyer{ID};
my $nCustomerID = $$pBuyer{AccountID};
$sParam = sprintf($sParamFormat, 'BUYERID', $nBuyerID);
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'CUSTOMERID', $nCustomerID);
push (@ParamList, $sParam);
}
my ($pCartList, $Status, $Message);
@Response = ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $pCartList) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ActinicOrder::SummarizeOrder($pCartList);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($Ignore0, $Ignore1, $nSubTotal, $nShipping, $nTax1, $nTax2, $nTotal, $nShippingTax1, $nShippingTax2,
$nHandling, $nHandlingTax1, $nHandlingTax2) = @Response;
@Response = ActinicOrder::FormatPrice($nTotal, $::FALSE, $::g_pCatalogBlob);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$sParam = sprintf($sParamFormat, 'ORDERTOTAL', ACTINIC::EncodeText2($Response[2]));
push (@ParamList, $sParam);
$sParam = sprintf($sParamFormat, 'CURRENCY', $$::g_pCatalogBlob{'SINTLSYMBOLS'}); 
push (@ParamList, $sParam);			
my @PromptList = ('-1,110', '-1,111', '-1,112', '-1,21', '-1,962', '-1,107', '-1,23', '-1,108', '-1,109', '-1,320', '-1,152', '5,1', '-1,502', '5,2', '-1,503', '5,3', '5,4', '5,5', '-1,505', '-1,319', '5,8', '-1,94', '-1,187', '-1,188', '-1,560', '-1,189', '-1,55', '-1,1970', '-1,1971', '-1,2074', '-1,2075', '-1,2076', '-1,2078', '-1,2086');
my ($nPhraseIdentifier, $sPhrase);
foreach $nPhraseIdentifier (@PromptList)
{
$nPhraseIdentifier =~ /,/;
$sPhrase = ACTINIC::GetPhrase($`, $');
$sParam = sprintf($sParamFormat, 'PHRASE' . $nPhraseIdentifier, ACTINIC::EncodeText2($sPhrase, $bEncoding));
push (@ParamList, $sParam);
}
$::s_VariableTable{$::VARPREFIX.'SSL_VALUES'} = join("\n", @ParamList);
if ($$::g_pSetupBlob{SHARED_SSL_TEST_MODE})
{
push (@::s_KeepDelimiters, 'TESTMODE');
}
else
{
push (@::s_DeleteDelimiters, 'TESTMODE');
}
}
return ($::SUCCESS, '', \%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
sub DisplayReceiptPhase
{
undef %::s_VariableTable;
undef @::s_DeleteDelimiters;
undef @::s_KeepDelimiters;
if ($#_ < 1)
{
return($::FAILURE, ACTINIC::GetPhrase(-1, 12, 'DisplayReceiptPhase'), undef, undef, undef);
}
my ($Message, $Status);
my ($sOrderNumber, $ePaymentMethod, $bRedisplay) = @_;
my $sUserDigest = $ACTINIC::B2B->Get('UserDigest');
my ($BuyerStatus, $sMessage, $pBuyer, $pAccount);
if ($sUserDigest && !$bRedisplay)
{
($BuyerStatus, $sMessage, $pBuyer) = ACTINIC::GetBuyer($sUserDigest, ACTINIC::GetPath());
if ($BuyerStatus != $::SUCCESS &&
$BuyerStatus != $::NOTFOUND)
{
return ($BuyerStatus, $sMessage);
}
if ($BuyerStatus != $::NOTFOUND)
{
($Status, $sMessage, $pAccount) = ACTINIC::GetCustomerAccount($$pBuyer{AccountID}, ACTINIC::GetPath());
if ($Status != $::SUCCESS)
{
return ($Status, $sMessage);
}
}
}
if ($sUserDigest &&
$BuyerStatus != $::NOTFOUND	&&
!$bRedisplay)
{
my $sName = $$pBuyer{Salutation} ? $$pBuyer{Salutation} . ' ' : '';
$sName .= $$pBuyer{Name};
my $sEmailAddress = $$pBuyer{EmailAddress};
if ($$pBuyer{EmailOnOrder})
{
($Status, $Message) = GenerateCustomerMail('Act_BuyerEmail.txt', $sEmailAddress, $sName);
if ($Status != $::SUCCESS)
{
ACTINIC::RecordErrors($Message, ACTINIC::GetPath());
}
}
}
elsif ($$::g_pSetupBlob{EMAIL_CUSTOMER_RECEIPT} &&
!$bRedisplay)
{
my $sName = $::g_BillContact{'SALUTATION'} ? $::g_BillContact{'SALUTATION'} . ' ' : '';
$sName .= $::g_BillContact{'NAME'};
($Status, $Message) = GenerateCustomerMail('Act_CustomerEmail.txt', $::g_BillContact{EMAIL}, $sName);
if ($Status != $::SUCCESS)
{
ACTINIC::RecordErrors($Message, ACTINIC::GetPath());
}
}
if ($sUserDigest &&
$BuyerStatus != $::NOTFOUND &&
$$pAccount{EmailOnOrder} &&
$$pAccount{EmailAddress})
{
my $sName = $$pAccount{Salutation} ? $$pAccount{Salutation} . ' ' : '';
$sName .= $$pAccount{Name};
($Status, $Message) = GenerateCustomerMail('Act_AdminEmail.txt',
$$pAccount{EmailAddress},
$sName);
if ($Status != $::SUCCESS)
{
ACTINIC::RecordErrors($Message, ACTINIC::GetPath());
}
}
if (defined $$::g_pSetupBlob{'EMAIL_ORDER'} && $$::g_pSetupBlob{'EMAIL_ORDER'} && !$bRedisplay)
{
($Status, $Message) = GeneratePresnetMail();
if ($Status != $::SUCCESS)
{
ACTINIC::RecordErrors($Message, ACTINIC::GetPath());
}
}
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst, $sDate);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$mon++;
$year += 1900;
$sDate = sprintf('%d %s %d', $mday, $::g_InverseMonthMap{$mon}, $year); # format the date "day Month Year" eg. "1 April 1998"
$::s_VariableTable{$::VARPREFIX.'CURRENTDATE'} = $sDate;
$::s_VariableTable{$::VARPREFIX.'THEORDERNUMBER'} = $sOrderNumber;
my ($sDirections, $sTemp, @Response);
if ($ePaymentMethod == $::PAYMENT_CREDIT_CARD_SEPARATE)
{
$sDirections = ACTINIC::GetPhrase(-1, 73);
}
$::s_VariableTable{$::VARPREFIX.'SENDSEPARATELY'} = $sDirections;
{
my %HashID = (
'CONTACT_JOB_TITLE' => 'COMPANYCONTACTTITLE',
'COMPANY_NAME' => 'COMPANYNAME',
'ADDRESS_1' => 'COMPANYSTREETADDRESS1',
'ADDRESS_2' => 'COMPANYSTREETADDRESS2',
'ADDRESS_3' => 'COMPANYSTREETADDRESS3',
'ADDRESS_4' => 'COMPANYSTREETADDRESS4',
'POSTAL_CODE' => 'COMPANYPOSTCODE',
'COUNTRY' => 'COMPANYCOUNTRY',
'PHONE' => 'COMPANYPHONE|-1|74',
'FAX' => 'COMPANYFAX|-1|75'
);
HashToVarTable(\%HashID, \%$::g_pSetupBlob, \%::s_VariableTable);
}
undef $sTemp;
if ((length $$::g_pSetupBlob{'CONTACT_NAME'}) > 0)
{
if ((length $$::g_pSetupBlob{'CONTACT_SALUTATION'}) > 0)
{
$sTemp = $$::g_pSetupBlob{'CONTACT_SALUTATION'} . " " . $$::g_pSetupBlob{'CONTACT_NAME'};
}
else
{
$sTemp = $$::g_pSetupBlob{'CONTACT_NAME'};
}		
@Response = ACTINIC::EncodeText($sTemp,$::TRUE,$::TRUE);
$sTemp = $Response[1] . "<BR>";
}
$::s_VariableTable{$::VARPREFIX.'COMPANYCONTACTNAME'} = $sTemp;
undef $sTemp;
if ((length $$::g_pSetupBlob{'EMAIL'}) > 0)
{
$sTemp .= ACTINIC::GetPhrase(-1, 76) . ": <A HREF=\"MAILTO:" . $$::g_pSetupBlob{'EMAIL'} . "\">" .
$$::g_pSetupBlob{'EMAIL'} . "</A><BR>";
}
$::s_VariableTable{$::VARPREFIX.'COMPANYEMAIL'} = $sTemp;
undef $sTemp;
if ((length $$::g_pSetupBlob{'WEB_SITE_URL'}) > 0)
{
my $sService = ($$::g_pSetupBlob{WEB_SITE_URL} =~ /^http(s)?:\/\//) ? '' : 'http://';
$sTemp = ACTINIC::GetPhrase(-1, 77) . ": <A HREF=\"" . $sService . $$::g_pSetupBlob{'WEB_SITE_URL'} . "\">" .
$$::g_pSetupBlob{'WEB_SITE_URL'} . "</A><BR>";
}
$::s_VariableTable{$::VARPREFIX.'COMPANYURL'} = $sTemp;
$::s_VariableTable{$::VARPREFIX.'YOURRECEIPT'} 		= ACTINIC::GetPhrase(-1, 336);
$::s_VariableTable{$::VARPREFIX.'PRINTTHISPAGE'} 	= ACTINIC::GetPhrase(-1, 337);
$::s_VariableTable{$::VARPREFIX.'NEEDTOCONTACT'} 	= ACTINIC::GetPhrase(-1, 338);
$::s_VariableTable{$::VARPREFIX.'INVOICETO'} 		= ACTINIC::GetPhrase(-1, 339);
$::s_VariableTable{$::VARPREFIX.'DELIVERTO'} 		= ACTINIC::GetPhrase(-1, 340);
$::s_VariableTable{$::VARPREFIX.'DATETEXT'} 			= ACTINIC::GetPhrase(-1, 342);
$::s_VariableTable{$::VARPREFIX.'ORDERNUMBERTEXT'}	= ACTINIC::GetPhrase(-1, 343);
$::s_VariableTable{$::VARPREFIX.'MOVING'} = $::g_BillContact{'MOVING'} ? "Yes" : "No";
my ($sInvoiceName);
undef $sTemp;
if ((length $::g_BillContact{'NAME'}) > 0)
{
$sTemp = $::g_BillContact{'SALUTATION'} . " " . $::g_BillContact{'NAME'};
@Response = ACTINIC::EncodeText($sTemp);
$sInvoiceName .= $Response[1] . "<BR>\n";
}
$::s_VariableTable{$::VARPREFIX.'INVOICENAME'} = $sInvoiceName;
{
$::g_BillContact{ADDRESS4} = ActinicLocations::GetInvoiceAddressRegionName($::g_BillContact{ADDRESS4});
my %HashID = (
'JOBTITLE' => 'INVOICEJOBTITLE',
'COMPANY'  => 'INVOICECOMPANY',
'ADDRESS1' => 'INVOICEADDRESS1',
'ADDRESS2' => 'INVOICEADDRESS2',
'ADDRESS3' => 'INVOICEADDRESS3',
'ADDRESS4' => 'INVOICEADDRESS4',
'POSTALCODE' => 'INVOICEPOSTCODE',
'COUNTRY'  => 'INVOICECOUNTRY',
'PHONE'    => 'INVOICEPHONE|-1|348',
'FAX'      => 'INVOICEFAX|-1|349',
'EMAIL'    => 'INVOICEEMAIL|-1|350',
'USERDEFINED' => 'INVOICEUSERDEFINED|0|14'
);
HashToVarTable(\%HashID, \%::g_BillContact, \%::s_VariableTable);
}
my ($sDeliveryName);
if ((length $::g_ShipContact{'NAME'}) > 0)
{
$sTemp = $::g_ShipContact{'SALUTATION'} . " " . $::g_ShipContact{'NAME'};
@Response = ACTINIC::EncodeText($sTemp);
$sDeliveryName .= $Response[1] . "<BR>\n";
}
$::s_VariableTable{$::VARPREFIX.'DELIVERYNAME'} = $sDeliveryName;
{
$::g_ShipContact{ADDRESS4} = ActinicLocations::GetDeliveryAddressRegionName($::g_ShipContact{ADDRESS4});
my %HashID = (
'JOBTITLE' 	=> 'DELIVERYJOBTITLE',
'COMPANY'  	=> 'DELIVERYCOMPANY',
'ADDRESS1' => 'DELIVERYADDRESS1',
'ADDRESS2' => 'DELIVERYADDRESS2',
'ADDRESS3' => 'DELIVERYADDRESS3',
'ADDRESS4' => 'DELIVERYADDRESS4',
'POSTALCODE' => 'DELIVERYPOSTCODE',
'COUNTRY'  	=> 'DELIVERYCOUNTRY',
'PHONE'    	=> 'DELIVERYPHONE|-1|348',
'FAX'      	=> 'DELIVERYFAX|-1|349',
'EMAIL'    	=> 'DELIVERYEMAIL|-1|350',
'USERDEFINED' => 'DELIVERYUSERDEFINED|1|13'
);
HashToVarTable(\%HashID, \%::g_ShipContact, \%::s_VariableTable);
}
my ($pCartList);
@Response = ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $pCartList) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ActinicOrder::SummarizeOrder($pCartList);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($Ignore0, $Ignore1, $nSubTotal, $nShipping, $nTax1, $nTax2, $nTotal, $nShippingTax1, $nShippingTax2,
$nHandling, $nHandlingTax1, $nHandlingTax2) = @Response;
@Response = ActinicOrder::SummarizeOrderPrintable(@Response);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($Ignore2, $Ignore3, $sSubTotal, $sShipping, $sHandling, $sTax1, $sTax2, $sTotal) = @Response;
$::s_VariableTable{$::VARPREFIX.'ACTINICORDERTOTAL'} = $nTotal;
$::s_VariableTable{$::VARPREFIX.'FORMATTEDORDERTOTALCGI'} = ACTINIC::EncodeText2($sTotal, $::FALSE);
$::s_VariableTable{$::VARPREFIX.'FORMATTEDORDERTOTALHTML'} = ACTINIC::EncodeText2($sTotal);
@Response = ActinicOrder::FormatPrice($nTotal, $::FALSE, $::g_pCatalogBlob);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$::s_VariableTable{$::VARPREFIX.'NUMERICORDERTOTALCGI'} = ACTINIC::EncodeText2($Response[2]);
my ($sPaymentPanel);
if ($nTotal > 0 && $$::g_pSetupBlob{'PRICES_DISPLAYED'}) # if their is money involed, display the payment panel
{
$::s_VariableTable{$::VARPREFIX.'PAYMENTMETHODTITLE'} = ACTINIC::GetPhrase(-1, 79); # "Payment Method"
undef $sPaymentPanel;
if (length $::g_PaymentInfo{'PONO'} > 0)
{
$sPaymentPanel = "<TR>\n";
@Response = ACTINIC::EncodeText($::g_PaymentInfo{'PONO'});
$sPaymentPanel .= "<TD BGCOLOR=\"$$::g_pSetupBlob{FORM_EMPHASIS_COLOR}\"><FONT FACE=\"ARIAL\" SIZE=\"2\"><B>" .
ACTINIC::GetPhrase(-1, 81) . ":</B></FONT></TD><TD COLSPAN=2><FONT FACE=\"ARIAL\" SIZE=\"2\">";
$sPaymentPanel .= $Response[1] . "</FONT></TD>";
$sPaymentPanel .= "</TR>\n";
}
$::s_VariableTable{$::VARPREFIX.'PURCHASEORDERNUMBER'} = $sPaymentPanel;
if ($ePaymentMethod == $::PAYMENT_CREDIT_CARD_SEPARATE)
{
push (@::s_KeepDelimiters, 'PAYMENTSENTSEPARATE');
push (@::s_DeleteDelimiters, 'PAYMENTOTHER');
$::s_VariableTable{$::VARPREFIX.'PAYMENTMETHODNAME'} = ACTINIC::GetPhrase(-1, 80);
$::s_VariableTable{$::VARPREFIX.'CREDITCARDTYPETITLE'} = ACTINIC::GetPhrase(-1, 82); # "Acceptable CC's"
my ($nCount, $sCCID, $sCCList);
for ($nCount = 0; $nCount < 12; $nCount++)
{
$sCCID = sprintf('CC%d', $nCount);
if (length $$::g_pSetupBlob{$sCCID} > 0)
{
$sCCList .= $$::g_pSetupBlob{$sCCID} . ", ";
}
}
$sCCList = substr($sCCList, 0, (length $sCCList) - 2);
@Response = ACTINIC::EncodeText($sCCList);
$::s_VariableTable{$::VARPREFIX.'CREDITCARDOPTIONS'} = $Response[1]; # list of acceptable CC's
$::s_VariableTable{$::VARPREFIX.'SELECTONE'} = ACTINIC::GetPhrase(-1, 83); # "Select One"
$::s_VariableTable{$::VARPREFIX.'CREDITCARDNUMBERTITLE'} = ACTINIC::GetPhrase(-1, 84); # "card number"
$::s_VariableTable{$::VARPREFIX.'CREDITCARDISSUENUMBERTITLE'} = ACTINIC::GetPhrase(-1, 85); # "card issue number"
$::s_VariableTable{$::VARPREFIX.'CREDITCARDCCV2TITLE'} = ACTINIC::GetPhrase(5, 8); # "card CCV2 number"
$::s_VariableTable{$::VARPREFIX.'CREDITCARDSTARTDATETITLE'} = ACTINIC::GetPhrase(-1, 86); # "card start date"
$::s_VariableTable{$::VARPREFIX.'CREDITCARDEXPDATETITLE'} = ACTINIC::GetPhrase(-1, 87); # "card exp date"
$::s_VariableTable{$::VARPREFIX.'SIGNATURETITLE'} = ACTINIC::GetPhrase(-1, 88); # "card signature"
}
else
{
push (@::s_DeleteDelimiters, 'PAYMENTSENTSEPARATE');
push (@::s_KeepDelimiters, 'PAYMENTOTHER');
undef $sPaymentPanel;
$sPaymentPanel .= ActinicOrder::EnumToPaymentString($ePaymentMethod);
if (defined $::g_PaymentInfo{'AUTHORIZERESULT'} &&
$::g_PaymentInfo{'AUTHORIZERESULT'} =~ /^0(.+)/)
{
$sPaymentPanel .= "<BR>" . ACTINIC::GetPhrase(-1, 1974) . ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor) . ACTINIC::GetPhrase(-1, 1969) .
ACTINIC::GetPhrase(-1, 1964) .
ACTINIC::GetPhrase(-1, 1970) . ACTINIC::GetPhrase(-1, 1975);
}
$::s_VariableTable{$::VARPREFIX.'PAYMENTMETHODNAME'} = $sPaymentPanel;
if ($ePaymentMethod == $::PAYMENT_CREDIT_CARD)
{
push (@::s_KeepDelimiters, 'PAYMENTCREDITCARD');
$::s_VariableTable{$::VARPREFIX.'CREDITCARDTITLE'} = ACTINIC::GetPhrase(-1, 94); # "Credit Card"
if (length $::g_PaymentInfo{'CARDTYPE'} > 0) # if a credit card type exists, display it
{
$sPaymentPanel = $::g_PaymentInfo{'CARDTYPE'};
}
else											 # the credit card type is blank (applet does not return it)
{
$sPaymentPanel = "(" . ACTINIC::GetPhrase(-1, 95) . ")";
}
$::s_VariableTable{$::VARPREFIX.'CREDITCARDTYPE'} = $sPaymentPanel;
}
else
{
push (@::s_DeleteDelimiters, 'PAYMENTCREDITCARD');
}
}
push (@::s_KeepDelimiters, 'PAYMENTPANEL');
}
else
{
push (@::s_DeleteDelimiters, 'PAYMENTPANEL');
}
if (ACTINIC::IsPromptHidden(0, 13))
{
push (@::s_DeleteDelimiters, 'MOVINGSTATUS');
}
else
{
push (@::s_KeepDelimiters, 'MOVINGSTATUS');
}
if (!$::g_ShipInfo{'USERDEFINED'})
{
push (@::s_DeleteDelimiters, 'DELIVERYINSTRUCTION');
}
else
{
$::s_VariableTable{$::VARPREFIX.'DELIVERYINSTRUCTION_LABEL'} = ACTINIC::GetPhrase(-1, 2044);
$::s_VariableTable{$::VARPREFIX.'DELIVERYINSTRUCTION_TEXT'} = $::g_ShipInfo{'USERDEFINED'};
push (@::s_KeepDelimiters, 'DELIVERYINSTRUCTION');
}
return ($::SUCCESS, '', \%::s_VariableTable, \@::s_DeleteDelimiters, \@::s_KeepDelimiters);
}
sub GetSaferBlob
{
my ($sOrderNumber, $sPath, $sJavaDateTime) = @_;
my $bUseExternalSuppliedData = ($#_ == 2);
my ($Status, $Message);
$::g_InputHash{'ORDERNUMBER'} = $sOrderNumber;
my (@FieldList, @FieldType);
push (@FieldList, $ACTINIC::ORDER_BLOB_MAGIC);
push (@FieldType, $::RBWORD);
push (@FieldList, $::ORDER_BLOB_VERSION);
push (@FieldType, $::RBBYTE);
push (@FieldList, $sOrderNumber);
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'NAME'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'SALUTATION'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'JOBTITLE'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'COMPANY'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'ADDRESS1'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'ADDRESS2'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'ADDRESS3'});
push (@FieldType, $::RBSTRING);
push (@FieldList, ActinicLocations::GetInvoiceAddressRegionName($::g_BillContact{'ADDRESS4'}));
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'COUNTRY'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'POSTALCODE'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'PHONE'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'FAX'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'EMAIL'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_BillContact{'USERDEFINED'});
push (@FieldType, $::RBSTRING);
if (! defined $::g_BillContact{PRIVACY} ||
$::g_BillContact{PRIVACY} eq '')
{
$::g_BillContact{PRIVACY} = $::FALSE;
}
push (@FieldList, $::g_BillContact{'PRIVACY'});
push (@FieldType, $::RBBYTE);
push (@FieldList, $::g_ShipContact{'NAME'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'SALUTATION'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'JOBTITLE'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'COMPANY'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'ADDRESS1'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'ADDRESS2'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'ADDRESS3'});
push (@FieldType, $::RBSTRING);
push (@FieldList, ActinicLocations::GetDeliveryAddressRegionName($::g_ShipContact{'ADDRESS4'}));
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'COUNTRY'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'POSTALCODE'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'PHONE'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'FAX'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'EMAIL'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipContact{'USERDEFINED'});
push (@FieldType, $::RBSTRING);
if (! defined $::g_ShipContact{PRIVACY} ||
$::g_ShipContact{PRIVACY} eq '')
{
$::g_ShipContact{PRIVACY} = $::FALSE;
}
push (@FieldList, $::g_ShipContact{'PRIVACY'});
push (@FieldType, $::RBBYTE);
my ($ePaymentMethod);
push (@FieldList, $$::g_pCatalogBlob{'SINTLSYMBOLS'});
push (@FieldType, $::RBSTRING);
($ePaymentMethod) = ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{'METHOD'}); # the payment method is stored as "ENUMERATEDID:DESCRIPTION"
push (@FieldList, $ePaymentMethod);
push (@FieldType, $::RBWORD);
push (@FieldList, $::g_PaymentInfo{'USERDEFINED'});
push (@FieldType, $::RBSTRING);
if (! defined $::g_BillContact{MOVING} ||
$::g_BillContact{MOVING} eq '')
{
$::g_BillContact{MOVING} = $::FALSE;
}
push (@FieldList, $::g_BillContact{'MOVING'});
push (@FieldType, $::RBBYTE);
push (@FieldList, $::g_GeneralInfo{'WHYBUY'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_GeneralInfo{'HOWFOUND'});
push (@FieldType, $::RBSTRING);
my @Response = GetGeneralUD3();
if ($Response[0] != $::SUCCESS)
{
return ($Response[0], $Response[1]);
}
push (@FieldList, $Response[2]);
push (@FieldType, $::RBSTRING);
my $pCartList;
@Response = ActinicOrder::ReadCart($::g_sCartId, $sPath);
($Status, $Message, $pCartList) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ActinicOrder::SummarizeOrder($pCartList);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($Ignore, $Ignore2, $nSubTotal, $nShipping, $nTax1, $nTax2, $nTotal, $nShippingTax1, $nShippingTax2,
$nHandling, $nHandlingTax1, $nHandlingTax2) = @Response;
push (@FieldList, $nSubTotal);
push (@FieldType, $::RBQWORD);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
push (@FieldList, 0);
push (@FieldType, $::RBQWORD);
push (@FieldList, $nSubTotal);
push (@FieldType, $::RBQWORD);
push (@FieldList, $nShipping);
push (@FieldType, $::RBQWORD);
push (@FieldList, $nShippingTax1);
push (@FieldType, $::RBQWORD);
push (@FieldList, $nShippingTax2);
push (@FieldType, $::RBQWORD);
push (@FieldList, $::g_ShipInfo{'USERDEFINED'});
push (@FieldType, $::RBSTRING);
@Response = ActinicOrder::GetTaxModelOpaqueData();
if($Response[0] != $::SUCCESS)
{
return(@Response);
}
push (@FieldList, $Response[2]);
push (@FieldType, $::RBSTRING);
if(defined $$::g_pTaxSetupBlob{'TAX_1'})
{
push (@FieldList, $$::g_pTaxSetupBlob{'TAX_1'}{'TAX_OPAQUE_DATA'});
}
else
{
push (@FieldList, '');
}
push (@FieldType, $::RBSTRING);
if(defined $$::g_pTaxSetupBlob{'TAX_2'})
{
push (@FieldList, $$::g_pTaxSetupBlob{'TAX_2'}{'TAX_OPAQUE_DATA'});
}
else
{
push (@FieldList, '');
}
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_TaxInfo{'EXEMPT1'});
push (@FieldType, $::RBBYTE);
push (@FieldList, $::g_TaxInfo{'EXEMPT1DATA'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_TaxInfo{'EXEMPT2'});
push (@FieldType, $::RBBYTE);
push (@FieldList, $::g_TaxInfo{'EXEMPT2DATA'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $nTax1);
push (@FieldType, $::RBQWORD);
push (@FieldList, $nTax2);
push (@FieldType, $::RBQWORD);
push (@FieldList, $::g_TaxInfo{'USERDEFINED'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $nTotal);
push (@FieldType, $::RBQWORD);
my ($nLineCount) = CountValidCartItems($pCartList);
push (@FieldList, $nLineCount);
my $nLineCountIndex = $#FieldList;
push (@FieldType, $::RBDWORD);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
if($bUseExternalSuppliedData)
{
push (@FieldList, $sJavaDateTime);
}
else
{
my ($sDate) = ACTINIC::GetActinicDate();
push (@FieldList, $sDate);
$::g_PaymentInfo{ORDERDATE} = $sDate;
UpdateCheckoutRecord();
}
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_PaymentInfo{'PONO'});
push (@FieldType, $::RBSTRING);
push (@FieldList, "");
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_ShipInfo{'ADVANCED'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $$::g_pSetupBlob{'AUTH_KEY'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_LocationInfo{DELIVERY_COUNTRY_CODE});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_LocationInfo{DELIVERY_REGION_CODE});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_LocationInfo{INVOICE_COUNTRY_CODE});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_LocationInfo{INVOICE_REGION_CODE});
push (@FieldType, $::RBSTRING);
if ($$::g_pSetupBlob{MAKE_SHIPPING_CHARGE})
{
@Response = ActinicOrder::CallShippingPlugIn();
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
elsif (${$Response[2]}{GetShippingDescription} != $::SUCCESS)
{
return(${$Response[2]}{GetShippingDescription}, ${$Response[3]}{GetShippingDescription});
}
push (@FieldList, $Response[5]);
push (@FieldType, $::RBSTRING);
}
else
{
push (@FieldList, '');
push (@FieldType, $::RBSTRING);
}
push (@FieldList, $$::g_pSetupBlob{SHARED_SSL_TEST_MODE});
push (@FieldType, $::RBBYTE);
push (@FieldList, $nHandling);
push (@FieldType, $::RBQWORD);
push (@FieldList, $nHandlingTax1);
push (@FieldType, $::RBQWORD);
push (@FieldList, $nHandlingTax2);
push (@FieldType, $::RBQWORD);
push (@FieldList, $::g_ShipInfo{HANDLING});
push (@FieldType, $::RBSTRING);
if ($$::g_pSetupBlob{MAKE_HANDLING_CHARGE})
{
@Response = ActinicOrder::CallShippingPlugIn();
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
elsif (${$Response[2]}{GetHandlingDescription} != $::SUCCESS)
{
return(${$Response[2]}{GetHandlingDescription}, ${$Response[3]}{GetHandlingDescription});
}
push (@FieldList, $Response[9]);
push (@FieldType, $::RBSTRING);
}
else
{
push (@FieldList, '');
push (@FieldType, $::RBSTRING);
}
my $sUserDigest = $ACTINIC::B2B->Get('UserDigest');
if ($::g_InputHash{BUYERID} && $::g_InputHash{CUSTOMERID})
{
push (@FieldList, $::g_InputHash{BUYERID});
push (@FieldType, $::RBDWORD);
push (@FieldList, $::g_InputHash{CUSTOMERID});
push (@FieldType, $::RBDWORD);
}
elsif( $sUserDigest )
{
my ($status, $sMessage, $pBuyer) = ACTINIC::GetBuyer($sUserDigest, ACTINIC::GetPath());
if ($status != $::SUCCESS)
{
return ($status, $sMessage);
}
my $nBuyerID = $$pBuyer{ID};
my $nCustomerID = $$pBuyer{AccountID};
push (@FieldList, $nBuyerID);
push (@FieldType, $::RBDWORD);
push (@FieldList, $nCustomerID);
push (@FieldType, $::RBDWORD);
}
else
{
push (@FieldList, -1);
push (@FieldType, $::RBDWORD);
push (@FieldList, -1);
push (@FieldType, $::RBDWORD);
}
push (@FieldList, $::g_sSignature);
push (@FieldType, $::RBSTRING);
my (@aPrefixes) = ('', 'SHIP_', 'HAND_');
my ($sPrefix);
foreach $sPrefix (@aPrefixes)
{
@Response = PrepareOrderTaxOpaqueData($sPrefix);
if($Response[0] != $::SUCCESS)
{
return(@Response);
}
push (@FieldList, $Response[2]);
push (@FieldType, $::RBSTRING);
}
if($::g_ShipInfo{SSP} =~ /^SSPID=(\d+);/)
{
push (@FieldList, $1);
push (@FieldType, $::RBDWORD);
push (@FieldList, $::g_ShipInfo{SSP});
push (@FieldType, $::RBSTRING);
}
else
{
push (@FieldList, -1);
push (@FieldType, $::RBDWORD);
push (@FieldList, '');
push (@FieldType, $::RBSTRING);
}
push (@FieldList, $::s_Ship_sSeparatePackageDetails);
push (@FieldType, $::RBSTRING);
push (@FieldList, $::s_Ship_sMixedPackageDetails);
push (@FieldType, $::RBSTRING);
my ($pOrderDetail);
my (%CurrentItem, $pProduct);
my ($nTax1ID, $nTax2ID, $sTax1Key, $sTax2Key);
if(defined $$::g_pTaxSetupBlob{'TAX_1'})
{
$nTax1ID = $$::g_pTaxSetupBlob{'TAX_1'}{'ID'};
$sTax1Key = 'TAX_' . $nTax1ID;
}
if(defined $$::g_pTaxSetupBlob{'TAX_2'})
{
$nTax2ID = $$::g_pTaxSetupBlob{'TAX_2'}{'ID'};
$sTax2Key = 'TAX_' . $nTax2ID;
}
no strict 'refs';
foreach $pOrderDetail (@$pCartList)
{
%CurrentItem = %$pOrderDetail;
my ($sSectionBlobName);
($Status, $Message, $sSectionBlobName) = ACTINIC::GetSectionBlobName($CurrentItem{SID});
if ($Status == $::FAILURE)
{
return ($Status, $Message);
}
@Response = ACTINIC::GetProduct($CurrentItem{"PRODUCT_REFERENCE"},  $sSectionBlobName,
$sPath);
($Status, $Message, $pProduct) = @Response;
if ($Status == $::NOTFOUND)
{
next;
}
if ($Status != $::SUCCESS)
{
return (@Response);
}
my $nEffectiveQuantity = ActinicOrder::EffectiveCartQuantity($pOrderDetail,$pCartList,\&ActinicOrder::IdenticalCartLines,undef);
my $VariantList;
if( $pProduct->{COMPONENTS} )
{
my $sKey;
foreach $sKey (keys %CurrentItem)
{
if( $sKey =~ /^COMPONENT\_/ )
{
$VariantList->[$'] = $CurrentItem{$sKey};
}
}
}
my $ComponentPrice = 0;
{
my %Component;
my $pComponent;
my $nIndex = 1;
foreach $pComponent (@{$pProduct->{COMPONENTS}})
{
@Response = ActinicOrder::FindComponent($pComponent,$VariantList);
($Status, %Component) = @Response;
if ($Status != $::SUCCESS)
{
return ($Status,$Component{text});
}
if( $Component{quantity} > 0 )
{
my $sRef= $Component{code} && $pComponent->[4] == 1 ? $Component{code} : $CurrentItem{"PRODUCT_REFERENCE"} . "_" . $nIndex;
@Response = ActinicOrder::GetComponentPrice($Component{price},$nEffectiveQuantity,$Component{quantity}, undef, $sRef);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$ComponentPrice += $Response[2];
}
$nIndex++;
}
}
my $sPrice;
my $sUserDigest = $ACTINIC::B2B->Get('UserDigest');
$sPrice = ActinicOrder::CalculateSchPrice($pProduct,$nEffectiveQuantity,$sUserDigest);
my $nPriceModel = $$pProduct{PRICING_MODEL};
if( $nPriceModel == $ActinicOrder::PRICING_MODEL_PROD_COMP )
{
$sPrice += $ComponentPrice;
}
elsif( $nPriceModel == $ActinicOrder::PRICING_MODEL_COMP )
{
$sPrice = $ComponentPrice;
}
push (@FieldList, $ACTINIC::ORDER_DETAIL_BLOB_MAGIC);
push (@FieldType, $::RBWORD);
push (@FieldList, $::ORDER_DETAIL_BLOB_VERSION);
push (@FieldType, $::RBBYTE);
push (@FieldList, $CurrentItem{"PRODUCT_REFERENCE"});
push (@FieldType, $::RBSTRING);
push (@FieldList, $$pProduct{"NAME"});
push (@FieldType, $::RBSTRING);
push (@FieldList, $CurrentItem{"QUANTITY"});
push (@FieldType, $::RBDWORD);
push (@FieldList, $sPrice);
push (@FieldType, $::RBQWORD);
my ($nTotal);
$nTotal = $sPrice * $CurrentItem{"QUANTITY"};
push (@FieldList, $nTotal);
push (@FieldType, $::RBQWORD);
if (defined $CurrentItem{"DATE"})
{
push (@FieldList, $CurrentItem{"DATE"});
}
else
{
push (@FieldList, "");
}
push (@FieldType, $::RBSTRING);
if (defined $CurrentItem{"INFOINPUT"})
{
push (@FieldList, $CurrentItem{"INFOINPUT"});
}
else
{
push (@FieldList, "");
}
push (@FieldType, $::RBSTRING);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
my ($nTax1, $nTax2);
@Response = ActinicOrder::GetProductTaxBands($pProduct);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my $sBandData = ActinicOrder::ProductToOrderDetailTaxOpaqueData('TAX_1', $sPrice,
$Response[2], $$pProduct{"PRICE"});
push (@FieldList, $sBandData);
push (@FieldType, $::RBSTRING);
$sBandData = ActinicOrder::ProductToOrderDetailTaxOpaqueData('TAX_2', $sPrice,
$Response[3], $$pProduct{"PRICE"});
push (@FieldList, $sBandData);
push (@FieldType, $::RBSTRING);
@Response = ActinicOrder::CalculateTax($sPrice, $CurrentItem{"QUANTITY"},
$Response[2], $Response[3], $$pProduct{"PRICE"});
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$nTax1 = ActinicOrder::RoundScientific($Response[2]);
$nTax2 = ActinicOrder::RoundScientific($Response[3]);
push (@FieldList, $nTax1);
push (@FieldType, $::RBQWORD);
push (@FieldList, $nTax2);
push (@FieldType, $::RBQWORD);
my $sTemp = $$pProduct{'OPAQUE_SHIPPING_DATA'};
if($$pProduct{SHIP_SEPARATELY})
{
$sTemp .= ';SEPARATE;';
}
push (@FieldList, $sTemp);
push (@FieldType, $::RBSTRING);
push (@FieldList, 0);
push (@FieldType, $::RBQWORD);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
my $sTemp = $$pProduct{'REPORT_DESC'};
$sTemp =~  s/\\\n/\r\n/gi;
push (@FieldList, $sTemp);
push (@FieldType, $::RBSTRING);
@Response = PrepareProductTaxOpaqueData($pProduct, $sPrice);
if($Response[0] != $::SUCCESS)
{
return(@Response);
}
push (@FieldList, $Response[2]);
push (@FieldType, $::RBSTRING);
{
my %Component;
my $pComponent;
foreach $pComponent (@{$pProduct->{COMPONENTS}})
{
@Response = ActinicOrder::FindComponent($pComponent,$VariantList);
($Status, %Component) = @Response;
if ($Status == $::SUCCESS and $Component{quantity} > 0 )
{
my $sProdName;
if( $pComponent->[0] )
{
$sProdName = '(' . $pComponent->[0];
if( $Component{text} )
{
$sProdName .= " - " . $Component{text};
}
$sProdName .= ')';
}
elsif( $Component{text} )
{
$sProdName = '(' . $Component{text} . ')';
$Component{quantity} = 0;
}
$FieldList[$nLineCountIndex]++;
push (@FieldList, $ACTINIC::ORDER_DETAIL_BLOB_MAGIC);
push (@FieldType, $::RBWORD);
push (@FieldList, $::ORDER_DETAIL_BLOB_VERSION);
push (@FieldType, $::RBBYTE);
push (@FieldList, $Component{code});
push (@FieldType, $::RBSTRING);
push (@FieldList, $sProdName);
push (@FieldType, $::RBSTRING);
push (@FieldList, $CurrentItem{QUANTITY} * $Component{quantity});
push (@FieldType, $::RBDWORD);
push (@FieldList, 0);
push (@FieldType, $::RBQWORD);
push (@FieldList, 0);
push (@FieldType, $::RBQWORD);
push (@FieldList, "");
push (@FieldType, $::RBSTRING);
push (@FieldList, "");
push (@FieldType, $::RBSTRING);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
push (@FieldList, "");
push (@FieldType, $::RBSTRING);
push (@FieldList, "");
push (@FieldType, $::RBSTRING);
push (@FieldList, 0);
push (@FieldType, $::RBQWORD);
push (@FieldList, 0);
push (@FieldType, $::RBQWORD);
my $sTemp = $Component{shipping};
if($Component{ShipSeparate})
{
$sTemp .= ';SEPARATE;';
}
push (@FieldList, $sTemp);
push (@FieldType, $::RBSTRING);
push (@FieldList, 0);
push (@FieldType, $::RBQWORD);
push (@FieldList, 0);
push (@FieldType, $::RBDWORD);
push (@FieldList, 1);
push (@FieldType, $::RBDWORD);
push (@FieldList, "");
push (@FieldType, $::RBSTRING);
push (@FieldList, '');
push (@FieldType, $::RBSTRING);
}
}
}
}
@Response = ACTINIC::OpenWriteBlob("memory");
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::WriteBlob(\@FieldList, \@FieldType);
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::CloseWriteBlob();
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
return($::SUCCESS, '', $Response[2]);
}
sub CompleteOrder
{
ActinicOrder::ParseAdvancedTax();
my $sPath = ACTINIC::GetPath();
my ($Status, $Message, $sOrderNumber);
($Status, $Message, $sOrderNumber) = GetOrderNumber();
if ($Status != $::SUCCESS)
{
return ($Status, $Message);
}
my @Response = GetSaferBlob($sOrderNumber, $sPath);
if($Response[0] != $::SUCCESS)
{
return(@Response);
}
my ($SaferBlob) = $Response[2];
my $DHBlob;
if (length $::g_PaymentInfo{'CARDNUMBER'} > 0 ||
length $::g_PaymentInfo{'CARDTYPE'} > 0 ||
length $::g_PaymentInfo{'EXPYEAR'} > 0 ||
length $::g_PaymentInfo{'EXPMONTH'} > 0)
{
my (@FieldList, @FieldType);
push (@FieldList, $::g_PaymentInfo{'CARDNUMBER'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_PaymentInfo{'CARDTYPE'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_PaymentInfo{'EXPYEAR'} . '/' . $::g_PaymentInfo{'EXPMONTH'});
push (@FieldType, $::RBSTRING);
push (@FieldList, $::g_PaymentInfo{'CARDVV2'});
push (@FieldType, $::RBSTRING);
if (ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{'METHOD'}) == $::PAYMENT_CREDIT_CARD)
{
push (@FieldList, $::g_PaymentInfo{'CARDISSUE'});
push (@FieldType, $::RBBYTE);
push (@FieldList, $::g_PaymentInfo{'STARTYEAR'} .
($::g_PaymentInfo{'STARTYEAR'} eq "" ? '' : '/') .
$::g_PaymentInfo{'STARTMONTH'});
push (@FieldType, $::RBSTRING);
}
else
{
push (@FieldList, 0);
push (@FieldType, $::RBBYTE);
push (@FieldList, "");
push (@FieldType, $::RBSTRING);
}
@Response = ACTINIC::OpenWriteBlob("memory");
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::WriteBlob(\@FieldList, \@FieldType);
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
return (@Response);
}
@Response = ACTINIC::CloseWriteBlob();
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$DHBlob = $Response[2];
}
my $EncryptedBlob;
eval 'require ActEncrypt1024;';
if ($@)
{
ActinicEncrypt::InitEncrypt(@{$$::g_pSetupBlob{PUBLIC_KEY_128BIT}});
$EncryptedBlob = ActinicEncrypt::Encrypt($DHBlob, $SaferBlob);
}
else
{
my $sKey;
my $sKeyLength = $$::g_pSetupBlob{'KEY_LENGTH'};
my ($nCount);
my ($pKey) = $$::g_pSetupBlob{'PUBLIC_KEY_' . $sKeyLength . 'BIT'};
for ($nCount = ($sKeyLength / 8) - 1; $nCount >= 0; $nCount--)
{
$sKey .= sprintf('%2.2x', $$pKey[$nCount]);
}
my ($nDataLength, $nPhraseID);
($Status, $nPhraseID, $EncryptedBlob, $nDataLength) =
ActEncrypt1024::EncryptData($sKey, $SaferBlob, length $SaferBlob, $DHBlob, length $DHBlob);
if ($Status != $::SUCCESS)
{
return ($Status, ACTINIC::GetPhrase(-1, $nPhraseID));
}
}
my $sError = RecordOrder($sOrderNumber, \$EncryptedBlob);
if ($sError)
{
return($::FAILURE, NotifyOfError($sError));
}
return ($::SUCCESS, "", 0, 0);
}
sub UpdateCheckoutRecord
{
my (%EmptyPaymentInfo);
$EmptyPaymentInfo{'METHOD'} 		= $::g_PaymentInfo{'METHOD'};
$EmptyPaymentInfo{'USERDEFINED'} = $::g_PaymentInfo{'USERDEFINED'};
$EmptyPaymentInfo{'PONO'}			= $::g_PaymentInfo{'PONO'};
$EmptyPaymentInfo{'ORDERNUMBER'}	= $::g_PaymentInfo{'ORDERNUMBER'};
$EmptyPaymentInfo{'ORDERDATE'}	= $::g_PaymentInfo{'ORDERDATE'};
$EmptyPaymentInfo{'BUYERHASH'}	= $ACTINIC::B2B->Get('UserDigest');
$EmptyPaymentInfo{'BUYERNAME'}	= $ACTINIC::B2B->Get('UserName');
$EmptyPaymentInfo{'BASEFILE'}	= $ACTINIC::B2B->Get('BaseFile');
$EmptyPaymentInfo{'AUTHORIZERESULT'}	= $::g_PaymentInfo{'AUTHORIZERESULT'};
my @Response = GetGeneralUD3();
if ($Response[0] != $::SUCCESS)
{
return ($Response[0], $Response[1]);
}
$::g_GeneralInfo{'USERDEFINED'} = $Response[2];
if ($ACTINIC::B2B->Get('UserDigest') ||
defined $::g_PaymentInfo{'SCHEDULE'})
{
$EmptyPaymentInfo{'SCHEDULE'} 	= $::g_PaymentInfo{'SCHEDULE'};
}
return (ActinicOrder::SaveCheckoutStatus(ACTINIC::GetPath(), $::g_sCartId, \%::g_BillContact,
\%::g_ShipContact, \%::g_ShipInfo, \%::g_TaxInfo, \%::g_GeneralInfo,
\%EmptyPaymentInfo, \%::g_LocationInfo));
}
sub GetCancelPage
{
my ($sRefPage) = ActinicOrder::GetLastPage();
if ($$::g_pSetupBlob{UNFRAMED_CHECKOUT} &&
$$::g_pSetupBlob{UNFRAMED_CHECKOUT_URL})
{
$sRefPage = $$::g_pSetupBlob{UNFRAMED_CHECKOUT_URL};
}
my @Response = ACTINIC::BounceToPagePlain(0, undef, undef, \@::g_PageList,
$::g_sWebSiteUrl, $::g_sContentUrl, $::g_pSetupBlob, $sRefPage, \%::g_InputHash);
if ($Response[0] != $::SUCCESS)
{
ACTINIC::ReportError($Response[1], ACTINIC::GetPath());
return;
}
return ($Response[2]);
}
sub RecordAuthorization
{
if (length $::g_InputHash{ON} < 5)
{
return(ACTINIC::GetPhrase(-1, 185, (length $::g_InputHash{ON}), $::g_InputHash{ON}));
}
my (@FieldList, @FieldType);
push (@FieldList, hex("22"));
push (@FieldType, $::RBWORD);
push (@FieldList, 2);
push (@FieldType, $::RBBYTE);
my $ePaymentMethod;
if($::g_InputHash{'ACTION'} =~ m/^AUTHORIZE_(\d+)$/i)
{
$ePaymentMethod = $1; # the : is to help parsing
}
push (@FieldList, $ePaymentMethod);
push (@FieldType, $::RBDWORD);
push (@FieldList, $::g_InputHash{TM} ? 1 : 0);
push (@FieldType, $::RBBYTE);
push (@FieldList, $::g_OriginalInputData);
push (@FieldType, $::RBSTRING);
my $sPath = ACTINIC::GetPath();
my @Response = ACTINIC::OpenWriteBlob('memory');
my ($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
my $sError = (0 == length $Response[1]) ? "Error opening the write blob" : $Response[1];
return(NotifyOfError($sError));
}
@Response = ACTINIC::WriteBlob(\@FieldList, \@FieldType);
($Status, $Message) = @Response;
if ($Status != $::SUCCESS)
{
my $sError = (0 == length $Response[1]) ? "Error writing blob" : $Response[1];
return(NotifyOfError($sError));
}
@Response = ACTINIC::CloseWriteBlob();
if ($Response[0] != $::SUCCESS)
{
my $sError = (0 == length $Response[1]) ? "Error closing the write blob" : $Response[1];
return(NotifyOfError($sError));
}
my ($ClearBlob) = $Response[2];
my ($EncryptedBlob);
ActinicEncrypt::InitEncrypt(@{$$::g_pSetupBlob{PUBLIC_KEY_128BIT}});
$EncryptedBlob = ActinicEncrypt::Encrypt(undef, $ClearBlob);
my ($sTempFilename) = $sPath . $::g_InputHash{ON} . '.occ';
ACTINIC::SecurePath($sTempFilename);
unless ( open (COMPLETEFILE, ">" . $sTempFilename))
{
return(ACTINIC::GetPhrase(-1, 21, $sTempFilename, $!));
}
binmode COMPLETEFILE;
unless (print COMPLETEFILE $EncryptedBlob)
{
my ($sError) = $!;
close COMPLETEFILE;
unlink $sTempFilename;
return(ACTINIC::GetPhrase(-1, 28, $sTempFilename, $sError));
}
close COMPLETEFILE;
return (undef);
}
sub LogData
{
if ($nDebugLogLevel)
{
my $sLogData = shift;
ACTINIC::RecordErrors($sLogData, ACTINIC::GetPath());
}
}
sub CallOCCPlugIn
{
local ($::sOrderNumber, $::nOrderTotal, %::PriceFormatBlob, %::InvoiceContact, $::sCallBackURLUser, %::OCCShipData);
local ($::sCallBackURLAuth, $::sCallBackURLBack);
my ($Status, $Message, $pCartList);
my @Response = ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $pCartList) = @Response;
if ($Status != $::SUCCESS &&
$Status != $::EOF)
{
return($::FAILURE, $Message, '');
}
@Response = ActinicOrder::SummarizeOrder($pCartList, $::TRUE);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$::nOrderTotal = $Response[6];
%::PriceFormatBlob = %{$::g_pCatalogBlob};
%::InvoiceContact = %::g_BillContact;
%::OCCShipData = %::g_ShipContact;
($Status, $Message, $::sOrderNumber) = GetOrderNumber();
if ($Status != $::SUCCESS)
{
return ($Status, $Message, undef);
}
my	$ePaymentMethod = ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{'METHOD'}); # the payment method is stored as "ENUMERATEDID:DESCRIPTION"
$::sCallBackURLAuth = sprintf("%sos%6.6d%s?%s", $$::g_pSetupBlob{CGI_URL}, $$::g_pSetupBlob{CGI_ID},
$$::g_pSetupBlob{CGI_EXT},
'PATH=' . ACTINIC::EncodeText2(ACTINIC::GetPath(), $::FALSE) . '&');
$::sCallBackURLAuth .= "SEQUENCE=3&ACTION=AUTHORIZE_$ePaymentMethod&";
my ($sBaseUrl) = sprintf("%sos%6.6d%s?%s", $$::g_pSetupBlob{CGI_URL}, $$::g_pSetupBlob{CGI_ID},
$$::g_pSetupBlob{CGI_EXT},
($::g_InputHash{SHOP} ? 'SHOP=' . ACTINIC::EncodeText2($::g_InputHash{SHOP}, $::FALSE) . '&' : ''));
@Response = ACTINIC::EncodeText(ACTINIC::GetPhrase(-1, 504), $::FALSE);
my ($sFinish) = $Response[1];
@Response = ACTINIC::EncodeText($::g_sWebSiteUrl, $::FALSE);
my $sRefPage = $Response[1];
$::sCallBackURLUser = $sBaseUrl . "SEQUENCE=3&ACTION=$sFinish" .
"&ORDERNUMBER=$::sOrderNumber&REFPAGE=" . $sRefPage . "&";
@Response = ACTINIC::EncodeText(ACTINIC::GetPhrase(-1, 503), $::FALSE);
my $sBack = $Response[1];
my $sReferrer = ACTINIC::GetReferrer();
if ($sReferrer =~ /\?.+/)
{
($sReferrer) = split /\?/, $sReferrer;
}
$::sCallBackURLBack = $sReferrer . "?SEQUENCE=" . $::g_nNextSequenceNumber .
"&ACTION=" . $sBack .
"&REFPAGE=" . $sRefPage .
($::g_InputHash{SHOP} ? '&SHOP=' . ACTINIC::EncodeText2($::g_InputHash{SHOP}, $::FALSE) : '') .
"&";
@Response = GetOCCScript(ACTINIC::GetPath());
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($sScript) = $Response[2];
local $::sPath = ACTINIC::GetPath();
local $::sWebSiteUrl = $::g_sWebSiteUrl;
local $::sContentUrl = $::g_sContentUrl;
if($ACTINIC::B2B->Get('UserDigest'))
{
$::sContentUrl = $ACTINIC::B2B->Get('BaseFile');
$::sContentUrl =~ s#/[^/]*$#/#;
$::sWebSiteUrl = $::g_sAccountScript;
$::sWebSiteUrl .= ($::g_InputHash{SHOP} ? '?SHOP=' . ACTINIC::EncodeText2($::g_InputHash{SHOP}, $::FALSE) . '&': '?');
$::sWebSiteUrl .= 'PRODUCTPAGE=';
}
if (eval($sScript) != $::SUCCESS)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 170, $@));
}
if ($::sRedirectURL)
{
LogData ("CallOCCPlugIn:\n$::sRedirectURL");
}
else
{
LogData ("CallOCCPlugIn:\n$::sHTML");
}
return ($::eStatus, $::sErrorMessage, $::sHTML);
}
sub GetOCCScript
{
if (defined $::s_sOCCScript)# if it is already in memory,
{
return ($::SUCCESS, "", $::s_sOCCScript);
}
if ($#_ < 0)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 12, 'GetOCCScript'), 0, 0);
}
my ($sPath) = $_[0];
my	$ePaymentMethod = ActinicOrder::PaymentStringToEnum($::g_PaymentInfo{'METHOD'}); # the payment method is stored as "ENUMERATEDID:DESCRIPTION"
my ($sFilename, $pPaymentMethodHash);
$pPaymentMethodHash = $$::g_pPaymentList{$ePaymentMethod};
$sFilename = $sPath . $$pPaymentMethodHash{BOUNCE_SCRIPT};
my @Response = ACTINIC::ReadAndVerifyFile($sFilename);
if ($Response[0] == $::SUCCESS)
{
$::s_sOCCScript = $Response[2];
}
return (@Response);
}
sub GetOrderNumber
{
if (length $::s_sOrderNumber > 0)
{
return ($::SUCCESS, undef, $::s_sOrderNumber, undef);
}
my (@CharacterSet) = split(//, "3456789ABCDEFGHJKLMNPQRSTUVWXY");
my $sInitials;
my $sName = $::g_BillContact{'NAME'};
$sName =~ s/[^a-zA-Z0-9 ]//g;
$sName =~ s/^\s*//;
$sName =~ s/\s*$//;
if (!$sName)
{
$sInitials = substr("00" . ACTINIC::Modulus($$, 100), -2);
}
elsif (2 >= length $sName)
{
$sInitials = substr($sName . ACTINIC::Modulus($$, 10), 0, 2);
}
elsif ($sName =~ /([^ \t\r\n]+)\s*([^ \t\r\n]+)\s*([^ \t\r\n]*)/) # two or three names - get the true initials
{
my $s = $3 ? $3 : $2;
$sInitials = substr($1, 0, 1) . substr($s, 0, 1);
}
else
{
$sInitials = substr($sName, 0, 2);
}
$sInitials = uc($sInitials);
my $sPostCode = uc($::g_BillContact{POSTALCODE});
$sPostCode =~ s/[^A-Z0-9]//g;
srand(time() ^($$ + ($$ << 15)));
while ( (length $sPostCode) < 4)
{
$sPostCode = int(rand(10000)) . $sPostCode; # tack on some pseudo-random numbers
}
$sPostCode = substr($sPostCode, -4, 4);
$sPostCode =~ s/\s/_/g;
my $nNumberBreakRetries = 1;
my $sUnLockFile = ACTINIC::GetPath() . 'Order.num';
my $sBackupFile = ACTINIC::GetPath() . 'Backup.num';
my $sLockFile = ACTINIC::GetPath() . 'OrderLock.num';
ACTINIC::SecurePath($sUnLockFile);
ACTINIC::SecurePath($sBackupFile);
ACTINIC::SecurePath($sLockFile);
if (!-e $sUnLockFile &&
!-e $sLockFile &&
!-e $sBackupFile)
{
unless (open (LOCK, ">$sUnLockFile"))
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 182, $sUnLockFile, $!)), undef, undef);
}
binmode LOCK;
my $nCounter = pack("N", 0);
unless (print LOCK $nCounter)
{
my $sError = $!;
close (LOCK);
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 28, $sUnLockFile, $sError)), undef, undef);
}
close (LOCK);
sleep 2;
}
my $nByteLength = 4;
if (!-e $sUnLockFile &&
!-e $sLockFile &&
-e $sBackupFile)
{
unless (open (LOCK, ">$sUnLockFile"))
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 182, $sUnLockFile, $!)), undef, undef);
}
binmode LOCK;
unless (open (BACK, "<$sBackupFile"))
{
my $sError = $!;
close (LOCK);
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 21, $sBackupFile, $sError)), undef, undef);
}
binmode BACK;
my $nCounter;
unless ($nByteLength == read (BACK, $nCounter, $nByteLength))
{
my $sError = $!;
close (LOCK);
close (BACK);
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 105, $sBackupFile, $sError)), undef, undef);
}
close (BACK);
unless (print LOCK $nCounter)
{
my $sError = $!;
close (LOCK);
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 28, $sUnLockFile, $sError)), undef, undef);
}
close (LOCK);
sleep 2;
}
my $nDate;
my $bFileIsLocked = $::FALSE;
my $sRenameError;
RETRY:
$bFileIsLocked = $::FALSE;
if ($nNumberBreakRetries < 0)
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 201, $sRenameError)), undef, undef);
}
my $nRetries = 20;
while ($nRetries > 0)
{
if (rename($sUnLockFile, $sLockFile))
{
$bFileIsLocked = $::TRUE;
last;
}
$sRenameError = $!;
if (!defined $nDate)
{
my @tmp = stat $sLockFile;
$nDate = $tmp[9];
}
$nRetries--;
sleep 2;
}
if (!$bFileIsLocked)
{
if (-e $sLockFile)
{
my @tmp = stat $sLockFile;
if (!defined $nDate)
{
return ($::FAILURE, (ACTINIC::GetPhrase(-1, 201, $sRenameError)), undef, undef);
}
if (!defined $tmp[9])
{
$nNumberBreakRetries--;
sleep 2;
goto RETRY;
}
if ($nDate == $tmp[9])
{
if (!rename($sLockFile, $sUnLockFile))
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 201, $!)), undef, undef);
}
}
$nNumberBreakRetries--;
sleep 2;
goto RETRY;
}
else
{
$nNumberBreakRetries--;
sleep 2;
goto RETRY;
}
}
unless (open (LOCK, "<$sLockFile"))
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 182, $sLockFile, $!)), undef, undef);
}
binmode LOCK;
my $nCounterBin;
unless ($nByteLength == read (LOCK, $nCounterBin, $nByteLength))
{
my $sError = $!;
close (LOCK);
unless (open (LOCK, "<$sBackupFile"))
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 182, $sBackupFile, $!)), undef, undef);
}
binmode LOCK;
unless ($nByteLength == read (LOCK, $nCounterBin, $nByteLength))
{
close (LOCK);
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 105, $sLockFile, $sError)), undef, undef);
}
}
close (LOCK);
my $nCounter = unpack("N", $nCounterBin);
$nCounter++;
if ($nCounter > 9999999)
{
$nCounter = 0;
}
$nCounterBin = pack ("N", $nCounter);
unless (open (LOCK, ">$sLockFile"))
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 182, $sLockFile, $!)), undef, undef);
}
binmode LOCK;
unless (print LOCK $nCounterBin)
{
my $sError = $!;
close (LOCK);
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 28, $sUnLockFile, $sError)), undef, undef);
}
close (LOCK);
unless (open (LOCK, ">$sBackupFile"))
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 182, $sBackupFile, $!)), undef, undef);
}
binmode LOCK;
unless (print LOCK $nCounterBin)
{
my $sError = $!;
close (LOCK);
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 28, $sBackupFile, $sError)), undef, undef);
}
close (LOCK);
if (!rename ($sLockFile, $sUnLockFile))
{
return ($::FAILURE, NotifyOfError(ACTINIC::GetPhrase(-1, 202, $!)), undef, undef);
}
$::s_sOrderNumber = $sInitials . $sPostCode . substr($$::g_pSetupBlob{CGI_ID}, -1) .
substr("0000000" . $nCounter, -7);
return ($::SUCCESS, undef, $::s_sOrderNumber, undef);
}
sub GetGeneralUD3
{
my $sCookieName = 'ACTINIC_SOURCE';
my ($sCookie, $sCookies);
$sCookies = $ENV{'HTTP_COOKIE'};
if ($sCookies =~ /$sCookieName/ &&
!ACTINIC::IsPromptHidden(4, 2))
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 172));
}
if ($sCookies !~ /$sCookieName/)
{
return ($::SUCCESS, undef, $::g_GeneralInfo{'USERDEFINED'});
}
my (@CookieList) = split(/;/, $sCookies);
my ($sLabel, $sValue);
foreach $sCookie (@CookieList)
{
if ($sCookie =~ /$sCookieName/)
{
($sLabel, $sValue) = split (/=/, $sCookie);
return ($::SUCCESS, undef, $sValue);
}
}
return ($::FAILURE, undef, undef);
}
sub CountValidCartItems
{
if ($#_ != 0)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 12, 'CountValidCartItems'), 0, 0);
}
my $pCartList = $_[0];
my ($pOrderDetail, @Response);
my (%CurrentItem, $pProduct);
my $nLineCount = 0;
foreach $pOrderDetail (@$pCartList)
{
%CurrentItem = %$pOrderDetail;
my ($Status, $Message, $sSectionBlobName) = ACTINIC::GetSectionBlobName($CurrentItem{SID});
if ($Status == $::FAILURE)
{
ACTINIC::RecordErrors($Message, ACTINIC::GetPath());
next;
}
@Response = ACTINIC::GetProduct($CurrentItem{"PRODUCT_REFERENCE"},  $sSectionBlobName,
ACTINIC::GetPath());
if ($Response[0] != $::NOTFOUND)
{
$nLineCount++;
}
}
return ($nLineCount);
}
sub EnsurePaymentSelection
{
if (0 < length $::g_PaymentInfo{'METHOD'})
{
return;
}
my @arrPayments;
ActinicOrder::GenerateValidPayments(\@arrPayments);
my $nPaymentOptions = @arrPayments;
if (length $::g_PaymentInfo{'METHOD'} == 0)
{
$::g_PaymentInfo{'METHOD'} = $::PAYMENT_INVOICE_PRE_PAY	;
}
}
sub RecordOrder
{
if ($#_ != 1 && $#_ != 2)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 12, 'RecordOrder'), 0, 0);
}
my ($sOrderNumber, $pBlob, $bCheckLightData) = @_;
$::g_PaymentInfo{'ORDERNUMBER'} = $sOrderNumber;
UpdateCheckoutRecord();
my ($Status, $Message, @FileList) = ACTINIC::ReadTheDir(ACTINIC::GetPath());
if ($Status != $::SUCCESS)
{
@FileList = ();
}
my $sFileList = join(' ', @FileList);
my $bOrderExists = ($sFileList =~ /\.ord( |$)/);
if($bCheckLightData)
{
my($nReturnCode, $sError) = CheckSaferEncryptedData($sOrderNumber, $pBlob);
if($nReturnCode != $::TRUE)
{
return($sError);
}
}
my ($sTempFilename) = ACTINIC::GetPath() . ACTINIC::CleanFileName($sOrderNumber . '.ord');
if (-e $sTempFilename)
{
ACTINIC::ChangeAccess('rw', $sTempFilename);
}
ACTINIC::SecurePath($sTempFilename);
unless ( open (COMPLETEFILE, ">" . $sTempFilename))
{
return(ACTINIC::GetPhrase(-1, 21, $sTempFilename, $!));
}
binmode COMPLETEFILE;
unless (print COMPLETEFILE $$pBlob)
{
my ($sError) = $!;
close COMPLETEFILE;
unlink $sTempFilename;
return(ACTINIC::GetPhrase(-1, 28, $sTempFilename, $sError));
}
close COMPLETEFILE;
ACTINIC::ChangeAccess('', $sTempFilename);
if (!$bOrderExists &&
$$::g_pSetupBlob{EMAIL_REQUESTED} &&
$$::g_pSetupBlob{EMAIL} ne "" &&
$::g_sSmtpServer ne "")
{
($Status, $Message) = ACTINIC::SendMail($::g_sSmtpServer, $$::g_pSetupBlob{EMAIL},
ACTINIC::GetPhrase(-1, 309), ACTINIC::GetPhrase(-1, 310));
if ($Status != $::SUCCESS)
{
ACTINIC::RecordErrors($Message, ACTINIC::GetPath());
}
}
return (undef);
}
sub CheckSaferEncryptedData
{
my ($sOrderNumber, $pBlob) = @_;
my (@BlobDetails) = unpack("C4NNC*", $$pBlob);
my $sError;
my $nLightDataOffset = 4 + 8 + $BlobDetails[3] + $BlobDetails[4];
my $sBlobLightData = substr($$pBlob, $nLightDataOffset);
my @bFixedKey = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16);
my @Response = GetSaferBlob($sOrderNumber, ACTINIC::GetPath(),
$::g_PaymentInfo{ORDERDATE});
if($Response[0] != $::SUCCESS)
{
return($::FALSE, $Response[1]);
}
my ($SaferBlob) = $Response[2];
ActinicSafer::InitTables();
my $sActualLight = ActinicEncrypt::EncryptSafer($SaferBlob, @bFixedKey);
if($sActualLight ne $sBlobLightData)
{
return($::FALSE, '000' . ACTINIC::GetPhrase(-1, 360));
}
return($::TRUE, '');
}
sub GenerateCustomerMail
{
my ($sTemplateFile, $sEmailAddress, $sName) = @_;
my (@Response, $Status, $Message);
$ACTINIC::B2B->ClearXML();
if (!$$::g_pSetupBlob{EMAIL})
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 279));
}
if (!$sEmailAddress)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 280));
}
if (!$::g_sSmtpServer)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 281));
}
my ($pCartList);
@Response = ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $pCartList) = @Response;
if ($Status != $::SUCCESS &&
$Status != $::EOF)
{
return (@Response);
}
$ACTINIC::B2B->SetXML('CUSTOMER_NAME',$sName);
$ACTINIC::B2B->SetXML('ORDER_NUMBER',$::g_InputHash{ORDERNUMBER});
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst, $sDate);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time);
$mon++;
$year += 1900;
my $sDatePrompt = ACTINIC::GetPhrase(-1, 1912);
if ($sDatePrompt !~ s/dd/$mday/i)
{
ACTINIC::ReportError(ACTINIC::GetPhrase(-1, 1913), ACTINIC::GetPath());
}
if ($sDatePrompt !~ s/mm/$mon/i)
{
ACTINIC::ReportError(ACTINIC::GetPhrase(-1, 1913), ACTINIC::GetPath());
}
if ($sDatePrompt !~ s/yy/$year/i)
{
ACTINIC::ReportError(ACTINIC::GetPhrase(-1, 1913), ACTINIC::GetPath());
}
$sDate = $sDatePrompt . sprintf(" %2.2d:%2.2d", $hour, $min);
$ACTINIC::B2B->SetXML('ORDER_DATE',$sDate);
my %hashShipMap = (
'SALUTATION'	=> 'SHIP_SALUTATION',
'NAME'			=> 'SHIP_NAME',
'JOBTITLE'		=> 'SHIP_TITLE',
'COMPANY'		=> 'SHIP_COMPANY',
'ADDRESS1'		=> 'SHIP_ADDRESS1',
'ADDRESS2'		=> 'SHIP_ADDRESS2',
'ADDRESS3'		=> 'SHIP_ADDRESS3',
'ADDRESS4'		=> 'SHIP_ADDRESS4',
'POSTALCODE'	=> 'SHIP_POSTCODE',
'COUNTRY'		=> 'SHIP_COUNTRY',
'PHONE'			=> 'SHIP_PHONE',
'FAX'				=> 'SHIP_FAX',
'EMAIL'			=> 'SHIP_EMAIL',
'USERDEFINED'	=> 'SHIP_USERDEFINED',
);
SetXMLFromHash(\%hashShipMap, \%::g_ShipContact);
my %hashBillMap = (
'SALUTATION'	=> 'BILL_SALUTATION',
'NAME'			=> 'BILL_NAME',
'JOBTITLE'		=> 'BILL_TITLE', 
'COMPANY'		=> 'BILL_COMPANY',
'ADDRESS1'		=> 'BILL_ADDRESS1',
'ADDRESS2'		=> 'BILL_ADDRESS2',
'ADDRESS3'		=> 'BILL_ADDRESS3',
'ADDRESS4'		=> 'BILL_ADDRESS4',
'POSTALCODE'	=> 'BILL_POSTCODE',
'COUNTRY'		=> 'BILL_COUNTRY', 
'PHONE'			=> 'BILL_PHONE', 
'FAX'				=> 'BILL_FAX', 
'EMAIL'			=> 'BILL_EMAIL',
'USERDEFINED'	=> 'BILL_USERDEFINED',
);
if ($::g_BillContact{'SEPARATE'})
{
$ACTINIC::B2B->SetXML('BILL_LABEL', ACTINIC::GetPhrase(-1, 339));
SetXMLFromHash(\%hashBillMap, \%::g_BillContact);		
}
else
{
$ACTINIC::B2B->SetXML('BILL_LABEL', "");
my ($sKey, $sValue);
while (($sKey, $sValue) = each(%hashBillMap))
{
$ACTINIC::B2B->SetXML($sValue, "");
$ACTINIC::B2B->SetXML($sValue . "_SEP", "");
}
}
my %hashCompanyMap = (
'COMPANY_NAME'			=> 'COMPANY_NAME',
'CONTACT_SALUTATION'	=> 'COMPANY_SALUTATION', 
'CONTACT_NAME'			=> 'COMPANY_CONTACT_NAME',
'CONTACT_JOB_TITLE'	=> 'COMPANY_CONTACT_TITLE',
'ADDRESS_1'				=> 'COMPANY_CONTACT_ADDRESS1',
'ADDRESS_2'				=> 'COMPANY_CONTACT_ADDRESS2',
'ADDRESS_3'				=> 'COMPANY_CONTACT_ADDRESS3',
'ADDRESS_4'				=> 'COMPANY_CONTACT_ADDRESS4',
'POSTAL_CODE'			=> 'COMPANY_CONTACT_POSTCODE',
'COUNTRY'				=> 'COMPANY_CONTACT_COUNTRY', 
'PHONE'					=> 'COMPANY_CONTACT_PHONE', 
'FAX'						=> 'COMPANY_CONTACT_FAX', 
'EMAIL'					=> 'COMPANY_CONTACT_EMAIL',
'WEB_SITE_URL'			=> 'COMPANY_CONTACT_WEBSITE',
);
SetXMLFromHash(\%hashCompanyMap, \%$::g_pSetupBlob);
my ($nColumns, $nColumnsToPrice);
$nColumns = 0;
$ACTINIC::B2B->SetXML('CART', ACTINIC::GetPhrase(-1, 165));
if ($$::g_pSetupBlob{PRICES_DISPLAYED})
{
$ACTINIC::B2B->AppendXML('CART', " (" . ACTINIC::GetPhrase(-1, 96, $$::g_pCatalogBlob{'CURRENCY'}) . ")");
}
$ACTINIC::B2B->AppendXML('CART', "\r\n");
my $nProdRefColumnWidth = 0;
if ($$::g_pSetupBlob{PROD_REF_COUNT} > 0)
{
$nProdRefColumnWidth = $$::g_pSetupBlob{PROD_REF_COUNT} > (length ACTINIC::GetPhrase(-1, 97)) ?
$$::g_pSetupBlob{PROD_REF_COUNT} : (length ACTINIC::GetPhrase(-1, 97));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%-%d.%ds ", $nProdRefColumnWidth, $nProdRefColumnWidth),
ACTINIC::GetPhrase(-1, 97)));
$nColumns++;
}
my $nDescriptionColumnWidth = 30 > (length ACTINIC::GetPhrase(-1, 98)) ? 30 : (length ACTINIC::GetPhrase(-1, 98));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%-%d.%ds ", $nDescriptionColumnWidth, $nDescriptionColumnWidth),
ACTINIC::GetPhrase(-1, 98)));
$nColumns++;
my $nQuantityColumnWidth = 6 > (length ACTINIC::GetPhrase(-1, 159)) ? 6 : (length ACTINIC::GetPhrase(-1, 159));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds ", $nQuantityColumnWidth),
ACTINIC::GetPhrase(-1, 159)));
$nColumns++;
my $nPriceColumnWidth = 0;
if ($$::g_pSetupBlob{PRICES_DISPLAYED})
{
$nPriceColumnWidth = 11;
$nPriceColumnWidth = $nPriceColumnWidth > (length ACTINIC::GetPhrase(-1, 99)) ? $nPriceColumnWidth :
length ACTINIC::GetPhrase(-1, 99);
$nPriceColumnWidth = $nPriceColumnWidth > (length ACTINIC::GetPhrase(-1, 100)) ? $nPriceColumnWidth :
length ACTINIC::GetPhrase(-1, 100);
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds ", $nPriceColumnWidth),
ACTINIC::GetPhrase(-1, 99)));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds ", $nPriceColumnWidth),
ACTINIC::GetPhrase(-1, 100)));
$nColumns += 2;
}
$ACTINIC::B2B->AppendXML('CART', "\r\n");
$ACTINIC::B2B->AppendXML('CART', "-" x ($nProdRefColumnWidth + 2 + $nDescriptionColumnWidth + 2 + $nQuantityColumnWidth + 2 + 2 * ($nPriceColumnWidth + 2)));
my @TableFormat;
my $nCol = 0;
if ($$::g_pSetupBlob{PROD_REF_COUNT} > 0)
{
$TableFormat[$nCol++] = sprintf(" %%-%ds ",$nProdRefColumnWidth);
}
$TableFormat[$nCol++] = sprintf(" %%-%ds ",$nDescriptionColumnWidth);
$TableFormat[$nCol++] = sprintf(" %%%ds ", $nQuantityColumnWidth);
$TableFormat[$nCol++] = sprintf(" %%%ds ", $nPriceColumnWidth);
$TableFormat[$nCol++] = sprintf(" %%%ds ", $nPriceColumnWidth);
my ($pOrderDetail, $pProduct);
foreach $pOrderDetail (@$pCartList)
{
my $pPrintTable;
my $nColumn = 0;
my $sSectionBlobName;
($Status, $Message, $sSectionBlobName) = ACTINIC::GetSectionBlobName($$pOrderDetail{SID});
if ($Status == $::FAILURE)
{
return ($Status, $Message);
}
@Response = ACTINIC::GetProduct($$pOrderDetail{PRODUCT_REFERENCE}, $sSectionBlobName,
ACTINIC::GetPath());
($Status, $Message, $pProduct) = @Response;
if ($Status == $::NOTFOUND)
{
}
if ($Status == $::FAILURE)
{
return (@Response);
}
my $nEffectiveQuantity = ActinicOrder::EffectiveCartQuantity($pOrderDetail,$pCartList,\&ActinicOrder::IdenticalCartLines,undef);
my %CurrentItem = %$pOrderDetail;
my $VariantList;
if( $pProduct->{COMPONENTS} )
{
my $sKey;
foreach $sKey (keys %CurrentItem)
{
if( $sKey =~ /^COMPONENT\_/ )
{
$VariantList->[$'] = $CurrentItem{$sKey};
}
}
}
my (@ComponentLines,@ComponentCodes,@ComponentQuantities);
my $ComponentPrice = 0;
{
my %Component;
my $pComponent;
my $nIndex = 1;
foreach $pComponent (@{$pProduct->{COMPONENTS}})
{
@Response = ActinicOrder::FindComponent($pComponent,$VariantList,"\n");
($Status, %Component) = @Response;
if ($Status != $::SUCCESS)
{
return ($Status,$Component{text});
}
if( $Component{quantity} > 0 )
{
my $sRef= $Component{code} && $pComponent->[4] == 1 ? $Component{code} : $CurrentItem{"PRODUCT_REFERENCE"} . "_" . $nIndex;
@Response = ActinicOrder::GetComponentPrice($Component{price},$nEffectiveQuantity,$Component{quantity}, undef, $sRef);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$ComponentPrice += $Response[2];
my $ComponentText;
if( $pComponent->[0] )
{
$ComponentText = $pComponent->[0];
push @ComponentCodes,$Component{code};
push @ComponentQuantities,$Component{quantity}*$CurrentItem{"QUANTITY"};
}
else
{
push @ComponentCodes,"";
push @ComponentQuantities,"";
}
if( $Component{text} )
{
if( $pComponent->[0] )
{
$ComponentText  .= "\n";
}
$ComponentText  .= $Component{text};
}
push @ComponentLines,  " " . $ComponentText;
}
$nIndex++;
}
}
my $sPrice;
my $sUserDigest = $ACTINIC::B2B->Get('UserDigest');
$sPrice = ActinicOrder::CalculateSchPrice($pProduct,$nEffectiveQuantity,$sUserDigest);
my $nPriceModel = $$pProduct{PRICING_MODEL};
if( $nPriceModel == $ActinicOrder::PRICING_MODEL_PROD_COMP )
{
$sPrice += $ComponentPrice;
}
elsif( $nPriceModel == $ActinicOrder::PRICING_MODEL_COMP )
{
$sPrice = $ComponentPrice;
}
if ($$::g_pSetupBlob{PROD_REF_COUNT} > 0)
{
$pPrintTable->[$nColumn++]->[0] = $$pProduct{REFERENCE};
}
my $sName = $$pProduct{NAME};
$sName =~ s/(!!\<|\>!!)//g;
my ($pProductDescription,$nLineCount) = ActinicOrder::WrapText($sName,$nDescriptionColumnWidth);
my $nCurrentRow = 0;
foreach (@$pProductDescription)
{
$pPrintTable->[$nColumn]->[$nCurrentRow++] = $_;
}
$nColumn++;
$pPrintTable->[$nColumn++]->[0] = $$pOrderDetail{QUANTITY};
if ($$::g_pSetupBlob{PRICES_DISPLAYED})
{
if ($sPrice > 0)
{
my ($nItemTotal);
$nItemTotal = $sPrice * $$pOrderDetail{QUANTITY};
@Response = ActinicOrder::FormatPrice($sPrice, $::TRUE, $::g_pCatalogBlob);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$pPrintTable->[$nColumn++]->[0] = $Response[2];
@Response = ActinicOrder::FormatPrice($nItemTotal, $::TRUE, $::g_pCatalogBlob);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$pPrintTable->[$nColumn++]->[0] = $Response[2];
}
else
{
$pPrintTable->[$nColumn++]->[0] = '--';
$pPrintTable->[$nColumn++]->[0] = '--';
}
}
$ACTINIC::B2B->AppendXML('CART', "\r\n");
my $nLine;
for( $nLine=0; $nLine<$nCurrentRow; $nLine++ )
{
for( $nCol=0; $nCol<$nColumn; $nCol++ )
{
$ACTINIC::B2B->AppendXML('CART', sprintf($TableFormat[$nCol],$pPrintTable->[$nCol]->[$nLine]));
}
$ACTINIC::B2B->AppendXML('CART', "\r\n");
}
$nCurrentRow = 0;
my $nComponentCount;
$pPrintTable = [];
for ($nComponentCount=0; $nComponentCount<=$#ComponentLines; $nComponentCount++ )
{
$nColumn = 0;
my $FullDescr = $ComponentLines[$nComponentCount];
if ($$::g_pSetupBlob{PROD_REF_COUNT} > 0)
{
$pPrintTable->[$nColumn++]->[0] = $ComponentCodes[$nComponentCount];
}
($pProductDescription,$nLineCount) = ActinicOrder::WrapText($FullDescr,$nDescriptionColumnWidth);
my $sIndent = "";
foreach (@$pProductDescription)
{
$pPrintTable->[$nColumn]->[$nCurrentRow++] = $sIndent . $_;
$sIndent = "  ";
}
$nColumn++;
$pPrintTable->[$nColumn++]->[0] = $ComponentQuantities[$nComponentCount];
}
for( $nLine=0; $nLine<$nCurrentRow; $nLine++ )
{
my $nCol;
for( $nCol = 0; $nCol<$nColumn; $nCol++ )
{
$ACTINIC::B2B->AppendXML('CART', sprintf($TableFormat[$nCol],$pPrintTable->[$nCol]->[$nLine]));
}
$ACTINIC::B2B->AppendXML('CART', "\r\n");
}
}
@Response = ActinicOrder::SummarizeOrder($pCartList, $::TRUE);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($Ignore0, $Ignore1, $nSubTotal, $nShipping, $nTax1, $nTax2, $nTotal, $nShippingTax1, $nShippingTax2, $nHandling, $nHandlingTax1, $nHandlingTax2) = @Response;
@Response = ActinicOrder::SummarizeOrderPrintable(@Response);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($Ignore2, $Ignore3, $sSubTotal, $sShipping, $sHandling, $sTax1, $sTax2, $sTotal) = @Response;
if ($$::g_pSetupBlob{PRICES_DISPLAYED} &&
$nTotal > 0)
{
$ACTINIC::B2B->AppendXML('CART', "=" x ($nProdRefColumnWidth + 2 + $nDescriptionColumnWidth + 2 + $nQuantityColumnWidth + 2 + 2 * ($nPriceColumnWidth + 2)));
$ACTINIC::B2B->AppendXML('CART', "\r\n");
my $nTextColumnWidth;
if ($nProdRefColumnWidth)
{
$nTextColumnWidth += $nProdRefColumnWidth + 2;
}
$nTextColumnWidth += $nDescriptionColumnWidth + 2;
$nTextColumnWidth += $nQuantityColumnWidth + 2;
if ($nPriceColumnWidth)
{
$nTextColumnWidth += $nPriceColumnWidth + 2;
}
$nTextColumnWidth -= 2;
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%d.%ds ", $nTextColumnWidth, $nTextColumnWidth), ACTINIC::GetPhrase(-1, 101) . ":"));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds\r\n", $nPriceColumnWidth), $sSubTotal));
if ($$::g_pSetupBlob{MAKE_SHIPPING_CHARGE} && $nShipping > 0)
{
@Response = ActinicOrder::CallShippingPlugIn($pCartList, $nSubTotal);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
elsif (${$Response[2]}{GetShippingDescription} != $::SUCCESS)
{
return ( ${$Response[2]}{GetShippingDescription}, ${$Response[3]}{GetShippingDescription});
}
my $sShipDescription = $Response[5];
my $sShippingText = ACTINIC::GetPhrase(-1, 102);
if ($sShipDescription ne "")
{
$sShippingText .= " ($sShipDescription)";
}
$sShippingText .= ":";
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%d.%ds ", $nTextColumnWidth, $nTextColumnWidth), $sShippingText));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds\r\n", $nPriceColumnWidth), $sShipping));
}
if ($$::g_pSetupBlob{MAKE_HANDLING_CHARGE} && $nHandling != 0)
{
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%d.%ds ", $nTextColumnWidth, $nTextColumnWidth), ACTINIC::GetPhrase(-1, 199) . ":"));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds\r\n", $nPriceColumnWidth), $sHandling));
}
if ($$::g_pSetupBlob{TAX_1_FLAG} && $nTax1 > 0)
{
my $sTaxName = (defined $$::g_pTaxSetupBlob{'TAX_1'}) ?
$$::g_pTaxSetupBlob{'TAX_1'}{'NAME'} : '';
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%d.%ds ", $nTextColumnWidth, $nTextColumnWidth), $sTaxName . ":"));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds\r\n", $nPriceColumnWidth), $sTax1));
}
if ($$::g_pSetupBlob{TAX_2_FLAG} && $nTax2 > 0)
{
my $sTaxName = (defined $$::g_pTaxSetupBlob{'TAX_2'}) ?
$$::g_pTaxSetupBlob{'TAX_2'}{'NAME'} : '';
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%d.%ds ", $nTextColumnWidth, $nTextColumnWidth), $sTaxName . ":"));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds\r\n", $nPriceColumnWidth), $sTax2));
}
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%d.%ds ", $nTextColumnWidth, $nTextColumnWidth), ACTINIC::GetPhrase(-1, 103) . ":"));
$ACTINIC::B2B->AppendXML('CART', sprintf(sprintf(" %%%ds\r\n", $nPriceColumnWidth), $sTotal));
if($::s_Ship_nSSPProviderID != -1 &&
$$::g_pSSPSetupBlob{$::s_Ship_nSSPProviderID} &&
$$::g_pSSPSetupBlob{$::s_Ship_nSSPProviderID}{'RATE_DISCLAIMER'})
{
$ACTINIC::B2B->AppendXML('CART', 
sprintf("\r\n%s\r\n", 
ACTINIC::SplitString($$::g_pSSPSetupBlob{$::s_Ship_nSSPProviderID}{'RATE_DISCLAIMER'},
70,
"\r\n")));
}
}
if($::s_Ship_sExtraFooterInformation ne '')
{
if($::s_Ship_nSSPProviderID != -1 &&
$$::g_pSSPSetupBlob{$::s_Ship_nSSPProviderID} &&
$$::g_pSSPSetupBlob{$::s_Ship_nSSPProviderID}{'TRADEMARKS'})
{
$ACTINIC::B2B->AppendXML('EXTRAFOOTER', 
sprintf("\r\n%s\r\n", 
ACTINIC::SplitString($$::g_pSSPSetupBlob{$::s_Ship_nSSPProviderID}{'TRADEMARKS'},
70,
"\r\n")));
}
}
else
{
$ACTINIC::B2B->AppendXML('EXTRAFOOTER', '');
}
my $sFilename = ACTINIC::GetPath() . $sTemplateFile;
unless (open (TEMPLATE, "<$sFilename"))
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 21, $sFilename, $!));
}
my $sBody;
{
local $/;
$sBody = <TEMPLATE>;
}
close (TEMPLATE);
$sBody =~ s/([^\r])\n/$1\r\n/g;
my $Parser = new ACTINIC_PXML();
$sBody = $Parser->Parse($sBody);
($Status, $Message) = ACTINIC::SendMail($::g_sSmtpServer,
$sEmailAddress,
ACTINIC::GetPhrase(-1, 234) . " $::g_InputHash{ORDERNUMBER}",
$sBody,
$$::g_pSetupBlob{EMAIL});
if($Status != $::SUCCESS)
{
return ($::FAILURE, $Message);
}
return ($::SUCCESS, "");
}
sub GeneratePresnetMail
{
my ($sTextMailBody, @Response, $Status, $Message);
my ($pCartList);
@Response = ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
($Status, $Message, $pCartList) = @Response;
if ($Status != $::SUCCESS &&
$Status != $::EOF)
{
return (@Response);
}
$sTextMailBody = "Order#: $::g_InputHash{ORDERNUMBER}\r\n";
$sTextMailBody .= "Shop Name: $$::g_pSetupBlob{COMPANY_NAME}\r\n";
$sTextMailBody .= "Shop's Email: $$::g_pSetupBlob{EMAIL}\r\n";
$sTextMailBody .= "Sender's Email: $::g_BillContact{EMAIL}\r\n";
$sTextMailBody .= "Sender's Town/City: $::g_BillContact{ADDRESS4}\r\n";
$sTextMailBody .= "Sender's Country: $::g_BillContact{COUNTRY}\r\n";
$sTextMailBody .= "Recipient's Town/City: $::g_ShipContact{ADDRESS4}\r\n";
$sTextMailBody .= "Recipient's Country: $::g_ShipContact{COUNTRY}\r\n";
@Response = GetGeneralUD3();
if ($Response[0] == $::SUCCESS)
{
$sTextMailBody .= "Referrer: " . $Response[2] . "\r\n";
}
elsif ($Response[1])
{
$sTextMailBody .= "Referrer: " . $Response[1] . "\r\n";
}
@Response = ACTINIC::EncodeText($$::g_pCatalogBlob{'SINTLSYMBOLS'});
$sTextMailBody .= "Currency: $Response[1]\r\n";
@Response = ActinicOrder::SummarizeOrder($pCartList);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
my ($Ignore0, $Ignore1, $nSubTotal, $nShipping, $nTax1, $nTax2, $nTotal, $nShippingTax1, $nShippingTax2,
$nHandling, $nHandlingTax1, $nHandlingTax2) = @Response;
my ($nIntegral, $nFractional, $nFactor);
$nFactor = 10 ** $$::g_pCatalogBlob{'ICURRDIGITS'};
if ($nFactor == 1)
{
$sTextMailBody .= "Order Value: $nTotal\r\n";
}
else
{
my ($sFormat, $sFormattedTotal);
$sFormat = sprintf("%%d.%%0%dd", $$::g_pCatalogBlob{'ICURRDIGITS'});
$sFormattedTotal = sprintf($sFormat,
$nTotal / $nFactor, ACTINIC::Modulus($nTotal, $nFactor) );
$sTextMailBody .= "Order Value: $sFormattedTotal\r\n";
}
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst, $sDate);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time);
$mon++;
$year += 1900;
$sDate = sprintf("%02d/%02d/%4d %2.2d:%2.2d", $mday, $mon, $year, $hour, $min);
$sTextMailBody .= "Order Date & time: $sDate\r\n";
$sTextMailBody .= "Latest delivery date: $::g_ShipContact{USERDEFINED}\r\n";
my ($pOrderDetail, %CurrentItem, $pProduct, $sLine);
foreach $pOrderDetail (@$pCartList)
{
%CurrentItem = %$pOrderDetail;
my $sSectionBlobName;
($Status, $Message, $sSectionBlobName) = ACTINIC::GetSectionBlobName($CurrentItem{SID});
if ($Status == $::FAILURE)
{
return ($Status, $Message);
}
@Response = ACTINIC::GetProduct($CurrentItem{"PRODUCT_REFERENCE"}, $sSectionBlobName,
ACTINIC::GetPath());
($Status, $Message, $pProduct) = @Response;
if ($Status == $::NOTFOUND)
{
}
if ($Status == $::FAILURE)
{
return (@Response);
}
$sLine = sprintf("Item: %-21s", $$pProduct{'REFERENCE'});
$sLine .= $$pProduct{'NAME'};
$sTextMailBody .= "$sLine\r\n";
}
my ($sSubject, $sEmailRecpt);
$sSubject = $$::g_pSetupBlob{COMPANY_NAME};
$sEmailRecpt .= 'orderorder@pres.net';
($Status, $Message) = ACTINIC::SendMail($::g_sSmtpServer,
$sEmailRecpt,
$sSubject,
$sTextMailBody);
if($Status != $::SUCCESS)
{
return ($::FAILURE, $Message);
}
return ($::SUCCESS, "");
}
sub CallPlugInScript
{
if ($#_ != 0)
{
ACTINIC::RecordErrors("CallPlugInScript, validate params:\n",
ACTINIC::GetPath());
return ($::FAILURE, ACTINIC::GetPhrase(-1, 12, 'CallPlugInScript'), 0, 0);
}
my ($sScriptName) = @_;
my @Response = GetPlugInScript(ACTINIC::GetPath(), $sScriptName);
if ($Response[0] != $::SUCCESS)
{
ACTINIC::RecordErrors("CallPlugInScript, could not load script:\n",
ACTINIC::GetPath());
return (@Response);
}
my ($sScript) = $Response[2];
$::sPlugInScriptError = '';
eval($sScript);
if ($@)
{
ACTINIC::RecordErrors("CallPlugInScript, execute: $@\n",
ACTINIC::GetPath());
return ($::FAILURE, ACTINIC::GetPhrase(-1, 170, $@));
}
if ($::sPlugInScriptError)
{
ACTINIC::RecordErrors("CallPlugInScript, report: $::sPlugInScriptError\n",
ACTINIC::GetPath());
return ($::FAILURE, ACTINIC::GetPhrase(-1, 170, $::sPlugInScriptError));
}
return ($::SUCCESS, '');
}
sub GetPlugInScript
{
if ($#_ < 1)
{
return ($::FAILURE, ACTINIC::GetPhrase(-1, 12, 'GetOCCScript'), 0, 0);
}
my ($sPath) = $_[0];
my ($sFilename) = $sPath . $_[1];
my @Response = ACTINIC::ReadAndVerifyFile($sFilename);
return (@Response);
}
sub AdjustTaxTreatment
{
my ($eTreatment) = @_;
if ($::g_TaxInfo{EXEMPT1})
{
if ($ActinicOrder::TAX1 == $eTreatment)
{
$eTreatment = $ActinicOrder::EXEMPT;
}
elsif ($ActinicOrder::BOTH == $eTreatment)
{
$eTreatment = $ActinicOrder::TAX2;
}
}
if ($::g_TaxInfo{EXEMPT2})
{
if ($ActinicOrder::TAX2 == $eTreatment)
{
$eTreatment = $ActinicOrder::EXEMPT;
}
elsif ($ActinicOrder::BOTH == $eTreatment)
{
$eTreatment = $ActinicOrder::TAX1;
}
}
return ($eTreatment);
}
sub GetOCCValidationData
{
my ($sText, @Response);
my ($Status, $Message, $pCartList) =
ActinicOrder::ReadCart($::g_sCartId, ACTINIC::GetPath());
if($Status != $::SUCCESS)
{
return($Status, $Message);
}
ActinicOrder::ParseAdvancedTax();
@Response = ActinicOrder::SummarizeOrder($pCartList);
if ($Response[0] != $::SUCCESS)
{
return (@Response);
}
$sText = "AMOUNT=$Response[6]";
$sText .= "&CURRENCY=$$::g_pCatalogBlob{'SINTLSYMBOLS'}";
my $nFactor = 100;
my $nNumDigits = $::PriceFormatBlob{"ICURRDIGITS"};
if(defined $nNumDigits)
{
$nFactor = (10 ** $nNumDigits);
}
$sText .= "&FACTOR=$nFactor";
$sText .= "&ORDERNUMBER=$::g_PaymentInfo{'ORDERNUMBER'}";
LogData("OCC_VALIDATE: $sText");
return ($::SUCCESS, '', $sText);
}
sub NotifyOfError
{
my ($sError, $bOmitMailDump) = @_;
if ($$::g_pSetupBlob{EMAIL} ne "" && $::g_sSmtpServer ne "")
{
my ($sPrompt1, $sPrompt2, $sPrompt3, $sPrompt4, $sPrompt5);
if (defined $$::g_pPromptList{"-1,1957"}{PROMPT})
{
$sPrompt1 = ACTINIC::GetPhrase(-1, 1957);
$sPrompt2 = ACTINIC::GetPhrase(-1, 1958);
$sPrompt3 = ACTINIC::GetPhrase(-1, 1959);
$sPrompt4 = ACTINIC::GetPhrase(-1, 2097);
$sPrompt5 = ACTINIC::GetPhrase(-1, 2098);
}
else
{
$sPrompt1 = "Following error has been displayed to a customer:\n\n";
$sPrompt2 = "\nDebugging information:\nInput Hash:\n";
$sPrompt3 = "Error in Catalog order";
$sPrompt4 = "Calling Address:";
$sPrompt5 = "Calling Host:";
}
my $sText;
$sText .= $sPrompt1;
$sText .= $sError . "\n\n";
$sText .= GetContactDetailsString();
$sText .= $::ENV{REMOTE_HOST} ? "\n" . $sPrompt5 . " " . $::ENV{REMOTE_HOST} . "\n" : '';
$sText .= $::ENV{REMOTE_ADDR} ? "\n" . $sPrompt4 . " " . $::ENV{REMOTE_ADDR} . "\n" : '';
if(!$bOmitMailDump)
{
$sText .= $sPrompt2;
my $sKey;
foreach $sKey (sort keys %::g_InputHash)
{
$sText .= $sKey . ' : "' . $::g_InputHash{$sKey} . "\"\n";
}
}
my ($Status, $Message) = ACTINIC::SendMail($::g_sSmtpServer, $$::g_pSetupBlob{EMAIL},
$sPrompt3, $sText);
if ($Status != $::SUCCESS)
{
ACTINIC::RecordErrors($Message, ACTINIC::GetPath());
}
}
return $sError;
}
sub CreateAddressBook
{
if( $ACTINIC::B2B->Get('UserDigest') )
{
return;
}
eval {
package HTML_ZCL;
my @oc_tags = ('A','ADDRESS','APPLET',
'B','BIG','BLINK','BLOCKQUOTE','BODY',
'CENTER','CITE','CODE',
'DD','DIV','DL','DT',
'EM','EMBED',
'FORM','FRAMESET',
'H1','H2','H3','H4','H5','H6','HEAD','HTML',
'I',
'LI','LISTING',
'MAP',
'NOFRAMES','NOSCRIPT',
'OBJECT','OL','OPTION',
'P','PLAINTEXT','PRE',
'S','SAMP','SCRIPT','SELECT','SMALL','SPAN','STRIKE','STRONG','STYLE','SUB','SUP',
'TABLE','TD','TEXTAREA','TH','TITLE','TR','TT',
'U','UL',
'VAR',
'XMP',
);
my @s_tags = ('AREA',
'BASEFONT','BR',
'FRAME',
'HR',
'IMG','INPUT',
'LINK',
'META',
'PARAM',
);
sub new
{
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {};
bless ($self, $class);
$self->Set(@_);
return $self;
}
my $tag;
my $code = "";
foreach $tag (@oc_tags)
{
$code .= 'sub '.$tag.' {my $self=shift;my $txt = pop(@_);my $b = '.
'"<'.$tag.'".$self->attrib(@_).">".$txt."</'.$tag.'>";return $b;'."}".
'sub '.$tag.'_ {my $self=shift;my $b = "<'.$tag.'".$self->attrib(@_).">";return $b;'."}".
'sub _'.$tag.' {my $self=shift;my $b = "</'.$tag.'>";return $b;'."}";
}
foreach $tag (@s_tags)
{
$code .= 'sub '.$tag.' {my $self=shift;my $b = "<'.$tag.'".$self->attrib(@_).">";return $b;'."}";
}
eval $code;
sub FONT
{
my $self = shift;
my $sText = pop (@_);
my $sOpenTag = ACTINIC::GetPhrase(-1, 1967);
my $sCloseTag = ACTINIC::GetPhrase(-1, 1970);
return ($sOpenTag . $sText . $sCloseTag);
}
sub attrib
{
my $self = shift;
my %pars = @_;
my $txt = "";
my $k;
foreach $k (reverse sort keys %pars )
{
if( $pars{$k} ne "" )
{
$txt .= " ".uc($k)."=\"$pars{$k}\"";
}
else
{
$txt .= " ".uc($k);
}
}
return $txt;
}
sub Set
{
my $self = shift;
my %pars = @_;
my $k;
foreach $k (keys %pars)
{
$self->{$k} = $pars{$k};
}
}
1;
};
eval {
package ADDRESS_BOOK;
use vars qw(@ISA);
@ISA = qw(HTML_ZCL);
sub new
{
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = $class->SUPER::new();
bless ($self, $class);
$self->{MaxAddresses} 		= 9;
$self->{BgColor} 				= "#ffffff";
$self->{LabelBgColor} 		= "#d0d0ff";
$self->{NameBgColor} 		= $$::g_pSetupBlob{FORM_BACKGROUND_COLOR};
$self->Set(@_);
if ( !defined($self->{Nnam_1}) ) { $self->{Nnam_1} = $self->{FormNames}->[0]; }
if ( !defined($self->{Nnam_2}) ) { $self->{Nnam_2} = $self->{FormNames}->[1]; }
$self->{UseThis} 		= 0;
return $self;
}
sub Init
{
my $self = shift;
if( defined($self->{done}) ) { return; }
$self->FromCookies();
foreach (keys %{$self->{InputFormHash}} )
{
if( $_ =~ /^ADBUSETHIS([1-9]*$)/ )
{
$self->{UseThis} = $1;
if( $self->{InputFormHash}->{ADBACTION} )
{
my ($a,$s) = split('&',$self->{InputFormHash}->{ADBACTION});
my ($a1,$a2) = split('=',$a);
my ($s1,$s2) = split('=',$s);
$self->{InputFormHash}->{ACTION}   = $self->Decode($a2);
$self->{InputFormHash}->{SEQUENCE} = $self->Decode($s2);
}
last;
}
}
if( $self->{UseThis} > 0 )
{
$self->{AddressForm} = $self->{Table}[$self->{UseThis}-1][0];
$self->ToForm();
}
elsif( $self->{InputFormHash}->{ADBADD} )
{
$self->FromForm();
$self->Add($self->{AddressForm});
}
else
{
$self->ClearForm();
}
$self->{done} = 1;
}
sub Show
{
my $self = shift;
my @tnam;
my $na = 0;
my $html;
my $sDigest = $ACTINIC::B2B->Get('UserDigest');
if($sDigest ne '')
{
my ($Status, $sMessage, $pBuyer, $pAccount) = ACTINIC::GetBuyerAndAccount($sDigest, ACTINIC::GetPath());
if ($Status != $::SUCCESS)
{
ACTINIC::ReportError($sMessage, ACTINIC::GetPath());
}
if($pBuyer->{DeliveryAddressRule} != 2)
{
return('');
}
}
foreach (@{$self->{CookieList}})
{
if ( $self->{Table}[$_][0] && $self->{Table}[$_][2] == 0 ) { $na++; }
}
$html .= $self->CountMessage($na);
if( $na == 0 )
{
$html .= $self->INPUT(
TYPE => "CHECKBOX",
NAME => "ADBADD"
).
$self->FONT(
$self->{AddMessage}
);
$html .= $self->HR();
return $html;
}
$html .= $self->TABLE_(
BORDER      => "1" ,
CELLSPACING => "1" ,
CELLPADDING => "0" ,
BGCOLOR     => $self->{NameBgColor},
WIDTH       => '100%',
).
$self->TR(
$self->TD(
COLSPAN => 3,
'&nbsp;',
).
$self->TD(
ALIGN   => "CENTER",
$self->FONT(
$self->{DeleteLabel}
)
)
);
my ($key,$value);
while (($key, $value) = each %{$self->{InputFormHash}})
{
if( $key !~ /^ADBUSETHIS/ && $key !~ /^DELIVER/ && $key !~ /^ADBACTION/ )
{
$html .= $self->INPUT(
TYPE  => "HIDDEN",
NAME  => $key,
VALUE => $value
);
}
}
my $record = 'ACTION=' . $self->Encode($self->{Action}) . '&SEQUENCE=' . $self->{Sequence};
$html .= $self->INPUT(
TYPE  => "HIDDEN",
NAME  => "ADBACTION",
VALUE => $record
);
my $cnt = 0;
foreach (sort {
uc(${$self->{Table}[$a][0]}{$self->{Nnam_1}}.${$self->{Table}[$a][0]}{$self->{Nnam_2}})
cmp
uc(${$self->{Table}[$b][0]}{$self->{Nnam_1}}.${$self->{Table}[$b][0]}{$self->{Nnam_2}})
} @{$self->{CookieList}} )
{
if ( $self->{Table}[$_][2] > 0 )
{ 
next;
}
my $tval = $self->{Table}[$_][0];
my $nam  = $$tval{$self->{Nnam_1}};
my $strt = $$tval{$self->{Nnam_2}};
my $bDisabled = $::FALSE;
if (defined $$tval{'DELIVERY_REGION_CODE'} && defined $$tval{'DELIVERY_COUNTRY_CODE'})
{
$bDisabled = (($$tval{'DELIVERY_REGION_CODE'}  ne $self->{LocationHash}->{'DELIVERY_REGION_CODE'}) ||
($$tval{'DELIVERY_COUNTRY_CODE'} ne $self->{LocationHash}->{'DELIVERY_COUNTRY_CODE'}));
}
$cnt++;
$html .= $self->TR($self->Row($_, $cnt, $nam, $strt, $bDisabled));
}
$html .= $self->_TABLE();
$html .= $self->_TD();
$html .= $self->_TR();
$html .= $self->_TABLE();
$html .= $self->BR().
$self->INPUT(
TYPE => "CHECKBOX",
NAME => "ADBADD"
).
$self->FONT(
$self->{AddMessage}
);
return $html;
}
sub Row
{
my $self = shift;
my $ind  = shift;
my $cnt  = shift;
my $nam  = shift;
my $strt = shift;
my $bDisabled = shift;
my $sStatus = $bDisabled ? 'DISABLED' : '';
my $html;
my $j = $ind + 1;
if( $strt eq '{No Street}' ) { $strt = '&nbsp;'; }
$html = $self->TD(
ALIGN => "RIGHT",
$self->FONT(
$cnt . '.&nbsp;'
)
).
$self->TD(
BGCOLOR => $self->{NameBgColor},
$self->INPUT(
STYLE => 'font-weight:bold;color:white;background:' .
$::g_sRequiredColor . ';width: 200px;',
WIDTH => '200',
TYPE  => "SUBMIT",
NAME  => "ADBUSETHIS" . "$j",
VALUE => $nam,
$sStatus => ''
)
).
$self->TD(
BGCOLOR => $self->{NameBgColor},
WIDTH   => '270',
$self->FONT(
'&nbsp;' . $strt . '&nbsp;'
)
).
$self->TD(
ALIGN => "CENTER",
$self->INPUT(
TYPE => "CHECKBOX",
NAME => "ADBDELETE" . $ind
)
);
return $html;
}
sub CountMessage
{
my $self = shift;
my $na = shift;
my $buf;
if( $self->{InputFormHash}->{SEQUENCE} > $self->{Sequence} + 1)
{
if( $na < $self->{MaxAddresses} )
{
$buf .= $self->INPUT(
TYPE => "CHECKBOX",
NAME => "ADBADD"
).
$self->FONT(
$self->{AddMessage}
);
}
return $buf;
}
if( $na >= $self->{MaxAddresses} )
{
$buf .= $self->FONT(
$self->{MaxAddressesWarning}
);
}
if( $na > 0 )					  # Something there - open TABLE to frame it
{
my $adct;
$buf .= $self->TABLE_(
WIDTH       => "600",
BORDER      => "1" ,
CELLSPACING => "0" ,
CELLPADDING => "0" ,
);
$buf .= $self->TR_();
$buf .= $self->TD_();
if( $na == 1 )
{
$adct = $self->{OneAddressMessage};
}
else
{
$adct = $self->{MoreAddressesMessage};
$adct =~ s/\%s/$na/;
}
my $st = $self->{StatusMessage};
$st =~ s/\%s/$adct/;
$buf .= $self->FONT(
$st
);
}
else								  # Address Book empty - different status message and no frame
{
$buf .= $self->FONT(
$self->{NoAddressesMessage}
);
}
return $buf;
}
sub Debug
{
my $self = shift;
my $buf = $self->{dbbuf};
foreach (keys %{$self->{InputFormHash}})
{
$buf .= "<br>$_ = " . $self->{InputFormHash}->{$_};
}
return $buf;
}
sub ToCookies
{
my $self = shift;
my ($key,$value);
foreach (@{$self->{CookieList}})
{
if( $self->{Table}[$_][2] == 0 && $self->{Table}[$_][1] > 0 )
{
my $sCookie;
while (($key, $value) = each %{$self->{Table}[$_][0]})
{
$sCookie .= $key . "=" . $value . ">>";
}
$self->{Table}[$_][0] = $self->Encode($sCookie);
}
}
}
sub Add
{
my $self = shift;
my $h = shift;
if ( $h->{$self->{Nnam_1}} eq "" && $h->{$self->{Nnam_2}} eq "" ) { return; }
if ( $h->{$self->{Nnam_1}} eq ""  ) { $h->{$self->{Nnam_1}} = '{No Name}'; }
if ( $h->{$self->{Nnam_2}} eq ""  ) { $h->{$self->{Nnam_2}} = "{No Street}"; }
my $hind = $h->{$self->{Nnam_1}} . $h->{$self->{Nnam_2}};
if( defined( $self->{Hash}{$hind} ) )
{
$self->{Table}[$self->{Hash}{$hind}] = [$h,1,0];
}
else
{
foreach (@{$self->{CookieList}})
{
if ( $self->{Table}[$_][2] != 0 )
{
$self->{Hash}{$hind} = $_;
$self->{Table}[$_] = [$h,1,0];
return;
}
}
my $i;
for ( $i=0; $i<$self->{MaxAddresses}; $i++ )
{
if ( !defined($self->{Table}[$i][0]) || $self->{Table}[$i][2] != 0 )
{
$self->{Hash}{$hind} = $i;
push @{$self->{CookieList}},$i;
$self->{Table}[$i] = [$h,1,0];
return;
}
}
}
}
sub Remove
{
my $self = shift;
my $i = shift;
$self->{Table}[$i][2] = 1;
$self->{Table}[$i][0] = undef;
}
sub FromCookies
{
my $self = shift;
$self->GetCookies();
my $i;
foreach $i (@{$self->{CookieList}})
{
if ( $self->{InputFormHash}->{'ADBDELETE'.$i} )
{
$self->Remove($i);
}
else
{
if ( defined($self->{Table}[$i][0]) )
{
my @lst = split(">>",$self->Decode($self->{Table}[$i][0]));
my $h = {};
my ($key,$value);
foreach (@lst)
{
($key,$value) = split "=";
$h->{$key} = $value;
}
if ( !$h->{$self->{Nnam_1}} && !$h->{$self->{Nnam_2}} )
{
$self->Remove($i);
}
else
{
$self->{Table}[$i][0] = $h;
$self->{Hash}{$h->{$self->{Nnam_1}}.$h->{$self->{Nnam_2}}} = $i;
}
}
}
}
}
sub GetCookies
{
my $self = shift;
my ($sCookie, $sCookies);
$sCookies = $::ENV{'HTTP_COOKIE'};
my (@CookieList) = split(/;/, $sCookies);
my ($sLabel,$sA);
@{$self->{CookieList}} = ();
foreach $sCookie (@CookieList)
{
$sCookie =~ s/^\s*//;
if ($sCookie =~ /^ACTINIC_ADDRBOOK([0-9]*)/)
{
my $ind = $1;
($sLabel, $sA) = split (/=/, $sCookie);
$sA =~ s/^\s*"?//;
$sA =~ s/"?\s*$//;
$self->{Table}[$ind] = [$sA,0,0];
push @{$self->{CookieList}},$ind;
}
}
}
sub Header
{
my $self = shift;
my (@expires, $day, $month, $now, $later, $before, $expiry, $expired);
my (@days) = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
my (@months) = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
$now = time;
$later = $now + 2 * 365 * 24 * 3600;
@expires = gmtime($later);
$day = $days[$expires[6]];
$month = $months[$expires[4]];
$expiry = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT", $day, $expires[3],
$month, $expires[5]+1900, $expires[2], $expires[1], $expires[0]);
$before = $now - 24 * 3600;
@expires = gmtime($before);
$day = $days[$expires[6]];
$month = $months[$expires[4]];
$expired = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT", $day, $expires[3],
$month, $expires[5]+1900, $expires[2], $expires[1], $expires[0]);
my $buf;
$self->ToCookies();
foreach (@{$self->{CookieList}})
{
if ( $self->{Table}[$_][2] != 0 )
{
$buf .= "Set-Cookie: ACTINIC_ADDRBOOK" . $_ . "=\"\"" .
"; EXPIRES=" . $expired . "; PATH=/;\n";
}
elsif ( $self->{Table}[$_][1] > 0 )
{
$buf .= "Set-Cookie: ACTINIC_ADDRBOOK" . $_ . "=\"" . $self->{Table}[$_][0] . "\"" .
"; EXPIRES=" . $expiry . "; PATH=/;\n";
}
}
return $buf;
}
sub FromForm
{
my $self = shift;
if( 	!$self->{InputFormHash}->{$self->{FormPrefix} . $self->{Nnam_1}} &&
!$self->{InputFormHash}->{$self->{FormPrefix} . $self->{Nnam_2}} 	)
{
return;
}
foreach (@{$self->{FormNames}})
{
$self->{AddressForm}->{$_} = $self->{InputFormHash}->{$self->{FormPrefix} . $_};
}
foreach (@{$self->{LocationInfoNames}})
{
$self->{AddressForm}->{$_} = $self->{InputFormHash}->{$_};
}	
}
sub ToForm
{
my $self = shift;
if( $self->{UseThis} <= 0 ) { return; }
foreach (@{$self->{FormNames}})
{
$self->{DeliveryFormHash}->{$_} = $self->{AddressForm}->{$_};
}
foreach (@{$self->{LocationInfoNames}})
{
if (defined $self->{AddressForm}->{$_})
{
$self->{LocationHash}->{$_} = $self->{AddressForm}->{$_};
}
}		
if ( $self->{DeliveryFormHash}->{$self->{Nnam_1}} eq '{No Name}'  )
{
$self->{DeliveryFormHash}->{$self->{Nnam_1}} = "";
}
if ( $self->{DeliveryFormHash}->{$self->{Nnam_2}} eq '{No Street}'  )
{
$self->{DeliveryFormHash}->{$self->{Nnam_2}} = "";
}
}
sub ClearForm
{
my $self = shift;
foreach (keys %{$self->{DeliveryFormHash}})
{
$self->{DeliveryFormHash}->{$_} = "";
}
}
sub Decode
{
return ACTINIC::DecodeText($_[1],$ACTINIC::FORM_URL_ENCODED);
}
sub Encode
{
return ACTINIC::EncodeText2($_[1],$::FALSE,$::FALSE);
}
};
$::ACT_ADB = ADDRESS_BOOK->new(
FormPrefix			=>	'DELIVER',
FormNames 			=> [	'NAME',			'ADDRESS1',
'JOBTITLE',		'COMPANY',
'ADDRESS2',		'ADDRESS3',
'ADDRESS4',		'POSTALCODE',
'COUNTRY',		'PHONE',
'FAX',			'EMAIL',
'USERDEFINED',	'SALUTATION'	],
LocationInfoNames=> [	'DELIVERY_REGION_CODE',			
'DELIVERY_COUNTRY_CODE',
'DELIVERPOSTALCODE'	],																			
DeliveryFormHash => 	\%::g_ShipContact,
LocationHash		=> 	\%::g_LocationInfo,
InputFormHash	 	=> 	\%::g_InputHash,
);
$::ACT_ADB->Init();
}
sub ConfigureAddressBook
{
$::ACT_ADB->Set(
OneAddressMessage 	 => 	ACTINIC::GetPhrase(-1, 271),
MoreAddressesMessage => 	ACTINIC::GetPhrase(-1, 272),
StatusMessage 		 => 	ACTINIC::GetPhrase(-1, 273),
MaxAddressesWarning  => 	ACTINIC::GetPhrase(-1, 274, ACTINIC::GetPhrase(-1, 1971, $::g_sRequiredColor),ACTINIC::GetPhrase(-1, 1970)),
NoAddressesMessage 	 => 	ACTINIC::GetPhrase(-1, 275),
AddMessage 		    => 	ACTINIC::GetPhrase(-1, 276),
DeleteLabel 		    => 	ACTINIC::GetPhrase(-1, 277),
Action			       =>	$::g_InputHash{'ACTION'},
Sequence		       =>	$::g_InputHash{'SEQUENCE'}
);
}
sub NotifyMallAdministratorOfNewOrder
{
eval 'require MallInterfaceLayer;';
if ($@)
{
return($::SUCCESS);
}
return (MallInterfaceLayer::NewOrder(ACTINIC::GetPath(), $::g_InputHash{ORDERNUMBER}, $::g_InputHash{SHOP}));
}
sub PrepareOrderTaxOpaqueData
{
my($sKeyPrefix) = @_;
my $sKey = $sKeyPrefix . 'TAX_OPAQUE_DATA';
my ($nTaxID, $sOpaqueData);
foreach $nTaxID (sort keys %$::g_pTaxesBlob)
{
$sOpaqueData .= "$nTaxID\t$$::g_pTaxesBlob{$nTaxID}{$sKey}\n";
}
return($::SUCCESS, '', $sOpaqueData);
}
sub PrepareProductTaxOpaqueData
{
my($pProduct, $sPrice) = @_;
my ($nTaxID, $sOpaqueData);
foreach $nTaxID (sort keys %$::g_pTaxesBlob)
{
my $sTaxBand = $$pProduct{'TAX_' . $nTaxID};
my ($nTaxBandID, $nTaxRate, $nCustomRate, $sBandName) = split /=/, $sTaxBand;
if($nTaxBandID == $ActinicOrder::CUSTOM)
{
$sTaxBand = ActinicOrder::AdjustCustomTaxOpaqueData($nTaxID, $sPrice, $sTaxBand, $$pProduct{PRICE});
}
if(defined $$::g_pTaxesBlob{$nTaxID})
{
$sBandName = $$::g_pTaxesBlob{$nTaxID}{'BANDS'}{$nTaxBandID}{'BAND_NAME'};
}
$sOpaqueData .= "$nTaxID\t$sTaxBand$sBandName=\n";
}
return($::SUCCESS, '', $sOpaqueData);
}
sub HashToVarTable
{
my ($pHashID, $pHash, $pVarTable) = @_;
my ($sKey, $sValue);
while (($sKey, $sValue) = each(%$pHashID))
{
my $sTemp = '';
if ($sValue =~ /([^\|]+)\|(.*)\|(.*)/)
{
$sTemp = ACTINIC::GetPhrase($2, $3) . " " .$$pHash{$sKey};
$sValue = $1;
}
else
{
$sTemp = $$pHash{$sKey};
}
my @Response = ACTINIC::EncodeText($sTemp, $::TRUE, $::TRUE);
$sTemp = $Response[1] . "<BR>";
if ((length $$pHash{$sKey}) == 0)
{
$sTemp = "";
}
$$pVarTable{$::VARPREFIX . $sValue} = $sTemp;
}
return($::SUCCESS, '');
}
sub SetXMLFromHash
{
my ($pHashID, $pHash) = @_;
my ($sKey, $sValue);
while (($sKey, $sValue) = each(%$pHashID))
{
if ($$pHash{$sKey} eq "")
{
$ACTINIC::B2B->SetXML($sValue, "");
$ACTINIC::B2B->SetXML($sValue . "_SEP", "");
}
else
{
$ACTINIC::B2B->SetXML($sValue, $$pHash{$sKey} . " ");
$ACTINIC::B2B->SetXML($sValue . "_SEP", "\r\n");
}
}
return($::SUCCESS, '');
}
sub FormatTrackingPage
{
my $nSSPID = $::g_InputHash{SSP_ID};
my $phashSSPProvider = $$::g_pSSPSetupBlob{$nSSPID};
my $nMaxTrackingNumbers = $$phashSSPProvider{MaxTrackingNumbers};
my $i;
my %hashVariables;
for($i = 1; $i <= $nMaxTrackingNumbers; $i++)
{
if(defined $::g_InputHash{'NUMBER' . $i})
{
$hashVariables{$::VARPREFIX.'INQUIRYNR' . $i} = $::g_InputHash{'NUMBER' . $i};
}
else
{
$hashVariables{$::VARPREFIX.'INQUIRYNR' . $i} = '';
}
}
my @Response = ACTINIC::TemplateFile(ACTINIC::GetPath() . $$phashSSPProvider{TrackingTemplate}, \%hashVariables);
if($Response[0] != $::SUCCESS)
{
return(@Response);
}
return($::SUCCESS, '', $Response[2]);
}
sub GetContactDetailsString
{
my $sText;
$sText .= ACTINIC::GetPhrase(-1, 339) . "\n";
unless (ACTINIC::IsPromptHidden(0, 0))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 0)  . " $::g_BillContact{'SALUTATION'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 1))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 1)  . " $::g_BillContact{'NAME'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 2))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 2)  . " $::g_BillContact{'JOBTITLE'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 3))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 3)  . " $::g_BillContact{'COMPANY'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 4))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 4)  . " $::g_BillContact{'ADDRESS1'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 5))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 5)  . " $::g_BillContact{'ADDRESS2'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 6))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 6)  . " $::g_BillContact{'ADDRESS3'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 7))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 7)  . " $::g_BillContact{'ADDRESS4'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 8))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 8)  . " $::g_BillContact{'POSTALCODE'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 9))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 9)  . " $::g_BillContact{'COUNTRY'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 10))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 10) . " $::g_BillContact{'PHONE'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 11))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 11) . " $::g_BillContact{'FAX'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 12))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 12) . " $::g_BillContact{'EMAIL'}\n";
}
unless (ACTINIC::IsPromptHidden(0, 13))
{
$sText .= "\t" . ACTINIC::GetPhrase(0, 13) . " $::g_BillContact{'USERDEFINED'}\n";
}
$sText .= "\n" . ACTINIC::GetPhrase(-1, 340) . "\n";
unless (ACTINIC::IsPromptHidden(1, 0))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 0)  . " $::g_ShipContact{'SALUTATION'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 1))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 1)  . " $::g_ShipContact{'NAME'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 2))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 2)  . " $::g_ShipContact{'JOBTITLE'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 3))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 3)  . " $::g_ShipContact{'COMPANY'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 4))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 4)  . " $::g_ShipContact{'ADDRESS1'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 5))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 5)  . " $::g_ShipContact{'ADDRESS2'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 6))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 6)  . " $::g_ShipContact{'ADDRESS3'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 7))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 7)  . " $::g_ShipContact{'ADDRESS4'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 8))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 8)  . " $::g_ShipContact{'POSTALCODE'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 9))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 9)  . " $::g_ShipContact{'COUNTRY'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 10))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 10) . " $::g_ShipContact{'PHONE'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 11))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 11) . " $::g_ShipContact{'FAX'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 12))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 12) . " $::g_ShipContact{'EMAIL'}\n";
}
unless (ACTINIC::IsPromptHidden(1, 13))
{
$sText .= "\t" . ACTINIC::GetPhrase(1, 13) . " $::g_ShipContact{'USERDEFINED'}\n";
}
return ($sText);
}