[- ($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 #]