%# Never call a man a fool; borrow from him.


% if (@lists) {

<&|/l&>Current mailing lists</&>:
<UL>
% foreach my $list (@lists) {
<LI><A HREF="List.html/wws/arc/<% $list %>?Queue=<% $Queue %>"><% $list %></A>
% }
</UL>

% } else {

<&|/l&>This project does not have any mailing lists yet.</&>

% }

<%INIT>
my $Queue = $m->request_args->{'Queue'} || $ARGS{Queue};
my $QueueObj = RT::Queue->new($session{CurrentUser});
$QueueObj->Load($Queue);
my $topic = $QueueObj->OriginObj->CustomFieldValue('UnixName');

our ($Get, $Post);
my $current = $Get->("/lists/$topic");
my @lists;
my $info = "/Foundry/Project/Admin/Forum/List.html/wws/info/";
while ($current =~ m{<A HREF="$info([^"]+)}g) {
    push @lists, $1;
}

</%INIT>
<%ATTR>
Action	=> 'List.html'
Method	=> 'Post'
</%ATTR>
