Select Code to Download

SET FOREIGN_KEY_CHECKS=0;
#----------------------------
...
  `a_session` text NOT NULL,
  UNIQUE KEY `id` (`id`)
) TYPE=MyISAM;

my $config = {    DSN            => 'DBI:mysql:session',
                MySQLunm    => 'ipsofalco',
...

# Set cookie with new expire time
my $cookie = $q->cookie(-name=>'CGISESSID', -value=>$session->id, -exp
+ires=>'+1d');

sub addItemCart {
    my ($cgi, $session, $orderitem) = @_;
...
    $session->flush();
    return displayCart($cgi, $session);
}

sub clrCart {
    my ($cgi, $session) = @_;
...
    $session->flush();
    return &displayCart($cgi, $session);
}