From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 16 Oct 2020 06:08:18 +0000 (+0200)
Subject: word edit: translation shorthand slash for alternate names
X-Git-Tag: v1.13~198
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/a2b323dc9c4fa576fc29c6267198d5fedd3362e2

word edit: translation shorthand slash for alternate names
---

diff --git a/writer.plp b/writer.plp
index 05e1465..ad46616 100644
--- a/writer.plp
+++ b/writer.plp
@@ -172,6 +172,7 @@ elsif (defined $post{form}) {{
 				prio  => undef,
 			);
 			$subrow{wptitle} = $1 if $subrow{form} =~ s/\h*\[(.*)\]$//; # [Link] shorthand
+			$subrow{alt} = [split m{/}, $1] if $subrow{form} =~ s{/(\S.*)}{}; # /alternates shorthand
 			$db->insert(word => \%subrow);
 			delete $fields{$field};
 		}