Re^23: global var

[tultalk]

Fundamental question

module_1.pm Initializes variable A to 100. Code changes variable A to 300.

Module_2.cgi uses module_1 but since module_1 is already loaded, it is not loaded again and variable A should be visible to Module_2 as 300.

Is this correct?

[poj]

If this is what you mean, try it

package module_1;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw($A);
our $A = 100;
1;

#/usr/bin/perl
# script_1.cgi
use strict;
use CGI ':standard';
use lib 'path/to/module';
use module_1 qw($A);

$A = 300;
print header,start_html,
h1("\$A = $A"),
a( {href=>"script_2.cgi"}, "script_2"),
end_html;

#/usr/bin/perl
# script_2.cgi
use strict;
use CGI ':standard';
use lib 'path/to/module';
use module_1 qw($A);

print header,start_html,
h1("\$A = $A"),
a( {href=>"script_1.cgi"} ,"script_1"),
end_html;

poj

[tultalk]

Exactly

module_1 initializes $A to 100. script_1 changes #A to 300 and prints it. script_2 loads module_1 and prints $A as 100, the value initialized in module_1.

This is my exact problem.

[hippo]

This is my exact problem.

Do you mean to say that you require data values to be stored between invocations? This is (perhaps unsurprisingly) a Frequently Asked Question.

FAQ: How do I keep persistent data across program calls?

[poj]

This is my exact problem.

Going back to your post Re^15: global var I think I now understand. You are accessing $manageusers::LoggedOn_user_id from a different script (update_table.cgi ?) from the one that set the value which was presumably manage_users.cgi. As you found that doesn't work.

One solution would be retrieve it directly from the CGI::Session object.

my $dbh = manageusers::OpenConnection();
warn("update_tables.cgi after open connection");
# Dispatch to proper action based on user selection
my $count = 0;
my $query = new CGI;
my $cgiURL = CGI::url();
my $action = lc ($query->param('action'));

## changes ##
# my $userid_1 = 0;
my $session = CGI::Session->load(
    "driver:MySQL", $query, { Handle => $dbh }
);           
my $userid_1 = $session->param("user_id");

poj