From 44193585adcad5d2a5dcf6fcd77b2652e290478a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 29 Jan 2010 09:07:02 -0800
Subject: [PATCH] UI improvement to the Vendor Payouts screen.  Display
 username in parentheses after actual name.

---
 lib/WebGUI/Shop/Vendor.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Shop/Vendor.pm b/lib/WebGUI/Shop/Vendor.pm
index baff3f3c9..f290f11a8 100644
--- a/lib/WebGUI/Shop/Vendor.pm
+++ b/lib/WebGUI/Shop/Vendor.pm
@@ -687,10 +687,13 @@ sub www_vendorTotalsAsJSON {
     foreach my $vendorId (keys %{ $vendorPayoutData }) {
         my $vendor = WebGUI::Shop::Vendor->new( $session, $vendorId );
 
-        push @dataset, {
+        my $dataset = {
             %{ $vendor->get },
             %{ $vendorPayoutData->{ $vendorId } },
-        }
+        };
+        my $user = WebGUI::User->new($session, $vendor->get('userId'));
+        $dataset->{name} .= ' ('.$user->username.')';
+        push @dataset, $dataset;
     }
 
     $session->http->setMimeType( 'application/json' );