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

prepare(qq{ SELECT COUNT(*) FROM committee_disclosures WHERE YEAR(created)=? }); $cursor->execute($dsplyYr); undef(@ary); @ary = $cursor->fetchrow(); $cursor->finish(); if (!scalar @ary) { print p("$title will be available soon. Please check back later."); $continue = 0; } if ($continue) { print p("Click on the person's name to display disclosure information."); &showFacList($ary[0]); } sub showFacList { my $facCnt = shift; my $curRecord = ''; print '
'; print '
'; my $firstload; foreach(@comm) { $firstload = 1; $firstletter = ''; $curRecord = ''; $cursor = $main::dbh->prepare(qq{ SELECT DISTINCT UCASE(lname),CONCAT_WS(' ',fname,m_initial,title),degree,hospital,m.member_id,IF(hospital_citystate IS NOT NULL,hospital_citystate,CONCAT_WS(', ',mail_city,mail_state,mail_country)),m.photoFile,m.noPhotoMtgGuide,LEFT(UCASE(lname),1),cd.financialRelations,cd.unlabeled,DATE_FORMAT(cd.created,'%M %e, %Y %r'),cd.disclosureID FROM member m, committee_disclosures cd WHERE m.member_id = cd.memberID AND YEAR(cd.created)=? AND committees LIKE '%$_%' ORDER BY lname, fname, cd.created DESC }); $cursor->execute($dsplyYr); @ary = $cursor->fetchrow_array(); $cursor->finish(); if (@ary) { print h3({style=>'margin-bottom:10px'},"$_"); } undef(@ary); $cursor->execute($dsplyYr); my $profile_pic = ''; while (@ary = $cursor->fetchrow_array()) { if ($firstletter ne "$ary[8]") { print "
" if !$firstload; $firstletter = $ary[8]; print <

$firstletter

EOF $firstload = 0; } print <
$ary[0], $ary[1]
EOF print '
'.$ary[2].'
' if $ary[2]; print '
'.$ary[3].'
' if $ary[3]; print '
'.$ary[5].'
' if $ary[5]; print '

'; print "
"; print '

Disclosure Information

'; print '
'; if ($ary[9] eq "no") { print '
Nothing to Disclose
As of '.$ary[11].'
'; } else { my $cursor2 = $main::dbh->prepare(qq{ SELECT relationshipID,company FROM committee_disclosure_company WHERE disclosureID=? ORDER BY company }); $cursor2->execute($ary[12]); undef(@fields); print '
    '; while (@fields = $cursor2->fetchrow_array()) { print "
  • $fields[1] - "; my $cursor3 = $main::dbh->prepare(qq{ SELECT disclosureType FROM committee_disclosure_role t1, disclosureTypes t2 WHERE t1.relationship=t2.disclosureTypeID AND t1.relationshipID=? 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 " " if !$firstload; } !>
#include ../footer_include.iphtml