Drillpine.Biz Support Forum

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);
	}

Code: Select all

		}
$sHTML = "<Script Language='JavaScript'>document.location.replace('$sURL');</Script>" . $sHTML;