From 8702ee8de25c299051fda999fbf312ecc098b41c Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 13 Aug 2008 15:13:53 +0000
Subject: [PATCH] exposed payment info and payment type to vendor

---
 lib/WebGUI/Shop/Vendor.pm       | 12 ++++++++----
 lib/WebGUI/i18n/English/Shop.pm | 12 ++++++++++++
 2 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Shop/Vendor.pm b/lib/WebGUI/Shop/Vendor.pm
index 2f816388b..9c01fc461 100644
--- a/lib/WebGUI/Shop/Vendor.pm
+++ b/lib/WebGUI/Shop/Vendor.pm
@@ -200,7 +200,7 @@ The name of the vendor.
 sub update {
     my ($self, $newProperties) = @_;
     my $id = id $self;
-    my @fields = (qw(name userId url));
+    my @fields = (qw(name userId url paymentInformation preferredPaymentType));
     foreach my $field (@fields) {
         $properties{$id}{$field} = (exists $newProperties->{$field}) ? $newProperties->{$field} : $properties{$id}{$field};
     }
@@ -256,6 +256,8 @@ sub www_edit {
     $f->text(name=>'name', label=>$i18n->get('name'),value=>$properties->{name});
     $f->user(name=>'userId',label=>$i18n->get('username'),value=>$properties->{userId},defaultValue=>3);
     $f->url(name=>'url', label=>$i18n->get('company url'),value=>$properties->{url});
+    $f->text(name=>'preferredPaymentType', label=>$i18n->get('Preferred Payment Type'),value=>$properties->{preferredPaymentType});
+    $f->textarea(name=>'paymentInformation', label=>$i18n->get('Payment Information'),value=>$properties->{paymentInformation});
     $f->submit();
 
     # Wrap in admin console
@@ -277,9 +279,11 @@ sub www_editSave {
     return $session->privilege->adminOnly() unless ($admin->canManage);
     my $form = $session->form;
     my $properties = {
-        name        => $form->get("name","text"),              
-        userId      => $form->get("userId","user",'3'),              
-        url         => $form->get("url","url"),              
+        name                    => $form->get("name","text"),              
+        preferredPaymentType    => $form->get("preferredPaymentType","text"),              
+        paymentInformation      => $form->get("paymentInformation","textarea"),              
+        userId                  => $form->get("userId","user",'3'),              
+        url                     => $form->get("url","url"),              
         };
     my $self = eval{$class->new($session, $form->get("vendorId"))};
     if (!WebGUI::Error->caught && defined $self) {
diff --git a/lib/WebGUI/i18n/English/Shop.pm b/lib/WebGUI/i18n/English/Shop.pm
index 704e109bf..962b07288 100644
--- a/lib/WebGUI/i18n/English/Shop.pm
+++ b/lib/WebGUI/i18n/English/Shop.pm
@@ -3,6 +3,18 @@ package WebGUI::i18n::English::Shop;
 use strict;
 
 our $I18N = { 
+	'Preferred Payment Type' => {
+		message 	=> q|Preferred Payment Type|,
+		lastUpdated	=> 0,
+		context		=> q|vendor label|,
+	},
+
+	'Payment Information' => {
+		message 	=> q|Payment Information|,
+		lastUpdated	=> 0,
+		context		=> q|vendor label|,
+	},
+
 	'thank you message' => {
 		message 	=> q|Thank you for your order! Please save this as your receipt.|,
 		lastUpdated	=> 0,