\n};
print qq{
$lex{Announcements} \n};
print qq{$lex{'Hover=Full View'} | };
print qq{\n};
print qq{
\n};
# Load Top Announcements
my $acount = 1; # announcement counter;
my $topselect = "where topstay = 1";
my $sth = $dbh->prepare("select * from announce $topselect order by adate desc");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my %topstay = ();
my $first = 1;
while ( my $ref = $sth->fetchrow_hashref ) {
$ref->{atopic} = qq{
*}. $ref->{atopic}; # mark top
my $id = $ref->{id};
$topstay{$id} = 1; # holds records already displayed.
prAnnounce( $ref );
$first = 0;
$acount++;
}
# Rest of Page Announcements
if ( $select ) { $select = 'where '. $select; } # put in 'where'
$sth = $dbh->prepare("select * from announce $select order by adate desc");
$sth->execute;
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
if ( $topstay{ $ref->{id} } ) { next; } # skip if already displayed on top.
prAnnounce( $ref );
$first = 0;
$acount++;
if ( $acount > 10) { last; }
}
if ( $first ) {
print "
$lex{'No Announcements'}
\n";
}
return;
} # end of viewAnnouncements
#-------------
sub prAnnounce {
#-------------
my $ref = shift;
my $date = fmtdate( $ref->{adate} );
my $text = substr( $ref->{adesc}, 0, $textlength );
$text =~ m/(^.+\b)/;
$text = $1;
my $titleattr = $q->escapeHTML( $ref->{adesc} );
print qq{
};
print qq{$ref->{atopic}
$date
\n};
print qq{
$text ...
\n\n};
}
#----------
sub fmtdate {
#----------
my $date = shift;
my ($yr, $mo, $da) = split(/-/, $date);
my $month = $month[$mo];
my $jd = julian_day( split(/-/,$date) );
my $dayindex = day_of_week( $jd )+ 1;
my $day = $dow[$dayindex];
my $rv = "$day, $month $da, $yr";
return $rv;
}