httemplate/edit/process/elements/process.html

   1 <%
   2
   3   # options example...
   4   #
   5   # 'table' =>
   6   # #? 'primary_key' => #required when the dbdef doesn't know...???
   7   # #? 'fields' => []
   8
   9   my(%opt) = @_;
  10
  11   #false laziness w/edit.html
  12   my $table = $opt{'table'};
  13   my $class = "FS::$table";
  14   my $pkey = dbdef->table($table)->primary_key; #? $opt{'primary_key'} ||
  15   my $fields = $opt{'fields'}
  16                #|| [ grep { $_ ne $pkey } dbdef->table($table)->columns ];
  17                || [ fields($table) ];
  18
  19   my $pkeyvalue = $cgi->param($pkey);
  20
  21   my $old = qsearchs( $table, { $pkey => $pkeyvalue } ) if $pkeyvalue;
  22
  23   my $new = $class->new( {
  24     map {
  25       $_, scalar($cgi->param($_));
  26     } @$fields
  27   } );
  28
  29   my $error;
  30   if ( $pkeyvalue ) {
  31     $error = $new->replace($old);
  32   } else {
  33     warn $new;
  34     $error = $new->insert;
  35     warn $error;
  36     $pkeyvalue = $new->getfield($pkey);
  37   }
  38
  39   if ( $error ) {
  40     $cgi->param('error', $error);
  41     print $cgi->redirect(popurl(2). "$table.html?". $cgi->query_string );
  42   } else {
  43     print $cgi->redirect(popurl(3). "search/$table.html");
  44   }
  45
  46 %>