[freeside-commits] freeside/FS/FS cust_pkg.pm,1.73,1.73.2.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv6956

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_pkg.pm 
Log Message:
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

Index: cust_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg.pm,v
retrieving revision 1.73
retrieving revision 1.73.2.1
diff -u -d -r1.73 -r1.73.2.1
--- cust_pkg.pm	8 Feb 2007 22:19:56 -0000	1.73
+++ cust_pkg.pm	13 Mar 2007 09:21:36 -0000	1.73.2.1
@@ -1529,9 +1529,7 @@
 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,