use List::Util qw( pairs pairkeys );
use Shiar_Sheet::FormRow;
+use SQL::Abstract '1.83';
use JSON;
my $db = eval {
};
my %lang = (
+ '' => ['(reference)'],
nl => ["\N{REGIONAL INDICATOR SYMBOL LETTER N}\N{REGIONAL INDICATOR SYMBOL LETTER L}", 'nederlands'],
en => ["\N{REGIONAL INDICATOR SYMBOL LETTER G}\N{REGIONAL INDICATOR SYMBOL LETTER B}", 'english'],
eo => [qq'<span style="color:green">\N{BLACK STAR}</span>', 'esperanto'],
prio => [
{-label => 'Level', -select => sub {
my ($row) = @_;
- my @enum = qw[ essential basic common distinctive optional invisible ];
+ my @enum = qw[
+ essential ubiquitous basic common distinctive specialised rare invisible
+ ];
return {
('' => 'parent') x (defined $row->{ref}),
map { $_ => $enum[$_] } 0 .. $#enum
return "data/word/org/$_[0]->{id}.jpg";
}},
convert => {-label => 'Convert options', -json => 'image', -multiple => 1, -src => sub {
- return "data/word/en/$_[0]->{id}.jpg";
+ return "data/word/32/$_[0]->{id}.jpg";
}},
+ crop32 => {-json => 'image', type => 'hidden'}, # set by javascript interface
story => {-label => 'Story', type => 'textarea', hidden => 'hidden'},
);
if (my $search = $fields{q}) {
- my %filter = (form => {ilike => '%'.$search.'%'});
+ my %filter = $search eq '^' ? (cat => undef, ref => undef) :
+ (form => {ilike => '%'.parseinput($search).'%'});
my $results = $db->select(word => '*', \%filter);
say '<h1>Search</h1><ul>';
printf("<li><small>%s</small> %s %s</li>\n",
my @val = map { parseinput($_) } $post{'@'.$col}->@*;
my $val = $colinfo->{-multiple} && @val ? \@val : $val[-1];
if (my $jsoncol = $colinfo->{-json}) {
- defined $val and
$row->{$jsoncol}->{$col} = $val; # hash will be encoded
+ ref $_ eq 'HASH' or $_ = decode_json($_) for $replace->{$jsoncol} // ();
}
else {
$row->{$col} = $val;
}
}
my $imagecol = $row->{image}; # backup image subcolumns
- ref $_ eq 'HASH' and $_ = encode_json($_) for values %{$row};
+ while (my ($col, $val) = each %{$row}) {
+ # convert json subcolumns to database string
+ ref $val eq 'HASH' or next;
+ $val = { %{$_}, %{$val} } for $replace->{$col} // (); # preserve unknown
+ defined $val->{$_} or delete $val->{$_} for keys %{$val}; # delete emptied
+ $row->{$col} = encode_json($val);
+ }
- if (!$row->{form}) {
+ if (!$row->{form} and $row->{lang}) {
if ($row->{ref} ne 'delete') {
Alert("Empty title",
"Confirm removal by setting <em>Reference</em> to <q>delete</q>."
require Shiar_Sheet::ImagePrep;
my $image = Shiar_Sheet::ImagePrep->new($wordcol{source}->{-src}->($row));
my $reimage = eval {
- ($imagecol->{source} // '') ne ($replace->{source} // '') or return;
+ ($imagecol->{source} // '') ne ($replace->{image}->{source} // '') or return;
$image->download($imagecol->{source});
};
!$@ or Alert(["Source image not found", $@]);
- $reimage ||= $row->{image} ~~ $replace->{image}; # different source
- $reimage ||= $row->{cover} ~~ $replace->{cover}; # resize
+ $reimage ||= $row->{convert} ~~ $replace->{image}->{convert}; # different
+ $reimage ||= $row->{cover} ~~ $replace->{image}->{cover}; # resize
$reimage++ if $fields{rethumb}; # force refresh
if ($reimage) {
eval {
- $image->convert($wordcol{convert}->{-src}->($row), $imagecol->{convert});
+ $image->generate($wordcol{convert}->{-src}->($row), $imagecol);
} or do {
my ($warn, @details) = ref $@ ? @{$@} : $@;
Alert([ "Thumbnail image not generated", $warn ], @details);
}
}}
else {
- $row->{lang} //= $user->{editlang}->[0];
+ $row->{lang} //= $user->{editlang}->[0] unless exists $row->{lang};
$row->{$_} = $get{$_} for keys %get;
- $row->{prio} = defined $row->{ref} ? undef : 1 unless exists $row->{prio};
+ $row->{prio} = defined $row->{ref} ? undef : 4 unless exists $row->{prio};
}
eval {
my ($attr, @span) = ref $info eq 'ARRAY' ? @{$info} : $info;
next if delete $attr->{hidden} and not $row->{$col};
my $title = ref $attr ? delete $attr->{-label} : $attr;
- printf '<li><label for="%s">%s</label><p>', $col, $title;
+ printf '<li><label for="%s">%s</label><div>', $col, $title;
printf '<span class=inline>';
print $row->input($col => $attr);
if (my $imgsrc = $attr->{-src}) {
- printf('<img id="%spreview" src="/%s" alt="%s"%s />',
- $col, $_, $row->{form}, $col eq 'source' && ' hidden'
+ my $hide = $col eq 'source';
+ printf '<figure id="%spreview">', $col unless $hide;
+ printf('<img src="/%s" alt="%s"%s />',
+ $_, $row->{form}, $hide && qq( id="${col}preview" hidden)
) for grep { -e } $imgsrc->($row);
+ printf '</figure>' unless $hide;
}
print $row->input($_ => delete $wordcol{$_}) for @span;
print '</span>';
- say '</p></li>';
+ say '</div></li>';
}
if (not $row->{ref}) {
<input type="submit" value="Add" />
</form></li>
</ul>
+
+<form id="search">
+ <input type="search" name="q" value="" placeholder="search" /><button type="submit">🔍</button>
+</form>
</section>
<:
}