Repository List / Contenido / koi8 / core / comps / inc / pages_.msn @ r3

<% $LINE %>
<%args>

	$p => 1
	$n => 10
	$size => 8
	$total => undef
	$href => undef
	$params => {}
	$pname => 'p'
	$delimiter => ' | '

</%args>
<%init>

    # ��� �����, ��� � ������...
    $p = 1 if $p > 10000;

	# ���� !$href � ���� �������� �� �������� DirectoryIndex, ����: 
	# .../../gallery.html. � ������ � ��� �������������, ����: <a href="?param=1">, 
	# �� IE �������� �� .../../gallery.html?param=1., � NN (4.x) �������� �� 
	# .../../?param=1.., ��������� ���� ������� � ��������� ������ ��� �����.
	#
	if (!$href)
	{
		$href = $r->uri();
		$href =~ s/\/([\w]{1,}(\.[sp]?html?))//;
		$href = $1;
		if ($href =~ /(index|default|main)$2/ ){
			$href = '';
		}
	}
	my @params;
	while ( my ($key, $value) = each %$params ) {
		next	if $key eq $pname;
		if ( ref $value eq 'ARRAY' ) {
			push @params, ( map { "$key=$_" } @$value );
		} else {
			push @params, "$key=$value";
		}
	}

	my $parts = int($total/$n) + ($total % $n ? 1 : 0);
	return undef	if ($parts <= 1);

	my @parts;

	my $mid_position = int($size/2);

	my $left_pushed_border = $mid_position;
	my $right_pushed_border = $parts - $mid_position;

	my $LINE = '';
	my $left_border;
	my $right_border;

	if ($p >= $left_pushed_border)
	{
		$left_border = $p-$mid_position+1;
		$right_border = $left_border+$size-1;
	} else {
		$left_border = 1;
		$right_border = $size;
	}
	if ($right_border > $parts)
	{
		$left_border = $left_border-($right_border-$parts);
		$right_border = $parts;
	}
	$left_border = 1	if ($left_border < 1);


	# � �� ���� �� �������� [� ������]...
	if ($left_border > 1) {
		$params->{$pname} = 1;
		$LINE .= "[<a href=\"$href?$pname=1".(@params ? '&'.join('&', @params) : '')."\">� ������</a>] ";
	}

	# � ���� �� �������� [����.]...
	if ($p > 1)
	{
		$params->{$pname} = $p-1;
		push(@parts, "<a title=\"���������� ��������\" href=\"$href?$pname=".($p-1).(@params ? '&'.join('&', @params) : '')."\">&lt;&lt;</a>");
	}


	foreach my $pn ($left_border .. $right_border)
	{
		
		$params->{$pname} = $pn;
		push @parts, ($pn == $p) ? "<b>$pn</b>" : "<a href=\"$href?$pname=$pn".(@params ? '&'.join('&', @params) : '')."\">$pn</a>";
	}

	# � ���� �� �������� [����.]...
	if ($p < $parts)
	{
		$params->{$pname} = $p+1;
		push(@parts, "<a title=\"��������� ��������\" href=\"$href?$pname=".($p+1).(@params ? '&'.join('&', @params) : '')."\">&gt;&gt;</a>");
	}
	$LINE .= join($delimiter, @parts);


	# � �� ���� �� �������� [� �����]...
	if ($right_border < $parts)
	{
		$params->{$pname} = $parts;
		$LINE .= " [<a href=\"$href?$pname=$parts".(@params ? '&'.join('&', @params) : '')."\">� �����</a>]";
	}

	

</%init>
<%doc>

	����������� ��������

</%doc>