$sth->execute;
}
- my @results;
- while (my $data=$sth->fetchrow_hashref) {
- push(@results,$data);
- }
- $sth->finish;
- $dbh->disconnect;
- return (scalar(@results),\@results);
+ my @results;
+ while (my $data=$sth->fetchrow_hashref) {
+ push(@results,$data);
+ }
+ $sth->finish;
+ return (scalar(@results),\@results);
}
my $input = new CGI;
$sth->finish;
}
$template->param( $_ => $data->{$_} )
- for ( qw( host port db userid password checked rank timeout ) );
+ for ( qw( host port db userid password checked rank timeout encoding ) );
$template->param( $_ . $data->{$_} => 1)
- for ( qw( syntax encoding ) );
+ for ( qw( syntax ) );
# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB