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

Diff for /loncom/interface/lonmenu.pm between versions 1.45 and 1.51

version 1.45, 2003/03/03 13:03:58 version 1.51, 2003/04/03 14:44:01
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (TeX Conversion Module  
 #  #
 # 05/29/00,05/30 Gerd Kortemeyer)  # There are two parameters controlling the action of this module:
   #
   # browser.interface - if this is 'textual', it overrides the second parameter
   # and goes to screen reader PDA mode
   #
   # environment.remote - if this is 'on', the routines controll the remote
   # control, otherwise they render the main window controls; ignored it
   # browser.interface is 'textual'
 #  #
 # 10/05,05/28,05/30,06/01,06/08,06/09,07/04,08/07 Gerd Kortemeyer  
 # 02/15/02 Matthew Hall  
   
 package Apache::lonmenu;  package Apache::lonmenu;
   
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
   use Apache::lonhtmlcommon();
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::File;  use Apache::File;
 use vars qw(@desklines $readdesk);  use vars qw(@desklines $readdesk);
Line 47  sub menubuttons { Line 52  sub menubuttons {
     my $forcereg=shift;      my $forcereg=shift;
     my $target  =shift;      my $target  =shift;
     my $registration=shift;      my $registration=shift;
     unless ($ENV{'browser.interface'} eq 'textual') { return ''; }      if ($ENV{'browser.interface'} eq 'textual') {
 # Textual display only  # Textual display only
     my $output=(<<ENDMAINMENU);   my $output=(<<ENDMAINMENU);
 <script>  <script>
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 </script>  </script>
Line 58  sub menubuttons { Line 63  sub menubuttons {
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
 ENDMAINMENU  ENDMAINMENU
     if ($registration) { $output.=&innerregister($forcereg,$target); }          if ($registration) { $output.=&innerregister($forcereg,$target); }
     return $output."<hr />";   return $output."<hr />";
       } elsif ($ENV{'environment.remote'} eq 'off') {
   # Remote Control is switched off
    my $output=(<<ENDINLINEMENU);
   <script>
   // BEGIN LON-CAPA Internal
   </script>
   <a href="/adm/menu" target="_top">Main Menu</a>
   <a href="/adm/remote?action=launch" target="_top">Launch Remote Control</a>
   <script>
   // END LON-CAPA Internal
   </script>
   ENDINLINEMENU
           if ($registration) { $output.=&innerregister($forcereg,$target); }
    return $output."<hr />";
       } else {
    return '';
       }
 }  }
   
 # ====================================== This gets called in the header section  # ====================================== This gets called in the header section
Line 98  sub innerregister { Line 120  sub innerregister {
   
     $Apache::lonxml::registered=1;      $Apache::lonxml::registered=1;
   
     my $textual=($ENV{'browser.interface'} eq 'textual');      my $textinter=($ENV{'browser.interface'} eq 'textual');
       my $noremote=($ENV{'environment.remote'} eq 'off');
       
       my $textual=($textinter || $noremote);
   
     my $reopen=&Apache::lonmenu::reopenmenu();      my $reopen=&Apache::lonmenu::reopenmenu();
   
     my $newmail='';      my $newmail='';
Line 245  var swmenu=null; Line 271  var swmenu=null;
           $newmail            $newmail
           $buttons            $buttons
   swmenu.currentURL=window.location.pathname;    swmenu.currentURL=window.location.pathname;
           swmenu.reloadURL=window.location.pathname;            swmenu.reloadURL=window.location.pathname+window.location.search;
           swmenu.currentSymb="$ENV{'request.symb'}";            swmenu.currentSymb="$ENV{'request.symb'}";
           swmenu.reloadSymb="$ENV{'request.symb'}";            swmenu.reloadSymb="$ENV{'request.symb'}";
           swmenu.currentStale=0;            swmenu.currentStale=0;
Line 330  sub unloadevents() { Line 356  sub unloadevents() {
   
 sub startupremote {  sub startupremote {
     my ($lowerurl)=@_;      my ($lowerurl)=@_;
     if ($ENV{'browser.interface'} eq 'textual') {      if (($ENV{'browser.interface'} eq 'textual') ||
           ($ENV{'environment.remote'} eq 'off')) {
      return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');       return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
     }      }
   #
   # The Remote actually gets launched!
   #
     my $configmenu=&rawconfig();      my $configmenu=&rawconfig();
     return(<<ENDREMOTESTARTUP);      return(<<ENDREMOTESTARTUP);
 <script>  <script>
Line 391  ENDSETFLAGS Line 421  ENDSETFLAGS
 }  }
   
 sub maincall() {  sub maincall() {
     if ($ENV{'browser.interface'} eq 'textual') { return ''; }      if (($ENV{'browser.interface'} eq 'textual') ||
           ($ENV{'environment.remote'} eq 'off')) { return ''; }
     return(<<ENDMAINCALL);      return(<<ENDMAINCALL);
 <script>  <script>
     main();      main();
Line 401  ENDMAINCALL Line 432  ENDMAINCALL
 # ================================================================= Reopen menu  # ================================================================= Reopen menu
   
 sub reopenmenu {  sub reopenmenu {
    my $nothing='';     if (($ENV{'browser.interface'} eq 'textual') ||
    if ($ENV{'browser.interface'} eq 'textual') { return ''; }         ($ENV{'environment.remote'} eq 'off')) { return ''; }
    my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
    if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; }     my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
    return('window.open("'.$nothing.'","'.$menuname.'","",false);');     return('window.open('.$nothing.',"'.$menuname.'","",false);');
 }   } 
   
 # =============================================================== Open the menu  # =============================================================== Open the menu
   
 sub open {  sub open {
     my $returnval='';      my $returnval='';
     if ($ENV{'browser.interface'} eq 'textual') { return ''; }      if (($ENV{'browser.interface'} eq 'textual') ||
           ($ENV{'environment.remote'} eq 'off')) { return ''; }
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
     unless (shift eq 'unix') {      unless (shift eq 'unix') {
 # resizing does not work on linux because of virtual desktop sizes  # resizing does not work on linux because of virtual desktop sizes
Line 436  ENDOPEN Line 468  ENDOPEN
   
 sub clear {  sub clear {
     my ($row,$col)=@_;      my ($row,$col)=@_;
     unless ($ENV{'browser.interface'} eq 'textual') {      unless (($ENV{'browser.interface'} eq 'textual') ||
               ($ENV{'environment.remote'} eq 'off')) {
        return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););         return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););
    } else { return ''; }     } else { return ''; }
 }  }
Line 449  sub switch { Line 482  sub switch {
     my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_;      my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_;
     $act=~s/\$uname/$uname/g;      $act=~s/\$uname/$uname/g;
     $act=~s/\$udom/$udom/g;      $act=~s/\$udom/$udom/g;
     unless ($ENV{'browser.interface'} eq 'textual') {      unless (($ENV{'browser.interface'} eq 'textual')  ||
               ($ENV{'environment.remote'} eq 'off')) {
   # Remote
        return "\n".         return "\n".
  qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););   qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););
      } elsif ($ENV{'browser.interface'} eq 'textual') {
   # Accessibility
          if ($nobreak==2) { return ''; }
          my $text=$top.' '.$bot;
          $text=~s/\- //;
          return "\n".($nobreak?' ':'<br />').
           '<a href="javascript:'.$act.';" target="_top">'.$text.'</a> '.
           ($nobreak?'':$desc);
    } else {     } else {
   # Inline Remote
        if ($nobreak==2) { return ''; }         if ($nobreak==2) { return ''; }
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\- //;         $text=~s/\- //;
Line 478  sub secondlevel { Line 522  sub secondlevel {
   
 sub openmenu {  sub openmenu {
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
     if ($ENV{'browser.interface'} eq 'textual') { return ''; }      if (($ENV{'browser.interface'} eq 'textual') ||
     if ($ENV{'browser.type'} eq 'explorer') {          ($ENV{'environment.remote'} eq 'off')) { return ''; }
        return "window.open('javascript:void(0);','".$menuname."');";      my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
    } else {      return "window.open(".$nothing.",'".$menuname."');";
        return "window.open('','".$menuname."');";  
    }  
 }  }
   
 sub rawconfig {  sub rawconfig {
     my $textualoverride=shift;      my $textualoverride=shift;
     my $output='';      my $output='';
     unless ($ENV{'browser.interface'} eq 'textual') {      unless (($ENV{'browser.interface'} eq 'textual') ||
               ($ENV{'environment.remote'} eq 'off')) {
        $output.=         $output.=
  "window.status='Opening Remote Control';var swmenu=".&openmenu().   "window.status='Opening Remote Control';var swmenu=".&openmenu().
 "\nwindow.status='Configuring Remote Control ';";  "\nwindow.status='Configuring Remote Control ';";
Line 562  sub rawconfig { Line 605  sub rawconfig {
             }              }
         }          }
     }      }
     unless ($ENV{'browser.interface'} eq 'textual') {      unless (($ENV{'browser.interface'} eq 'textual') ||
               ($ENV{'environment.remote'} eq 'off')) {
        $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";         $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";
     }      }
     return $output;      return $output;
Line 571  sub rawconfig { Line 615  sub rawconfig {
 # ======================================================================= Close  # ======================================================================= Close
   
 sub close {  sub close {
     if ($ENV{'browser.interface'} eq 'textual') { return ''; }      if (($ENV{'browser.interface'} eq 'textual') ||
           ($ENV{'environment.remote'} eq 'off')) { return ''; }
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
     return(<<ENDCLOSE);      return(<<ENDCLOSE);
 <script>  <script>
Line 595  sub footer { Line 640  sub footer {
 }  }
   
 sub utilityfunctions {  sub utilityfunctions {
     unless ($ENV{'browser.interface'} eq 'textual') { return ''; }      unless (($ENV{'browser.interface'} eq 'textual')  ||
           ($ENV{'environment.remote'} eq 'off')) { return ''; }
     my $currenturl=$ENV{'REQUEST_URI'};      my $currenturl=$ENV{'REQUEST_URI'};
     my $currentsymb=$ENV{'request.symb'};      my $currentsymb=$ENV{'request.symb'};
 return (<<ENDUTILITY)  return (<<ENDUTILITY)
Removed from v.1.45  
changed lines
  Added in v.1.51

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