%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# 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");

</%perl>




%#=== @METAGS ControlBar ====================================================
<%def .ControlBar>
	<table width="100%" border=0 bgcolor="#EEEEEE">
		<tr><td align="right">
			<% plink({rus => "Назад, на главную страницу", eng => "Back to home"}, -href => "/index.htm") %>
		</td></tr>
	</table>
</%def>
