#! /usr/bin/perl

use CGI ':standard';
use CGI::Carp "fatalsToBrowser";

# W. Sterner CS101   -- Homework 5, problem 2b -- Receiving Form

#2. Hidden Fields (25 pts.) 


    print header, start_html('Using Hidden Fields to pass User Data 2');
print br;

print '<form action="http://people.cs.uchicago.edu/~sterner/cs101/testpl/pg52c.pl" method="post">';

$uName=param('name'); #get CGI variables passed into progr.
$state=param('STATE');



if ($state eq 'GOT_NAME' ){
    print "Hello $uName <br/><br/> Please tell us your three favorite movies.<br/>";
    &prefers(); #Call to get the user information via sub.
}
else { print "ooops Get help! state=$state";}

print end_form, end_html;

#-----------------sub askname
sub prefers {


# Save product, quantity, and STATE to hidden fields.
    print  "<input type=\"hidden\" name=\"name\" value=\"$uName\"> ";
    print  '<input type="hidden" name="STATE" value="FILMS"> ';

# Get user information
    print br, 'Please enter your number one movie favorite:  ';
    print br, '<input type="text" size="20" maxlength="30" name="movie1">';
    
    print br, 'And your number two movie favorite:  ';
    print br, '<input type="text" size="20" maxlength="30" name="movie2">';

    print br, 'Your third favorite movie is?  ';
    print br,  '<input type="text" size="20" maxlength="30" name="movie3">';

    print br, '<input type=submit value="List Favorites">';
    print '<input type=reset value="Erase and Restart">';

  
}