[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]
|