httemplate/edit/process/agent.cgi

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