http://www.perlmonks.org?node_id=1187468


in reply to Re^5: global var
in thread global var

I had tried that first but will try gain.

In manageuser Removed EXPORT of LoggedON_user_id

my $username1 = $session->param("user_id"); warn("username1 : '$username1'");

Error Log manageusers

Already logged on LoggedOn_user_id : '428' at /home/jalamior/www/httpsdocs/cgi-bin/lib/perl/manageusers.pm line 287. username1: '428' at /home/jalamior/www/httpsdocs/cgi-bin/lib/perl/manageusers.pm line 290.

and

$LoggedOn_user_id = $username1; warn("Already logged on LoggedOn_user_id : '$LoggedOn_user_id'");

And the error log

Already logged on LoggedOn_user_id : '428' at /home/jalamior/www/httpsdocs/cgi-bin/lib/perl/manageusers.pm line 287

So the desired value is present in the variable in manageusers

In calling unit, changed import use manageusers; Commented out qw(LoggedOn_user_id);

Line 66 in calling unit.

$userid_1 = $manageusers::LoggedON_user_id;

warn("userid : '$userid_1' ");

Error Log line 66

Sat Apr 8 06:54:25 2017 update_tables-development.cgi: Use of uninitialized value in concatenation (.) or string at update_tables-development.cgi line 66. userid : '' at update_tables-development.cgi line 66.

Don't know where else to look