#include ../header.iphtml remote_user(); $SQL = <prepare($SQL); $cursor->execute; @fields = $cursor->fetchrow; $cursor->finish; !>


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"; $cursor = $main::dbh->prepare($SQL); $cursor->execute; undef(@fields); @fields = $cursor->fetchrow; $cursor->finish; $facultyid = $fields[0]; } } if (!$committee && !$facultyid) { print "

Sorry, the meeting evaluations results are viewable only by the Scientific Program Committee and Board members.

\n"; print "

SCA Administrative Office

\n"; print "
\n"; } elsif ($committee) { $SQL = <prepare($SQL); $cursor->execute; @fields = $cursor->fetchrow; $cursor->finish; !>

Dear Scientific Program Committee:

Click on the session topic to view the evaluation results for that session. The number inside the brackets [] represents the total number of registrants that evaluated that particular session.



prepare($SQL); $cursor->execute; my %mbr_catagory = ('0' => 'Non-Members:', '1' => 'Members:', ); undef(@fields); while (@fields = $cursor->fetchrow_array()) { print "\n"; print "\n"; print "\n"; } $cursor->finish; print "\n"; print "\n"; print "\n"; # print "\n"; # print "\n"; $SQL = "SELECT mail_state, COUNT(registrants.member_id) AS count FROM registrants, member WHERE registrants.member_id=member.member_id AND meeting_no=$meeting_no AND workshop_no=0 AND breakout_no=0 AND cancelled IS NULL AND mail_country IS NULL GROUP BY mail_state ORDER BY count DESC LIMIT 3"; $cursor = $main::dbh->prepare($SQL); $cursor->execute; undef(@fields); while (@fields = $cursor->fetchrow_array()) { print "\n"; print "\n"; print "\n"; print "\n"; } $cursor->finish; print "\n"; print "\n"; print "\n"; # print "\n"; # print "\n"; $SQL = "SELECT mail_city, COUNT(registrants.member_id) AS count FROM registrants, member WHERE registrants.member_id=member.member_id AND meeting_no=$meeting_no AND workshop_no=0 AND breakout_no=0 AND cancelled IS NULL GROUP BY mail_city ORDER BY count DESC LIMIT 4"; $cursor = $main::dbh->prepare($SQL); $cursor->execute; undef(@fields); while (@fields = $cursor->fetchrow_array()) { print "\n"; print "\n"; print "\n"; print "\n"; } $cursor->finish; print "
REGISTRATION REPORT
 
Total Number of Registrants:
$mbr_catagory{$fields[0]}    $fields[1]

Top 3 States With The Most RegistrantsCOUNT
CITYCOUNT
$fields[0]$fields[1]

Top 4 Cities With The Most RegistrantsCOUNT
CITYCOUNT
$fields[0]$fields[1]
\n"; } elsif ($facultyid) { print "

Dear Program Faculty:

\n"; print "

The evaluation results for the lectures you participated in are listed on the left. Click on the lecture topic to view the evaluation results.

\n"; print "\n"; # } } !>