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

Diff for /loncom/interface/lonmenu.pm between versions 1.124 and 1.126

version 1.124, 2004/11/11 18:43:25 version 1.126, 2004/11/11 20:05:56
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(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}));
     my $escsymb=&Apache::lonnet::escape($ENV{'request.symb'});      my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::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=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri));
       my $cursymb=&Apache::lonenc::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 980  NAVCONTROL Line 981  NAVCONTROL
 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=&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'});
     my $currentsymb=$ENV{'request.symb'};      
       my $currentsymb=&Apache::lonenc::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.124  
changed lines
  Added in v.1.126

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