%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2000-2003 Sergey Rusakov. All rights reserved. %# This program is free software; you can redistribute it %# and/or modify it under the same terms as Perl itself. %# %# %#---------------------------------------------------------------------------- % if ($ErrorMessage) { <& /message.mc &> % return; } <% $forum->Title %>

<% pick_lang( rus => "Щелкните на пользователе для принудительной отписки от форума", eng => "Click on user to unsubscribe it from forum") %>

% while($subscribers->restore_next) { <% $subscribers->username %> - <% $subscribers->fullname %>
%}
<% plink( pick_lang( rus => "Вернуться к списку форумов", eng => "Back to forums"), href => "index.htm") %>
%#=== @metags onStartRequest ==================================================== <%method onStartRequest><%perl> # create application and forum $app = $ePortal->Application('MsgForum'); $forum = new ePortal::App::MsgForum::MsgForum; if ( ! $forum->restore($ARGS{forum_id}) ) { $ErrorMessage = pick_lang(rus => "Форум не найден", eng => "Forum not found"); return; } # process unsubscribe if ( $ARGS{unsubscribe_user} ) { $app->Unsubscribe( $ARGS{unsubscribe_user}, $forum->id ); } # retrieve a list of subscribers $subscribers = $app->ForumSubscribers($forum->id); $subscribers->restore_all; %#=== @METAGS once ========================================================= <%once> my ($subscribers, $app, $forum, $ErrorMessage); %#=== @METAGS cleanup ========================================================= <%cleanup> ($subscribers, $app, $forum, $ErrorMessage) = (); %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Подписчики на форум", eng => "Subscribers to forum"} require_admin => 1