#!/opt/local/bin/perl

use DBI;
use lib '/Library/WebServer/perl/lib';
use EduFileTwo;

print "Content-type: text/html\n\n";

EduFileTwo::Util::printHead("Create A New Course");

print <<END_EOF;
			<form action="addcourse.cgi" method="post"> 
<div id="content2" align="center">
        <p>Fill out the form below and click &quot;Create&quot; to create a new 
          course.</p>
        <table border=0 cellpadding="3" cellspacing="1" width="400" bgcolor="#CFB87C" align="center">
          <tr> 
            <td width="146" bgcolor="#CFB87C">
              <div align="right"><font face="Arial, Helvetica, sans-serif"><font face="Arial, Helvetica, sans-serif"><font size="2">Course 
                ID:</font></font></font></div>
            </td>
            <td width="232" bgcolor="#CFB87C"> <font face="Arial, Helvetica, sans-serif" size="2"> 
              <input type="text" name="course_id" size="30" maxlength="10" style = "background-color : #FAF5E2;">
              </font></td>
          </tr>
          <tr> 
            <td width="146" bgcolor="#CFB87C"> 
              <div align="right"><font face="Arial, Helvetica, sans-serif"><font face="Arial, Helvetica, sans-serif"><font size="2">Course 
                Name:</font></font></font></div>
            </td>
            <td width="232" bgcolor="#CFB87C"> 
              <input type="text" name="course_name" size="30" maxlength="100" style = "background-color : #FAF5E2;">
            </td>
          </tr>
          <tr> 
            <td width="146" bgcolor="#CFB87C"> 
              <div align="right"><font face="Arial, Helvetica, sans-serif"><font face="Arial, Helvetica, sans-serif"><font size="2">Course 
                Description :</font></font></font></div>
            </td>
            <td width="232" bgcolor="#CFB87C"> 
              <textarea name="course_description" cols="30" wrap="PHYSICAL" rows="5" style = "background-color : #FAF5E2;"></textarea>
            </td>
          </tr>
          <tr> 
            <td width="146" bgcolor="#CFB87C"> 
              <div align="right"><font face="Arial, Helvetica, sans-serif"><font face="Arial, Helvetica, sans-serif"><font size="2">Instructor:</font></font></font></div>
            </td>
            <td width="232" bgcolor="#CFB87C"> 
					<select name="instructor_id">
						<option value="0">--Select--
END_EOF

my @faculty = EduFileTwo::FacultyData::getAll();

foreach $facmem (@faculty)
{
	my $id = $facmem->getID();
	my $name = $facmem->getName();
	print "                     <option value=\"$id\">$name\n";
}

print <<END_HTML;
					
					</select>&nbsp <a href="addinstructor.html">Add Instructor</a>
            </td>
          </tr>
          <tr> 
            <td width="146" bgcolor="#CFB87C"> 
              <div align="right"><font face="Arial, Helvetica, sans-serif"><font face="Arial, Helvetica, sans-serif"><font size="2">&nbsp;</font></font></font></div>
            </td>
              <td width="232" bgcolor="#CFB87C"><font face="Arial, Helvetica, sans-serif" size="2"> 
                &nbsp;&nbsp; 
                <input type="reset" value="Reset">
                <input type="submit" name="submit" value="Next&gt;&gt;">
                </font></td>
          </tr>
        </table>

</div>
			  </form>
	
END_HTML

EduFileTwo::Util::printFoot();