#include ../header.iphtml #include ../header_include.iphtml

prepare(qq{ SELECT 1 FROM member t1, faculty_lecture t2 WHERE t1.member_id = t2.facultyid AND presenter=0 AND t2.meetingid = ? LIMIT 1 }); $cursor->execute($meeting_no); undef(@ary); @ary = $cursor->fetchrow(); $cursor->finish(); if (!scalar @ary) { print p("Currently there are no faculty available for display. Please check back later."); return; } $cursor = $main::dbh->prepare(qq{ SELECT LEFT(UCASE(lname),1) FROM member t1, faculty_lecture t2 WHERE t1.member_id = t2.facultyid AND presenter=0 AND t2.meetingid = ? GROUP BY LEFT(lname,1) ORDER BY lname }); $cursor->execute($meeting_no); !>

Click on the faculty person's name to display session and disclosure information. Re-click to close session information. Please note that some faculty may not have session information.

Click here for Board of Directors and Education Committee Disclosures

fetchrow_array()) { $firstletter = "$ary[0]" if !$firstletter; print ''.$ary[0].''; } $cursor->finish(); !>

prepare(qq{ SELECT DISTINCT UCASE(lname),CONCAT_WS(' ',fname,m_initial,title),degree,hospital,t1.member_id,hospital_citystate,t1.photoFile FROM member t1, faculty_lecture t2 WHERE t1.member_id = t2.facultyid AND presenter=0 AND t2.meetingid=? AND LEFT(UCASE(lname),1)=? ORDER BY lname, fname }); $cursor->execute($meeting_no, $firstletter); my $profile_pic = ''; while (@ary = $cursor->fetchrow_array()) { if ($ary[6] && !$ary[7]) { $profile_pic = ''; } else { $profile_pic = ''; } # print '
'; print '
'; print '
'. $profile_pic.'
'; print '
'.$ary[0].', '.$ary[1].'
'; print '
'.$ary[2].'
' if $ary[2]; print '
'.$ary[3].'
' if $ary[3]; print '
'.$ary[5].'
' if $ary[5]; print '
'; my $cursor2 = $main::dbh->prepare(qq{ SELECT DATE_FORMAT(lecture_date,'%W, %M %e, %Y'), TIME_FORMAT(t1.start_time,'%l:%i %p'),lecture,t1.lectureid,main_topic,t1.facultyid,room,TIME_FORMAT(t1.end_time,'%l:%i %p'),disclosure FROM new_lecture t1, faculty_lecture t2 WHERE t1.lectureid=t2.lectureid AND main_topic=0 AND presenter=0 AND t1.committeeid=? AND t2.facultyid=? ORDER BY lecture_date, start_time, t1.facultyid,main_topic }); $cursor2->execute($meeting_no, $ary[4]); my ($dateholder,$started,$disclosure) = 0; print "
"; COMPLETE: while (my @fields = $cursor2->fetchrow_array()) { print '
'; if ($dateholder ne $fields[0]) { print "

$fields[0]

"; $dateholder = $fields[0]; } print '
'; if ($fields[4] eq "1") { print '
'.$fields[2].'
'; next COMPLETE; } print '
'.$fields[1]; print " - $fields[7]" if $fields[7]; print '
'; print '
'.$fields[2].'
'; print "
Location: "; if (!$fields[6]) { print "Currently Unavailable"; } else { print "$fields[6]"; } print "
"; print "
"; print "
"; $disclosure = $fields[8]; } $cursor2->finish(); $cursor2 = $main::dbh->prepare(qq{ SELECT financialRelations,discussUnlabeled,DATE_FORMAT(disclosureUpdated,'%M %e, %Y %r') FROM member WHERE member_id=? LIMIT 1 }); $cursor2->execute($ary[4]); undef(@fields); @fields = $cursor2->fetchrow; $cursor2->finish(); print '
'; print '

Disclosure Information'; print "
As of $fields[2]" if $fields[2]; print '

'; print '
'; # if (!$disclosure) # { # print '
No disclosure statement submitted.
'; # } # else # { if (!$fields[0]) { print '
Nothing to Disclose
'; } else { $cursor2 = $main::dbh->prepare(qq{ SELECT disclosureID,company FROM disclosures WHERE memberID=? ORDER BY company }); $cursor2->execute($ary[4]); undef(@fields); print '
    '; while (@fields = $cursor2->fetchrow_array()) { print "
  • $fields[1] - "; my $cursor3 = $main::dbh->prepare(qq{ SELECT disclosureType FROM member_disclosure_role t1, disclosureTypes t2 WHERE t1.disclosureTypeID=t2.disclosureTypeID AND t1.disclosureID=? ORDER BY disclosureType }); $cursor3->execute($fields[0]); while (my @fields2 = $cursor3->fetchrow_array()) { print "$fields2[0]; "; } print "
    • "; $cursor3->finish(); } print '
'; $cursor2->finish(); } # } print '
'; print "
"; print "
"; # print '
'; } $cursor->finish(); !>
#include ../footer_include.iphtml