X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/9549abd0dfa94f05c136da03cd1bc8103ae66838..6fcc37bb969a9298ef5ad850d8b8361fe6ca3a5a:/writer.plp

diff --git a/writer.plp b/writer.plp
index 4df6f8c..b549917 100644
--- a/writer.plp
+++ b/writer.plp
@@ -245,11 +245,14 @@ elsif (defined $post{form}) {{
 		while (my ($lang, $val) = each %post) {
 			my $field = $lang;
 			$lang =~ s/^trans-// or next;
-			$db->insert(word => {
+			$val = parseinput($val) or next;
+			my %subrow = (
 				ref   => $row->{id},
 				lang  => $lang,
-				form  => $_,
-			}) for parseinput($val);
+				form  => $val,
+			);
+			$subrow{wptitle} = $1 if $subrow{form} =~ s/\h*\[(.*)\]$//; # [Link] shorthand
+			$db->insert(word => \%subrow);
 			delete $fields{$field};
 		}
 		return 1;