#include ../../header.iphtml #include ../../header_include.iphtml

The is listed by day. Use the tabs below to navigate the .

$ary[0]

"; $cursor = $main::dbh->prepare ("SELECT DATE_FORMAT(lecture_date,'%W, %M %e, %Y'), CONCAT_WS(' – ',TIME_FORMAT(start_time,'%l:%i'),TIME_FORMAT(end_time,'%l:%i %p')),lecture,lectureid,main_topic,facultyid,room FROM new_lecture WHERE committeeid=$meeting_no ORDER BY lecture_date, start_time, facultyid,main_topic"); $cursor->execute() || die "Couldn't execute query: $DBI::errstr\n"; my $firstload = 1; $counter = 1; COMPLETE: while (@ary = $cursor->fetchrow_array()) { my $speaker = ''; my $syllabusCount = 0; if ($dateholder ne $ary[0]) { print "

\n" if !$firstload; print < EOF $dateholder = $ary[0]; $firstload = 0; $counter++; } my $cursor2 = $main::dbh->prepare(qq{ SELECT COUNT(*) FROM faculty_lecture t1 WHERE syllabusFileName IS NOT NULL AND lectureid=? }); $cursor2->execute($ary[3]); $syllabusCount = $cursor2->fetchrow_array(); $cursor2->finish(); $cursor2 = $main::dbh->prepare(qq{ SELECT CONCAT_WS(' ',fname,m_initial,lname,title),moderator,syllabusFileName FROM faculty_lecture t1, member t2 WHERE t1.facultyid=t2.member_id AND lectureid=? ORDER BY moderator DESC, lname ASC, fname ASC }); $cursor2->execute($ary[3]); while (my @fields = $cursor2->fetchrow_array()) { if ($syllabusCount > 1) { if ($fields[2]) { $speaker .= ""; $speaker .= "Moderator: " if $fields[1]; $speaker .= "$fields[0]"; } else { $speaker .= "Moderator: " if $fields[1]; $speaker .= "$fields[0]"; } } else { $speaker .= "Moderator: " if $fields[1]; $speaker .= "$fields[0]"; } $speaker .= "; "; } $speaker =~ s/; $//; $cursor2->finish(); if ($ary[4] eq "1") { print '"; next COMPLETE; } print ""; print '\n"; } $cursor->finish; !>

$ary[0]
'.$ary[2].''; print " $speaker" if $speaker; print "
$ary[1]	'; if (!$syllabusCount \|\| $syllabusCount > 1) { print "$ary[2]"; } else { $cursor2 = $main::dbh->prepare(qq{ SELECT syllabusFileName,facultyid FROM faculty_lecture t1 WHERE syllabusFileName IS NOT NULL AND lectureid=? }); $cursor2->execute($ary[3]); my $imageType = ''; while (my @fields = $cursor2->fetchrow_array()) { if ($fields[0] =~ /.pdf/) { $imageType = "PDF Document"; } elsif ($fields[0] =~ /.ppt/ \|\| $fields[0] =~ /.pptx/) { $imageType = "PowerPoint Document"; } else { $imageType = "Word Document"; } print "$ary[2]"; # print ''; } $cursor2->finish(); } # print "	$ary[2]"; # print "$ary[2]"; print " $speaker" if $speaker; print " Location: $ary[6]" if $ary[6]; print "

#include ../../footer_include.iphtml