From: ivan <ivan>
Date: Sat, 5 Jun 2010 18:58:19 +0000 (+0000)
Subject: yuck, deal with those screwed up otakers in cust_main_note, RT#8580
X-Git-Tag: root_of_svc_elec_features~205
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=fabb47880497f35b385485d48b9b6a99db38cb4c

yuck, deal with those screwed up otakers in cust_main_note, RT#8580
---

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',