From f594ec773761b4dbdc7a06110965b7810c863181 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 7 Nov 2006 17:20:41 +0000
Subject: [PATCH] Fixed long standing bug in Subscription exposed by "use
 strict". Current object was not updated via $subscription->set, but the
 database was.

---
 lib/WebGUI/Subscription.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Subscription.pm b/lib/WebGUI/Subscription.pm
index f7db04493..9fefd6c80 100644
--- a/lib/WebGUI/Subscription.pm
+++ b/lib/WebGUI/Subscription.pm
@@ -179,7 +179,7 @@ sub set {
 
 	foreach (keys(%{$properties})) {
 		if (isIn($_, qw(name price useSalesTax description subscriptionGroup duration executeOnSubscription karma))) {
-			$self->{_properties}{$_} = $value;
+			$self->{_properties}{$_} = $properties->{$_};
 			push(@fieldsToUpdate, $_);
 		}
 	}