loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.67, 2003/05/23 13:56:39
+version 1.68, 2003/05/23 21:47:27
  Line 180  sub registerurl {
          ((($ENV{'request.publicaccess'}) ||
           (!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
          (!$forcereg))) {
- 	return $result.
+         my $loadfunction='';
-          '<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;
+         my $unloadfunction='';
+         unless (1 || ($ENV{'browser.interface'} eq 'textual') ||
+                 ($ENV{'environment.remote'} eq 'off') ||
+                 ($ENV{'request.publicaccess'})) {
+ 	    my $reopen=&Apache::lonmenu::reopenmenu();
+ 	    $loadfunction='swmenu='.$reopen.'swmenu.noclient=0;';
+ 	    $unloadfunction='swmenu='.$reopen.'swmenu.noclient=1;';
+         }
+ 	return $result.(<<ENDFUNCTIONS);
+ <script type="text/javascript">
+ function LONCAPAreg() {
+    $loadfunction
+ }
+ function LONCAPAstale() {
+    $unloadfunction
+ }
+ </script>
+ $force_title
+ ENDFUNCTIONS
      }
  # Graphical display after login only
      if ($Apache::lonxml::registered && !$forcereg) { return ''; }