httemplate/edit/process/agent.cgi

   1 %
   2 %
   3 %my $agentnum = $cgi->param('agentnum');
   4 %
   5 %my $old = qsearchs('agent',{'agentnum'=>$agentnum}) if $agentnum;
   6 %
   7 %my $new = new FS::agent ( {
   8 %  map {
   9 %    $_, scalar($cgi->param($_));
  10 %  } fields('agent')
  11 %} );
  12 %
  13 %my $error;
  14 %if ( $agentnum ) {
  15 %  $error=$new->replace($old);
  16 %} else {
  17 %  $error=$new->insert;
  18 %  $agentnum=$new->getfield('agentnum');
  19 %}
  20 %
  21 %if ( $error ) {
  22 %  $cgi->param('error', $error);
  23 %  print $cgi->redirect(popurl(2). "agent.cgi?". $cgi->query_string );
  24 %} else {
  25 %  print $cgi->redirect(popurl(3). "browse/agent.cgi");
  26 %}
  27 %
  28 %
  29