Apache::Session HELP!

[Rafiq Ismail (ADMIN)]

Hi, I'm in major poop.

Got a presentation soon and my just implemented, implementation of
Apache::Session is not working as per the man page.

I've set commit to 1 and tied a session to a postgres database.  I then
set a field and check the table it's not there.

When I later do a fetch on it, I get a scarey error:

 [error] Object does not exist in the data store at
/usr/lib/perl5/site_perl/5.6.1/Apache/Session/Store/Postgres.pm line 81


Create and fetch methods, with table schema, below:


1)Create:
--------------------------------------------

sub tieSession
{
  my $self = shift;
  my %session;
  my $dsn = "DBI:Pg:dbname=".$DBI_DB.";host=".$DBI_HOST;

  print STDERR "\n CREATING SESSION using dsn: $dsn \n";

  tie %session, 'Apache::Session::Postgres', undef,
                {
                 DataSource => $dsn,
                 UserName => $DBI_USER,
                 Password => $DBI_PWD,
                 Commit => 1
                };

  ## store creation time
  $session{CREATION_TIME}=time;

  return \%session;
}

--------------------------------------------



2) fetching the session:

--------------------------------------------

sub fetchSession
{
  my $self = shift;
  my $sessionId = shift;
  my $dsn = "DBI:Pg:dbname=".$DBI_DB.";host=".$DBI_HOST;
  my %session;

  print STDERR "\n getting session for $sessionId\n";

  tie %session, 'Apache::Session::Postgres', $sessionId,
    { DataSource => $dsn,
      UserName => $DBI_USER,
      Password => $DBI_PWD,
      Commit => 1
    };

  ## store last access
  $session{LAST_ACCESS} = time;

  $ENV{GUEST_ID} = $session{GUEST_ID} || undef;
  return \%session;
}

--------------------------------------------

3) Table Schemata

--------------------------------------------

        CREATE TABLE sessions (
           id char(32) not null primary key,
           a_session text
        );

--------------------------------------------


help?

Cheers,

fiq