require "oratut.pl";
require "oracle.pl"; #for the sql call

$| = 1; # prevents forking so stuff is printed in correct order

@get_pri =<<ENDOFSQL;
select '<option value="'||lk_code||'">', lk_desc
from oratut.lookup
where lk_type='PRI';
ENDOFSQL

@get_sw =<<ENDOFSQL;
select '<option value="'||lk_code||'">', lk_desc
from oratut.lookup
where lk_type='SW';
ENDOFSQL

print "Content-type: text/html\n\n";
print &HtmlTopTut("Second Form Attempt");

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);

print '</select> Software <select name="software">';

&sql($sql_login,@get_sw);

print <<EOM;
</select> <P> Closed?
<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;