##
use manageusers qw(LoggedOn_user_id);
####
$userid_1 = $LoggedOn_user_id;
warn("userid : '$userid_1' ");
####
Software error:
"LoggedOn_user_id" is not exported by the manageusers module
Can't continue after import errors at update_tables-development.cgi line 30
BEGIN failed--compilation aborted at update_tables-development.cgi line 30.
####
BEGIN {
require Exporter;
use vars qw($VERSION @ISA @EXPORT_OK);
use DBI;
# use vars qw(@ISA @EXPORT_OK);
# $ENV{DBI_TRACE}=1;
# $ENV{PERL_DBI_DEBUG}=1;
@ISA = qw(Exporter);
# exported functions
our @EXPORT_OK = qw(
&OpenConnection
&OpenSession
&ProcessLoginRequest
&ProcessLostDataRequest
&LoginUser
$LoggedOn_user_id
&decodeEncryptedPassName
&UpdateUserData
&GetUserLostData
&LogoutUser
&GetUserSessionCookie
&CheckForAuthorizedUser
&Expires
$attempts
$adminaccess
&Now
&CheckValidLoginChar
&CheckValidEmailChar
&print_md5_javascript);
$VERSION = '0.0.1';
}
####
$userid_1 = $LoggedOn_user_id;
warn("userid : '$userid_1' ");