#!usr/local/bin/perl;
package classlist;
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('Class List');
print $query->header();
print $ISobj->pagetop;


$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();
	print qq! <font size="+1"><a href="viewstudent.cgi?StudentID=$sdata{'StudentID'}">\u$sdata{'FirstName'}
	\u$sdata{'LastName'}</a></font> !;
	if (($user eq "columbia") || ($user eq "webedit")) { print qq!(\u$sdata{FirstReal} \u$sdata{LastReal})!; }
	print qq! $sdata{'Affiliation'} \n!;
	if ($sdata{Guest} eq "1") {print qq!<b> Guest</b> !;}
	print qq!<br>\n
	Email: <a href="mailto:$sdata{'EmailName'}">$sdata{'EmailName'}</a>, Phone: $sdata{'PhoneNumber'}<br> 
	Favorite Website: $sdata{'FavoriteWeb'}<p>!;
	push @email, $sdata{EmailName}.", ";
	}
if (($user eq "columbia") || ($user eq "webedit")) {print "Email List: @email\n<br>"};
print qq!<hr width="75%" size="1">\n!;
print qq!If you have not yet added your name to the class, please <a href="editstudent.cgi">add your name and profile</a>.
	 Your name will not appear in this list immediately.<p>\n!;
print $ISobj->pagebottom;