use strict;
use vars qw(%CONFIG %VARS);

sub amazon {
	my ($mode, $depth) = @_; 
	my $out;
	$mode = "books" unless(defined($mode));
	$depth = 2 unless(defined($depth));

	if($VARS{'PAGE_TYPE'} eq "cat"){
		$VARS{'RAW_CURRENT_CAT'} =~ m#([^/]*)$#;
		my $temp1 = $1;
		$temp1 =~ s#_#\+#g;
		$VARS{'CURRENT_CAT'} =~ m#([^/]*)$#;
		my $temp2 = $1;

		my $temp1;
		if($depth == 1){
			$VARS{'RAW_CURRENT_CAT'} =~ m#([^/]*)$#;
			my $temp1 = $1;
			$temp1 =~ s#_#\+#g;
		}
		else{
			if($VARS{'RAW_CURRENT_CAT'} =~ m#/#){
				$VARS{'RAW_CURRENT_CAT'} =~ m#([^/]*/[^/]*)$#;
				$temp1 = $1;
			}
			else{
				$VARS{'RAW_CURRENT_CAT'} =~ m#([^/]*)$#;
				$temp1 = $1;
			}
			$temp1 =~ s#(_|/)#\+#g;			
			$temp1 = lc($temp1);
		}

		my $temp2;
		if($depth == 1){
			$VARS{'CURRENT_CAT'} =~ m#([^/]*)$#;
			my $temp2 = $1;
			$temp1 =~ s# #\+#g;
		}
		else{
			if($VARS{'CURRENT_CAT'} =~ m#/#){
				$VARS{'CURRENT_CAT'} =~ m#([^/]*)/([^/]*)$#;
				$temp2 = "$1-$2";
			}
			else{
				$VARS{'CURRENT_CAT'} =~ m#([^/]*)$#;
				$temp2 = $1;
			}
		}

		$out = qq!<a href="affiliates/amazon.cgi?http://www.amazon.com/exec/obidos/external-search/?mode=$mode\&keyword=$temp1\&tag=$CONFIG{'AMAZON_ASSOCIATES_ID'}">$temp2</a>!;
	}
	elsif($VARS{'PAGE_TYPE'} eq "search"){
		$out = qq!<a href="affiliates/amazon.cgi?http://www.amazon.com/exec/obidos/external-search/?mode=$mode\&keyword=$VARS{'RAW_SEARCH_STRING'}\&tag=$CONFIG{'AMAZON_ASSOCIATES_ID'}">$VARS{'SEARCH_STRING'}</a>!;
	}
	
	return $out;
}

1;