From db204ea1d1627b03d5e59a2b8918149fd98d16f6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 21 Jul 2006 18:14:22 +0000
Subject: [PATCH] fix scratch->process to form->process in Affiliate.pm

---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI/Affiliate.pm  | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 2890328cc..63f026600 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -11,6 +11,7 @@
  - fix: Copyright on Default Template (Wouter van Oijen / ProcoliX)
  - fix: FileUrl macro doesn't handle snippets (Wouter van Oijen / ProcoliX)
  - fix: Dataform adding fields without fieldname (Wouter van Oijen / ProcoliX)
+ - fix: Fatal in Affiliate.pm
 
 
 7.0.2
diff --git a/lib/WebGUI/Affiliate.pm b/lib/WebGUI/Affiliate.pm
index 5504e9fb5..3f32cebd5 100644
--- a/lib/WebGUI/Affiliate.pm
+++ b/lib/WebGUI/Affiliate.pm
@@ -52,7 +52,7 @@ sub grabReferral {
 	my $session = shift;
 	if ($session->user->userId ne "1" && $session->user->referringAffiliate) {
 		return "";
-	} elsif ($session->user->userId ne "1" && (($session->user->referringAffiliate eq "0" && $session->scratch->process("referringAffiliate")) || $session->form->process("affiliateId"))) {
+	} elsif ($session->user->userId ne "1" && (($session->user->referringAffiliate eq "0" && $session->form->process("referringAffiliate")) || $session->form->process("affiliateId"))) {
 		$session->user->referringAffiliate($session->scratch->get("referringAffiliate"));
 	} elsif ($session->user->userId ne "1") {
 		$session->user->referringAffiliate(1);