Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

New Remote

    1: # The LearningOnline Network with CAPA
    2: # Routines to control the menu
    3: #
    4: # (TeX Conversion Module
    5: #
    6: # 05/29/00,05/30 Gerd Kortemeyer)
    7: #
    8: # 10/05,05/28,05/30,06/01 Gerd Kortemeyer
    9: 
   10: package Apache::lonmenu;
   11: 
   12: use strict;
   13: use Apache::lonnet;
   14: use Apache::File;
   15: use vars qw(@desklines $readdesk);
   16:  
   17: # =============================================================== Open the menu
   18: 
   19: sub open {
   20:     return(<<ENDOPEN);
   21: <script>
   22: window.status='MenuControl:nologout';
   23: menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu",
   24:                  "height=350,width=150,scrollbars=no,menubar=no");
   25: </script>
   26: ENDOPEN
   27: }
   28: 
   29: # ============================================================ Switch Menu Item
   30: 
   31: sub switchmenu {
   32:     my ($row,$col,$imgsrc,$texttop,$textbot,$action)=@_;
   33:     return(<<ENDSMENU);
   34: <script>
   35:    swmenu=window.open('','LONCAPAmenu');
   36:    swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action");
   37: </script>
   38: ENDSMENU
   39: }
   40: 
   41: # ================================================================== Raw Config
   42: 
   43: sub clear {
   44:     my ($row,$col)=@_;
   45:     return qq(swmenu.clearbut($row,$col););
   46: }
   47: 
   48: sub switch {
   49:     my ($uname,$udom,$row,$col,$img,$top,$bot,$act)=@_;
   50:     $act=~s/\$uname/$uname/g;
   51:     $act=~s/\$udom/$udom/g;
   52:     return "\n".
   53:  qq(swmenu.switchbutton($row,$col,"$img","$top","$bot","$act"););
   54: }
   55: 
   56: sub secondlevel {
   57:     my $output='';
   58:     my 
   59:     ($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act)=@_;
   60:     if ($prt eq 'any') {
   61: 	   $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act);
   62:     } elsif ($prt=~/^r(\w+)/) {
   63:         if ($rol eq $1) {
   64:            $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act);
   65:         }
   66:     }
   67:     return $output;
   68: }
   69: 
   70: sub rawconfig {
   71:     my $output="swmenu=window.open('','LONCAPAmenu');";
   72:     my $uname=$ENV{'user.name'};
   73:     my $udom=$ENV{'user.domain'};
   74:     my $adv=$ENV{'user.adv'};
   75:     my $author=$ENV{'user.author'};
   76:     my $crs='/'.$ENV{'request.course.id'};
   77:     $crs=~s/\_/\//;
   78:     my $pub=($ENV{'request.state'} eq 'published');
   79:     my $con=($ENV{'request.state'} eq 'construct');
   80:     my $rol=$ENV{'request.role'};
   81:     map {
   82:         my ($row,$col,$pro,$prt,$img,$top,$bot,$act)=split(/\:/,$_);
   83:         $prt=~s/\$uname/$uname/g;
   84:         $prt=~s/\$udom/$udom/g;
   85:         $prt=~s/\$crs/$crs/g;
   86:         if ($pro eq 'clear') {
   87: 	    $output.=&clear($row,$col);
   88:         } elsif ($pro eq 'any') {
   89:                $output.=&secondlevel(
   90: 	  $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act);
   91: 	} elsif ($pro eq 'smp') {
   92:             unless ($adv) {
   93:                $output.=&secondlevel(
   94:           $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act);
   95:             }
   96:         } elsif ($pro eq 'adv') {
   97:             if ($adv) {
   98:                $output.=&secondlevel(
   99: 	  $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act);
  100:             }
  101:         } elsif (($pro=~/p(\w+)/) && ($prt)) {
  102: 	    if (&Apache::lonnet::allowed($1,$prt)) {
  103:                $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act);
  104:             }
  105:         } elsif ($pro eq 'author') {
  106:             if ($author) {
  107:             }
  108:         }
  109:     } @desklines;
  110:     return $output;
  111: }
  112: 
  113: # ======================================================================= Close
  114: 
  115: sub close {
  116:     return(<<ENDCLOSE);
  117: <script>
  118: window.status='MenuControl:nologout';
  119: menu=window.open("/adm/rat/empty.html","LONCAPAmenu",
  120:                  "height=350,width=150,scrollbars=no,menubar=no");
  121: menu.close();
  122: </script>
  123: ENDCLOSE
  124: }
  125: 
  126: # ====================================================================== Footer
  127: 
  128: sub footer {
  129: 
  130: }
  131: 
  132: # ================================================================ Main Program
  133: 
  134: sub BEGIN {
  135: if ($readdesk ne 'done') {
  136:   {
  137:     my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
  138:                                  '/mydesk.tab');
  139:     while (my $configline=<$config>) {
  140:        chomp($configline);
  141:        $desklines[$#desklines+1]=$configline;
  142:     }
  143:   }
  144: }
  145: }
  146: 1;
  147: __END__
  148: 
  149: 
  150: 
  151: 
  152: 
  153: 
  154: