'menubar' => '', #menubar arrayref
#agent virtualization
- 'agent_virt' => 1,
- 'agent_null_right' => 'Access Right Name',
-
- #run when re-displaying with an error
- 'error_callback' => sub { my( $cgi, $object, $fields_listref, $opt_hashref ) = @_; },
-
- #run when editing
- 'edit_callback' => sub { my( $cgi, $object, $fields_listref ) = @_; },
-
- # returns a hashref for the new object
- 'new_hashref_callback'
+ 'agent_virt' => 1,
+ 'agent_null_right' => 'Access Right Name',
+ 'agent_clone_extra_sql' => '', #if provided, this overrides the extra_sql
+ #implementing agent virt, for clone
+ #operations. i.e. pass "1=1" to allow
+ #cloning anything
- # returns the new object iself (otherwise, ->new is called)
- 'new_object_callback'
-
- #run when adding
- 'new_callback' => sub { my( $cgi, $object, $fields_listref, $optref ) = @_; },
+ 'viewall_dir' => '', #'search' or 'browse', defaults to 'search'
- #run when cloning
- 'clone_callback' => sub { my( $cgi, $object, $fields_listref, $optref ) = @_; },
-
- #run before display to return a different value
- 'value_callback' => sub { my( $columname, $value ) = @_; },
+ # overrides default popurl(1)."process/$table.html"
+ 'post_url' => popurl(1).'process/something',
- #run before display to manipulate element of the 'fields' arrayref
- 'field_callback' => sub { my( $cgi, $object, $field_hashref ) = @_; },
+ #we're in a popup (no title/menu/searchboxes)
+ 'popup' => 1,
- 'viewall_dir' => '', #'search' or 'browse', defaults to 'search'
+ ###
+ # HTML callbacks
+ ###
+
+ 'body_etc' => '', # Additional BODY attributes, i.e. onLoad=""
'html_init' => '', #after the header/menubar
#at the very bottom (well, as low as you can go from here)
'html_foot' => '',
- # overrides default popurl(1)."process/$table.html"
- 'post_url' => popurl(1).'process/something',
+ ###
+ # initialization callbacks
+ ###
- #we're in a popup (no title/menu/searchboxes)
- 'popup' => 1,
+ ###global callbacks
+
+ #always run if provided, after decoding long CGI "redirect=" responses but
+ # before object creation/search
+ # (useful if you have a long form that might trigger redirect= and you need
+ # to do things with $cgi params - they're not decoded in the calling
+ # <%init> block yet)
+ 'begin_callback' = sub { my( $cgi, $fields_listref, $opt_hashref ) = @_; },
+
+ #always run, after the mode-specific object creation/search
+ 'end_callback' = sub { my( $cgi, $object, $fields_listref, $opt_hashref ) = @_; },
+
+ ###mode-specific callbacks
+
+ #run when re-displaying with an error
+ 'error_callback' => sub { my( $cgi, $object, $fields_listref, $opt_hashref ) = @_; },
+
+ #run when editing
+ 'edit_callback' => sub { my( $cgi, $object, $fields_listref ) = @_; },
+
+ # returns a hashref for the new object
+ 'new_hashref_callback'
+
+ # returns the new object iself (otherwise, ->new is called)
+ 'new_object_callback'
+ #run when adding
+ 'new_callback' => sub { my( $cgi, $object, $fields_listref ) = @_; },
+
+ #run when cloning
+ 'clone_callback' => sub { my( $cgi, $object, $fields_listref, $opt_hashref ) = @_; },
+
+ ###display callbacks
+
+ #run before display to return a different value
+ 'value_callback' => sub { my( $columname, $value ) = @_; },
+
+ #run before display to manipulate element of the 'fields' arrayref
+ 'field_callback' => sub { my( $cgi, $object, $field_hashref ) = @_; },
+
);
</%doc>
<% include('/elements/header'. ( $opt{popup} ? '-popup' : '' ). '.html',
$title,
- include( '/elements/menubar.html', @menubar )
+ include( '/elements/menubar.html', @menubar ),
+ $opt{'body_etc'},
)
%>
% 'layer_values' => $layer_values,
% 'html_between' => $f->{'html_between'},
%
-% #umm.
+% #umm. for select-agent_types at least
% 'disabled' => $f->{'disabled'},
% );
%
$cgi = new CGI($pref);
}
+&{$opt{'begin_callback'}}( $cgi, $fields, \%opt )
+ if $opt{'begin_callback'};
+
my %qsearch = (
'table' => $table,
'extra_sql' => ( $opt{'agent_virt'}
$clone = $1;
+ $qsearch{'extra_sql'} = ' AND '. $opt{'agent_clone_extra_sql'}
+ if $opt{'agent_clone_extra_sql'};
+
$object = qsearchs({ %qsearch, 'hashref' => { $pkey => $clone } });
&{$opt{'clone_callback'}}($cgi, $object, $fields, \%opt )
$value = $query;
}
$value =~ /^(\d+)$/ or die "unparsable $pkey";
- $object = qsearchs({ %qsearch, 'hashref' => { $pkey => $1 } });
+ $object = qsearchs({ %qsearch, 'hashref' => { $pkey => $1 } })
+ or die "$pkey $1 not found in $table";
warn "$table $pkey => $1"
if $opt{'debug'};
}
+&{$opt{'end_callback'}}( $cgi, $object, $fields, \%opt )
+ if $opt{'end_callback'};
+
$opt{action} ||= $object->$pkey() ? 'Edit' : 'Add';
my $title = $opt{action}. ' '. $opt{name};