| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 8 | 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> |