\n};
showContacts();
#-----------------
sub showContacts {
#-----------------
my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
my $sth2 = $dbh->prepare("select count(*) from studentwd where studnum = ?");
my $sth3 = $dbh->prepare("select lastname, firstname from staff where userid = ?");
my $sth = $dbh->prepare("select * from contactlog order by author, studnum, cdate desc");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $first = 1;
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
# Get Student Name
$sth1->execute( $r{studnum});
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($ln,$fn) = $sth1->fetchrow;
my $studname = qq{$ln, $fn};
# Get Staff Name
$sth3->execute( $r{author});
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($sln,$sfn) = $sth3->fetchrow;
my $staffname = qq{$sln, $sfn};
if ( $first ) { # print header
print qq{