#!/usr/local/bin/perl

$dot = "../../..";

require("$dot/.BIN/lib/general_subroutine.lib");
require("$dot/.BIN/lib/members_subroutine.lib");
require("$dot/.BIN/setup/core_setup.lib");
require("$dot/.BIN/setup/members_setup.lib");
require("$dot/ssi/public/top_bottom.lib");
require("$dot/ssi/public/html_functions.lib");


$method = $ENV{'REQUEST_METHOD'};
&parseCGI($method,*Form);
&printHeader();

use DBI;
use DBD;

$dotUrl = $Form{'$dotUrl'}; &removeXtraChars(*dotUrl);

#&top($key,$ssi_status,$pageLevel);


#-- Connect to database ---
&connectDB(*dbh,$database,$hostname,$port,$user,$password);

#------------ Build your database statement -----------------------
$statement4count = "SELECT COUNT(*) FROM approvedMember";

#-- Execute statement ---
$current_member_count = &execSTH(*sth,*rv,$dbh,$statement4count);

#------------ Build your database statement -----------------------
$statement = "SELECT * FROM approvedMember ORDER BY memberId DESC";

#-- Execute statement ---
&execSTH(*sth,*rv,$dbh,$statement);



if($rv > 0){
$color{0} = "#FFFFFF";
$color{1} = "#F7F4F4";
$cflag    = 1;
$num      = 0;

print $topPublic;
print "

<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 BGCOLOR=#BBBBBH><TR><TH>
<TABLE WIDTH=550 CELLPADDING=2 CELLSPACING=1 BORDER=0>
<TR BGCOLOR=#F7F4F4>
<TH ALIGN=LEFT VALIGN=TOP COLSPAN=7><font face=verdana size=1>
The Members in the MIFT On-line Database</font></TH></TR>
<TR BGCOLOR=#E0E0E0>
<TH ALIGN=RIGHT VALIGN=TOP><font face=verdana size=1>#</font></TH>
<TH ALIGN=LEFT VALIGN=TOP><font face=verdana size=1>Name</font></TH>
<TH ALIGN=LEFT VALIGN=TOP><font face=verdana size=1>Profession</font></TH>
<TH ALIGN=LEFT VALIGN=TOP><font face=verdana size=1>City</font></TH>
<TH ALIGN=LEFT VALIGN=TOP><font face=verdana size=1>Country</font></TH>
<TH ALIGN=LEFT VALIGN=TOP><font face=verdana size=1>Email</font></TH>
<TH ALIGN=LEFT VALIGN=TOP><font face=verdana size=1>More&nbsp;Info.</font></TH>
</TR>";

while( ($pendingId,
  $memberId,
  $isStudent,
  $profession,
  $countryGrad,
  $univName,
  $yearIntoUniv,
  $nameLast,
  $nameFirst,
  $nameMiddle,
  $credentials,
  $curSpecialty,
  $phoneHome,
  $phoneBus,
  $phoneFax,
  $phoneCell,
  $emailPref,
  $emailOther,
  $addrStreet,
  $addrSuite,
  $addrCity,
  $addrProv,
  $addrCode,
  $addrCountry,
  $websiteURL,
  $isActiveMem,
  $wantActiveMem,
  $statusMember,
  $description,
  $userName,
  $passWord01,
  $pwQuestion,
  $pwAnswer,
  $memTitle,
  $gender,
  $statEmailPref,
  $statEmailOther,
  $miftMsg2Mem,
  $addrFlag,
  $affiliation,
  $timeStampEntered,
  $timeStampUpdated ) =
        $sth->fetchrow_array() ) {

$num++;

if($cflag == 0){$cflag = 1;}
else{$cflag = 0;}

$professionDisp       = $PROFESSION{$profession};
$timeStampEnteredDisp = &getTime($timeStampEntered);
$timeStampUpdatedDisp= &getTime($timeStampUpdated);

#Construct the mail flag#################################
$mailflag_pref = "";
$mailflag_other = "";
if($emailPref){$mailflag_pref .= "1";}
else{$mailflag_pref .= "0";}
if($statEmailPref eq "active"){$mailflag_pref .= "1";}
else{$mailflag_pref .= "0";}
if($emailOther){$mailflag_other .= "1";}
else{$mailflag_other .= "0";}
if($statEmailOther eq "active"){$mailflag_other .= "1";}
else{$mailflag_other .= "0";}
#########################################################


print "<TR BGCOLOR=$color{$cflag}>
<TD ALIGN=RIGHT><font face=verdana size=1>$num</font></TD>
<TD><font face=verdana size=1>$memTitle.&nbsp;$nameFirst&nbsp;$nameLast</font></TD>
<TD><font face=verdana size=1>$professionDisp</font></TD>
<TD><font face=verdana size=1>$addrCity</font></TD>
<TD><font face=verdana size=1>$addrCountry</font></TD>
";

if($mailflag_pref eq "11" || $mailflag_other eq "11") {
   print "<TD align=center><font face=verdana size=1><a href=\"./mail/composeMail.cgi?memberId=$memberId\"><img border=0 src=$dot/image/icon_email.gif></a></font></TD>";
   }
   else{
   print "<TD align=center><font face=verdana size=1>-</font></TD>";
   }

print "
<TD><font face=verdana size=1><a href=\"./cgi/onlineFind.cgi?memberId=$memberId\">$memberId</a></font></TD>
</TR>";

     }

     #-- Disconnect from database ---
     &disConnectDB(*rc,$sth,$dbh);


print "</TABLE></TD></TR></TABLE>";
} #endif

else{
  print "There are no records find here!";
   }

print $bottomPublic;