1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
package VN3::Docs::Edit;
use VN3::Prelude;
use VN3::Docs::Lib;
my $FORM = {
title => { maxlength => 200 },
content => { required => 0, default => '' },
hidden => { anybool => 1 },
locked => { anybool => 1 },
editsum => { _when => 'in out', editsum => 1 },
id => { _when => 'out', id => 1 },
};
my $FORM_OUT = form_compile out => $FORM;
my $FORM_IN = form_compile in => $FORM;
my $FORM_CMP = form_compile cmp => $FORM;
elm_form DocEdit => $FORM_OUT, $FORM_IN;
TUWF::get qr{/$DREV_RE/edit} => sub {
my $d = entry d => tuwf->capture('id'), tuwf->capture('rev') or return tuwf->resNotFound;
return tuwf->resDenied if !can_edit d => $d;
$d->{editsum} = $d->{chrev} == $d->{maxrev} ? '' : "Reverted to revision d$d->{id}.$d->{chrev}";
Framework title => "Edit $d->{title}", index => 0,
sub {
Div class => 'row', sub {
Div class => 'fixed-size-left-sidebar-md doc-list', \&Sidebar;
Div class => 'col-md col-md--4', sub {
Div 'data-elm-module' => 'DocEdit',
'data-elm-flags' => JSON::XS->new->encode($FORM_OUT->analyze->coerce_for_json($d)), '';
};
};
};
};
json_api qr{/$DOC_RE/edit}, $FORM_IN, sub {
my $data = shift;
my $doc = entry d => tuwf->capture('id') or return tuwf->resNotFound;
return $elm_Unauth->() if !can_edit d => $doc;
return $elm_Unchanged->() if !form_changed $FORM_CMP, $data, $doc;
my($id,undef,$rev) = update_entry d => $doc->{id}, $data;
$elm_Changed->($id, $rev);
};
1;
|
