param('id'); if (!$meeting_no) { print $cgi->redirect("index.iphtml"); die; } $dbh = DBI->connect ($dsn, $user, $password, { RaiseError => 0, PrintError => 0}) or die "Could not connect to server: $DBI::err ($DBI::errstr)\n"; my $SQL = "SELECT name, meeting.city, meeting.state, meeting.location, MONTHNAME(meeting.start_date), DAYOFMONTH(meeting.start_date), YEAR(meeting.end_date), MONTHNAME(meeting.end_date), DAYOFMONTH(meeting.end_date) FROM meeting WHERE meeting_no = '$meeting_no' AND meeting.workshop_no = 0 AND meeting.breakout_no = 0"; $sth = $dbh->prepare($SQL) || die "Prepare failed: $DBI::errstr\n"; $sth->execute() || die "Couldn't execute query $DBI::errstr\n"; @ary = $sth->fetchrow; $sth->finish; !> #include ../../includes/wp-vos-header.iphtml ' . $ary[0] . '
'; print "$ary[4] $ary[5]"; if ($ary[5] eq $ary[8]) { print ", $ary[6]"; } else { if ($ary[4] eq $ary[7]) { print "-$ary[8], $ary[6]"; } else { print "-$ary[7] $ary[8], $ary[6]"; } } print '
'; print "$ary[3] • $ary[1], $ary[2]

\n"; print p('M = Moderator'); # my $SQL = "SELECT CONCAT(member.lname, ', ',member.fname),registrants.disclosure, DATE_FORMAT(lecture_date, '%a, %b %e, %Y'), TIME_FORMAT(start_time, '%h:%i %p'), lecture, wp, syllabus, registration_id FROM member, registrants, lecture WHERE member.member_id = registrants.member_id AND lecture.facultyid = member.member_id AND meeting_no=$meeting_no AND workshop_no=0 AND committeeid=$meeting_no AND regtype_id=11 ORDER BY lname, fname, lecture_date, start_time, lecture"; my $SQL = "SELECT CONCAT(member.lname, ', ',member.fname),moderator, DATE_FORMAT(lecture_date, '%a, %b %e, %Y'), TIME_FORMAT(start_time, '%h:%i %p'), lecture, wp, disclosure, syllabus, cme FROM member, faculty_lecture, new_lecture WHERE member.member_id = faculty_lecture.facultyid AND faculty_lecture.lectureid = new_lecture.lectureid AND meetingid=$meeting_no ORDER BY lname, fname, lecture_date, start_time, lecture"; $sth = $dbh->prepare($SQL) || die "Prepare failed: $DBI::errstr\n"; $sth->execute() || die "Couldn't execute query: $DBI::errstr\n"; print "\n"; print "\n"; while (my @ary = $sth->fetchrow_array()) { if (2*int($counter/2) == $counter) { print "\n"; } else { print "\n"; } print "\n"; print "\n"; # print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; # print "\n"; # print "\n"; # print "\n"; # print "\n"; print "\n"; $counter++; } print "

Faculty	Moderator	Date	Time	Lecture	Willingness to Participate	Disclosure	Syllabus	CME
$ary[0]	"; if ($ary[1]) { print "M"; } else { print " "; } print "	$ary[1]	$ary[2]	$ary[3]	$ary[4]	"; if ($ary[5]) { print "✓"; } else { print " "; } print "	"; if ($ary[6]) { print "✓"; } else { print " "; } print "	"; if ($ary[7]) { print "✓"; } else { print " "; } print "	"; if ($ary[8]) { print "✓"; } else { print " "; } print "	$ary[5]	$ary[6]	$ary[7]	$ary[8]

\n"; print "Click here to return to VOS Faculty Forms."; $sth->finish; $dbh->disconnect(); } else { print $cgi->redirect("index.iphtml"); die; } !> #include ../../includes/wp-vos-footer.iphtml