[- ($args) = (@param); $folders = &EMU::get_organized_folders(); &EMU::get_message_stat(); # # Don't show sub menu's if the top level is closed # if ($folders && !&EMU::get_menu_setting('main')) { # $folders = ''; # } elsif ($folders) { # # Don't show folders for closed menus # foreach my $f (keys %$folders) { # if (!&EMU::get_menu_setting($f)) { # $folders->{$f} = ''; # } # } # } %sections = (local => 'Local Folders', imap => 'IMAP Folders', mailboxes => 'Mailboxes', other => 'OTHER' ); sub get_menu_img { if ($_[0]) { return 'menu_minus.gif' } else { return 'menu_plus.gif' } } $name = $EMU::userdb{'options.real_name'}; if (defined $EMU::userdb{'options.email'}) { $email = $EMU::userdb{'options.email'}; } else { $email = &EMU::get_var('user_name'); } $now = &EMU::get_date(undef,undef,undef,1); $theme = $args->{theme}; @admins = split(/(,|\s)+/, $EMU::c{admins}); -] [# Open Product Menu #]
[$ if ($EMU::c{cal_url}) $]
  E-Mail
  Calendar
[$ endif $] [# Close Product Menu #]
 
[$ if (ref $folders) $]
[- $cnt = 1; -] [$ foreach $t (qw/local imap mailboxes/) $] [$ if (exists $folders->{$t}) $] [$ foreach $f ( sort { lc($a) cmp lc ($b) } keys %{$folders->{$t}} ) $] [+ $f =~ s/(.{22})/$1
/ig; $f +]

[$ endforeach $]
[- $cnt++; -] [$ endif $] [$ endforeach $]
[$ endif $]
 
  Help
  Logout