[freeside-commits] freeside/FS/FS otaker_Mixin.pm,1.1,1.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv23787

Modified Files:
	otaker_Mixin.pm 
Log Message:
yuck, deal with those screwed up otakers in cust_main_note, RT#8580

Index: otaker_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/otaker_Mixin.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- otaker_Mixin.pm	29 Mar 2010 00:23:07 -0000	1.1
+++ otaker_Mixin.pm	5 Jun 2010 18:58:19 -0000	1.2
@@ -44,8 +44,12 @@
     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',