From fabb47880497f35b385485d48b9b6a99db38cb4c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 5 Jun 2010 18:58:19 +0000
Subject: [PATCH] yuck, deal with those screwed up otakers in cust_main_note,
 RT#8580

---
 FS/FS/otaker_Mixin.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/FS/FS/otaker_Mixin.pm b/FS/FS/otaker_Mixin.pm
index 071958c33..9b86dc6d1 100644
--- a/FS/FS/otaker_Mixin.pm
+++ b/FS/FS/otaker_Mixin.pm
@@ -44,8 +44,12 @@ sub _upgrade_otaker {
     foreach my $record (@records) {
       eval { $record->otaker($record->otaker) };
       if ( $@ ) {
+        my $username = $record->otaker;
+        if ( $username =~ /^(.+), (.+)$/ ) {
+          $username = lc($2.$1);
+        }
         my $access_user = new FS::access_user {
-          'username'  => $record->otaker,
+          'username'  => $username,
           '_password' => 'CHANGEME',
           'first'     => 'Legacy',
           'last'      => 'User',
-- 
2.11.0