diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/VNWeb/Tags/Edit.pm | 4 | ||||
-rw-r--r-- | lib/VNWeb/Traits/Edit.pm | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lib/VNWeb/Tags/Edit.pm b/lib/VNWeb/Tags/Edit.pm index 3f1a468d..d8e02506 100644 --- a/lib/VNWeb/Tags/Edit.pm +++ b/lib/VNWeb/Tags/Edit.pm @@ -88,11 +88,10 @@ TUWF::get qr{/(?:$RE{gid}/add|g/new)}, sub { elm_api TagEdit => $FORM_OUT, $FORM_IN, sub { my($data) = @_; my $id = delete $data->{id}; - my $g = !$id ? {} : tuwf->dbRowi('SELECT id, addedby FROM tags WHERE id =', \$id); + my $g = !$id ? {} : tuwf->dbRowi('SELECT id, addedby, state FROM tags WHERE id =', \$id); return tuwf->resNotFound if $id && !$g->{id}; return elm_Unauth if !can_edit g => $g; - $data->{addedby} = $g->{addedby} // auth->uid; if(!auth->permTagmod) { $data->{state} = 0; @@ -117,6 +116,7 @@ elm_api TagEdit => $FORM_OUT, $FORM_IN, sub { }, map $_->{id}, $data->{parents}->@*; my %set = map +($_,$data->{$_}), qw/name description state addedby cat defaultspoil searchable applicable/; + $set{added} = sql 'NOW()' if $id && $data->{state} == 2 && $g->{state} != 2; tuwf->dbExeci('UPDATE tags SET', \%set, 'WHERE id =', \$id) if $id; $id = tuwf->dbVali('INSERT INTO tags', \%set, 'RETURNING id') if !$id; diff --git a/lib/VNWeb/Traits/Edit.pm b/lib/VNWeb/Traits/Edit.pm index c3299ad5..afb44fa4 100644 --- a/lib/VNWeb/Traits/Edit.pm +++ b/lib/VNWeb/Traits/Edit.pm @@ -86,7 +86,7 @@ TUWF::get qr{/(?:$RE{iid}/add|i/new)}, sub { elm_api TraitEdit => $FORM_OUT, $FORM_IN, sub { my($data) = @_; my $id = delete $data->{id}; - my $e = !$id ? {} : tuwf->dbRowi('SELECT id, addedby FROM traits WHERE id =', \$id); + my $e = !$id ? {} : tuwf->dbRowi('SELECT id, addedby, state FROM traits WHERE id =', \$id); return tuwf->resNotFound if $id && !$e->{id}; return elm_Unauth if !can_edit i => $e; @@ -126,6 +126,7 @@ elm_api TraitEdit => $FORM_OUT, $FORM_IN, sub { my %set = map +($_,$data->{$_}), qw/name alias description state addedby sexual defaultspoil searchable applicable order/; $set{'"group"'} = delete $set{group}; $set{'"order"'} = delete $set{order}; + $set{added} = sql 'NOW()' if $id && $data->{state} == 2 && $e->{state} != 2; tuwf->dbExeci('UPDATE traits SET', \%set, 'WHERE id =', \$id) if $id; $id = tuwf->dbVali('INSERT INTO traits', \%set, 'RETURNING id') if !$id; |