Hello -
I'm having a problem getting tmpl_loop to spit out the actual list from a
DBI select. I've got everything working so far, but it consistently only
displays one item from the returned set. I'm pretty sure my problem is how
I'm handling the hash, but I've tried a variety of options from a variety of
websites and list archives to no avail (you'll notice all the # items that
record what I have attempted). Any assistance would be appreciated, and a
working example similar to what I'm trying to do would be good too.
TIA -
Nicole
-------------------------------------------
#-------------------------------------------------------
# subroutine Keyword_Search
#-------------------------------------------------------
sub Keyword_Search {
# log that we've begun
print PERLLOG "$now: Preparing and executing statement
Keyword_Search...\n";
print PERLLOG "$now: SELECT description, solution FROM ahd.crsol
WHERE description LIKE '%$search_phrase%'\n";
# the values we want to fetch are longer than the 80 char default of
DBI,
# so we have to allow more to come through
$dbh->{LongReadLen} = 1024 * 1024;
my $sth = $dbh->prepare( "
SELECT description, solution
FROM ahd.crsol
WHERE description LIKE '% $search_phrase %'
" );
$sth->execute();
#my $i=0;
#if (@row = $sth->fetchrow_array()) {
# ($rd_desc, $rd_sol) = @row;
# $i++;
# print PERLLOG "$now: $rd_desc, $rd_sol\n";
#} else {
# $rd_desc = $rd_sol = "no data found";
#}
#print PERLLOG "$now: found $i\n";
#$sth->finish();
# the perlmongers example. doesn't work right either.
#my $rows;
#push@{$rows}, $_ while $_ = $sth->fetchrow_hashref();
#print PERLLOG "$now: $rows\n";
# make sure the query results are tied to perl variables so we can
use them in the main program
# 'rd' prefix means 'returned data'
$sth->bind_col( 1, \$rd_desc );
$sth->bind_col( 2, \$rd_sol );
# put query output into an array
# while we're there, determine if we have too many or not enough
hits from the query
my @stash;
my $i=0;
while ( $array_ref = $sth->fetchrow_arrayref ) {
push @stash, [ @$array_ref ];
$i++;
}
# doesn't work
#my @loop_data = ();
#while (@stash) {
# my %row_data;
# $row_data{DESC, SOL} = shift @stash;
# push(@loop_data, \%row_data);
#}
#print PERLLOG "$now: found $i results\n";
return;
}
exit;
#----------------------------------------------------------------
# subroutine doDisplay
#
# called when the data has been retrieved and verified, and
# we are ready to push the output back to the user's browser.
#----------------------------------------------------------------
sub doDisplay {
print PERLLOG "$now: starting doDisplay to show the output...\n";
# open the HTML template
my $template =
HTML::Template->new(filename=>'e:/inetpub/wwwroot/helpdesk/search_results.ht
m');
# generate output back to the browser
#$template->param(
# PHRASE=>$search_phrase,
# DESC=>$rd_desc,
# SOL=>$rd_sol,
#);
# works but displays funnily - at least it's looping
#$template->param(SOL_LOOP => [
# {
PHRASE=>$search_phrase },
# { DESC=>$rd_desc },
# { SOL=>$rd_sol },
# ]
#);
# works and displays right, but only one entry instead of ALL
$template->param( PHRASE=>$search_phrase,
SOL_LOOP => [
{ DESC=>$rd_desc,
SOL=>$rd_sol },
]
);
# doesn't work
#$template->param( PHRASE=>$search_phrase,
# SOL_LOOP => [ {$rows} ] );
print $template->output;
return;
}
exit;
M. Nicole Johnson
CACP - Advanced Help Desk
713-420-1096 work
832-724-3215 cell
928-441-2504 efax
mailto:[EMAIL PROTECTED]
******************************************************************
This email and any files transmitted with it from the ElPaso
Corporation are confidential and intended solely for the
use of the individual or entity to whom they are addressed.
If you have received this email in error please notify the
sender.
******************************************************************
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
