Legal Affairs



					Archives %my $totresults = $#articles; %if ($totresults >= 0){ % for ($i = 0; $i <= $totresults; $i++){ % $articles[$i][1] =~ tr /a-z/A-Z/; <%$articles[$i][5]%> <%$articles[$i][1]%> <%$articles[$i][2]%> Read the debate. %} %}

<%init> my $dbh = $m->comp("/legalaffairscomp/database-connect.comp"); my ($sql, $sth, $i,$count); my $matchsql; my @articles; my @temp = (); # temporary array for each fetch of TABLE data $sql = "SELECT id,title,subtitle,slug,DATE_FORMAT(published,\"%m%y\"),DATE_FORMAT(published,\"%m.%d.%y\") FROM debatec WHERE published IS NOT NULL ORDER BY published DESC"; $sth = $dbh->prepare($sql); $sth->execute; while (@temp = $sth->fetchrow_array ()){ push @articles, [@temp]; #add each array reference to the array }