%#============================================================================ %# 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. %# %# %#----------------------------------------------------------------------------

<& /item_caption.mc, title => 'ePortal setup step-by-step' &>

%# %# =========================================================================== %#

<& /item_caption.mc, title => pick_lang(rus => "Пользователии группы", eng => "Users and groups") &>

%# %# =========================================================================== %#

<& /item_caption.mc, title => pick_lang(rus => "Приложения", eng => "Applications") &> <&| /list.mc, list => [$ePortal->ApplicationsInstalled] &> <& /list.mc:column_image &> <&| /list.mc:column, title => pick_lang(rus => "Наименование", eng => "Name") &> <% $_ %> <&| /list.mc:column, title => pick_lang(rus => "Действия", eng => "Actions") &> <% plink(pick_lang(rus => "Настройка", eng => "Setup"), -href => $_.'_setup.htm') %> <% $m->comp_exists($_.'_statistics.mc') ? plink(pick_lang(rus => "Статистика", eng => "Statistics"), -href => 'statistics.htm#'.$_) : undef %> <% plink(pick_lang(rus => "Вход", eng => "Entrance"), -href => "/app/$_/index.htm") %> <&| /list.mc:column, title => pick_lang(rus => "Статус", eng => "Status") &> <%perl> my $ver = try { $ePortal->Application($_, skip_storage_version_check=>1)->storage_version; } otherwise { }; <% $ver == $ePortal::Server::STORAGE_VERSION ? 'Ok!' : 'Not Ok!' %> %# %# =========================================================================== %#

<& /item_caption.mc, title => pick_lang(rus => "Прочие ссылки", eng => "Other resources") &>