git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
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,
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;
delete $fields{$field};
}
return 1;