word edit: record entry creator and modification time

diff --git a/tools/word.pg.sql b/tools/word.pg.sql
index 99664c9036b23f2d6ef15c3d81e717d7c5fbb90e..101af7a19491142d9d91920240d22c04017547ec 100644 (file)
--- a/tools/word.pg.sql
+++ b/tools/word.pg.sql
@@ -19,6 +19,8 @@ CREATE TABLE word (
        thumb      text[],
        wptitle    text,
        created    timestamptz          DEFAULT now(),
+       creator    integer              REFERENCES login (id),
+       updated    timestamptz,
        id         serial      NOT NULL PRIMARY KEY
 );
 
@@ -33,6 +35,8 @@ COMMENT ON COLUMN word.cover      IS 'highlight if selected';
 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.updated    IS 'last significant change';
+COMMENT ON COLUMN word.creator    IS 'user responsible for initial submit';
 
 CREATE OR REPLACE FUNCTION exportform(word) RETURNS text AS $$
        SELECT concat(

diff --git a/writer.plp b/writer.plp
index fd2fc867ad7fc3677f746d8e2190ccbe95890cea..d72ef021111f021d2b21038c0cd4e6c894c814c5 100644 (file)
--- a/writer.plp
+++ b/writer.plp
@@ -189,6 +189,8 @@ elsif ($ENV{REQUEST_METHOD} eq 'POST') {{
 
        eval {
                my %res = (returning => '*');
+               $row->{creator} = $user->{id} unless $find;
+               $row->{updated} = ['now()'];
                my $query = $find ? $db->update(word => $row, $find, \%res) :
                        $db->insert(word => $row, \%res);
                $row = $query->hash;