Forms-Search

#!/usr/local/bin/perl -w our $html = ""; our $htmln = ""; $html =< Forms-Search

EOF $htmln =<

Created on ... April 01, 2006

EOF $html .= $htmln; $htmln =< EOF $html .= $htmln; print $html; ##

##

#!/usr/local/bin/perl -w
use CGI;                             # load CGI routines
use DBI;
use DBD::ODBC;

my $cweb = CGI->new();
my $fname = $cweb->param('fname');
my $form_title = $cweb->param('form_title');
my $form_type = $cweb->param('form_type');


my $driver   = "mysql";
my $server   = "localhost";
my $database = "train";
my $url      = "DBI:$driver:$database:$server";
my $user     = "";   #--- taken out intentionally
my $password = "";   #--- taken out intentionally

our $db1 = DBI->connect( $url, $user, $password ) or die "Failure!\n";

our $html = "";
our $htmln = "";
our $hdr = 0;

$html =<



  Forms-Search Results
  



EOF

#---------------------- test printout only
$htmln = <
$fname

$form_title

$form_type

EOF
$html .= $htmln;

our %s_info; 
our $s_ref;  

$STMT3 = <prepare($STMT3);
	if ( !defined($sth3) ) { warn join (" ",'ERROR', $db1->errstr, "$STMT3"); return 1; }
	$sth3->execute();


while($s_ref = $sth3->fetchrow_hashref)
{ %s_info = %$s_ref; 

if ($hdr == 0)
{
$htmln =<
    
      File Name
      Title
      Description
      File Type
    
EOF
$html .= $htmln;
$hdr = 1
}

#------------------------------------ Rows
$htmln =<
      $s_info{fname}
      $s_info{title}
      $s_info{desc}
      $s_info{form_type}
    
EOF
$html .= $htmln;
#-------------------------------- end Rows


}
$htmln = <
EOF
$html .= $htmln;


$htmln = <


EOF
$html .= $htmln;


print $html;

$db1->disconnect();


------------------------------------------------------------
##

##

SELECT form_table.fname, form_table.title, form_table.desc, form_rec.form_url, form_rec.form_type FROM form_table, form_rec WHERE form_table.fname = form_rec.fname and form_table.fname LIKE '%a%' 

##

##

#------------------------------------ Rows
$htmln =<
      $s_info{fname}
      $s_info{title}
                #<---changed this line
      $s_info{form_type}
    
EOF
$html .= $htmln;

##

##

from
      $s_info{desc}

##

##

       

##

##

#------------------------------------ Rows
$htmln =<
      $s_info{fname}
      $s_info{title}
      $s_info{title}	#<---repeated the prev  input	
      $s_info{form_type}
    
EOF
$html .= $htmln;

Form:
Title:
Form Type: