word edit: delete empty entries if confirmed

diff --git a/writer.plp b/writer.plp
index 4da27053c26ce2096f45be277d56a158539d0906..ba81e8a4d4ee42e1841ae2e0d56d67aa4a379b71 100644 (file)
--- a/writer.plp
+++ b/writer.plp
@@ -148,6 +148,19 @@ elsif ($ENV{REQUEST_METHOD} eq 'POST') {{
        $row = {%post{keys %wordcol}};
        $_ = length ? $_ : undef for values %{$row};
 
+       if (!$row->{form}) {
+               if ($row->{ref} ne 'delete') {
+                       Alert("Empty title",
+                               "Confirm removal by setting <em>Reference</em> to <q>delete</q>."
+                       );
+               }
+               else {
+                       $db->delete(word => $find);
+                       Alert("Entry removed");
+               }
+               next;
+       }
+
        eval {
                my %res = (returning => '*');
                my $query = $find ? $db->update(word => $row, $find, \%res) :