#include ../../header.iphtml #include ../../checkuser.iphtml

prepare(qq{ SELECT sessionID FROM meeting_evaluated WHERE meetingID=? AND memberID=? }); $cursor->execute($meeting_no, $userID) || die "Couldn't execut query: $DBI::errstr\n"; undef(@ary); while (@ary = $cursor->fetchrow_array()) { push @sessionsID, $ary[0]; } $cursor->finish; my $SQL = ""; # -- date time order if ($fullcourse) { $SQL = "SELECT DATE_FORMAT(lecture_date,'%W, %M %e, %Y'), lecture, lectureid, non_pharm, TIME_FORMAT(start_time,'%h:%i %p'),pharm,room FROM new_lecture WHERE committeeid=$meeting_no AND eval_main_topic=1 ORDER BY lecture_date, start_time, lectureid"; } else { $SQL = "SELECT DATE_FORMAT(lecture_date,'%W, %M %e, %Y'), lecture, lectureid, non_pharm, TIME_FORMAT(t1.start_time,'%h:%i %p'),pharm,room FROM new_lecture t1, registrants t2 WHERE t1.committeeid=t2.meeting_no AND t1.room=t2.workshop_no AND committeeid=$meeting_no AND eval_main_topic=1 AND t2.member_id=$userID ORDER BY lecture_date, t1.start_time, lectureid"; } $cursor = $main::dbh->prepare (qq{$SQL}); $cursor->execute() || die "Couldn't execute query: $DBI::errstr\n"; print hr; if ($system == "0" && $testing == "0") { print '

The ' . $mtg_name . ' evaluations are closed. You may still submit your Verification of Participation (VOP) form and print your CME certificate.

'; } else { print p('Complete the evaluation form by clicking on the link for each lecture that you purchased. Lectures that are preceded with a check mark () have already been evaluated. You will receive the allocated CME credit for each completed evaluation form.'); print "\n"; print ''; print ''; print " \n"; print " \n"; print " \n"; print " \n"; COMPLETE: while (@ary = $cursor->fetchrow_array()) { if ($dateholder ne $ary[0]) { print "\n"; print " \n"; $dateholder = $ary[0]; } foreach (@sessionsID) { if ($_ eq $ary[2]) { print ''; print " \n"; next COMPLETE; } } print ""; print " \n"; } # print ''; # print ''; print "
GENERAL MEETING EVALUATION
GENERAL MEETING EVALUATION FORM (please complete at the conclusion of the meeting)
LECTURECME Credit Allocated
$ary[0] 
' . $ary[1] . '"; if (!$ary[3] && !$ary[5]) { print em("No Credit Available"); } else { if ($ary[5]) { print " $ary[5]"; } else { print "$ary[3]"; } } print "
$ary[1]"; if (!$ary[3] && !$ary[5]) { print em("No Credit Available") if (!$ary[3]); } else { if ($ary[5]) { print " $ary[5]"; } else { print "$ary[3]"; } } print "
GENERAL MEETING EVALUATION
GENERAL MEETING EVALUATION FORM (please complete at the conclusion of the meeting)
\n"; $cursor->finish; } !> #include ../../footer_include.iphtml