sub main { my $self = shift; my $config = Config::Simple->new("conf/notes.conf"); my $session = CGI::Session->load("driver:File", $self->query, { Directory => $config->param('session_directory') } ) or CGI::Session->new("driver:File", $self->query, { Directory => $config->param('session_directory') } ) or die CGI::Session->errstr; ### get a db connection my $schema = Note::DBI->connect($config->param('db_data_source'), $config->param('db_username'), $config->param('db_password'), { RaiseError => 1, AutoCommit => 1 }); my @all_notes = $schema->resultset('Notes')->all; ### create a query for @usernotes, does not actually ### execute query my $user_notes = $schema->resultset('User')->search( { username => $session->param('username') } ); # Get all the user's notes my @all_user_notes = $user_notes->search_related('notes')->all; return $self->tt_process('main.tt', { c => $self->query, s => $session, #a_notes => \@all_notes, #u_notes => \@all_user_notes, title => 'Notes Home' }); }