Revision 469 (by ahitrov, 2014/12/24 13:57:26) Moving Contenido to Apache 2

<& "/contenido/components/header.msn", title => $PROTOS->{$proto}->[0] &>



<br>
<table border="0" style="font-size:85%;" width="80%">
<tr>
<td width="10"></td>
<td>
<div style="font-size:130%;"><% $PROTOS->{$proto}->[0] %></div>
����� ������� ������� ������ "���������" � ������� ����������� 5-�� ������ �����. ������ �����������! ��������� ��� �� ������������ �� �����. ��� �������� ������-���� ����� ������ ������� ��� ���������� ������ ��� ��������.
<p>� �������� ����� ����������� ����� ���������� ��� ������ perl-����� �������. �� ���� ������ �� ����� ������ ������� ��� ������ �� ������� <a href="dump.html?proto=project" onclick="openWin('dump.html?proto=project','proto',800,600);return false">$project</a>, ������������� �� ������ ��������.
<p><% $PROTOS->{$proto}->[1] %>
</td>
</tr>

<tr><td height="20"></td></tr>

<form action="./options.html" method="post">
<input type="hidden" name="control_charset" value="��������">
<input type="hidden" name="proto" value="<% $proto %>">
<tr>
<td></td><td>

%# ### SECTION ALIAS ###############################
%	if ($proto eq 's_alias') {

<table border="0" width="60%">
<tr>
<th>��������</th>
<th>��������</th>
</tr>
%		if (ref($toopi) eq 'HASH')
%		{
%			for my $p (sort { $a cmp $b } (keys(%{ $toopi })))
%			{
<tr>
<td width="40%"><% $p %></td> 
<td>
<select style="width:100%;" name="option_<% $p %>">
<option></option>
<& "/contenido/components/select_index_tree.msn", selected => $toopi->{$p} &>
</select>
</td>
</tr>
%			}
%		}
%		for (1..5)
%		{
<tr>
<td width="40%"><input type="text" name="newoption_id_<% $_ %>" value=""></td> 
<td>
<select style="width:100%;" name="newoption_value_<% $_ %>">
<option></option>
<& "/contenido/components/select_index_tree.msn" &>
</select>
</tr>
%		}
</table>

%# ### DOCUMENTS ALIAS ###############################
<%DOC>
%	} elsif( $proto eq 'd_alias' ) {


	� ��������

<& "/contenido/components/obj_list_js.msn" &>
<table border="0" width="80%">
<tr>
<th>��������</th>
<th>��������</th>
</tr>
%		if (ref($toopi) eq 'HASH')
%		{
%			for my $p (sort { $a cmp $b } (keys(%{ $toopi })))
%			{
<tr valign="top">
<td width="25%"><% $p %></td> 
<td><& 
	"/contenido/components/_show_obj_list.msn",
		name  => 'newoption_value_'.$_,
		check => $toopi->{$p},
	
&></td>
</tr>
%			}
%		}
%		for (1..5)
%		{
<tr valign="top">
<td width="25%"><input type="text" name="newoption_id_<% $_ %>" value=""></td> 
<td><& "/contenido/components/_show_obj_list.msn" &></td>
</tr>
%		}
</table>
</%DOC>
%	} else {


<table border="0" width="60%">
<tr>
<th>��������</th>
<th>��������</th>
</tr>
%		if (ref($toopi) eq 'HASH')
%		{
%			for my $p (sort { $a cmp $b } (keys(%{ $toopi })))
%			{
<tr>
<td width="40%"><% $p %></td> 
<td><input type="text" style="width:100%;" name="option_<% $p %>" value="<% $toopi->{$p} %>"></td>
</tr>
%			}
%		}
%		for (1..5)
%		{
<tr>
<td width="40%"><input type="text" name="newoption_id_<% $_ %>" value=""></td> 
<td><input type="text" style="width:100%;" name="newoption_value_<% $_ %>" value=""></td>
</tr>
%		}
</table>

%	}

</td>
</tr>

<tr><td height="20"></td></tr>
<tr><td></td><td>
<input type="submit" value="��������� ���������" style="font-size:13pt;font-weight:bold; height:40px;margin-bottom: 5px; background-color:#930300;color:#FFFFFF;">
<input type="hidden" name="save" value="1">
</td></tr>
</form>

</table>
</body>
</html>

<%ARGS>

	$proto => undef
	$save => undef

</%ARGS>
<%INIT>

	use vars qw($keeper $request $sect);
	my $PROTOS = {
		'colors' => ['�������������� �������� ����������','� ���� ���� �������� ��������� ��� ��������� ��������� ����������, �������� ���������, �������� ������ � �.�.'],
		'widths' => ['������','� ���� ���� �������� ����������� ��� ����������� ��������� ��������� ��������. ��� ������, �������, ���������� � �.�.'],
		'params' => ['�������������� ���������','� ���� ���� �������� ��������� ������������ ���������, �� ���������� � ������ ������.'],
		's_alias' => ['�������������� ������','����� ��������� ������ (������) ������������� ����������� ��������� ��������������-�����. ��� �������� ��� ����, ����� ��������� ������ ������������� ���������� � ����������� ���������������� ������'],
		'd_alias' => ['�������������� ����������','����� ��������� ���������� ������������� ����������� ��������� ��������������-�����. ��� �������� ��� ����, ����� ��������� ��������� � ����������� ���������������� ������'],
		'redirects' => ['�������� �����','����� ������������ ��������� (�� ���� ����������� � �� ��������). � �������� ��������� ��������� �������� ���, � � �������� �������� - ��� URI (<b>������� ��������� ���� /</b>, index.html ��������� �� ����).'],
	};

	my $toopi = $project->$proto();
	if ( ($save) && (exists($PROTOS->{$proto})) )
	{
		my $N = {};
		my $V = {};
		foreach my $p (keys(%ARGS))
		{
			if ($p =~ /^option_(.+)$/)
			{
				if ( (length($ARGS{'option_'.$1})<1) && (exists($toopi->{$1})) )
				{
					delete $toopi->{$1};
				} else {
					$toopi->{$1} = $ARGS{'option_'.$1};
				}
			} elsif ($p =~ /^newoption_id_(.+)$/)
			{
				$N->{$1} = $ARGS{'newoption_id_'.$1};
			} elsif ($p =~ /^newoption_value_(.+)$/)
			{
				$V->{$1} = $ARGS{'newoption_value_'.$1};
			}
		}
		foreach my $n (keys(%{ $N }))
		{
			next	if (length($N->{$n}) < 1);
			$toopi->{$N->{$n}} = $V->{$n};
		}

		$project->$proto($toopi);
		$project->store($keeper);

	} elsif ( $proto eq 's_alias' && not defined $save) {
		#warn Data::Dumper::Dumper($sect)."\n";
	}

</%INIT>