--- loncom/interface/lonmenu.pm 2022/07/08 16:08:05 1.369.2.83.2.4 +++ loncom/interface/lonmenu.pm 2016/03/15 14:25:26 1.440 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.369.2.83.2.4 2022/07/08 16:08:05 raeburn Exp $ +# $Id: lonmenu.pm,v 1.440 2016/03/15 14:25:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -99,7 +99,7 @@ It gets filled in the BEGIN block of thi =over -=item prep_menuitems(\@menuitem,$target,$listclass,$linkattr) +=item prep_menuitems(\@menuitem) This routine wraps a menuitem in proper HTML. It is used by primary_menu() and secondary_menu(). @@ -118,72 +118,47 @@ Same as primary_menu() but operates on @ =item create_submenu() -Creates XHTML for unordered list of sub-menu items which belong to a +Creates XHTML for unordered list of sub-menu items which belong to a particular top-level menu item. Uses hover pseudo class in css to display -dropdown list when mouse hovers over top-level item. Support for IE6 +dropdown list when mouse hovers over top-level item. Support for IE6 (no hover psuedo class) via LC_hoverable class for
'; + . $title . ' '; $menu .= '
$link
-ENDREMOTEFORM -} - -sub get_menu_name { - my $hostid = $Apache::lonnet::perlvar{'lonHostID'}; - $hostid =~ s/\W//g; - return 'LCmenu'.$hostid; -} - - -sub reopenmenu { - unless ($env{'environment.remote'} eq 'on') { return ''; } - my $menuname = &get_menu_name(); - my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); - return('window.open('.$nothing.',"'.$menuname.'","",false);'); -} - - -sub open { - my $returnval=''; - unless ($env{'environment.remote'} eq 'on') { - return - ''; - } - my $menuname = &get_menu_name(); - -# unless (shift eq 'unix') { -# resizing does not work on linux because of virtual desktop sizes -# $returnval.=(<'; - if ($type eq 'map') { - $lt{'miss'} .= &mt('Submissions are missing for [quant,_1,question part,question parts] in this folder.',$missing); - } else { - $lt{'miss'} .= &mt('Submissions are missing for [quant,_1,part] in this question.',$missing); - } - if ($missing > 1) { - $lt{'miss'} .= ' '.&mt('If you confirm you are done you will be unable to submit answers for them.').''; - } else { - $lt{'miss'} .= ' '.&mt('If you confirm you are done you will be unable to submit an answer for it.').'
'; - } - } - $donebuttontext = &HTML::Entities::encode($donebuttontext,'<>&"'); - if ($proctor) { - if ($height !~ /^\d+$/) { - $height = 400; - if ($missing) { - $height += 60; - } - } - if ($width !~ /^\d+$/) { - $width = 400; - if ($missing) { - $width += 60; - } - } - return <$lt{'preamble'} $lt{$type}
- $lt{'miss'}$lt{'proctor'}
- @@ -2453,8 +1636,8 @@ sub done_button_js { click: function() { var proctorkey = \$( '[name="LC_interval_done_proctorkey"]' )[0].value; if ((proctorkey == '') || (proctorkey == null)) { - alert("$lt{'nokey'}"); - } else { + alert("$lt{'nokey'}"); + } else { \$( '[name="LC_interval_done"]' )[0].value = 'true'; \$( '[name="LC_interval_done_proctorpass"]' )[0].value = proctorkey; \$( '[name="LCdoneButton"]' )[0].submit(); @@ -2484,32 +1667,22 @@ sub done_button_js { END - } else { - if ($height !~ /^\d+$/) { - $height = 320; - if ($missing) { - $height += 60; + } else { + if ($height !~ /^\d+$/) { + $height = 320; } - } - if ($width !~ /^\d+$/) { - $width = 320; - if ($missing) { - $width += 60; + if ($width !~ /^\d+$/) { + $width = 320; } - } - if ($missing) { - $lt{'miss'} = ''.$lt{'miss'}.'';
- }
- return < $lt{'preamble'} $lt{$type} $lt{'miss'} $lt{'okdone'} $lt{'cancel'} $lt{'preamble'} $lt{$type} $lt{'okdone'} $lt{'cancel'}