Feature #1845 ยป smdelete_prompt.diff
| smdelete (working copy) | ||
|---|---|---|
|
if ($opt{interactive}) {
|
||
|
my $name = $row -> name;
|
||
|
my $ans = prompt ("Really Delete $name [yes/no]", "no");
|
||
|
if ($ans eq "yes") {
|
||
|
if ($ans =~ /^y(es?)+$/i) {
|
||
|
warn "Deleting ", Dumper (\{$row -> get_all}), "from table ",$opt{table};
|
||
|
$row -> delete;
|
||
|
}
|
||