Hello,
I am trying to execute some code in the cgiapp_prerun subroutine, and it is
not being executed. Here is the code:
sub setup {
my $self = shift;
$self->start_mode('out');
$self->mode_param('action');
$self->run_modes(
'add_system' => \&add_system,
'delete_system' => \&delete_system,
);
$self->param('config' => AppAdminConfig->new());
$config = $self->param('config');
$self->param('dbh' => DBI->connect($config->get_dsn,
$config->get_user_name, $config->get_password));
}
sub cgiapp_prerun {
my $self = shift;
my $q = $self->query();
$ID = $q->cookie('ID');
if (!$ID) {
$thtml = $self->load_tmpl($config->get_base_template_path .
$config->get_admin_login, die_on_bad_params => 0);
return $thtml->output;
}
}
Any ideas?
Roy
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/[EMAIL PROTECTED]/
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
