[BACK]Return to lonmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.123 and 1.125

version 1.123, 2004/11/10 16:22:25 version 1.125, 2004/11/11 19:55:44
Line 74  sub menubuttons { Line 74  sub menubuttons {
   
     my $navmaps='';      my $navmaps='';
     my $reloadlink='';      my $reloadlink='';
     my $escurl=&Apache::lonnet::escape($ENV{'request.noversionuri'});      my $escurl=&Apache::lonnet::escape(&check_encrypt($ENV{'request.noversionuri'}));
     my $escsymb=&Apache::lonnet::escape($ENV{'request.symb'});      my $escsymb=&Apache::lonnet::escape(&check_encrypt($ENV{'request.symb'}));
     if ($ENV{'browser.interface'} eq 'textual') {      if ($ENV{'browser.interface'} eq 'textual') {
 # Textual display only  # Textual display only
  my %lt=&initlittle();   my %lt=&initlittle();
Line 473  ENDREGTEXT Line 473  ENDREGTEXT
 # Registered, graphical output  # Registered, graphical output
         } else {          } else {
     my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0];      my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0];
     $requri=&Apache::lonnet::unescape($requri);      $requri=&check_encrypt(&Apache::lonnet::unescape($requri));
       my $cursymb=&check_encrypt($ENV{'request.symb'});
     my $navstatus=&get_nav_status();      my $navstatus=&get_nav_status();
     $result = (<<ENDREGTHIS);      $result = (<<ENDREGTHIS);
             
Line 489  var swmenu=null; Line 490  var swmenu=null;
           $buttons            $buttons
   swmenu.currentURL="$requri";    swmenu.currentURL="$requri";
           swmenu.reloadURL=swmenu.currentURL+window.location.search;            swmenu.reloadURL=swmenu.currentURL+window.location.search;
           swmenu.currentSymb="$ENV{'request.symb'}";            swmenu.currentSymb="$cursymb";
           swmenu.reloadSymb="$ENV{'request.symb'}";            swmenu.reloadSymb="$cursymb";
           swmenu.currentStale=0;            swmenu.currentStale=0;
   $navstatus    $navstatus
           $hwkadd            $hwkadd
Line 885  sub rawconfig { Line 886  sub rawconfig {
             if ($ENV{'request.course.fn'}) {              if ($ENV{'request.course.fn'}) {
                $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);                 $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
     }      }
           } elsif ($pro =~ /^courseenv_(.*)$/) {
               my $key = $1;
               if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$key}) {
                   $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
               }
         } elsif ($pro =~ /^course_(.*)$/) {          } elsif ($pro =~ /^course_(.*)$/) {
             # Check for permissions inside of a course              # Check for permissions inside of a course
             if (($ENV{'request.course.id'}) &&              if (($ENV{'request.course.id'}) &&
Line 972  function gonav(url) { Line 978  function gonav(url) {
 NAVCONTROL  NAVCONTROL
 }  }
   
   sub check_encrypt {
       my $str=shift;
       if ($ENV{'request.enc'}) { return &Apache::lonenc::encrypted($str); }
       return $str;
   }
   
 sub utilityfunctions {  sub utilityfunctions {
     unless (($ENV{'browser.interface'} eq 'textual')  ||      unless (($ENV{'browser.interface'} eq 'textual')  ||
         ($ENV{'environment.remote'} eq 'off')) { return ''; }          ($ENV{'environment.remote'} eq 'off')) { return ''; }
     my $currenturl=$ENV{'request.noversionuri'};      my $currenturl=&check_encrypt($ENV{'request.noversionuri'});
     my $currentsymb=$ENV{'request.symb'};      
       my $currentsymb=&check_encrypt($ENV{'request.symb'});
     my $nav_control=&nav_control_js();      my $nav_control=&nav_control_js();
 return (<<ENDUTILITY)  return (<<ENDUTILITY)
   
Removed from v.1.123  
changed lines
  Added in v.1.125

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>