% my $pgtitle = $CNTNT[4]; % $pgtitle =~ s///g; % $pgtitle =~ s/<\/i>//g; Legal Affairs Debate Club - <%$pgtitle%> % my ($week,$mins) = split(",",$Mrelated[0][2]); DEBATE CLUB <%$week%> <%$CNTNT[4]%> <%$CNTNT[5]%> This Week's Entries: <%$daylink%> <%$CNTNT[6]%> <%$CNTNT[7]%> %my $algn = "left"; %if ($totrl >= 0){ % for ($i = 0; $i <= $totrl; $i++){ % if ($algn eq "left"){ <%$Mrelated[$i][1]%>: <%$Mrelated[$i][2]%> <%$Mrelated[$i][3]%> % $algn = "right"; % } else { <%$Mrelated[$i][1]%>: <%$Mrelated[$i][2]%> <%$Mrelated[$i][3]%> % $algn = "left"; % } % } This Week's Entries: <%$daylink%> %} %if ($totrl2 >= 0){ % for ($i = 0; $i <= $totrl2; $i++){ % if ($algn eq "left"){ <%$Trelated[$i][1]%>: <%$Trelated[$i][2]%> <%$Trelated[$i][3]%> % $algn = "right"; % } else { <%$Trelated[$i][1]%>: <%$Trelated[$i][2]%> <%$Trelated[$i][3]%> % $algn = "left"; % } % } This Week's Entries: <%$daylink%> %} %if ($totrl3 >= 0){ % for ($i = 0; $i <= $totrl3; $i++){ % if ($algn eq "left"){ <%$Wrelated[$i][1]%>: <%$Wrelated[$i][2]%> <%$Wrelated[$i][3]%> % $algn = "right"; % } else { <%$Wrelated[$i][1]%>: <%$Wrelated[$i][2]%> <%$Wrelated[$i][3]%> % $algn = "left"; % } % } This Week's Entries: <%$daylink%> %} %if ($totrl4 >= 0){ % for ($i = 0; $i <= $totrl4; $i++){ % if ($algn eq "left"){ <%$THrelated[$i][1]%>: <%$THrelated[$i][2]%> <%$THrelated[$i][3]%> % $algn = "right"; % } else { <%$THrelated[$i][1]%>: <%$THrelated[$i][2]%> <%$THrelated[$i][3]%> % $algn = "left"; % } % } This Week's Entries: <%$daylink%> %} %if ($totrl5 >= 0){ % for ($i = 0; $i <= $totrl5; $i++){ % if ($algn eq "left"){ <%$Frelated[$i][1]%>: <%$Frelated[$i][2]%> <%$Frelated[$i][3]%> % $algn = "right"; % } else { <%$Frelated[$i][1]%>: <%$Frelated[$i][2]%> <%$Frelated[$i][3]%> % $algn = "left"; % } % } This Week's Entries: <%$daylink%> %}