Class Information

[B]

Instructor: EOF $statement2 = "Select emp_ID as emp_id2, fname as fname2, lname as lname2 From employees Where is_salerep=1"; $sth2 = $dbh->prepare($statement2); $sth2->execute; my %row; $sth2->bind_columns( \( @row{ @{$sth2->{NAME_lc} } } )); while($sth2->fetch){ print""; } print <

Course: EOF $statement4 = "Select com_ID, cname as comname From companies"; $sth4 = $dbh->prepare($statement4); $sth4->execute; my %row; $sth4->bind_columns( \( @row{ @{$sth4->{NAME_lc} } } )); while($sth4->fetch){ print""; }[/B] print <

Date Sold (YYYY/MM/DD):

Price Sold For:

##

$dbh->do("Insert into addresses 
values ($aid, '$formValues{'street1'}', '$formValues{'street2'}', '$formValues{'city'}', 
'$formValues{'state'}', $formValues{'zip'})");

print"finished addresses";

$dbh->do("Insert into classes
values ($clid, $formValues{'teacher'}, $formValues{'course'}, $aid, $formValues{'sd'}, $formValues{'st'}, 
$formValues{'ed'}, $formValues{'et'})");

print"finished classes";

$dbh->do("Insert into sell 
values ($tid, $formValues{'salesperson'}, $clid, $formValues{'comid'}, 
$formValues{'ps'}, '$formValues{'ds'}')");

##

##

sub parseForm {
    local($in, %in) ;
    local($name, $value) ;


    # First, read entire string of CGI vars into $in
    if ( ($ENV{'REQUEST_METHOD'} eq 'GET') ||
         ($ENV{'REQUEST_METHOD'} eq 'HEAD') ) {
        $in= $ENV{'QUERY_STRING'} ;

    } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
        if ($ENV{'CONTENT_TYPE'}=~ m#^application/x-www-form-urlencoded$#i) {
            $ENV{'CONTENT_LENGTH'}
                || &HTMLdie("No Content-Length sent with the POST request.") ;
            read(STDIN, $in, $ENV{'CONTENT_LENGTH'}) ;

        } else {
            &HTMLdie("Unsupported Content-Type: $ENV{'CONTENT_TYPE'}") ;
        }

    } else {
        &HTMLdie("Script was called with unsupported REQUEST_METHOD.") ;
    }