[seti page_title] [either] [cgi page_title] [or] Select for table edit: [cgi mv_data_table] [/either] [/seti] [seti page_banner] [either] [cgi page_banner] [or] [cgi page_title] [or] Select for table edit: [cgi mv_data_table] [/either] [/seti] [seti help_name][either][cgi help_name][or]flex.select[/either][/seti] [seti icon_name][either][cgi icon_name][or]icon_config.gif[/either][/seti] [if-mm function="!tables" table="[cgi mv_data_table]"] [bounce page="__UI_BASE__/error"] [/if-mm] [calc] my $out = ''; my $page; delete $Scratch->{ui_location}; return unless $CGI->{ui_return_to}; ($page, @env) = split /\0/, $CGI->{ui_return_to}; $Scratch->{ui_location} = $Tag->area({ href => $page, form => join "\n", @env, }); return; [/calc] [if scratch ui_location] [bounce href=`delete $Scratch->{ui_location}`] [/if] @_UI_STD_HEAD_@ [update values] [if scratch ui_failure]

[scratch ui_failure][set ui_failure][/set]

  [/if] [if scratch ui_message]

[scratch ui_message][set ui_message][/set]

  [/if]

[set New item]item_id=new[/set]

[set Delete item] [flag type=write table="[cgi mv_data_table]"] [set ui_error][/set] [if-mm function="!tables" table="[cgi mv_data_table]=d"] [seti ui_error]Not authorized to delete from table '[cgi mv_data_table]'.[/seti] [/if-mm] [if !scratch ui_error] [perl tables="[cgi mv_data_table]"] unless ($db = $Db{$CGI->{mv_data_table}}) { $Scratch->{ui_error} = "bad data table $CGI->{mv_data_table}"; } $db->delete_record($CGI->{item_id}) or $Scratch->{ui_error} = "Failed to delete $CGI->{item_id}"; return; [/perl] [/if] [if scratch ui_error] mv_nextpage=__UI_BASE__/error [else] mv_nextpage=@@MV_PAGE@@ [/else] [/if] [/set] [set Spreadsheet edit] mv_nextpage=__UI_BASE__/spread [/set]
[if cgi ui_flex_key] [seti keypos][cgi ui_flex_key][/seti] [else] [perl tables="[cgi mv_data_table]"] my $ref = $Db{$CGI->{mv_data_table}}; if (! $ref) { $Scratch->{keypos} = 0; return; } $Scratch->{keypos} = $ref->config('KEY_INDEX'); return; [/perl] [/else] [/if] [calc] $Config->{NoSearch} = ''; if ($CGI->{ui_text_qualification} and $CGI->{ui_text_qualification} =~ /=/ ) { my ($f, $s) = split /\s*=\s*/, $CGI->{ui_text_qualification} , 2; $CGI->{ui_text_qualification} = "co=1\nop=eq\nse=$s\nsf=$f"; } elsif ($CGI->{ui_text_qualification}) { $CGI->{ui_text_qualification} = "se=$CGI->{ui_text_qualification}"; } else { $CGI->{ui_text_qualification} = "ra=yes"; } $CGI->{ui_list_size} = q{[data table=__UI_META_TABLE__ col=height key="[cgi mv_data_table]" ]} if ! $CGI->{ui_list_size}; $CGI->{ui_description_field} = q{[data table=__UI_META_TABLE__ col=field key="[cgi mv_data_table]" ]}; return; [/calc] [if cgi ui_description_field] [loop more=1 search=" fi=[cgi mv_data_table] st=db [cgi ui_text_qualification] su=1 md=1 ml=[cgi ui_list_size] tf=[cgi ui_description_field] rf=[scratch keypos],[cgi ui_description_field] "]

[more-list]
Too big for one page: [more][/more-list] [/loop] [else] [loop more=1 search=" fi=[cgi mv_data_table] st=db [cgi ui_text_qualification] md=1 tf=[scratch keypos] rf=[scratch keypos] "] [more-list]
Items [matches] of [value mv_search_match_count], pages: [more][/more-list] [/loop] [/else] [/if]
@_UI_STD_FOOTER_@