require "oratut.pl";
require "oracle.pl"; #for the sql call
$| = 1; # prevents forking so stuff is printed in correct order
@get_pri =<<ENDOFSQL;
@get_sw =<<ENDOFSQL;
select '<option value="'||lk_code||'">', lk_desc
from oratut.lookup
where lk_type='PRI';
ENDOFSQL
select '<option value="'||lk_code||'">', lk_desc
from oratut.lookup
where lk_type='SW';
ENDOFSQL
print &HtmlTopTut("Second Form Attempt");
print <<EOM;
print '</select> Software <select name="software">';
&sql($sql_login,@get_sw);
print <<EOM;
<form method="post" action="/cgi-bin/mmoxcey/oratut/load_data.pl">
<kbd>
User Name: <INPUT TYPE="text" NAME="name" SIZE=30 maxlength=30><p>
Email Adr: <INPUT TYPE="text" NAME="email" size=30 maxlength=100 value = "name\@domain"> <p> Problem:<br>
<TEXTAREA COLS=60 ROWS=4 NAME="problem">default data entry</TEXTAREA><p>
Priority <select name="priority">
EOM
&sql($sql_login,@get_pri);
</select>
<INPUT TYPE="radio" NAME="close_flag" Value="N" Checked >No
<INPUT TYPE="radio" NAME="close_flag" Value="Y">Yes
</kbd>
<input type=submit value="Insert">
<input type=reset value="Clear Form">
</form>
EOM
print &HtmlBotTut;