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='' unless $banner; my $header=Tpl::Load("la/_header"); $header=join("",@$header); $header=~ s/l_title/$name/es; $header=~ s/