From 86a6750572ee3fa30d006a4edce6d5c188726a17 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 31 May 2020 05:37:46 +0200
Subject: [PATCH] word edit: delete empty entries if confirmed

---
 writer.plp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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) :
-- 
2.30.0