%#============================================================================ %# 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. %# %# %#---------------------------------------------------------------------------- <%perl> $session{us} = $ARGS{us} if $ARGS{us}; my $section = new ePortal::UserSection; if (! $section->restore($session{us}) ) { $m->comp("/message.mc", ErrorMessage => pick_lang(rus => "Не могу найти секцию: $session{us}", eng => "Cannot load section: $session{us}")); return; } my $module = "/pv/sections/" . $section->component; my $comp = $m->fetch_comp($module); if (! $comp->method_exists("Setup")) { $m->comp("/message.mc", ErrorMessage => pick_lang( rus => "Секция ".$section->title." не имеет настройки", eng => "The section ".$section->title." does not support setup")); return; } $m->comp(".ControlBar"); $comp->call_method("Setup", section => $section, %ARGS); $m->comp(".ControlBar"); %#=== @METAGS ControlBar ==================================================== <%def .ControlBar>
<% plink({rus => "Назад, на главную страницу", eng => "Back to home"}, -href => "/index.htm") %>