[- $args = shift @param; $theme = $args->{theme}; @folders = @{ $args->{folders} }; push(@folders, $EMU::msg{'V_FilterTrash'} || 'GARBAGE'); @skins = grep { $_ ne $EMU::c{default_skin} } split(/\s+/, $EMU::c{skins}); # Now add the default unshift(@skins, $EMU::c{default_skin}); for $tzk (EMU::Time::Zones::tzkeys()) { push @gmtset, {'desc' => EMU::Time::Zones::tznames($tzk), 'abbr' => $tzk, 'tzabbr' => EMU::Time::Zones::tzabbr($tzk) || EMU::Time::Zones::tzcode($tzk), 'code' => EMU::Time::Zones::tzcode($tzk)}; } -]