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

Faculty & Disclosures

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(); if (!scalar @ary) { print p("Currently there are no faculty available for display. Please check back later."); return; } # SELECT LEFT(UCASE(lname),1) FROM member t1, registrants t2 LEFT JOIN reg_type t3 ON t2.regtype_id=t3.regtype_id WHERE t1.member_id = t2.member_id AND cancelled IS NULL AND reg_type LIKE '%faculty%' AND t2.meeting_no = ? GROUP BY LEFT(lname,1) ORDER BY lname $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) || die "Couldn't execute query: $DBI::errstr\n"; print p("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."); print '
'; # SELECT DISTINCT LEFT(UCASE(lname),1),CONCAT_WS(' ',fname,m_initial,lname,title),degree,hospital,t1.member_id,hospital_citystate FROM member t1, registrants t2 LEFT JOIN reg_type t3 ON t2.regtype_id=t3.regtype_id WHERE t1.member_id = t2.member_id AND reg_type LIKE '%faculty%' AND t2.meeting_no=? ORDER BY lname, fname $cursor = $main::dbh->prepare(qq{ SELECT DISTINCT LEFT(UCASE(lname),1),CONCAT_WS(' ',fname,m_initial,lname,title),degree,hospital,t1.member_id,hospital_citystate FROM member t1, faculty_lecture t2 WHERE t1.member_id = t2.facultyid AND presenter=0 AND t2.meetingid=? ORDER BY lname, fname }); $cursor->execute($meeting_no) || die "Couldn't execute query: $DBI::errstr\n"; my $firstletter = ''; my $firstload = 1; while (@ary = $cursor->fetchrow_array()) { if ($firstletter ne $ary[0]) { print "
\n" if !$firstload; print <

$ary[0]

EOF $firstletter = $ary[0]; $firstload = 0; } print '
'.$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 "
"; } $cursor->finish(); print "
"; print "\n"; print "\n"; !> #include ../footer_include.iphtml