'disabled' => 0,
'onchange' => 'javascript_function',
- 'include_opt_callback' => sub { #my $ = @_;
+ 'include_opt_callback' => sub { my $object = @_;
( 'option' => 'value', );
},
#agent virtualization
'agent_virt' => 1,
+ 'agent_null' => 1, #if true, always allow no-agentnum globals
'agent_null_right' => 'Access Right Name',
'agent_clone_extra_sql' => '', #if provided, this overrides the extra_sql
#implementing agent virt, for clone
"html_string";
},
+ #javascript function name, will be called with form name as arg
+ 'onsubmit' => 'check_form_data',
+
#at the very bottom (well, as low as you can go from here)
'html_foot' => '',
% my $url = $opt{'post_url'} || popurl(1)."process/$table.html";
-<FORM ACTION="<% $url %>" METHOD=POST NAME="edit_topform">
+<FORM NAME = "edit_topform"
+ METHOD = POST
+ ACTION = "<% $url %>"
+ <% $opt{onsubmit} ? 'onSubmit="return '.$opt{onsubmit}.'(this)"' : '' %>
+>
<INPUT TYPE="hidden" NAME="svcdb" VALUE="<% $table %>">
<INPUT TYPE="hidden" NAME="<% $pkey %>" VALUE="<% $clone ? '' : $object->$pkey() %>">
% $include_common{$_} = $f->{$_}
% foreach grep exists($f->{$_}), qw( empty_label );
%
+% #select-table
+% $include_common{$_} = $f->{$_}
+% foreach grep exists($f->{$_}), qw( value_col );
+% $include_common{$_} = ref( $f->{$_} ) eq 'CODE'
+% ? &{ $f->{$_} }( $cgi, $object ) #, $f )
+% : $f->{$_}
+% foreach grep exists($f->{$_}), qw( extra_sql );
+%
% #select-table, checkboxes-table
% $include_common{$_} = $f->{$_}
-% foreach grep exists($f->{$_}), qw( table name_col value_col );
+% foreach grep exists($f->{$_}), qw( table name_col );
%
% #checkboxes-table
% $include_common{$_} = $f->{$_}
%
% #*-table
% $include_common{$_} = $f->{$_}
-% foreach grep exists($f->{$_}), qw( hashref agent_virt agent_null_right );
+% foreach grep exists($f->{$_}),
+% qw( hashref agent_virt agent_null agent_null_right );
+%
+% # fixed
+% $include_common{$_} = $f->{$_}
+% foreach grep exists($f->{$_}),
+% qw( formatted_value );
+%
+% # select-country
+% $include_common{$_} = $f->{$_}
+% foreach grep exists($f->{$_}),
+% qw( country );
+%
+% #htmlarea
+% $include_common{$_} = $f->{$_}
+% foreach grep exists($f->{$_}), qw( width height );
+%
%
% if ( $type eq 'tablebreak-tr-title' ) {
% $include_common{'table_id'} = 'TableNumber'. $tablenum++;
+% }
+% if ( $type eq 'tablebreak-tr-title' || $type eq 'title' ) {
% $include_common{'colspan'} = $f->{colspan} if $f->{colspan};
% }
%
% if ( $f->{include_opt_callback} ) {
-% %include_common = ( %include_common, &{ $f->{include_opt_callback} } );
+% %include_common = ( %include_common,
+% &{ $f->{include_opt_callback} }( $object )
+% );
% }
%
% my $layer_prefix_on = '';
% %include_common,
% %opt,
% );
+%
+% if ( $include eq 'tr-input-date-field' ) {
+% # it's either hacking it here, or changing a lot more stuff
+% @include = (
+% "/elements/$include.html", {
+% 'name' => $field,
+% 'value' => $opt{curr_value},
+% 'label' => $label,
+% 'noinit' => $f->{noinit},
+% }
+% );
+% }
+%
% @include;
% };
%
% $table = $f->{'m2name_table'};
% $col = $f->{'m2name_namecol'};
% } elsif ( $f->{'o2m_table'} ) {
-% $table = $f->{'o2m_tbekable'};
+% $table = $f->{'o2m_table'};
% $col = dbdef->table($f->{'o2m_table'})->primary_key;
% } elsif ( $f->{'m2m_method'} ) {
% $table = $f->{'m2m_method'};
var field_regex = /(\d+)(_[a-z]+)?$/;
var match = field_regex.exec(what.name);
if ( !match ) {
- alert(what.name + " didn't match?!");
+ alert(what.name + " didn't match for " + what);
return;
}
if ( match[1] != <%$field%>_fieldnum ) {
var newrow = <% include(@layer_opt, html_only=>1) |js_string %>;
-% if ( $type eq 'selectlayers' ) { #until the rest have html/js_only
- var newfunc = <% include(@layer_opt, js_only =>1) |js_string %>;
+% #until the rest have html/js_only
+% if ( $type eq 'selectlayers' || $type =~ /^select-cgp_rule_/ ) {
+ var newfunc = <% include(@layer_opt, js_only=>1) |js_string %>;
% } else {
var newfunc = '';
% }
<BR>
-<INPUT TYPE="submit" ID="submit" VALUE="<% ( !$clone && $object->$pkey() ) ? "Apply changes" : "Add ". ( $opt{'name'} || $opt{'name_singular'} ) %>">
+<INPUT TYPE = "submit"
+ ID = "submit"
+ VALUE = "<% ( !$clone && $object->$pkey() )
+ ? "Apply changes"
+ : "Add ". ( $opt{'name'} || $opt{'name_singular'} )
+ %>"
+>
</FORM>