% my $pgtitle = $CNTNT[4]; % $pgtitle =~ s///g; % $pgtitle =~ s/<\/i>//g; Legal Affairs Debate Club - <%$pgtitle%>
Legal Affairs
space
space
% my ($week,$mins) = split(",",$Mrelated[0][2]); Debate Club
DEBATE CLUB <%$week%>

%my $algn = "left"; %if ($totrl >= 0){ % for ($i = 0; $i <= $totrl; $i++){ % if ($algn eq "left"){ % $algn = "right"; % } else { % $algn = "left"; % } % } %} %if ($totrl2 >= 0){ % for ($i = 0; $i <= $totrl2; $i++){ % if ($algn eq "left"){ % $algn = "right"; % } else { % $algn = "left"; % } % } %} %if ($totrl3 >= 0){ % for ($i = 0; $i <= $totrl3; $i++){ % if ($algn eq "left"){ % $algn = "right"; % } else { % $algn = "left"; % } % } %} %if ($totrl4 >= 0){ % for ($i = 0; $i <= $totrl4; $i++){ % if ($algn eq "left"){ % $algn = "right"; % } else { % $algn = "left"; % } % } %} %if ($totrl5 >= 0){ % for ($i = 0; $i <= $totrl5; $i++){ % if ($algn eq "left"){ % $algn = "right"; % } else { % $algn = "left"; % } % } %}
<%$CNTNT[4]%>

<%$CNTNT[5]%>

This Week's Entries: <%$daylink%>

<%$CNTNT[6]%>

<%$CNTNT[7]%>

<%$Mrelated[$i][1]%>: <%$Mrelated[$i][2]%>
<%$Mrelated[$i][3]%>

<%$Mrelated[$i][1]%>: <%$Mrelated[$i][2]%>
<%$Mrelated[$i][3]%>

This Week's Entries: <%$daylink%>

<%$Trelated[$i][1]%>: <%$Trelated[$i][2]%>
<%$Trelated[$i][3]%>

<%$Trelated[$i][1]%>: <%$Trelated[$i][2]%>
<%$Trelated[$i][3]%>

This Week's Entries: <%$daylink%>

<%$Wrelated[$i][1]%>: <%$Wrelated[$i][2]%>
<%$Wrelated[$i][3]%>

<%$Wrelated[$i][1]%>: <%$Wrelated[$i][2]%>
<%$Wrelated[$i][3]%>

This Week's Entries: <%$daylink%>

<%$THrelated[$i][1]%>: <%$THrelated[$i][2]%>
<%$THrelated[$i][3]%>

<%$THrelated[$i][1]%>: <%$THrelated[$i][2]%>
<%$THrelated[$i][3]%>

This Week's Entries: <%$daylink%>

<%$Frelated[$i][1]%>: <%$Frelated[$i][2]%>
<%$Frelated[$i][3]%>

<%$Frelated[$i][1]%>: <%$Frelated[$i][2]%>
<%$Frelated[$i][3]%>

This Week's Entries: <%$daylink%>

space
<%args> $id=>"" <%init> my $dbh = $m->comp("/legalaffairscomp/database-connect.comp"); my ($sql, $sth,$i); my @CNTNT; # content table (data depends on which c table is loaded/current template) my @Mrelated; # related stories table my @Trelated; # related stories table my @Wrelated; # related stories table my @THrelated; # related stories table my @Frelated; # related stories table my @temp; my @Ttemp; my @Wtemp; my @THtemp; my @Ftemp; # get data on the fs entry being edited $sql = "SELECT * FROM debatec WHERE id = $id"; $sth = $dbh->prepare($sql); $sth->execute; @CNTNT = $sth->fetchrow_array; # get Monday $sql = "SELECT id,author,DATE_FORMAT(published,\"%c/%e/%y, %h:%i %p\"),copy,DATE_FORMAT(published,\"%W\") from dc_entries where (dcid=$id AND published IS NOT NULL AND DATE_FORMAT(published,\"%W\") = 'Monday') ORDER BY published"; $sth = $dbh->prepare($sql); $sth->execute; while (@temp = $sth->fetchrow_array ()){ push @Mrelated, [@temp]; #add each array reference to the news array } # get Tuesday $sql = "SELECT id,author,DATE_FORMAT(published,\"%c/%e/%y, %h:%i %p\"),copy,DATE_FORMAT(published,\"%W\") from dc_entries where (dcid=$id AND published IS NOT NULL AND DATE_FORMAT(published,\"%W\") = 'Tuesday') ORDER BY published"; $sth = $dbh->prepare($sql); $sth->execute; while (@Ttemp = $sth->fetchrow_array ()){ push @Trelated, [@Ttemp]; #add each array reference to the news array } # get Wednesday $sql = "SELECT id,author,DATE_FORMAT(published,\"%c/%e/%y, %h:%i %p\"),copy,DATE_FORMAT(published,\"%W\") from dc_entries where (dcid=$id AND published IS NOT NULL AND DATE_FORMAT(published,\"%W\") = 'Wednesday') ORDER BY published"; $sth = $dbh->prepare($sql); $sth->execute; while (@Wtemp = $sth->fetchrow_array ()){ push @Wrelated, [@Wtemp]; #add each array reference to the news array } # get Thursday $sql = "SELECT id,author,DATE_FORMAT(published,\"%c/%e/%y, %h:%i %p\"),copy,DATE_FORMAT(published,\"%W\") from dc_entries where (dcid=$id AND published IS NOT NULL AND DATE_FORMAT(published,\"%W\") = 'Thursday') ORDER BY published"; $sth = $dbh->prepare($sql); $sth->execute; while (@THtemp = $sth->fetchrow_array ()){ push @THrelated, [@THtemp]; #add each array reference to the news array } # get Friday $sql = "SELECT id,author,DATE_FORMAT(published,\"%c/%e/%y, %h:%i %p\"),copy,DATE_FORMAT(published,\"%W\") from dc_entries where (dcid=$id AND published IS NOT NULL AND DATE_FORMAT(published,\"%W\") = 'Friday') ORDER BY published"; $sth = $dbh->prepare($sql); $sth->execute; while (@Ftemp = $sth->fetchrow_array ()){ push @Frelated, [@Ftemp]; #add each array reference to the news array } my $totrl = $#Mrelated; my $totrl2 = $#Trelated; my $totrl3 = $#Wrelated; my $totrl4 = $#THrelated; my $totrl5 = $#Frelated; my $daylink = "Monday"; if ($totrl2 >= 0){ $daylink .= " | Tuesday"; } if ($totrl3 >= 0){ $daylink .= " | Wednesday"; } if ($totrl4 >= 0){ $daylink .= " | Thursday"; } if ($totrl5 >= 0){ $daylink .= " | Friday"; }