From efa7c9c0233f2c3d1e39d62f17cac30b36f593c4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 9 Aug 2010 17:22:59 +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 8c8ba8b9f..72e914068 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -270,7 +270,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