--- loncom/interface/lonmenu.pm 2012/05/28 13:09:16 1.378
+++ loncom/interface/lonmenu.pm 2012/05/29 16:25:53 1.380
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.378 2012/05/28 13:09:16 raeburn Exp $
+# $Id: lonmenu.pm,v 1.380 2012/05/29 16:25:53 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -402,8 +402,12 @@ sub secondary_menu {
sub create_submenu {
my ($link,$target,$title,$submenu) = @_;
return unless (ref($submenu) eq 'ARRAY');
+ my $disptarget;
+ if ($target ne '') {
+ $disptarget = ' target="'.$target.'"';
+ }
my $menu = '
'.
- ''.
+ ''.
''.&mt($title).
''.
' ▼'.
@@ -1810,9 +1814,10 @@ sub countdown_timer {
($env{'request.filename'}=~/$LONCAPA::assess_re/) &&
($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {
my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
- if ($duedate && $duedate > time) {
- my ($collapse,$expand,$title,$currdisp);
- my @interval=&Apache::lonnet::EXT("resource.0.interval");
+ my @interval=&Apache::lonnet::EXT("resource.0.interval");
+ if (($duedate && $duedate > time) ||
+ (!$duedate && @interval > 1)) {
+ my ($collapse,$expand,$alttxt,$title,$currdisp);
if (@interval > 1) {
$currdisp = 'inline';
$collapse = '► ';
@@ -1821,7 +1826,8 @@ sub countdown_timer {
$expand = '◄ ';
}
unless ($env{'environment.icons'} eq 'iconsonly') {
- $title = &mt('Timer');
+ $alttxt = &mt('Timer');
+ $title = $alttxt.' ';
}
my $desc = &mt('Countdown to due date/time');
return <