1 %# Welcome to generic.cgi.
3 %# This script provides a generic edit/process/ backend for simple table
4 %# editing. All it knows how to do is take the values entered into
5 %# the script and insert them into the table specified by $cgi->param('table').
6 %# If there's an existing record with the same primary key, it will be
7 %# replaced. (Deletion will be added in the future.)
9 %# also see elements/process.html, newer and somewhat along the same lines,
10 %# though it still makes you setup a process file for the table.
11 %# perhaps safer, perhaps more of a pain in the ass.
13 %# Special cgi params for this script:
14 %# table: the name of the table to be edited. The script will die horribly
15 %# if it can't find the table.
16 %# redirect_ok: URL to be displayed after a successful edit. The value of
17 %# the record's primary key will be passed as a keyword.
18 %# Defaults to (freeside root)/view/$table.cgi.
19 %# redirect_error: URL to be displayed if there's an error. The original
20 %# query string, plus the error message, will be passed.
21 %# Defaults to $cgi->referer() (i.e. go back where you
25 %use FS::Record qw(qsearchs dbdef);
27 %use DBIx::DBSchema::Table;
33 %my $table = $cgi->param('table');
34 %my $dbdef = dbdef or die "Cannot fetch dbdef!";
36 %my $dbdef_table = $dbdef->table($table) or die "Cannot fetch schema for $table";
38 %my $pkey = $dbdef_table->primary_key or die "Cannot fetch pkey for $table";
39 %my $pkey_val = $cgi->param($pkey);
42 %#warn "new FS::Record ( $table, (hashref) )";
43 %my $new = FS::Record::new ( "FS::$table", {
44 % map { $_, scalar($cgi->param($_)) } fields($table)
47 %#warn 'created $new of class '.ref($new);
49 %if($pkey_val and (my $old = qsearchs($table, { $pkey, $pkey_val} ))) {
51 % $error = $new->replace($old);
54 % $error = $new->insert;
55 % $pkey_val = $new->getfield($pkey);
56 % # New records usually don't have their primary keys set until after
57 % # they've been checked/inserted, so grab the new $pkey_val so we can
61 %my $redirect_ok = (($cgi->param('redirect_ok')) ?
62 % $cgi->param('redirect_ok') : $p3."browse/generic.cgi?$table");
63 %my $redirect_error = (($cgi->param('redirect_error')) ?
64 % $cgi->param('redirect_error') : $cgi->referer());
67 % $cgi->param('error', $error);
68 % print $cgi->redirect($redirect_error . '?' . $cgi->query_string);
70 % print $cgi->redirect($redirect_ok);