Annotation of loncom/interface/lonmenu.pm, revision 1.29

1.1       www         1: # The LearningOnline Network with CAPA
                      2: # Routines to control the menu
                      3: #
1.29    ! matthew     4: # $Id: lonmenu.pm,v 1.28 2002/11/18 15:23:32 www Exp $
1.11      albertel    5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
1.1       www        28: # (TeX Conversion Module
                     29: #
                     30: # 05/29/00,05/30 Gerd Kortemeyer)
                     31: #
1.8       www        32: # 10/05,05/28,05/30,06/01,06/08,06/09,07/04,08/07 Gerd Kortemeyer
1.17      matthew    33: # 02/15/02 Matthew Hall
1.1       www        34: 
                     35: package Apache::lonmenu;
                     36: 
                     37: use strict;
1.2       www        38: use Apache::lonnet;
                     39: use Apache::File;
                     40: use vars qw(@desklines $readdesk);
                     41:  
1.1       www        42: # =============================================================== Open the menu
                     43: 
                     44: sub open {
1.22      www        45:     my $returnval='';
                     46:     unless (shift eq 'unix') {
                     47: # resizing does not work on linux because of virtual desktop sizes
                     48:        $returnval.=(<<ENDRESIZE);
                     49: if (window.screen) {
1.28      www        50:     self.resizeTo(screen.availWidth-215,screen.availHeight-55);
1.22      www        51:     self.moveTo(190,15);
                     52: }
                     53: ENDRESIZE
                     54:     }
                     55:     $returnval.=(<<ENDOPEN);
1.20      matthew    56: var menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu",
1.14      www        57: "height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
1.1       www        58: ENDOPEN
1.22      www        59:     return '<script>'.$returnval.'</script>';
1.1       www        60: }
                     61: 
1.2       www        62: # ============================================================ Switch Menu Item
                     63: 
                     64: sub switchmenu {
1.27      www        65:     my ($row,$col,$imgsrc,$texttop,$textbot,$action,$description)=@_;
1.18      www        66:     my $openwin=&openmenu();
1.2       www        67:     return(<<ENDSMENU);
                     68: <script>
1.20      matthew    69:    var swmenu=$openwin
1.27      www        70:    swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action","$description");
1.2       www        71: </script>
                     72: ENDSMENU
                     73: }
                     74: 
                     75: # ================================================================== Raw Config
                     76: 
1.3       www        77: sub clear {
                     78:     my ($row,$col)=@_;
                     79:     return qq(swmenu.clearbut($row,$col););
                     80: }
                     81: 
1.25      matthew    82: # Switch acts on the javascript that is executed when a button is clicked.  
                     83: # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
1.2       www        84: sub switch {
1.27      www        85:     my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc)=@_;
1.2       www        86:     $act=~s/\$uname/$uname/g;
                     87:     $act=~s/\$udom/$udom/g;
                     88:     return "\n".
1.27      www        89:  qq(swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););
1.2       www        90: }
                     91: 
                     92: sub secondlevel {
                     93:     my $output='';
                     94:     my 
1.27      www        95:     ($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc)=@_;
1.2       www        96:     if ($prt eq 'any') {
1.27      www        97: 	   $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
1.2       www        98:     } elsif ($prt=~/^r(\w+)/) {
                     99:         if ($rol eq $1) {
1.27      www       100:            $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
1.2       www       101:         }
                    102:     }
                    103:     return $output;
                    104: }
                    105: 
1.18      www       106: sub openmenu {
                    107:     if ($ENV{'browser.type'} eq 'explorer') {
                    108:        return "window.open('javascript:void(0);','LONCAPAmenu');";
                    109:    } else {
                    110:        return "window.open('','LONCAPAmenu');";
                    111:    }
                    112: }
                    113: 
1.2       www       114: sub rawconfig {
1.19      matthew   115:     my $r = shift;
1.20      matthew   116:     my $output="var swmenu=".&openmenu();
1.2       www       117:     my $uname=$ENV{'user.name'};
                    118:     my $udom=$ENV{'user.domain'};
                    119:     my $adv=$ENV{'user.adv'};
1.4       www       120:     my $author=$ENV{'user.author'};
1.5       www       121:     my $crs='';
                    122:     if ($ENV{'request.course.id'}) {
                    123:        $crs='/'.$ENV{'request.course.id'};
1.7       www       124:        if ($ENV{'request.course.sec'}) {
                    125: 	   $crs.='_'.$ENV{'request.course.sec'};
                    126:        }
1.8       www       127:        $crs=~s/\_/\//g;
1.5       www       128:     }
1.2       www       129:     my $pub=($ENV{'request.state'} eq 'published');
                    130:     my $con=($ENV{'request.state'} eq 'construct');
                    131:     my $rol=$ENV{'request.role'};
1.25      matthew   132:     my $requested_domain = $ENV{'request.role.domain'};
1.13      harris41  133:     foreach (@desklines) {
1.27      www       134:         my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_);
1.3       www       135:         $prt=~s/\$uname/$uname/g;
                    136:         $prt=~s/\$udom/$udom/g;
1.5       www       137:         $prt=~s/\$crs/$crs/g; 
1.25      matthew   138:         $prt=~s/\$requested_domain/$requested_domain/g;
1.3       www       139:         if ($pro eq 'clear') {
1.4       www       140: 	    $output.=&clear($row,$col);
1.3       www       141:         } elsif ($pro eq 'any') {
1.2       www       142:                $output.=&secondlevel(
1.27      www       143: 	  $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);
1.2       www       144: 	} elsif ($pro eq 'smp') {
                    145:             unless ($adv) {
                    146:                $output.=&secondlevel(
1.27      www       147:           $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);
1.2       www       148:             }
                    149:         } elsif ($pro eq 'adv') {
                    150:             if ($adv) {
                    151:                $output.=&secondlevel(
1.27      www       152: 	  $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);
1.2       www       153:             }
                    154:         } elsif (($pro=~/p(\w+)/) && ($prt)) {
                    155: 	    if (&Apache::lonnet::allowed($1,$prt)) {
1.27      www       156:                $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
1.4       www       157:             }
1.26      www       158:         } elsif ($pro eq 'course') {
                    159:             if ($ENV{'request.course.fn'}) {
1.27      www       160:                $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);
1.26      www       161: 	    }
1.4       www       162:         } elsif ($pro eq 'author') {
                    163:             if ($author) {
1.29    ! matthew   164:                 if ((($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) ||
        !           165:                     (($prt eq 'rau') && ($ENV{'request.role'}=~/^au/))) {
1.19      matthew   166:                     # Check that we are on the correct machine
1.29    ! matthew   167:                     my $cadom=$requested_domain;
        !           168:                     my $caname=$ENV{'user.name'};
        !           169:                     if ($prt eq 'rca') {
        !           170: 		       ($cadom,$caname)=
1.6       www       171:                                ($ENV{'request.role'}=~/(\w+)\/(\w+)$/);
1.29    ! matthew   172:                     }                       
        !           173:                     $act =~ s/\$caname/$caname/g;
1.19      matthew   174:                     my $home = &Apache::lonnet::homeserver($caname,$cadom);
                    175:                     if ($home eq $r->dir_config('lonHostID')) {
                    176:                         $output.=switch($caname,$cadom,
1.27      www       177:                                         $row,$col,$img,$top,$bot,$act,$desc);
1.19      matthew   178:                     }
1.6       www       179:                 }
1.2       www       180:             }
                    181:         }
1.13      harris41  182:     }
1.24      www       183:     $output.="swmenu.syncclock(1000*".time.");";
1.2       www       184:     return $output;
                    185: }
                    186: 
                    187: # ======================================================================= Close
1.1       www       188: 
                    189: sub close {
                    190:     return(<<ENDCLOSE);
                    191: <script>
                    192: menu=window.open("/adm/rat/empty.html","LONCAPAmenu",
                    193:                  "height=350,width=150,scrollbars=no,menubar=no");
                    194: menu.close();
                    195: </script>
                    196: ENDCLOSE
                    197: }
                    198: 
                    199: # ====================================================================== Footer
                    200: 
                    201: sub footer {
                    202: 
                    203: }
                    204: 
1.2       www       205: # ================================================================ Main Program
                    206: 
1.16      harris41  207: BEGIN {
1.15      matthew   208:   if (! defined($readdesk)) {
1.14      www       209:    {
1.10      albertel  210:     my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
                    211: 				  '/mydesk.tab');
                    212:     while (my $configline=<$config>) {
1.14      www       213:        $configline=(split(/\#/,$configline))[0];
                    214:        $configline=~s/^\s+//;
1.10      albertel  215:        chomp($configline);
1.14      www       216:        if ($configline) {
                    217:           $desklines[$#desklines+1]=$configline;
                    218:        }
1.2       www       219:     }
1.14      www       220:    }
                    221:    $readdesk='done';
1.10      albertel  222:   }
1.2       www       223: }
1.1       www       224: 1;
                    225: __END__
                    226: 
                    227: 
                    228: 
                    229: 
                    230: 
                    231: 
                    232: 

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