#include ../header.iphtml remote_user(); my $SQL = <prepare($SQL); $cursor->execute; @fields = $cursor->fetchrow; $cursor->finish; if (!$fields[0] && $username ne "2222222") { $committee = 0; $SQL = "SELECT member_id FROM mysql_auth WHERE username = '$username'"; my $cursor = $main::dbh->prepare($SQL); $cursor->execute; undef(@fields); @fields = $cursor->fetchrow; $cursor->finish; if ($fields[0]) { $SQL = "SELECT facultyid FROM faculty_lecture WHERE facultyid = $fields[0] LIMIT 1"; my $cursor = $main::dbh->prepare($SQL); $cursor->execute; undef(@fields); @fields = $cursor->fetchrow; $cursor->finish; $facultyid = $fields[0]; } } if ($facultyid) { $SQL = "SELECT DATE_FORMAT(lecture_date,'%W, %M %e, %Y'), new_lecture.lecture, new_lecture.lectureid FROM new_lecture, faculty_lecture WHERE new_lecture.lectureid=faculty_lecture.lectureid AND committeeid=$meeting_no AND (excellent+good+fair+poor+n_a) > 0 AND faculty_lecture.facultyid=$fields[0] GROUP BY new_lecture.lectureid ORDER BY lecture_date, start_time, new_lecture.lectureid"; } else { $SQL = "SELECT DATE_FORMAT(lecture_date,'%W, %M %e, %Y'), new_lecture.lecture, new_lecture.lectureid, max(excellent+good+fair+poor+n_a) FROM new_lecture, objective WHERE new_lecture.lectureid=objective.lectureid AND committeeid=$meeting_no AND (excellent+good+fair+poor+n_a) > 0 GROUP BY new_lecture.lectureid ORDER BY lecture_date, start_time, new_lecture.lectureid"; } if ($committee || $facultyid) { $cursor = $main::dbh->prepare ("$SQL") || die "Prepare failed: $DBI::errstr\n"; $cursor->execute() || die "Couldn't execut query: $DBI::errstr\n"; print p({-align=>'center'},"PROGRAM TOPICS"); # print p({-align=>'center'},"[ ] = # Eval Received"); print hr({-align=>'center',-width=>'105'}); if ($committee) { print p({-align=>'center'},a({-href=>'gen_evaluation_results.iphtml',-target=>'mainFrame'},"General Conference Evaluation Results")); } while (@ary = $cursor->fetchrow_array()) { if ($dateholder ne $ary[0]) { print ""; print "

$ary[0]

"; print ""; $cursor->finish; } !>