RSS Feed| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 8 | ahitrov@rambler.ru | <& "/contenido/components/header.msn", title => 'Редактирование профилей' &> |
| 2 | |||
| 3 | <br> | ||
| 4 | <table border="0" style="font-size:85%;" width="80%"> | ||
| 5 | <tr> | ||
| 6 | <td width="10"></td> | ||
| 7 | <td> | ||
| 8 | <div style="font-size:130%;">Редактирование профилей</div> | ||
| 9 | Профиль представляет из себя некий именованный набор из секций, доступных к редактированию обладателю данного профиля и различных возможностей редакторского интерфейса. Таким образом выделяются тематические блоки, например, административный, редакторский, пользовательский и т.д. | ||
| 10 | <p>Каждый пользователь имеет доступ к заданному числу профилей. Так и осуществляется разделяемый доступ. | ||
| 11 | </td> | ||
| 12 | </tr> | ||
| 13 | |||
| 14 | <tr><td height="20"></td></tr> | ||
| 15 | |||
| 16 | <tr><td></td><td> | ||
| 17 | <& "/contenido/components/exists_tabs.msn" &> | ||
| 18 | </td></tr> | ||
| 19 | |||
| 20 | <tr><td></td><td> | ||
| 21 | <& "/contenido/components/new_tab_form.msn" &> | ||
| 22 | </td></tr> | ||
| 23 | |||
| 24 | <tr><td></td><td> | ||
| 25 | <& "/contenido/components/tab_form.msn", tab=>$tab &> | ||
| 26 | </td></tr> | ||
| 27 | |||
| 28 | </table> | ||
| 29 | |||
| 30 | </body> | ||
| 31 | </html> | ||
| 32 | |||
| 33 | <%ARGS> | ||
| 34 | |||
| 35 | $save => undef | ||
| 36 | |||
| 37 | $id => undef | ||
| 38 | $name => undef | ||
| 39 | $level => 3 | ||
| 40 | $sections => undef | ||
| 41 | $lefts => undef | ||
| 42 | |||
| 43 | </%ARGS> | ||
| 44 | <%INIT> | ||
| 45 | |||
| 46 | use vars qw($keeper $request); | ||
| 47 | |||
| 48 | my $toopi = $project->tabs(); | ||
| 49 | my $tab = {}; | ||
| 50 | if ($id && (length($id) > 0) && (exists($toopi->{$id})) ) | ||
| 51 | { | ||
| 52 | $tab = $toopi->{$id}; | ||
| 53 | } elsif ($id && (length($id) > 0) ) | ||
| 54 | { | ||
| 55 | $tab->{id} = $id; | ||
| 56 | }; | ||
| 57 | |||
| 58 | if ( $save && $id && (length($id) > 0)) | ||
| 59 | { | ||
| 60 | $request->{local_codepage} = 'UTF8'; | ||
| 61 | $request->{local_codepage} = 'WIN' if Convert::Cyrillic::cstocs('WIN', 'UTF8', $ARGS{control_charset}) eq 'Контроль'; | ||
| 62 | $request->{local_codepage} = 'KOI8' if Convert::Cyrillic::cstocs('KOI8', 'UTF8', $ARGS{control_charset}) eq 'Контроль'; | ||
| 63 | warn "Contenido Debug: Форма для редактирования описания объекта пришла в кодировке ".$request->{local_codepage}."\n" if ($state->debug()); | ||
| 64 | |||
| 65 | $tab->{id} = $id; | ||
| 66 | $tab->{name} = $m->comp('/contenido/components/filter.msn', str => $name); | ||
| 67 | $tab->{level} = $level; | ||
| 68 | $tab->{sections} = (ref($sections) ? $sections : [$sections]); | ||
| 69 | $tab->{lefts} = (ref($lefts) ? $lefts : [$lefts]); | ||
| 70 | $toopi->{$id} = $tab; | ||
| 71 | |||
| 72 | $project->tabs($toopi); | ||
| 73 | $project->store($keeper); | ||
| 74 | |||
| 75 | $m->redirect('tabs.html'); | ||
| 76 | } | ||
| 77 | |||
| 78 | </%INIT> |