--- loncom/interface/lonmenu.pm 2003/04/04 19:35:04 1.55 +++ loncom/interface/lonmenu.pm 2003/04/04 21:21:51 1.56 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.55 2003/04/04 19:35:04 www Exp $ +# $Id: lonmenu.pm,v 1.56 2003/04/04 21:21:51 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -45,6 +45,7 @@ use Apache::lonhtmlcommon(); use Apache::loncommon; use Apache::File; use vars qw(@desklines $readdesk); +my @inlineremote; # ============================= This gets called at the top of the body section @@ -143,6 +144,9 @@ sub innerregister { my $textual=($textinter || $noremote); + @inlineremote=(); + undef @inlineremote; + my $reopen=&Apache::lonmenu::reopenmenu(); my $newmail=''; @@ -258,6 +262,8 @@ ENDMENUITEMS # Registered, textual output my $utility=&utilityfunctions(); my $form=&serverform(); + my $inlinebuttons= + join('',map { (defined($_)?$_:'') } @inlineremote); $result =(< // BEGIN LON-CAPA Internal @@ -265,9 +271,7 @@ $utility $timesync $newmail -$buttons -$hwkadd -$editbutton +$inlinebuttons $form