%# Never call a man a fool; borrow from him.
% if (@lists) {
<&|/l&>Current mailing lists&>:
% }
<%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 $admin = "/Foundry/Project/Admin/Forum/List.html/wws/info/";
while ($current =~ m{
<%ATTR>
Action => 'List.html'
Method => 'Post'
%ATTR>