package la_inc;

=head1
 Rb & RLA includes:
 Header, Left menu and footer design
=cut 

use Tpl;

$Tpl::dbg=0;

sub get_time {
 @m=('января','февраля','марта','апреля','мая','июня','июля','августа','сентября','октября','ноября','декабря');
 @M=localtime;
 $_=localtime; @a=split;
 $_=$a[2].' '.$m[$M[4]].' '.$a[4];
}

sub page {
 my ($data,$banner,$name)=@_;
 $banner='<img src="images/logo2.gif" border=0>' unless $banner;
 
 my $header=Tpl::Load("la/_header");
 
 $header=join("",@$header);
 $header=~ s/l_title/$name/es;
 $header=~ s/<time>.*?<\/time>/get_time()/es;
 
 my $left_menu=Tpl::Load("la/_left");
 $left_menu=join("",@$left_menu);
 my $bottom=Tpl::Load("la/_bottom");
 
 my $btm_links=Tpl::Load("la/_btm_links");
 $btm_links=join("",@$btm_links); 

 my $r_banner=Tpl::Load("la/_r_banner");
 $r_banner=join("",@$r_banner);
 
 
 $bottom=join("",@$bottom);
 print "$header \n <table width=760 border=0 cellspacing=0 cellpadding=0 align=center><tr>$left_menu \n <td width=\"454\" valign=top bgcolor=\"#FFFFFF\">$data</td>".
       $r_banner.$btm_links.'</table>'.$bottom;
 
};

1;