Line # Revision Author
1 3 ahitrov@rambler.ru <%args>
2
3 $id => undef
4 $class => undef
5
6 </%args>
7 <%init>
8
9 my $referer = $r->header_in("Referer");
10 my $doc = $keeper->get_document_by_id( $id, class => $class );
11
12 my $document_access = $user->section_accesses($user, $doc->section);
13 if ($document_access == 2) {
14 $doc->delete;
15 }
16 $m->redirect($referer);
17
18 </%init>