Show index.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$selected => 'General'
$message => ''
$doshare => 0
</%args>
% $selected = 'General' if(!$tabsref->{$selected}{dest});
<& /mail/header.mhtml, message => $message, title => "Alphamail Settings" &>
<div class="heading">
Mail Preferences
</div>
<table class="preferences">
<tr class="tabs">
% my $cnt = 0;
% for my $tab (sort { $tabsref->{$a}{sortorder} <=> $tabsref->{$b}{sortorder} } keys %$tabsref) {
% $cnt++;
% if($selected eq $tab) {
<td class="selected">
<% $tab %>
</td>
% } else {
<td class="unselected">
<% hyperlink("/mail/settings/index.html", $tab,
{ selected => $tab }, "unselected") %>
</td>
% }
% }
</tr>
<tr class="panel">
<td colspan="<% $cnt %>">
<& $tabsref->{$selected}{dest}, selected => $selected, doshare => $doshare &>
</td>
</tr>
</table>
<& /mail/footer.mhtml &>
<%once>
use AlphaMail::HTMLHelper qw(hyperlink);
</%once>
<%init>
my $tabsref = {
General => { sortorder => 0,
dest => '/mail/settings/general.mhtml' },
Folders => { sortorder => 1,
dest => '/mail/settings/folders.mhtml' },
Signatures => { sortorder => 2,
dest => '/mail/settings/signatures.mhtml' },
Sharing => { sortorder => 3,
dest => '/mail/settings/share.mhtml' },
};
</%init>
See more files for this project here