<p>Choose the folder to import a message from.</p>
<table border="1" cellspacing="0" cellpadding="2">
<tr><th>Folder</th><th>Messages</th></tr>
%	foreach (sort { ($a eq 'INBOX' ? '000': $a) cmp ($b eq 'INBOX' ? '000' : $b) } keys %$FolderList) {
%		next if ($_ =~ /^(Calendar|Contacts|Journal|Notes|Infected Items|Junk E-mail|Deleted Items|Trash)$/);
<tr><td><a href="<%$Page%>?Folder=<%$_%>&amp;<%$querystring%>"><%$_%></td><td style="text-align: right;"><%$FolderList->{$_}%></td></tr>
%	}
</table>
<%INIT>
my %newargs = %ARGS; foreach ('Page', 'FolderList') { delete $newargs{$_}; }
my $querystring = $m->comp ('/Elements/QueryString', %newargs);
</%INIT>
<%ARGS>
$Page => undef
$FolderList => undef
</%ARGS>
