From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 31 May 2020 03:37:46 +0000 (+0200)
Subject: word edit: delete empty entries if confirmed
X-Git-Tag: v1.13~229
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/86a6750572ee3fa30d006a4edce6d5c188726a17?ds=sidebyside

word edit: delete empty entries if confirmed
---

diff --git a/writer.plp b/writer.plp
index 4da2705..ba81e8a 100644
--- 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) :