[cgiapp] App instance not accessible from child module: Code or design flaw?

[Kasturirangan Rangaswamy]

Hi,

I am building a web-based system and am trying to use CGI::Application
and HTML::Template to achieve both a modular structure and design/code
separation.

My design goal can be summarized as:

-- Base.pl is instance script for base module Base.pm
-- Base.pm throws a HTML page with a link which links to 
another instance script data_entry_index.pl
-- data_entry_index.pl is instance script for data_entry.pm
module which I want to be the child of Base.pm and be 
able to have access to it's app instance but is not!


Base.pm module
-----------------------------------------------------------
#!/usr/local/bin/perl

package BASE;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use HTML::Template;
use CGI::Session qw/-ip-match/;
use base 'CGI::Application';

sub setup {

my $self = shift;
$self->start_mode('display_entry_screen');
$self->run_modes(
'display_entry_screen' => 'display_entry_screen',
);

}

sub display_entry_screen {

my $self = shift;
# I am purposely setting this parameter to test if it
# is accessible in the child module
$self->param('here' => 'here');
my $data_entry_screen = 
"/software/cgi-bin/SoftwareDistribution/data_entry/
data_entry_index.pl";

my $index_page = $self->load_tmpl('index_screen.tmpl',
die_on_bad_params => 0,
cache => 1
);

$index_page->param(data_entry_link => 
$data_entry_screen);
$index_page->output;
}
-----------------------------------------------------------


and am calling the above module using the following instance script 

Base.pl
------------------------------------------------------------
#!/usr/local/bin/perl

use lib '/export/home/r/rangask/software/cgi-bin/SoftwareDistribution';

use base 'BASE';
use strict;

my $webapp = BASE->new(TMPL_PATH 
=> '/export/home/r/rangask/software/html/'
);
$webapp->run();
------------------------------------------------------------

Now Base.pm results in a screen with a single link from where I call
another instance script. That instance script calls a module which
needs to use Base.pm 

as it's 'parent'. But I find thats not happening. The code is pasted
below 

data_entry_index.pl
------------------------------------------------------------
#!/usr/local/bin/perl

use lib
'/export/home/r/rangask/software/cgi-bin/SoftwareDistribution/data_entry';

use data_entry;
use strict;

use lib '/export/home/r/rangask/software/cgi-bin/SoftwareDistribution';
use base 'BASE';


my $webapp = data_entry->new(
TMPL_PATH => '/export/home/r/rangask/software/html/'
);
$webapp->run();
------------------------------------------------------------

data_entry.pm
------------------------------------------------------------
#!/usr/local/bin/perl

package data_entry;
use CGI::Application;
use CGI::Session;
use CGI::Application::ValidateRM;
use Data::FormValidator;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template;
use lib '/export/home/r/rangask/software/cgi-bin/SoftwareDistribution';
use base 'BASE';

sub setup {

my $self = shift;
$self->start_mode('data_entry_user_details');
$self->run_modes(
'data_entry_user_details' 
=> 'data_entry_user_details',
);
}

sub data_entry_user_details {

my $self = shift;

# This should have given me a 1 because of the 'here' param I set in
Base.pm but it gives
a '0'!!
return $self->param();

}
------------------------------------------------------------


Please advise: Is my code wrong or is this design flawed for what I am
trying to accomplish?

Thanks,
Sharad



                
__________________________________ 
Do you Yahoo!? 
Meet the all-new My Yahoo! - Try it today! 
http://my.yahoo.com 
 


---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/cgiapp@lists.erlbaum.net/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]