#!/usr/local/bin/perl
package signin;
# use strict;
use CGI ("shortcuts");
use CGI::Carp qw(fatalsToBrowser);
use lib '\\\\140.247.216.106\\inetpub\wwwroot\columbia';
$query=new CGI;
#Use the ODBC module
use Win32::ODBC;
#our dsn
my $DSN='DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\\\140.247.216.106\\inetpub\wwwroot\columbia\database\colum.mdb';use ISLib;
use WeekLib;
my $ISobj=new ISLib('Current Assignment');
$returnto=$query->param(returnto);
($returnto) || ($returnto="welcome");
$returnto.=".cgi";
##start the web page
print $query->header();
print $ISobj->pagetop;
print qq[<FORM method="post" action="$returnto">\n];
##GET Student Names
print qq!Sign in to respond to issues in the current readings.<p>!;
print qq[ Name: <SELECT name="sID">\n
	<option value="?">Select Your Name\n]; #dummy field
#open a new connection
my $O = new Win32::ODBC($DSN) || die "Unable to open DSN $DSN\n";
(! $O->Sql("SELECT FirstName, LastName, UserName, StudentID
	FROM Students
	WHERE Approved=1
	ORDER BY LastName ASC")) || print $O->DumpError();
while ($O->FetchRow()) {
	%sdata = $O->DataHash();
	print qq!<option value="$sdata{'StudentID'}">\u$sdata{'FirstName'} \u$sdata{'LastName'}\n!
	} #next row
print "</select> ";
print qq[&nbsp;&nbsp; Password: <input type="password" name="Password"><br>\n];

# print qq[<input type="hidden" name="returnto" value="$returnto">\n];
print qq[ <p><CENTER><INPUT TYPE = "submit" value="Sign In"> &nbsp; &nbsp; <INPUT TYPE = "reset"></CENTER>];
print "</form>";
print qq!If you have not yet added your name to the class list, please <a href="editstudent.cgi">add your name and profile</a> 
	before signing in here. Your name will not appear in this list immediately.<br>\n!;
print qq!<hr width="75%" size="1">\n!;
#calculate our week
my $week=&WeekLib::getweeknum("today");
print qq[<A NAME="Readings"></A><H3>Readings:</H3>],
($week) && (&WeekLib::getreading($week));
print $ISobj->pagebottom;