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

<% join($delimiter, @parts) %>
<%args>
	$p => 1
	$n => 10
	$total => undef
	$href => undef
	$params => {}
	$pname => 'p'
	$delimiter => ' | '

</%args>
<%init>
	
	# ���� !$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 $parts = int($total/$n) + ($total % $n ? 1 : 0);
	my @parts;
	foreach my $pn (1 .. $parts)
	{
		$params->{$pname} = $pn;
		push @parts, ($pn == $p) ? "<b>$pn</b>" : "<a href=\"$href?".join('&', map { "$_=$params->{$_}" } keys %$params)."\">$pn</a>";
	}

</%init>