[ic] Patched "results.html" file...

[John Beima <jbeima@palb.com>]

G'Day FOlks,

For those of you, like us, run your SSL through a different domain, here is a
patched results.html file that will actually allow your items to go into the
shopping cart...


John Beima
jbeima@palb.com, support@alocalagent.com, and support@alocalchurch.com

P.A.L.B. Systems - Phone: (780)451-1086 - Fax: (780)447-4760
11639-122 Street, Edmonton, Alberta, Canada, T5M 0B6

Affordable Web Pages - Phone: (888)932-9990 - Fax: (256)351-7297
2713B Spring Place SW, Decatur, Alabama, United States, 35603

[comment]
ui_template: Yes
ui_template_name: leftright
[/comment]

[tmp page_title]__COMPANY__ -- Search results[/tmp]

[control reset=1]

[control-set]
[component]search_box_small[/component]
[/control-set]

[control-set]
[component]category_vertical[/component]
[/control-set]

[control-set]
[component][/component]
[/control-set]

[control-set]
[component][/component]
[/control-set]

[control-set]
[component]cross[/component]
[size]2[/size]
[cols]2[/cols]
[banner]Also see...[/banner]
[/control-set]

[control-set]
[component]random[/component]
[size]3[/size]
[cols]1[/cols]
[banner]Specials[/banner]
[/control-set]

[control reset=1]

@_LEFTRIGHT_TOP_@




[if scratch did_order]
[include file="templates/components/cart_display"]
[/if]
[set did_order][/set]
[search-region]
[set munge_quantity]
[calc]
	$Scratch->{did_order} = 1;
	@q = split /\0/, $CGI->{mv_order_quantity};
	for (@q) {
		next unless length $_;
		$_ = "=$_";
	}
	@parms = grep /^mv_oi\d+/ && $CGI->{$_}, keys %{$CGI};

	# If we have parms, means an individual buy. If we don't
	# we want to strip empty items
	unless (@parms) {
		@i = split "\0", $CGI->{mv_order_item};
		for(my $i = 0; $i < @i; $i++) {
			next if length($q[$i]);
			$i[$i] = '';
		}
		@i = grep length($_), @i;
		@q = grep length($_), @q;
		$CGI_array->{mv_order_quantity} = \@q;
		$CGI->{mv_order_quantity} = join "\0", @q;
		$CGI_array->{mv_order_item} = \@i;
		$CGI->{mv_order_item} = join "\0", @i;
		return;
	}
	my $item = $parms[0];
	$item =~ /(\d+)/ or return;
	my $idx = $1;
	$idx--;
	$CGI->{mv_order_item} = $CGI->{$item};
	$CGI->{mv_order_quantity} = "$q[$idx]";
	return;
[/calc]
	[bounce href=""]
[/set]
[tmp cross_sale][value-extended name=mv_searchspec index=0][/tmp]

[on-match]






[/on-match]



[search-list]

[item-change 1][condition][item-field category][/condition]



[/item-change 1]
					

					
[/search-list]

Product	SKU	Stock	Price	Qty	Buy
[either][value banner_text][or][item-field category][/either]
[item-description]	[item-code]	[item-calc] my $q = q{[item-data inventory quantity]}; if($q > 0) { return <Y EOF } else { return <N EOF } [/item-calc]	[item-price]

[on-match]

   

[/on-match]

[no-match]

Sorry, no matches for [calc] my $joiner = ' AND '; $joiner = ' OR ' if defined $Search->{''}->{mv_orsearch}[0] and $Search->{''}->{mv_orsearch}[0]; my @str = grep /\D/, @{$Values->{mv_searchspec}}; return join $joiner, @str; [/calc] [if value mv_search_error]

Errors:
[value-extended name=mv_search_error joiner="
"] [/if]

[/no-match]
[more-list]
> Matches [matches] of [match-count] found.
> [more]
[/more-list]

[/search-region]




@_LEFTRIGHT_BOTTOM_@