Can you change the home subroutine a litte bit like?
sub home {
#---------------------------------------------------------------------------
my $self = shift;
my $msg = shift;
$msg = ($self->_check_pers()) ? '' : $self->_language('PER_FAILURE') if ( !$msg );
my $pg = $self->{cgi}->{pg} || 'home.html';
return ($pg, {
header => $self->_language('HEA_HOME'),
msg => $msg
});
}
Now you can use db.cgi?do=home&uid=default&pg=template_name to display a page.
TheStone.
B.
sub home {
#---------------------------------------------------------------------------
my $self = shift;
my $msg = shift;
$msg = ($self->_check_pers()) ? '' : $self->_language('PER_FAILURE') if ( !$msg );
my $pg = $self->{cgi}->{pg} || 'home.html';
return ($pg, {
header => $self->_language('HEA_HOME'),
msg => $msg
});
}
Now you can use db.cgi?do=home&uid=default&pg=template_name to display a page.
TheStone.
B.