--- loncom/interface/lonmenu.pm 2004/09/18 16:28:35 1.116 +++ loncom/interface/lonmenu.pm 2004/10/29 18:40:40 1.120 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.116 2004/09/18 16:28:35 albertel Exp $ +# $Id: lonmenu.pm,v 1.120 2004/10/29 18:40:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -167,7 +167,7 @@ $utility $reloadlink $navmaps
';
}
+ if ($textual && $const_space) {
+ my $formaction='/priv/'.$uname.'/'.$thisdisfn;
+ $formaction=~s/\/+/\//g;
+ $newmail .= ('');
+ &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
+ }
if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});
$newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
@@ -348,7 +367,7 @@ sub innerregister {
}
}
# Finally, turn the button on or off
- if ($cfile) {
+ if ($cfile && !$const_space) {
$editbutton=&switch
('','',6,1,'cstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");
@@ -359,7 +378,18 @@ sub innerregister {
###
###
# Prepare the rest of the buttons
- my $menuitems=(< $link +ENDREMOTEFORM +} # ================================================================= Reopen menu sub reopenmenu { |