From 34e4be916a4a1dbc4b6f79697b6ab75ce58ba5be Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 9 Aug 2010 17:23:03 +0000
Subject: [PATCH] return username as a name lable for "Lastname, Firstname"
 employees

---
 FS/FS/access_user.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 1bf6e9387..1ce106382 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -274,7 +274,9 @@ Returns a name string for this user: "Last, First".
 
 sub name {
   my $self = shift;
-  $self->get('last'). ', '. $self->first;
+  return $self->username
+    if $self->get('last') eq 'Lastname' && $self->first eq 'Firstname';
+  return $self->get('last'). ', '. $self->first;
 }
 
 =item user_cust_main
-- 
2.11.0