#!/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;
#calculate our week
my $week=&WeekLib::getweeknum("today");
my $ISobj=new ISLib('Syllabus');
print $query->header();
print $ISobj->pagetop;
$menustring=qq!!;
$sylstring="";
#open a new connection
my $O = new Win32::ODBC($DSN) || die "Unable to open DSN $DSN\n";
(! $O->Sql("SELECT *
FROM Weeks
ORDER BY WeekNum ASC")) || print $O->DumpError();
while ($O->FetchRow()) {
%sdata=$O->DataHash;
if ($sdata{'WeekNum'} == $week)
{ $sylstring.=qq!Week $sdata{'WeekNum'}: $sdata{Title}
\n!;
$menustring.=qq!Week $sdata{'WeekNum'}: $sdata{Title}
\n!;
} else {
$sylstring.=qq!Week $sdata{'WeekNum'}: $sdata{Title}
\n!;
$menustring.=qq!Week $sdata{'WeekNum'}: $sdata{Title}
\n!;
}
$date=$sdata{PostDate};
$sylstring.=qq!Week begins $sdata{PostDate}
\n!;
$sylstring.=qq!$sdata{Reading}
\n
[top]
!;
}
print qq! $menustring
$sylstring
!;
print $ISobj->pagebottom;