httemplate/edit/process/cust_svc.cgi

   1 %if ( $error ) {
   2 %  errorpage($error);
   3 %} else {
   4 %  my $svcdb = $new->part_svc->svcdb;
   5 <% $cgi->redirect(popurl(3). "view/$svcdb.cgi?$svcnum") %>
   6 %}
   7 <%init>
   8
   9 die 'access deined'
  10  unless $FS::CurrentUser::CurrentUser->access_right('Change customer service');
  11
  12 my $svcnum = $cgi->param('svcnum');
  13
  14 my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum}) if $svcnum;
  15
  16 my $new = new FS::cust_svc ( {
  17   map {
  18     $_, scalar($cgi->param($_));
  19   } fields('cust_svc')
  20 } );
  21
  22 my $error;
  23 if ( $svcnum ) {
  24   $error=$new->replace($old);
  25 } else {
  26   $error=$new->insert;
  27   $svcnum=$new->getfield('svcnum');
  28 }
  29
  30 </%init>