[- $args = shift @param; $theme = $args->{theme}; @subscribed = @{ $args->{folders} }; @folders = grep { $_ ne $EMU::inbox && $_ ne 'Search Results' && !$EMU::userdb{"folder:$_:external"} } &EMU::get_folders(1); ($i_total, $i_unread, $i_read, $i_answered, $i_size) = &EMU::get_folder_msginfo('INBOX'); $i_size = &EMU::get_size($size) if ($size); $i_total = &EMU::commas($i_total) if ($i_total); $i_unread = &EMU::commas($i_unread) if ($i_unread); -] [+ $EMU::c{publisher_name} +] - Folder Manager [# Open Header #] [- &Execute("$args->{DOCROOT}/header.html", $args) -] [# Close Header #]
 
[# Open Toolbar #] [- &Execute("$args->{DOCROOT}/toolbar.html", $args) -] [# Close Toolbar #]
Folder Manager
[$ if (&EMU::get_status()) $]
[+ &EMU::get_status() +]
[$ endif $]
[$ if (@folders) $] [$ endif $] [$ if (@folders) $] [$ endif $]
[$ if (@folders) $] [- $i = 0 -] [$ foreach $f (@folders) $] [- ($total, $unread, undef, undef, $size) = &EMU::get_folder_msginfo($f); $proto = ucfirst(&EMU::get_folder_protocol($f)); $subscribed=(grep($_ eq $f, @subscribed))?1:0; ($safef = $f) =~ s/'/\\'/g; $size = &EMU::get_size($size) if ($size); $total = &EMU::commas($total) if ($total); $unread = &EMU::commas($unread) if ($unread); -] [$ endforeach $]
Folder Name Subscribed? Type Total Unread Size
[+ CGI::escapeHTML($f) +] [$ if ($subscribed) $] Currently Subscribed [$ else $]   [$ endif $] [+ $proto +] [+ $total || 0 +] [+ $unread || 0 +] [+ $size || 0 +]
[$ else $]

Your Folder list is empty
 


  [$ endif $]
[$ if (@folders) $] [$ endif $] [$ if (@folders) $] [$ endif $]