freeside/httemplate/edit/process cust_svc.cgi,NONE,1.1

[ivan]

Update of /home/cvs/cvsroot/freeside/httemplate/edit/process
In directory pouncequick:/tmp/cvs-serv8444/httemplate/edit/process

Added Files:
	cust_svc.cgi 
Log Message:
svcpart changes now trigger all necessary export actions, manual svcpart changing on svc_acct view, linking changes svcpart if you ask it to, closes: Bug#671, Bug#644

--- NEW FILE: cust_svc.cgi ---
<%

my $svcnum = $cgi->param('svcnum');

my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum}) if $svcnum;

my $new = new FS::cust_svc ( {
  map {
    $_, scalar($cgi->param($_));
  } fields('cust_svc')
} );

my $error;
if ( $svcnum ) {
  $error=$new->replace($old);
} else {
  $error=$new->insert;
  $svcnum=$new->getfield('svcnum');
}

if ( $error ) {
  #$cgi->param('error', $error);
  #print $cgi->redirect(popurl(2). "cust_svc.cgi?". $cgi->query_string );
  eidiot($error);
} else { 
  my $svcdb = $new->part_svc->svcdb;
  print $cgi->redirect(popurl(3). "view/$svcdb.cgi?$svcnum");
}