[calc] return unless $CGI->{mv_more_ip}; $CGI->{mv_data_table} = $Values->{mv_data_table}; return; [/calc] [seti page_title] [either] [cgi page_title] [or] [L]Spreadsheet Edit:[/L] [cgi mv_data_table] [/either] [/seti] [seti page_banner] [either] [cgi page_banner] [or] Spreadsheet Edit: [page href=__UI_BASE__/db_metaconfig_spread form=" ui_table=[cgi mv_data_table] ui_view=[cgi ui_meta_view] "][cgi mv_data_table] [/either] [/seti] [set ui_class]Admin[/set] [seti help_name][either][cgi help_name][or]gensql.main[/either][/seti] [seti icon_name][either][cgi icon_name][or]icon_config.gif[/either][/seti] @_UI_STD_HEAD_@ [perl tables="[cgi mv_data_table] __UI_META_TABLE__"] my $table = $CGI->{mv_data_table}; my $db = $Db{$table}; my $mrec = $Tag->meta_record($table, $CGI->{ui_meta_view}) || {}; $Values->{mv_data_table} = $table; $Values->{ui_data_key_name} = $db->config('KEY'); my @fields = grep $_ ne $Values->{ui_data_key_name}, split /[\0\s,]+/, $CGI->{ui_data_fields} || $CGI->{mv_data_fields} || $Values->{"spread:$table:ui_data_fields"} || $mrec->{spread_fields} || $mrec->{attribute} || join(" ", $db->columns()); $Values->{ui_data_fields} = join " ", @fields; $Values->{"ui_spread_meta:$table"} = $CGI->{"ui_spread_meta:$table"} if defined $CGI->{"ui_spread_meta:$table"}; $Values->{ui_meta_display} = $Values->{"ui_spread_meta:$table"}; $Values->{ui_spreadsheet_rows} = $Values->{"ui_spreadsheet_rows:$table"} ||= $CGI->{"ui_spreadsheet_rows:$table"} || $mrec->{spread_height} || 10; $Values->{ui_textarea_rows} = $Values->{"ui_textarea_rows:$table"} ||= $mrec->{spread_textarea_rows} || 4; $Values->{ui_spread_size} = $Values->{"ui_spread_size:$table"} ||= $CGI->{"ui_spread_size:$table"} || $mrec->{spread_width} || 12; return; [/perl] [if scratch ui_failure]
[msg arg.0="[scratchd ui_failure]"]Error: %s[/msg][/if] @_UI_STD_FOOTER_@