[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.164, 1.165

[Ivan,,,]

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

Modified Files:
	MyAccount.pm 
Log Message:
add forward and spam setting to inter.net portal, RT#13656

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.164
retrieving revision 1.165
diff -u -w -d -r1.164 -r1.165
--- MyAccount.pm	29 Nov 2011 01:55:10 -0000	1.164
+++ MyAccount.pm	29 Nov 2011 02:21:37 -0000	1.165
@@ -1584,8 +1584,14 @@
   my $error;
   if ( $old ) {
     $new->svcnum($old->svcnum);
+    my $cust_svc = $old->cust_svc;
+    $new->svcpart($old->svcpart);
+    $new->pkgnuym($old->pkgnum);
     $error = $new->replace($old);
   } else {
+    my $conf = new FS::Conf;
+    $new->svcpart($conf->config('selfservice-svc_forward_svcpart'));
+    $new->pkgnum($old->cust_svc->pkgnum);
     $error = $new->insert;
   }