package SPA_IRPA_Online_main_topics;
my $path = "../../";
my $title = "Evaluation Topics";
!>
#include ../../header.iphtml
#include ../../checkuser.iphtml
=$title!>
my @sessionsID;
my $total_ceu = 0.00;
my $userID = $cookie_uid;
my @sessionsID;
$cursor = $main::dbh->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 '| GENERAL MEETING EVALUATION |
';
print '| GENERAL MEETING EVALUATION FORM (please complete at the conclusion of the meeting) |
';
print " \n";
print " | LECTURE | \n";
print " CME Credit Allocated | \n";
print "
\n";
COMPLETE: while (@ary = $cursor->fetchrow_array()) {
if ($dateholder ne $ary[0]) {
print "| $ary[0] | \n";
print " |
\n";
$dateholder = $ary[0];
}
foreach (@sessionsID) {
if ($_ eq $ary[2]) {
print '| ✓' . $ary[1] . ' | ';
print " ";
if (!$ary[3] && !$ary[5]) {
print em("No Credit Available");
} else {
if ($ary[5]) {
print " $ary[5]";
} else {
print "$ary[3]";
}
}
print " |
\n";
next COMPLETE;
}
}
print "| $ary[1] | ";
print " ";
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 " |
\n";
}
# print '| GENERAL MEETING EVALUATION |
';
# print '| GENERAL MEETING EVALUATION FORM (please complete at the conclusion of the meeting) |
';
print "
\n";
$cursor->finish;
}
!>
#include ../../footer_include.iphtml