use vars qw($VERSION $AUTOLOAD $context @context_stack);
-$VERSION = '3.00.00.028';
+$VERSION = '3.00.00.032';
=head1 NAME
my $db_name = $context->config("database");
my $db_host = $context->config("hostname");
my $db_port = $context->config("port");
+ $db_port = "" unless defined $db_port;
my $db_user = $context->config("user");
my $db_passwd = $context->config("pass");
my $dbh= DBI->connect("DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port",