\n};
showMyContacts();
#-----------------
sub showMyContacts {
#-----------------
my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
my $sth2 = $dbh->prepare("select count(*) from studentwd where studnum = ?");
my (%student,%sort,%studname);
my $sth = $dbh->prepare("select * from contactlog where author = ?");
$sth->execute($userid);
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
my $date = $r{date};
my $id = $r{id};
my $studnum = $r{studnum};
# Get Student Name
$sth1->execute( $r{studnum});
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my ($ln,$fn) = $sth1->fetchrow;
$studname{$r{studnum}} = qq{$ln, $fn};
$sort{"$ln$fn$r{studnum}"} = $studnum;
$student{$studnum}{$date}{$id} = $ref;
}
my $first = 1;
foreach my $key ( sort keys %sort ) {
my $studnum = $sort{$key};
if ( $first ) {
print qq{
\n};
print qq{
Name
Action
Date
};
print qq{
Category
Description
\n};
$first = 0;
}
# Loop over this students records by date;
foreach my $date ( sort keys %{ $student{$studnum}} ) {
foreach my $id ( keys %{ $student{$studnum}{$date} } ) {
my %r = %{ $student{$studnum}{$date}{$id} };
print qq{