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