1 files changed, 52 insertions, 0 deletions
diff --git a/lib/VN3/Docs/Edit.pm b/lib/VN3/Docs/Edit.pm
new file mode 100644
index 00000000..b4eae572
--- /dev/null
+++ b/lib/VN3/Docs/Edit.pm
@@ -0,0 +1,52 @@
+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 },
+};
+
+our $FORM_OUT = form_compile out => $FORM;
+our $FORM_IN  = form_compile in  => $FORM;
+our $FORM_CMP = form_compile cmp => $FORM;
+
+
+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 tuwf->resJSON({Unauth => 1}) if !can_edit d => $doc;
+    return tuwf->resJSON({Unchanged => 1}) if !form_changed $FORM_CMP, $data, $doc;
+
+    my($id,undef,$rev) = update_entry d => $doc->{id}, $data;
+    tuwf->resJSON({Changed => [$id, $rev]});
+};
+
+1;