From 7aabbb07d7463202ecc27b6bcf561222cf93711c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 24 Sep 2010 16:12:29 -0700
Subject: [PATCH] write out the className, too

---
 lib/WebGUI/Shop/PayDriver.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Shop/PayDriver.pm b/lib/WebGUI/Shop/PayDriver.pm
index 7e1aed796..58eda9f7f 100644
--- a/lib/WebGUI/Shop/PayDriver.pm
+++ b/lib/WebGUI/Shop/PayDriver.pm
@@ -455,7 +455,7 @@ sub getId {
 =head2 getName ( )
 
 Return a human readable name for this driver. Never overridden in the
-subclass, instead specified in definition with the name "name".
+subclass, instead specified via WebGUI::Definition::Shop with the name "pluginName".
 
 This is a class method.
 
@@ -673,6 +673,7 @@ sub write {
     my $jsonOptions = to_json($properties);
     $self->session->db->setRow($self->tableName, 'paymentGatewayId', {
         paymentGatewayId => $self->paymentGatewayId,
+        className        => $self->className,
         options          => $jsonOptions,
     });
     return;