[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

raeburn raeburn at source.lon-capa.org
Sat Dec 22 09:57:20 EST 2012


raeburn		Sat Dec 22 14:57:20 2012 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - Assign the response from &prepare_functions() and &clear() to a scalar 
    when needed.
  - Flexibility in resurl for aboutme page.
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.398 loncom/interface/lonmenu.pm:1.399
--- loncom/interface/lonmenu.pm:1.398	Fri Dec  7 17:15:56 2012
+++ loncom/interface/lonmenu.pm	Sat Dec 22 14:57:20 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.398 2012/12/07 17:15:56 raeburn Exp $
+# $Id: lonmenu.pm,v 1.399 2012/12/22 14:57:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -487,8 +487,7 @@
                 }
                 my $trail;
                 if ($env{'form.folderpath'}) {
-                    my $editbutton =
-                        &prepare_functions($resurl,$forcereg,$group,undef,undef,1);
+                    &prepare_functions($resurl,$forcereg,$group,undef,undef,1);
                     ($trail) =
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                 } else {
@@ -525,7 +524,7 @@
         $editbutton = &prepare_functions($resurl,$forcereg,$group);
     }
     if ($editbutton eq '') {
-        &clear(6,1);
+        $editbutton = &clear(6,1);
     }
 
 #
@@ -860,7 +859,7 @@
                                               $forceedit,$forceview,$forcereg,
                                               $env{'form.title'},$env{'form.suppurl'});
             }
-        } elsif ($resurl !~ m{^adm/($match_domain)/($match_username)/aboutme$}) {
+        } elsif ($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
             if ($env{'request.filename'}) {
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});
                 ($cfile,$home,$switchserver,$forceedit,$forceview) =




More information about the LON-CAPA-cvs mailing list