From: ivan <ivan>
Date: Tue, 13 Mar 2007 09:21:36 +0000 (+0000)
Subject: okay, so this should link to usernum now.  but until then, it should be ->username... 
X-Git-Tag: freeside_1_7_3rc1~514
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=e8e3d8d1e1d0b77fcbf3327805862c2406f9f30d;p=freeside.git

okay, so this should link to usernum now.  but until then, it should be ->username, not ->name, eek.  causing "Error: Error inserting cust_pkg_reason: ERROR: value to long for type character varying(32)" errors and will be harder to normalize back to usernum when we fix that
---

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index b2ef2a259..3e36ae242 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -1529,9 +1529,7 @@ sub order {
 sub insert_reason {
   my ($self, %options) = @_;
 
-  my $otaker = $FS::CurrentUser::CurrentUser->name;
-  $otaker = $FS::CurrentUser::CurrentUser->username
-    if (($otaker) eq "User, Legacy");
+  my $otaker = $FS::CurrentUser::CurrentUser->username;
 
   my $cust_pkg_reason =
     new FS::cust_pkg_reason({ 'pkgnum'    => $self->pkgnum,