[interchange-cvs] interchange - jon modified dist/foundation/catalog.cfg

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2002-03-11 23:38:03 GMT
Modified:  dist/foundation catalog.cfg
Log:
Remove history-scan tag from catalog.cfg; it is now in code/UserTag.

Revision  Changes    Path
2.9       +0 -36     interchange/dist/foundation/catalog.cfg


rev 2.9, prev_rev 2.8
Index: catalog.cfg
===================================================================
RCS file: /var/cvs/interchange/dist/foundation/catalog.cfg,v
retrieving revision 2.8
retrieving revision 2.9
diff -u -u -r2.8 -r2.9
--- catalog.cfg	11 Mar 2002 21:49:37 -0000	2.8
+++ catalog.cfg	11 Mar 2002 23:38:03 -0000	2.9
@@ -346,42 +346,6 @@
 # Deal with customer click history. For example, after adding an item to
 # the cart, the user can return to a specific search results page.
 History 10
-UserTag history-scan Order find exclude default
-UserTag history-scan addAttr
-UserTag history-scan Routine <<EOR
-my %var_exclude = ( qw/
-	mv_credit_card_number 1
-	mv_pc                 1
-	mv_session_id         1
-/);
-sub {
-	my ($find, $exclude, $default) = @_;
-	my $ref = $Vend::Session->{History}
-		or return $Tag->area($default || $Config->{SpecialPage}{catalog});
-	my ($hist, $href, $cgi);
-	$exclude = qr/$exclude/ if $exclude;
-	for(my $i = $#$ref; $i >= 0; $i--) {
-		#Log("checking $ref->[$i][0] for $exclude");
-		next if $ref->[$i][0] eq 'expired';
-		if ($exclude and $ref->[$i][0] =~ $exclude) {
-			next;
-		}
-		if($find) {
-			next unless $ref->[$i][0] =~ /$find/;
-		}
-		($href, $cgi) = @{$ref->[$i]};
-		last;
-	}
-	return $Tag->area($default || $Config->{SpecialPage}{catalog})
-		if ! $href;
-	my $form = '';
-	for(grep !$var_exclude{$_}, keys %$cgi) {
-		$form .= "\n$_=";
-		$form .= join("\n$_=", split /\0/, $cgi->{$_});
-	}
-	return $Tag->area( { href => $href, form => $form} );
-}
-EOR
 
 # Allow delivery of soft goods (downloadable files).
 ActionMap  deliver   <<EOR