finally fix part_svc!!!

[freeside.git] / httemplate / edit / process / part_svc.cgi

diff --git a/httemplate/edit/process/part_svc.cgi b/httemplate/edit/process/part_svc.cgi
index 4c972e4..5652c58 100755 (executable)
--- a/httemplate/edit/process/part_svc.cgi
+++ b/httemplate/edit/process/part_svc.cgi
@@ -8,7 +8,11 @@ my $new = new FS::part_svc ( {
   map {
     $_, scalar($cgi->param($_));
 #  } qw(svcpart svc svcdb)
-  } fields('part_svc')
+  } ( fields('part_svc'),
+      map { my $svcdb = $_;
+            map { ( $svcdb.'__'.$_, $svcdb.'__'.$_.'_flag' )  }
+              fields($svcdb)
+          } qw( svc_acct svc_domain svc_acct_sm svc_forward svc_www ) )
 } );
 
 my $error;
@@ -21,10 +25,9 @@ if ( $svcpart ) {
 
 if ( $error ) {
   $cgi->param('error', $error);
-  $Response->Redirect(popurl(2). "part_svc.cgi?". $cgi->query_string );
+  print $cgi->redirect(popurl(2), "part_svc.cgi?". $cgi->query_string );
 } else {
-  warn "redirecting to ". popurl(3)."browse/part_svc.cgi via $Response";
-  $Response->Redirect(popurl(3)."browse/part_svc.cgi");
+  print $cgi->redirect(popurl(3)."browse/part_svc.cgi");
 }
 
 %>