#!/usr/bin/perl
use Opals::Context;
use Time::localtime;
use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_preference
);
use Opals::Date qw(
    date_parse
    date_text
    date_profileList
);

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi = CGI->new;
my $input = $cgi->Vars();
my ($permission, $cookieList, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'viewNewsEvent.tmpl',
        }
);

    my $tm = localtime;
    my $dateToday = sprintf("%04d-%02d-%02d", $tm->year+1900, ($tm->mon)+1, $tm->mday);


   my ($newsEventList) = listnewsEvent($dbh);
   $template->param(
         newsEventList  => $newsEventList,
         hlpUrl     => Opals::Constant->getHlpUrl('viewNewsEvent'),
         #newsEvent   =>1,
   );

tmpl_write($dbh, $cgi, $cookie, $template); 
#######################################
sub listnewsEvent{
    my ($dbh) = @_;
    my $sql = "select * from  opl_newsEvents where status ='on' "
            . " && (DATE_ADD(expDate,INTERVAL 1 DAY)> now()|| expDate='0000-00-00' || expDate is null) " 
            . "  order by expDate desc";
       
    my $sth = $dbh->prepare($sql);
         $sth->execute();

        my @newsEvent;
        my $href;
        my $p;
        $p=0;
        my @url;
        while (my $rec = $sth->fetchrow_hashref) {
=item Thu, Nov 04, 2010 @ 13:25:17 EDT            
             while ($rec->{'description'} =~ m/(http:\/\/[\w\/\.\_\#\-\~=\?\+\;]+)/g) {
                 $href = $1;
                 $href =~ s/\.$//;
                 $url[$p] = $href;
                 $p++;
            }
            for(my $i=0;$i<scalar @url; $i++  ){
                my $str_sought=$url[$i];
                $str_sought =~s/\?/\\\?/g;                
                $rec->{'description'} =~ s/$str_sought/<a href="$url[$i]">$url[$i]<\/a>/g;

            }
=cut        

            push @newsEvent, $rec;
        }
        $sth->finish;
        return \@newsEvent;
       $sth->finish;
}