lang text NOT NULL DEFAULT 'eng',
cat integer REFERENCES word (id),
ref integer REFERENCES word (id),
+ prio smallint NOT NULL DEFAULT '1',
source text,
thumb text[],
wptitle text,
COMMENT ON COLUMN word.lang IS 'ISO 639-3 language code';
COMMENT ON COLUMN word.cat IS 'hierarchical classification';
COMMENT ON COLUMN word.ref IS 'reference to equivalent eng translation';
+COMMENT ON COLUMN word.prio IS 'difficulty level or importance; lower values have precedence';
COMMENT ON COLUMN word.source IS 'URI of downloaded image';
COMMENT ON COLUMN word.thumb IS 'ImageMagick convert options to create thumbnail from source image';
COMMENT ON COLUMN word.wptitle IS 'reference Wikipedia article';
} or Abort('Database error', 501, $@);
my @wordcols = (
+ lang => 'Language',
+ cat => 'Category',
form => 'Translation',
wptitle => 'Wikipedia',
- ref => 'Reference',
- cat => 'Category',
- lang => 'Language',
source => 'Image URL',
thumb => 'Convert options',
+ prio => 'Level',
+ ref => 'Reference',
);
my ($find) = map {{id => $_}} $fields{id} || $Request || ();
}
if (exists $get{copy}) {
- $row = {%{$row}{ qw(lang cat) }};
+ $row = {%{$row}{ qw(prio lang cat) }};
}
elsif ($ENV{REQUEST_METHOD} eq 'POST') {{
my $replace = $row;
}
}}
else {
+ $row->{prio} //= 1;
$row->{$_} = $get{$_} for keys %get;
}