X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fpart_svc.cgi;h=423db93b5a903371afd679d28881881024dda844;hb=ebd1e74bc715300de23cbd64ac076beee2209f0b;hp=093d86a75313a236b6b92cc300537af38474b9da;hpb=67e59b7ab85227889ca127b875b4138f018c844d;p=freeside.git

diff --git a/httemplate/edit/process/part_svc.cgi b/httemplate/edit/process/part_svc.cgi
index 093d86a75..423db93b5 100755
--- a/httemplate/edit/process/part_svc.cgi
+++ b/httemplate/edit/process/part_svc.cgi
@@ -8,12 +8,18 @@ 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)
+          } grep defined( $FS::Record::dbdef->table($_) ),
+                 qw( svc_acct svc_domain svc_acct_sm svc_forward svc_www )
+    )
 } );
 
 my $error;
 if ( $svcpart ) {
-  $error = $new->replace($old);
+  $error = $new->replace($old, '1.3-COMPAT');
 } else {
   $error = $new->insert;
   $svcpart=$new->getfield('svcpart');
@@ -21,7 +27,7 @@ if ( $svcpart ) {
 
 if ( $error ) {
   $cgi->param('error', $error);
-  print $cgi->redirect(popurl(2), "part_svc.cgi?". $cgi->query_string );
+  print $cgi->redirect(popurl(2). "part_svc.cgi?". $cgi->query_string );
 } else {
   print $cgi->redirect(popurl(3)."browse/part_svc.cgi");
 }