word: sitewide styling of images gallery

[sheet.git] / writer.plp

diff --git a/writer.plp b/writer.plp
index 4df6f8cd71f6ffe4d7d59c7e751209c58a09f521..b5499173be7a37623b461c73e1667f0cbc723c26 100644 (file)
--- 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;