Show other_folders.html syntax highlighted
% # vim:set syntax=mason:
<& /mail/header.mhtml, title => "Folder Select", folder => 'none' &>
<div class="heading">All Folders</div>
<div class="section">
<table class="folderselector">
<tr>
<%perl>
my $start = 0;
my $count = @$list;
my $max_idx = $#$list;
my $nrows = int($count / 3) + ($count%3 ? 1:0);
my $n;
for($start=0; $start < $nrows; $start++) {
for(my $i=0; $i<3; $i++) {
$n = $start + $nrows*$i;
last if $n > $max_idx;
my $displayname = decode('utf8', $tr->decode($list->[$n]));
$displayname =~ s/^\Q$prefix$separator\E//;
</%perl>
<td>
<% hyperlink($base . '/mail/index.html', $displayname,
{ folder => $list->[$n] }) %>
</td>
% }
</tr><tr>
% }
</tr>
</table>
</div>
<& /mail/footer.mhtml &>
<%init>
my $user = Apache2::SiteControl->getCurrentUser($r);
my $prefs = new AlphaMail::Preferences($user->getUsername(),
$user->getAttribute('mx'), $config);
my ($prefix, $separator) = $config->getFolderPrefix($user);
my $tr = Unicode::IMAPUtf7->new();
my $list;
my $c;
$list = AlphaMail::SessionUtil::getFolderList($r, $user, $config);
</%init>
<%once>
use Encode;
use AlphaMail::HTMLHelper qw(hyperlink);
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
See more files for this project here