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

diff --git a/httemplate/edit/process/part_svc.cgi b/httemplate/edit/process/part_svc.cgi
index 5652c5805..423db93b5 100755
--- a/httemplate/edit/process/part_svc.cgi
+++ b/httemplate/edit/process/part_svc.cgi
@@ -12,12 +12,14 @@ my $new = new FS::part_svc ( {
       map { my $svcdb = $_;
             map { ( $svcdb.'__'.$_, $svcdb.'__'.$_.'_flag' )  }
               fields($svcdb)
-          } qw( svc_acct svc_domain svc_acct_sm svc_forward svc_www ) )
+          } 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');
@@ -25,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");
 }