package tmpl;
use html;
use loginBar;
use tag;
use strict;
sub default {
my ($title,$etitle,$content,$space)=@_;
if (0) {
$content =~ s/&/&/g;
$content =~ s/>/>/g;
$content =~ s//g;
}
my $u=&session::userName;
my $su;
if (&session::isNewTmplOk) {
#$su="!";
return &newTmpl($title,$content,$space);
}
&html::boxColor("0000ff");
&html::hout(<<"EOF");
$title
@{[&loginBar::PP]}$su
$title
$etitle
$content
EOF
}
sub error {
my $msg=shift;
$msg.="
".&html::back;
&default("¼؛اش","failed",$msg);
exit;
}
sub newTmpl {
my ($title,$content,$space)=@_;
my $sp;
if ($space) {
$sp= "
$title