Wow! Thanks Charles, it will take a while to digest all that. Some questions though...
You said: Second, GetOfficers() is called as a subroutine, not as a method of an object. But it is written as an object method. Try this. $template->param( db_loop => $self->GetOfficers() ); I'm not sure of the difference, why isn't it a subroutine? I not completely sure about this 'shift' thing anyway :-) Also, I put all the changes in you recommended, but I still get the same error! Error executing run mode 'Mode_0': can't call method "param" on an undefined value at Test_code.pm line 283 Here is all the code, this is just some test code, ok, the doco isnt correct. package Test_code; use base 'CGI::Application'; use HTML::Template; use Data::FormValidator; use DBI; use DBI qw(:sql_types); use strict; ########################################################################## # Subroutine Name: setup # Purpose: To set up the start mode and the various run modes... # It also sets up the database. # 18-Nov-03 J.Bews :- Initial coding. # 23-Nov-03 J.Bews :- Changed location for the Templates. Now in the same # location as the HTML files. # 02-Dec-03 J.Bews :- Converted to OCL_Database. # 22-Dec-03 J.Bews :- Deleted mode_5. Incorporated into mode_4. # 14-May-04 J.Bews :- Realised that I was still using the old database # in the c:\Program Files\Abyss\cgi-bin\OCL_Database subdirectory. Changed # over to the C:\xitami\cgi-bin\OCL_Database subdirectory. ########################################################################## sub setup { my $self = shift; # Set the start mode. $self->start_mode('mode_0'); # Set the run modes. $self->run_modes ( 'mode_0'=>'mainmenu', 'mode_1'=>'insertproject', ); # Connect to the database using DBI and ODBC. # Open connection to an Access 97 database called 'Sample_db.mdb'. my $file = "c:\\xitami\\cgi-bin\\ToolBox\\OCL\\OCL.mdb"; my $driver = "driver={Microsoft Access Driver (*.mdb)}; DBQ=$file"; $self->param('mydbh' => DBI->connect("dbi:ODBC:$driver")); my $dbh = $self->param('mydbh'); $dbh->{'LongReadLen'}= 5000; # expand the size of the Memo read for Access 97 # Path to use for Templates.... #$self->tmpl_path('./'); # ie the same directory as this script. $self->tmpl_path("c:\\xitami\\webpages\\TestBed\\"); } ########################################################################## # Subroutine Name: teardown # Purpose: To disconnect the database when we are all done. # 18-Nov-03 J.Bews Initial coding.... the disconnect() code does not seem to # work for ActiveState Perl Ver 5.6 or Ver 5.8 so I have simply left it out. ########################################################################## sub teardown { my $self = shift; #$self->param('mydbh'->disconnect()); #this line causes problems.... } ########################################################################## # Subroutine Name: mainmenu # Run Mode: rm=mode_0 # HTML Template: 'ocl_mainmenu.tmpl.htm' # Purpose: To show a main main menu. # Note...this subroutine uses the template 'db_mainmenu.tmpl.htm' to give # the user a list of options. # Basically it returns the NAME attribute='rm' with a VALUE attribute = # 'mode_1', 'mode_2', etc. depending on the option selected. # # 29-Nov-03 J.Bews Initial coding. # 02-Dec-03 J.bews Recoded for OCL... ie ocl_mainmenu.tmpl.htm # # To do list: # 1) ########################################################################## sub mainmenu { my $self = shift; my $dbh = $self->param('mydbh'); # Get the CGI query object so that you can use the CGI.pm modules. my $q = $self->query(); # Setup the template to use for the output. my $template = $self->load_tmpl('test2.tmpl.htm'); # call param to fill in the loop with the loop data by reference. $template->param(db_loop => $self>GetOfficers()); # Output the template... $template->output; } ########################################################################## ########################################################################## sub insertproject { my $self = shift; # get the passed parameters. my $q = $self->query(); # get acopy of the CGI object. my $dbh = $self->param('mydbh'); # get the database handle. ## Construct the SQL Statement # Get the values from the form. # my $HTML_OCLRef = $q->param("HTML_OCLRef"); # my $HTML_ProjectID = $q->param("HTML_ProjectID"); my $HTML_Priority=$q->param("HTML_Priority")||undef; my $HTML_Status=$q->param("HTML_Status"); my $HTML_Officer=$q->param("HTML_Officer")||undef; # Setup the template to use for the output. my $template = $self->load_tmpl('test2.tmpl.htm'); #set up the data to give to the HTML template.... $template->param(HTML_Priority => $HTML_Priority); $template->param(HTML_Status => $HTML_Status); $template->param(HTML_Officer => $HTML_Officer); # Output the template... $template->output; } sub GetOfficers { my $self = shift; my $sql = 'SELECT Name as HTML_ProjectName FROM qryOfficer'; my $dbh = $self->param( 'mydbh' ); my $sth = $dbh->prepare( $sql ); $sth->execute() || die qq(Could not execute SQL: "$sql"); return fetchall_arrayref( { HTML_ProjectName => 1 } ); } ########################################################################## # Perl Packages need to return TRUE so that some of the default functions # (ie 'require' and 'use' work. Typically do this by putting a 1; at the # end of the package. ########################################################################## 1; # Das Ende Ist Ere!!!!! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
