V6 Simple unscaled product images in checkout - tested with V6.1.2

Assuming you have product images whose filenames are related to your product references
and are small in size ( less then 200 pixels wide ) then it is possible to display these images at the checkout phase.

To do this make the following changes to ShoppingCart.pl and ActinicOrder.pm in your Site1 folder (make backup copies first).
Make sure you use a text editor and not a word processor program (see www.editpadlite.com if you need one).

The following code has been tested with 6.1.2.

In the patches that follow, 4 lines are user modifiable 
(one set in ShoppingCart.pl and another in ActinicOrder.pm - make sure both match):-  

1) If you have a prefix (i.e. bits that aren't part of the product reference) then add that text to $NorcatImagePrefix
2) Or a postfix to your image file names  then add that text then add that text to to $NorcatImageSuffix
3) The HTML code that starts the displayed image - $NorcatImageStart. 
4) The HTML code that ends - $NorcatImageEnd.



PATCHING INSTRUCTIONS:-


In ShoppingCart.pl (V6 versions only)

locate the line (there should be only one instance):-

	$hVariables{$::VARPREFIX."PRODUCTNAME"} = $sLine; # add the product name to the var table


REPLACE that line with following code:-


########## START of ALL PATCHING -  CHECKOUT - IMAGE WITHOUT SCALING V1.1 #########################
# ShoppingCart.pl  (V6 versions) patch
# author Norman Rouxel rouxel@attglobal.net

	my $NorcatRef = $ProductRef;	 	 # Our product reference SearchScript.pl version
	$NorcatRef =~ s/^-+//; 			 # strip any leading "-" characters 
	$NorcatRef =~ s/\//-/g; 		 # replace "/" with"-" 


# user modifiable variables 
	my $NorcatImagePrefix = '';		         # optional text that prefixes product ref in image filenames
	my $NorcatImageSuffix = '-small';	         # optional text that follows product ref in image filenames
	my $NorcatImageStart = '<img align=left src="';	 # start HTML for image
	my $NorcatImageEnd = '>';			 # end HTML for image
# end of user modifiable variables

	my $NorcatCatPath = $sPath; 			 # Path From CGI-BIN To Catalog Directory (Actinic/Advanced/Network)
	my $NorcatImage = '';

#
# JPEG images 
#
	if ( -e $NorcatCatPath . $NorcatImagePrefix . $NorcatRef . $NorcatImageSuffix . '.jpg' )  # look for a jpeg
		{
    		  $NorcatImage = $NorcatImageStart . $NorcatImagePrefix . $NorcatRef . $NorcatImageSuffix . 
                     '.jpg"' . $NorcatImageEnd;   # image HTML
                }

#  GIF images - in case anyones still using them.  You can delete this fragment if you don't use GIF's

	elsif ( -e $NorcatCatPath . $NorcatImagePrefix . $NorcatRef . $NorcatImageSuffix . '.gif' )  # look for a .gif
		{
     		  $NorcatImage = $NorcatImageStart . $NorcatImagePrefix . $NorcatRef . $NorcatImageSuffix . 
                     '.gif"' . $NorcatImageEnd;
		}

		$hVariables{$::VARPREFIX."PRODUCTNAME"} = $NorcatImage . $sLine; # patch in the image and add the product name to the var table

########## END of ALL PATCHING -  CHECKOUT - IMAGE WITHOUT SCALING V1.1 ##########################




In ActinicOrder.pm (V6 versions only)

locate the line (there should be only one instance):-

	my $sTemplate 			= $_[3];


APPEND the following code immediately below it:-


########## START of PATCHING -  CHECKOUT - IMAGE WITHOUT SCALING V1.1 ##########################
	my $NorcatCatPath = ACTINIC::GetPath();  	 # Path From CGI-BIN To Catalog Directory (Actinic/Advanced/Network)
########## END of PATCHING -  CHECKOUT - IMAGE WITHOUT SCALING V1.1 ##########################




locate the line (there should be only one instance):-

	@Response = ACTINIC::ProcessEscapableText($$pProduct{'NAME'});


INSERT the following code immediately above it:-


########## START of PATCHING -  CHECKOUT - IMAGE WITHOUT SCALING V1.1 #########################
# ActinicOrder.pm  (V6 versions only) patch
# author Norman Rouxel rouxel@attglobal.net

	my $NorcatRef = $$pProduct{'REFERENCE'}; # Our product reference
	$NorcatRef =~ s/^-+//; 			 # strip any leading "-" characters 
	$NorcatRef =~ s/\//-/g; 		 # replace "/" with"-" 


# user modifiable variables 
	my $NorcatImagePrefix = '';		         # optional text that prefixes product ref in image filenames
	my $NorcatImageSuffix = '-small';	         # optional text that follows product ref in image filenames
	my $NorcatImageStart = '<img align=left src="';	 # start HTML for image
	my $NorcatImageEnd = '>';			 # end HTML for image
# end of user modifiable variables

	my $NorcatImage = '';

#
# JPEG images 
#
	if ( -e $NorcatCatPath . $NorcatImagePrefix . $NorcatRef . $NorcatImageSuffix . '.jpg' )  # look for a jpeg
		{
    		  $NorcatImage = $NorcatImageStart . $NorcatImagePrefix . $NorcatRef . $NorcatImageSuffix . 
                     '.jpg"' . $NorcatImageEnd;   # image HTML
                }

#  GIF images - in case anyones still using them - You can delete this fragment if you don't use GIF's.

	elsif ( -e $NorcatCatPath . $NorcatImagePrefix . $NorcatRef . $NorcatImageSuffix . '.gif' )  # look for a .gif
		{
     		  $NorcatImage = $NorcatImageStart . $NorcatImagePrefix . $NorcatRef . $NorcatImageSuffix . 
                     '.gif"' . $NorcatImageEnd;
		}

########## END of PATCHING -  CHECKOUT - IMAGE WITHOUT SCALING V1.1 ##########################




locate the line (there should be only one instance):-

	my $sProdLink = !$bIncludeButtons ? $Response[1] : sprintf($sProdLinkFormat, ACTINIC::EncodeText2($$pProduct{'REFERENCE'}), $Response[1]);


REPLACE that line with the following code:-


########## START of PATCHING -  CHECKOUT - IMAGE WITHOUT SCALING V1.1 ##########################
		my $sProdLink = !$bIncludeButtons ? $NorcatImage . $Response[1] : sprintf($sProdLinkFormat, ACTINIC::EncodeText2($$pProduct{'REFERENCE'}), $NorcatImage .  $Response[1]);
########## END of PATCHING -  CHECKOUT - IMAGE WITHOUT SCALING V1.1 ##########################


Now update the site and that's that.