httemplate/edit/process/elements/process.html

   1 <%
   2
   3   # options example...
   4   #
   5   ###
   6   ##req
   7   ##
   8   # 'table' =>
   9   #
  10   # #? 'primary_key' => #required when the dbdef doesn't know...???
  11   # #? 'fields' => []
  12   #
  13   ###
  14   ##opt
  15   ###
  16   # 'viewall_dir' => '', #'search' or 'browse', defaults to 'search'
  17   # 'process_m2m' => { 'link_table'   => 'link_table_name',
  18   #                    'target_table' => 'target_table_name',
  19   #                  }.
  20
  21   my(%opt) = @_;
  22
  23   #false laziness w/edit.html
  24   my $table = $opt{'table'};
  25   my $class = "FS::$table";
  26   my $pkey = dbdef->table($table)->primary_key; #? $opt{'primary_key'} ||
  27   my $fields = $opt{'fields'}
  28                #|| [ grep { $_ ne $pkey } dbdef->table($table)->columns ];
  29                || [ fields($table) ];
  30
  31   my $pkeyvalue = $cgi->param($pkey);
  32
  33   my $old = qsearchs( $table, { $pkey => $pkeyvalue } ) if $pkeyvalue;
  34
  35   my $new = $class->new( {
  36     map {
  37       $_, scalar($cgi->param($_));
  38     } @$fields
  39   } );
  40
  41   my $error;
  42   if ( $pkeyvalue ) {
  43     $error = $new->replace($old);
  44   } else {
  45     $error = $new->insert;
  46     $pkeyvalue = $new->getfield($pkey);
  47   }
  48
  49   if ( !$error && $opt{'process_m2m'} ) {
  50     $error = $new->process_m2m( %{ $opt{'process_m2m'} },
  51                                 'params' => scalar($cgi->Vars),
  52                               );
  53   }
  54
  55   if ( $error ) {
  56     $cgi->param('error', $error);
  57     print $cgi->redirect(popurl(2). "$table.html?". $cgi->query_string );
  58   } else {
  59     print $cgi->redirect( popurl(3).
  60                           ( $opt{'viewall_dir'} || 'search' ).
  61                           "/$table.html"
  62                         );
  63   }
  64
  65 %>