I upgraded to version 7.0.4.0.0.0.FEVA. 2 files were modified ActinicOrder.pm and CartManager.pl. Actinic Order.pm:
Differences between old script and user modified script
User inserted lines 6501 to 6547 in user-modified script before line 6500 in original script.
The lines of code:
Code: Select all
#
# START Norcat see if dynamic currency is required.
#
my $sCookies = $::ENV{'HTTP_COOKIE'}; # try to retrieve the cookie
$sCookies =~ m/destcurr=(.*?)(;|$)/; # look for our info
if ( $1 )
{
my $currbits = $1;
$currbits =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
$currbits =~ m/(.*):(.*):(.*)/;
my $iso = $1;
my $base = $2;
my $selected = $3;
if ( ($selected > 0) && ($iso ne 'CUSTOMVAR:MAINCURRENCY') && ($iso ne 'CUSTOMVAR:ALTCURRENCY') )
{
my $exchange = $base / $selected;
my $nNorprice;
#
# calculate the other currency price
#
$nNorprice = $nPrice * $exchange;
#
# round the price
#
$nNorprice = RoundTax($nNorprice, $ActinicOrder::SCIENTIFIC_NORMAL) / 100;
#
# format the price
#
#
# format the other currency prices
#
if ( $exchange > CUSTOMVAR:HIDEFRACTIONRATE )
{
$nNorprice = int($nNorprice + .5 * ($nNorprice <=> 0));
$sFormattedPrice .= sprintf(" (%d $iso)", $nNorprice);
}
else
{
$sFormattedPrice .= sprintf(" (%1.2f $iso)", $nNorprice);
}
}
}
#
# END Norcat see if dynamic currency is required.
#
return ($::SUCCESS, '', $sFormattedPrice, 0);
}
Also CartManager.pl:
Differences between old script and user modified script
User changed line 274 in original script to lines 274 to 275 in user-modified script.
Code: Select all
}
$sHTML = "<Script Language='JavaScript'>document.location.replace('$sURL');</Script>" . $sHTML;
Thanks