word edit: prio(rity level) column input

diff --git a/tools/word.pg.sql b/tools/word.pg.sql
index 3c4f264b48c27350bcca962a882843b6477a8240..6cab79d2b2f503cc22ccde5aa7c6db323af1c7ed 100644 (file)
--- a/tools/word.pg.sql
+++ b/tools/word.pg.sql
@@ -3,6 +3,7 @@ CREATE TABLE word (
        lang       text        NOT NULL DEFAULT 'eng',
        cat        integer              REFERENCES word (id),
        ref        integer              REFERENCES word (id),
        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,
        source     text,
        thumb      text[],
        wptitle    text,


@@ -14,6 +15,7 @@ COMMENT ON COLUMN word.form       IS 'preferred textual representation';
 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.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';
 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';

diff --git a/writer.plp b/writer.plp
index 288891a5030688489ae47bcff3c1a7347f0d0411..275909b094feeae07ddd9131913aa4a898ab912e 100644 (file)
--- a/writer.plp
+++ b/writer.plp
@@ -108,13 +108,14 @@ my $db = eval {
 } or Abort('Database error', 501, $@);
 
 my @wordcols = (
 } or Abort('Database error', 501, $@);
 
 my @wordcols = (

+       lang    => 'Language',
+       cat     => 'Category',

        form    => 'Translation',
        wptitle => 'Wikipedia',
        form    => 'Translation',
        wptitle => 'Wikipedia',

-       ref     => 'Reference',
-       cat     => 'Category',
-       lang    => 'Language',

        source  => 'Image URL',
        thumb   => 'Convert options',
        source  => 'Image URL',
        thumb   => 'Convert options',

+       prio    => 'Level',
+       ref     => 'Reference',

 );
 my ($find) = map {{id => $_}} $fields{id} || $Request || ();
 
 );
 my ($find) = map {{id => $_}} $fields{id} || $Request || ();
 


@@ -125,7 +126,7 @@ if ($find) {
 }
 
 if (exists $get{copy}) {
 }
 
 if (exists $get{copy}) {

-       $row = {%{$row}{ qw(lang cat) }};
+       $row = {%{$row}{ qw(prio lang cat) }};

 }
 elsif ($ENV{REQUEST_METHOD} eq 'POST') {{
        my $replace = $row;
 }
 elsif ($ENV{REQUEST_METHOD} eq 'POST') {{
        my $replace = $row;


@@ -187,6 +188,7 @@ elsif ($ENV{REQUEST_METHOD} eq 'POST') {{
        }
 }}
 else {
        }
 }}
 else {

+       $row->{prio} //= 1;

        $row->{$_} = $get{$_} for keys %get;
 }
 
        $row->{$_} = $get{$_} for keys %get;
 }