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

% if( $showdate ) {
<% $sdate %>\
% }
% if( $showdate && $showtime ) {
, \
% }
% if( $showtime ) {
<% $stime %>\
% }
<%args>

	$datetime => undef

	$showyear => 1
	$showdate => 1
	$showtime => 0

	$digital  => 0

</%args>
<%doc>

	��������� ���� � ������� yyyy-mm-dd[ mm:ss], ��� � ���� ����� ������ � ������ ������������ ���.

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

		dd ��������_������ yyyy [hh:mm[:ss]]

	��� � ���� 

		dd.mm.yyyy [hh:mm[:ss]]

	���� ����� �������� digital = 1

	����� � ������������ ������ ����� ������������� ���, 
	���� �������� $showyear = undef.

	���� �������� $showdate = undef, �� �������� ��������� $showyear �� ����� ��������

</%doc>
<%init>

	my ($y, $mon, $d, $hr, $mn); 

	if ($datetime)
	{
		$datetime =~ /(\d{4})-0?(\d{1,2})-0?(\d{1,2})\s*(\d{0,2}):*(\d{0,2})/;
		($y, $mon, $d, $hr, $mn) = ($1, $2, $3, $4, $5);
	}
	else
	{
		($mn, $hr, $d, $mon, $y) = (localtime())[1 .. 5];
		$mon++; $y += 1900;
	}

	my $stime = sprintf( "%2.2d:%2.2d", $hr, $mn );
	my $smon = (qw(������ ������� ����� ������ ��� ���� ���� ������� �������� ������� ������ �������))[$mon-1];

	my $sdate = ($digital ? sprintf( "%2.2d.%2.2d", $d, $mon ) : sprintf( "%2.2d %s", $d, $smon ) );
	if( $showyear )
	{
		$sdate .= ($digital ? '.' : ' ').$y;
	}

</%init>