word edit: record entry creator and modification time

[sheet.git] / writer.plp

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;