#!usr/local/bin/perl;
package viewdata;
use lib '\\\\140.247.216.106\\inetpub\wwwroot\columbia';
use CGI ("shortcuts");
use CGI::Carp qw(fatalsToBrowser);
$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;
$user=$query->remote_user();
my $ISobj=new ISLib('View Data');
print $query->header();
print $ISobj->pagetop;
###Questions
print qq!<a name="questions"></a><DL><DT><font size="+2">View All Responses to an Earlier Question</font><br>\n!;
#open a connection to DSN
my $O = new Win32::ODBC($DSN) || die "Unable to open DSN $DSN\n";
(! $O->Sql("SELECT QuestionText, Week, QuestionID 
	FROM Questions
	ORDER BY Week, QuestionID ASC")) || print $O->DumpError();
while ($O->FetchRow() ) {
	my %qdata=$O->DataHash();
	$qtext=$ISobj->shorten($qdata{'QuestionText'}, 60);
	print qq! <DD><a href="viewquestion.cgi?QuestionID=$qdata{'QuestionID'}">Week $qdata{'Week'}: 
	$qtext</a><br>\n
	!;
	} #next row
$O->Close();

print qq!</DL>!;
print "<P>\n";
###Students
print qq!<a name="students"></a><DL><DT><font size="+2">View a Classmate's Responses to All Earlier Questions</font><br>\n!;
#open a connection to DSN
$O = new Win32::ODBC($DSN) || die "Unable to open DSN $DSN\n";
(! $O->Sql("SELECT * 
	FROM Students
	WHERE Approved=1
	ORDER BY LastName ASC")) || print $O->DumpError();
while ($O->FetchRow() ) {
	my %sdata=$O->DataHash();
	if (($user eq "is98") || ($user eq "webedit")) {print qq! <DD><a href="viewstudent.cgi?StudentID=$sdata{'StudentID'}">\u$sdata{'FirstName'} \u$sdata{'LastName'}</a> (\u$sdata{FirstReal} \u$sdata{LastReal})<br>\n!; } 
	else { 	print qq! <DD><a href="viewstudent.cgi?StudentID=$sdata{'StudentID'}">\u$sdata{'FirstName'} \u$sdata{'LastName'}</a><br>\n!; }
	} #next row
$O->Close();
print qq!</DL>!;
#print qq!<a name="classlist"></a><DL><DT><font size="+2"><a href="classlist.cgi">View Class List</a></font></DL>\n!;
print $ISobj->pagebottom;