#include ../header.iphtml
<style type="text/css">
<!--
body {
   font-family: Arial, Helvetica, sans-serif;
   font-size: 11px;
}
li {
   font-size: 12px;
   padding: 3px;
   margin-bottom: 5px;
}
a {text-decoration: none}
-->
</style>
<?
my ($dateholder);
my ($facultyid);
my ($committee) = 1;

my $username = $main::cgi->remote_user();

my $SQL = <<EOT;
	  SELECT COUNT(committee_member.member_id)
	  FROM mysql_auth, committee_member
	  WHERE mysql_auth.member_id = committee_member.member_id AND username = "$username" AND (committee_id=1 OR committee_id=5)
EOT
  
$cursor = $main::dbh->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'},"<strong><font size=\"-1\" face=\"Arial, Helvetica, sans-serif\">PROGRAM TOPICS</strong>");

#   print p({-align=>'center'},"[ ] = # Eval Received</font>");
      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 "</ul>";
	    print "<p align=\"center\">$ary[0]</p>";
	    print "<ul>";
	    $dateholder = $ary[0];

	 }

	 if ($committee) {
	    print li(a({-href=>'evaluation_results.iphtml?id=' . $ary[2],-target=>'mainFrame'},$ary[1]) . " [$ary[3]]");
	 } else {
	    print li(a({-href=>'evaluation_results.iphtml?id=' . $ary[2],-target=>'mainFrame'},$ary[1]));
	 }

      }

      print "</ul>";

      $cursor->finish;
   }
!>
</body>
</html>