loncom/interface/lonmenu.pm - view

File: [LON-CAPA] / loncom / interface / lonmenu.pm
Revision 1.66: download - view: text, annotated - select for diffs
Fri May 16 20:47:07 2003 UTC (21 years ago) by albertel
Branches: MAIN
CVS tags: HEAD

- should take care of #1448,
  - directories put their name in the title
  - any html puts a name in the title

(currently images don't and I don't see any good way of changing that.)

1: # The LearningOnline Network with CAPA 2: # Routines to control the menu 3: # 4: # $Id: lonmenu.pm,v 1.66 2003/05/16 20:47:07 albertel Exp $ 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: # 28: # 29: # There are two parameters controlling the action of this module: 30: # 31: # browser.interface - if this is 'textual', it overrides the second parameter 32: # and goes to screen reader PDA mode 33: # 34: # environment.remote - if this is 'on', the routines controll the remote 35: # control, otherwise they render the main window controls; ignored it 36: # browser.interface is 'textual' 37: # 38: 39: package Apache::lonmenu; 40: 41: use strict; 42: use Apache::lonnet; 43: use Apache::Constants qw(:common); 44: use Apache::lonhtmlcommon(); 45: use Apache::loncommon; 46: use Apache::File; 47: use vars qw(@desklines $readdesk); 48: my @inlineremote; 49: my $font; 50: my $tabbg; 51: my $pgbg; 52: 53: # ============================= This gets called at the top of the body section 54: 55: sub menubuttons { 56: my $forcereg=shift; 57: my $target =shift; 58: my $registration=shift; 59: my $navmaps=''; 60: my $reloadlink=''; 61: my $escurl=&Apache::lonnet::escape($ENV{'REQUEST_URI'}); 62: my $escsymb=&Apache::lonnet::escape($ENV{'request.symb'}); 63: if ($ENV{'browser.interface'} eq 'textual') { 64: # Textual display only 65: if ($ENV{'request.course.id'}) { 66: $navmaps=(<<ENDNAV); 67: <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">Navigate Contents</a> 68: ENDNAV 69: if (($ENV{'REQUEST_URI'}=~/^\/adm\//) && 70: ($ENV{'REQUEST_URI'}!~/^\/adm\/wrapper\//) && 71: ($ENV{'REQUEST_URI'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { 72: my $escreload=&Apache::lonnet::escape('return:'); 73: $reloadlink=(<<ENDRELOAD); 74: <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">Return to Last Location</font></a> 75: ENDRELOAD 76: } 77: } 78: my $output=(<<ENDMAINMENU); 79: <script> 80: // BEGIN LON-CAPA Internal 81: </script> 82: <a href="/adm/menu" target="_top">Main Menu</a> 83: $reloadlink $navmaps<br /> 84: <script> 85: // END LON-CAPA Internal 86: </script> 87: ENDMAINMENU 88: if ($registration) { $output.=&innerregister($forcereg,$target); } 89: return $output."<hr />"; 90: } elsif ($ENV{'environment.remote'} eq 'off') { 91: # Remote Control is switched off 92: # figure out colors 93: my $function='student'; 94: if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { 95: $function='coordinator'; 96: } 97: if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { 98: $function='admin'; 99: } 100: if (($ENV{'request.role'}=~/^(au|ca)/) || 101: ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { 102: $function='author'; 103: } 104: my $domain=&Apache::loncommon::determinedomain(); 105: $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); 106: $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); 107: $font=&Apache::loncommon::designparm($function.'.font',$domain); 108: my $link=&Apache::loncommon::designparm($function.'.link',$domain); 109: my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); 110: my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); 111: my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); 112: # Do we have a NAV link? 113: if ($ENV{'request.course.id'}) { 114: $navmaps=(<<ENDNAVREM); 115: <td bgcolor="$tabbg"> 116: <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top"><font color="$font">Navigate Contents</font></a></td> 117: ENDNAVREM 118: if (($ENV{'REQUEST_URI'}=~/^\/adm\//) && 119: ($ENV{'REQUEST_URI'}!~/^\/adm\/wrapper\//) && 120: ($ENV{'REQUEST_URI'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { 121: my $escreload=&Apache::lonnet::escape('return:'); 122: $reloadlink=(<<ENDRELOAD); 123: <td bgcolor="$tabbg"> 124: <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">Return to Last Location</font></a></td> 125: ENDRELOAD 126: } 127: } 128: my $reg=''; 129: if ($registration) { 130: $reg=&innerregister($forcereg,$target); 131: } 132: return (<<ENDINLINEMENU); 133: <script> 134: // BEGIN LON-CAPA Internal 135: </script> 136: <table bgcolor="$pgbg" width="100%" border="0" cellpadding="3" cellspacing="3"> 137: <tr> 138: <td bgcolor="$tabbg"> 139: <a href="/adm/menu" target="_top"><font color="$font">Main Menu</font></a> 140: </td> 141: $reloadlink 142: $navmaps 143: <td bgcolor="$tabbg"> 144: <a href="/adm/remote?action=launch&url=$escurl" target="_top"> 145: <font color="$font">Launch Remote Control</font></a></td> 146: <td bgcolor="$tabbg"> 147: <img align="right" src="/adm/lonIcons/minilogo.gif" /> 148: <b>LON-CAPA</b></td> 149: </tr> 150: </table> 151: <script> 152: // END LON-CAPA Internal 153: </script> 154: $reg 155: ENDINLINEMENU 156: } else { 157: return ''; 158: } 159: } 160: 161: # ====================================== This gets called in the header section 162: 163: sub registerurl { 164: my $forcereg=shift; 165: my $target = shift; 166: my $result = ''; 167: 168: my $force_title=''; 169: if ($ENV{'request.state'} eq 'construct') { 170: $force_title=&Apache::lonxml::display_title(); 171: } 172: if ($target eq 'edit') { 173: $result .="<script type=\"text/javascript\">\n". 174: "if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n". 175: &Apache::loncommon::browser_and_searcher_javascript(). 176: "\n</script>\n"; 177: } 178: if (($ENV{'browser.interface'} eq 'textual') || 179: ($ENV{'environment.remote'} eq 'off') || 180: ((($ENV{'request.publicaccess'}) || 181: (!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && 182: (!$forcereg))) { 183: return $result. 184: '<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title; 185: } 186: # Graphical display after login only 187: if ($Apache::lonxml::registered && !$forcereg) { return ''; } 188: $result.=&innerregister($forcereg,$target); 189: return $result.$force_title; 190: } 191: 192: # =========== This gets called in order to register a URL, both with the Remote 193: # =========== and in the body of the document 194: 195: sub innerregister { 196: my $forcereg=shift; 197: my $target = shift; 198: my $result = ''; 199: 200: $Apache::lonxml::registered=1; 201: 202: my $textinter=($ENV{'browser.interface'} eq 'textual'); 203: my $noremote=($ENV{'environment.remote'} eq 'off'); 204: 205: my $textual=($textinter || $noremote); 206: 207: @inlineremote=(); 208: undef @inlineremote; 209: 210: my $reopen=&Apache::lonmenu::reopenmenu(); 211: 212: my $newmail=''; 213: if ($noremote) { 214: $newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%"><tr><td bgcolor="'.$tabbg.'">'; 215: } 216: if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) { 217: my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'}); 218: $newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; 219: my $maptitle=&Apache::lonnet::gettitle($mapurl); 220: my $restitle=&Apache::lonnet::gettitle($resurl); 221: if ($maptitle) { 222: $newmail.=', '.$maptitle; 223: } 224: if ($restitle) { 225: $newmail.=': '.$restitle; 226: } 227: $newmail.='   '; 228: } 229: if (&Apache::lonmsg::newmail()) { 230: $newmail=($textual? 231: '<b><a href="/adm/communicate">You have new messages</a></b><br />': 232: 'swmenu.setstatus("you have","messages");'); 233: } 234: if ($noremote) { 235: $newmail.='</td></tr></table>'; 236: } 237: my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); 238: my $tablestart=($noremote?'<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%">':''); 239: my $tableend=($noremote?'</table>':''); 240: # ============================================================================= 241: # ============================ This is for URLs that actually can be registered 242: if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) { 243: # -- This applies to homework problems for users with grading privileges 244: my $hwkadd=''; 245: if 246: ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { 247: if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { 248: $hwkadd.=&switch('','',7,1,'subm.gif','view sub','missions', 249: "gocmd('/adm/grades','submission')", 250: 'View user submissions for this assessment resource'); 251: } 252: if (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) { 253: $hwkadd.=&switch('','',7,2,'pgrd.gif','problem','grades', 254: "gocmd('/adm/grades','gradingmenu')", 255: 'Modify user grades for this assessment resource'); 256: } 257: if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) { 258: $hwkadd.=&switch('','',7,3,'pparm.gif','problem','parms', 259: "gocmd('/adm/parmset','set')", 260: 'Modify deadlines, etc, for this assessment resource'); 261: } 262: } 263: # -- End Homework 264: ### 265: ### Determine whether or not to display the 'cstr' button for this 266: ### resource 267: ### 268: my $editbutton = ''; 269: if ($ENV{'user.author'}) { 270: if ($ENV{'request.role'}=~/^(ca|au)/) { 271: # Set defaults for authors 272: my ($top,$bottom) = ('con-','struct'); 273: my $action = "go('/priv/".$ENV{'user.name'}."');"; 274: my $cadom = $ENV{'request.role.domain'}; 275: my $caname = $ENV{'user.name'}; 276: my $desc = "Enter my resource construction space"; 277: # Set defaults for co-authors 278: if ($ENV{'request.role'} =~ /^ca/) { 279: ($cadom,$caname)=($ENV{'request.role'}=~/(\w+)\/(\w+)$/); 280: ($top,$bottom) = ('co con-','struct'); 281: $action = "go('/priv/".$caname."');"; 282: $desc = "Enter construction space as co-author"; 283: } 284: # Check that we are on the correct machine 285: my $home = &Apache::lonnet::homeserver($caname,$cadom); 286: if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) { 287: $editbutton=&switch 288: ('','',6,1,$top,,$bottom,$action,$desc); 289: } 290: } 291: ## 292: ## Determine if user can edit url. 293: ## 294: my $cfile=''; 295: my $cfuname=''; 296: my $cfudom=''; 297: if ($ENV{'request.filename'}) { 298: my $file=&Apache::lonnet::declutter($ENV{'request.filename'}); 299: $file=~s/^(\w+)\/(\w+)/\/priv\/$2/; 300: # Chech that the user has permission to edit this resource 301: ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1); 302: if (defined($cfudom)) { 303: if (&Apache::lonnet::homeserver($cfuname,$cfudom) 304: eq $Apache::lonnet::perlvar{'lonHostID'}) { 305: $cfile=$file; 306: } 307: } 308: } 309: # Finally, turn the button on or off 310: if ($cfile) { 311: $editbutton=&switch 312: ('','',6,1,'cstr.gif','edit','resource', 313: "go('".$cfile."');","Edit this resource"); 314: } elsif ($editbutton eq '') { 315: $editbutton=&clear(6,1); 316: } 317: } 318: ### 319: ### 320: # Prepare the rest of the buttons 321: my $menuitems=(<<ENDMENUITEMS); 322: c&3&1 323: s&2&1&back.gif&backward&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1 324: s&2&3&forw.gif&forward&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&3 325: s&6&3&catalog.gif&catalog&info&catalog_info()&Show catalog information 326: s&8&1&eval.gif&evaluate&this&gopost('/adm/evaluate',currentURL)&Provide my evaluation of this resource 327: s&8&2&fdbk.gif&feedback&discuss&gopost('/adm/feedback',currentURL)&Provide feedback messages or contribute to the course discussion about this resource 328: s&8&3&prt.gif&prepare&printout&gopost('/adm/printout',currentURL)&Prepare a printable document 329: s&9&1&sbkm.gif&set&bookmark&set_bookmark()&Set a bookmark for this resource&2 330: s&9&2&vbkm.gif&view&bookmark&edit_bookmarks()&Use or edit my bookmark collection&2 331: s&9&3&anot.gif&anno-&tations&annotate()&Make notes and annotations about this resource&2 332: ENDMENUITEMS 333: my $buttons=''; 334: foreach (split(/\n/,$menuitems)) { 335: my ($command,@rest)=split(/\&/,$_); 336: if ($command eq 's') { 337: $buttons.=&switch('','',@rest); 338: } else { 339: $buttons.=&clear(@rest); 340: } 341: } 342: if ($textual) { 343: # Registered, textual output 344: my $utility=&utilityfunctions(); 345: my $form=&serverform(); 346: my $inlinebuttons= 347: join('',map { (defined($_)?$_:'') } @inlineremote); 348: $result =(<<ENDREGTEXT); 349: <script> 350: // BEGIN LON-CAPA Internal 351: $utility 352: </script> 353: $timesync 354: $newmail 355: $tablestart 356: $inlinebuttons 357: $tableend 358: $form 359: <script> 360: // END LON-CAPA Internal 361: </script> 362: 363: ENDREGTEXT 364: # Registered, graphical output 365: } else { 366: $result = (<<ENDREGTHIS); 367: 368: <script language="JavaScript"> 369: // BEGIN LON-CAPA Internal 370: var swmenu=null; 371: 372: function LONCAPAreg() { 373: swmenu=$reopen; 374: swmenu.clearTimeout(swmenu.menucltim); 375: $timesync 376: $newmail 377: $buttons 378: swmenu.currentURL=window.location.pathname; 379: swmenu.reloadURL=window.location.pathname+window.location.search; 380: swmenu.currentSymb="$ENV{'request.symb'}"; 381: swmenu.reloadSymb="$ENV{'request.symb'}"; 382: swmenu.currentStale=0; 383: $hwkadd 384: $editbutton 385: } 386: 387: function LONCAPAstale() { 388: swmenu=$reopen 389: swmenu.currentStale=1; 390: if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) { 391: swmenu.switchbutton 392: (3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence'); 393: } 394: swmenu.clearbut(7,1); 395: swmenu.clearbut(7,2); 396: swmenu.clearbut(7,3); 397: swmenu.menucltim=swmenu.setTimeout( 398: 'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ 399: 'clearbut(9,1);clearbut(9,2);clearbut(9,3);clearbut(6,3);clearbut(6,1)', 400: 2000); 401: 402: } 403: 404: // END LON-CAPA Internal 405: </script> 406: ENDREGTHIS 407: } 408: # ============================================================================= 409: } else { 410: # ========================================== This can or will not be registered 411: if ($textual) { 412: # Not registered, textual 413: $result= (<<ENDDONOTREGTEXT); 414: ENDDONOTREGTEXT 415: } else { 416: # Not registered, graphical 417: $result = (<<ENDDONOTREGTHIS); 418: 419: <script language="JavaScript"> 420: // BEGIN LON-CAPA Internal 421: var swmenu=null; 422: 423: function LONCAPAreg() { 424: swmenu=$reopen 425: $timesync 426: swmenu.currentStale=1; 427: swmenu.clearbut(2,1); 428: swmenu.clearbut(2,3); 429: swmenu.clearbut(8,1); 430: swmenu.clearbut(8,2); 431: swmenu.clearbut(8,3); 432: if (swmenu.currentURL) { 433: swmenu.switchbutton 434: (3,1,'reload.gif','return','location','go(currentURL)'); 435: } else { 436: swmenu.clearbut(3,1); 437: } 438: } 439: 440: function LONCAPAstale() { 441: } 442: 443: // END LON-CAPA Internal 444: </script> 445: ENDDONOTREGTHIS 446: } 447: # ============================================================================= 448: } 449: return $result; 450: } 451: 452: sub loadevents() { 453: return 'LONCAPAreg();'; 454: } 455: 456: sub unloadevents() { 457: return 'LONCAPAstale();'; 458: } 459: 460: # ============================================================= Start up remote 461: 462: sub startupremote { 463: my ($lowerurl)=@_; 464: if (($ENV{'browser.interface'} eq 'textual') || 465: ($ENV{'environment.remote'} eq 'off')) { 466: return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />'); 467: } 468: # 469: # The Remote actually gets launched! 470: # 471: my $configmenu=&rawconfig(); 472: my $esclowerurl=&Apache::lonnet::escape($lowerurl); 473: 474: return(<<ENDREMOTESTARTUP); 475: <script> 476: 477: function wheelswitch() { 478: if (window.status=='|') { 479: window.status='/'; 480: } else { 481: if (window.status=='/') { 482: window.status='-'; 483: } else { 484: if (window.status=='-') { 485: window.status='\\\\'; 486: } else { 487: if (window.status=='\\\\') { window.status='|'; } 488: } 489: } 490: } 491: } 492: 493: // ---------------------------------------------------------- The wait function 494: var canceltim; 495: function wait() { 496: if ((menuloaded==1) || (tim==1)) { 497: window.status='Done.'; 498: if (tim==0) { 499: clearTimeout(canceltim); 500: $configmenu 501: window.location='$lowerurl'; 502: } else { 503: window.location='/adm/remote?action=collapse&url=$esclowerurl'; 504: } 505: } else { 506: wheelswitch(); 507: setTimeout('wait();',200); 508: } 509: } 510: 511: function main() { 512: canceltim=setTimeout('tim=1;',30000); 513: window.status='-'; 514: wait(); 515: } 516: 517: </script> 518: ENDREMOTESTARTUP 519: } 520: 521: sub setflags() { 522: return(<<ENDSETFLAGS); 523: <script> 524: menuloaded=0; 525: tim=0; 526: </script> 527: ENDSETFLAGS 528: } 529: 530: sub maincall() { 531: if (($ENV{'browser.interface'} eq 'textual') || 532: ($ENV{'environment.remote'} eq 'off')) { return ''; } 533: return(<<ENDMAINCALL); 534: <script> 535: main(); 536: </script> 537: ENDMAINCALL 538: } 539: # ================================================================= Reopen menu 540: 541: sub reopenmenu { 542: if (($ENV{'browser.interface'} eq 'textual') || 543: ($ENV{'environment.remote'} eq 'off')) { return ''; } 544: my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; 545: my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); 546: return('window.open('.$nothing.',"'.$menuname.'","",false);'); 547: } 548: 549: # =============================================================== Open the menu 550: 551: sub open { 552: my $returnval=''; 553: if (($ENV{'browser.interface'} eq 'textual') || 554: ($ENV{'environment.remote'} eq 'off')) { return ''; } 555: my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; 556: unless (shift eq 'unix') { 557: # resizing does not work on linux because of virtual desktop sizes 558: $returnval.=(<<ENDRESIZE); 559: if (window.screen) { 560: self.resizeTo(screen.availWidth-215,screen.availHeight-55); 561: self.moveTo(190,15); 562: } 563: ENDRESIZE 564: } 565: $returnval.=(<<ENDOPEN); 566: window.status='Opening LON-CAPA Remote Control'; 567: var menu=window.open("/res/adm/pages/menu.html","$menuname", 568: "height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); 569: ENDOPEN 570: return '<script>'.$returnval.'</script>'; 571: } 572: 573: 574: # ================================================================== Raw Config 575: 576: sub clear { 577: my ($row,$col)=@_; 578: unless (($ENV{'browser.interface'} eq 'textual') || 579: ($ENV{'environment.remote'} eq 'off')) { 580: return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); 581: } else { 582: $inlineremote[10*$row+$col]=''; 583: return ''; 584: } 585: } 586: 587: # ============================================ Switch a button or create a link 588: # Switch acts on the javascript that is executed when a button is clicked. 589: # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". 590: 591: sub switch { 592: my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_; 593: $act=~s/\$uname/$uname/g; 594: $act=~s/\$udom/$udom/g; 595: unless (($ENV{'browser.interface'} eq 'textual') || 596: ($ENV{'environment.remote'} eq 'off')) { 597: # Remote 598: return "\n". 599: qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); 600: } elsif ($ENV{'browser.interface'} eq 'textual') { 601: # Accessibility 602: if ($nobreak==2) { return ''; } 603: my $text=$top.' '.$bot; 604: $text=~s/\- //; 605: $inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />'). 606: '<a href="javascript:'.$act.';">'.$text.'</a> '. 607: ($nobreak?'':$desc); 608: } else { 609: # Inline Remote 610: if ($nobreak==2) { return ''; } 611: my $text=$top.' '.$bot; 612: $text=~s/\- //; 613: $inlineremote[10*$row+$col]="\n". 614: ($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td'). 615: ' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':''). 616: '"><a href="javascript:'.$act.';"><font color="'.$font.'"'. 617: ($nobreak?' size="+1"':''). 618: '>'.$text.'</font></a></td>'. 619: ($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':''); 620: } 621: return ''; 622: } 623: 624: sub secondlevel { 625: my $output=''; 626: my 627: ($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc)=@_; 628: if ($prt eq 'any') { 629: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 630: } elsif ($prt=~/^r(\w+)/) { 631: if ($rol eq $1) { 632: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 633: } 634: } 635: return $output; 636: } 637: 638: sub openmenu { 639: my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; 640: if (($ENV{'browser.interface'} eq 'textual') || 641: ($ENV{'environment.remote'} eq 'off')) { return ''; } 642: my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); 643: return "window.open(".$nothing.",'".$menuname."');"; 644: } 645: 646: sub inlinemenu { 647: @inlineremote=(); 648: undef @inlineremote; 649: &rawconfig(1); 650: return join('',map { (defined($_)?$_:'') } @inlineremote); 651: } 652: 653: sub rawconfig { 654: my $textualoverride=shift; 655: my $output=''; 656: unless (($ENV{'browser.interface'} eq 'textual') || 657: ($ENV{'environment.remote'} eq 'off')) { 658: $output.= 659: "window.status='Opening Remote Control';var swmenu=".&openmenu(). 660: "\nwindow.status='Configuring Remote Control ';"; 661: } else { 662: unless ($textualoverride) { return ''; } 663: } 664: my $uname=$ENV{'user.name'}; 665: my $udom=$ENV{'user.domain'}; 666: my $adv=$ENV{'user.adv'}; 667: my $author=$ENV{'user.author'}; 668: my $crs=''; 669: if ($ENV{'request.course.id'}) { 670: $crs='/'.$ENV{'request.course.id'}; 671: if ($ENV{'request.course.sec'}) { 672: $crs.='_'.$ENV{'request.course.sec'}; 673: } 674: $crs=~s/\_/\//g; 675: } 676: my $pub=($ENV{'request.state'} eq 'published'); 677: my $con=($ENV{'request.state'} eq 'construct'); 678: my $rol=$ENV{'request.role'}; 679: my $requested_domain = $ENV{'request.role.domain'}; 680: foreach (@desklines) { 681: my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_); 682: $prt=~s/\$uname/$uname/g; 683: $prt=~s/\$udom/$udom/g; 684: $prt=~s/\$crs/$crs/g; 685: $prt=~s/\$requested_domain/$requested_domain/g; 686: if ($pro eq 'clear') { 687: $output.=&clear($row,$col); 688: } elsif ($pro eq 'any') { 689: $output.=&secondlevel( 690: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc); 691: } elsif ($pro eq 'smp') { 692: unless ($adv) { 693: $output.=&secondlevel( 694: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc); 695: } 696: } elsif ($pro eq 'adv') { 697: if ($adv) { 698: $output.=&secondlevel( 699: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc); 700: } 701: } elsif (($pro=~/p(\w+)/) && ($prt)) { 702: if (&Apache::lonnet::allowed($1,$prt)) { 703: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 704: } 705: } elsif ($pro eq 'course') { 706: if ($ENV{'request.course.fn'}) { 707: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 708: } 709: } elsif ($pro eq 'author') { 710: if ($author) { 711: if ((($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) || 712: (($prt eq 'rau') && ($ENV{'request.role'}=~/^au/))) { 713: # Check that we are on the correct machine 714: my $cadom=$requested_domain; 715: my $caname=$ENV{'user.name'}; 716: if ($prt eq 'rca') { 717: ($cadom,$caname)= 718: ($ENV{'request.role'}=~/(\w+)\/(\w+)$/); 719: } 720: $act =~ s/\$caname/$caname/g; 721: my $home = &Apache::lonnet::homeserver($caname,$cadom); 722: if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) { 723: $output.=switch($caname,$cadom, 724: $row,$col,$img,$top,$bot,$act,$desc); 725: } 726: } 727: } 728: } 729: } 730: unless (($ENV{'browser.interface'} eq 'textual') || 731: ($ENV{'environment.remote'} eq 'off')) { 732: $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; 733: } 734: return $output; 735: } 736: 737: # ======================================================================= Close 738: 739: sub close { 740: if (($ENV{'browser.interface'} eq 'textual') || 741: ($ENV{'environment.remote'} eq 'off')) { return ''; } 742: my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; 743: return(<<ENDCLOSE); 744: <script> 745: window.status='Accessing Remote Control'; 746: menu=window.open("/adm/rat/empty.html","$menuname", 747: "height=350,width=150,scrollbars=no,menubar=no"); 748: window.status='Disabling Remote Control'; 749: menu.active=0; 750: menu.autologout=0; 751: window.status='Closing Remote Control'; 752: menu.close(); 753: window.status='Done.'; 754: </script> 755: ENDCLOSE 756: } 757: 758: # ====================================================================== Footer 759: 760: sub footer { 761: 762: } 763: 764: sub utilityfunctions { 765: unless (($ENV{'browser.interface'} eq 'textual') || 766: ($ENV{'environment.remote'} eq 'off')) { return ''; } 767: my $currenturl=$ENV{'REQUEST_URI'}; 768: my $currentsymb=$ENV{'request.symb'}; 769: return (<<ENDUTILITY) 770: 771: var currentURL="$currenturl"; 772: var reloadURL="$currenturl"; 773: var currentSymb="$currentsymb"; 774: 775: function go(url) { 776: if (url!='' && url!= null) { 777: currentURL = null; 778: currentSymb= null; 779: window.location.href=url; 780: } 781: } 782: 783: function gopost(url,postdata) { 784: if (url!='') { 785: this.document.server.action=url; 786: this.document.server.postdata.value=postdata; 787: this.document.server.command.value=''; 788: this.document.server.url.value=''; 789: this.document.server.symb.value=''; 790: this.document.server.submit(); 791: } 792: } 793: 794: function gocmd(url,cmd) { 795: if (url!='') { 796: this.document.server.action=url; 797: this.document.server.postdata.value=''; 798: this.document.server.command.value=cmd; 799: this.document.server.url.value=currentURL; 800: this.document.server.symb.value=currentSymb; 801: this.document.server.submit(); 802: } 803: } 804: 805: function catalog_info() { 806: loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizeable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); 807: } 808: 809: function chat_win() { 810: lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizeable=yes,location=no,menubar=no,toolbar=no'); 811: } 812: ENDUTILITY 813: } 814: 815: sub serverform { 816: return(<<ENDSERVERFORM); 817: 818: <form name="server" action="/adm/logout" method="post" target="_top"> 819: <input type="hidden" name="postdata" value="none" /> 820: <input type="hidden" name="command" value="none" /> 821: <input type="hidden" name="url" value="none" /> 822: <input type="hidden" name="symb" value="none" /> 823: </form> 824: ENDSERVERFORM 825: } 826: # ================================================ Handler when called directly 827: 828: 829: sub handler { 830: my $r = shift; 831: $r->content_type('text/html'); 832: $r->send_http_header; 833: return OK if $r->header_only; 834: 835: my $form=&serverform(); 836: my $bodytag=&Apache::loncommon::bodytag('Main Menu'); 837: my $function='student'; 838: if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { 839: $function='coordinator'; 840: } 841: if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { 842: $function='admin'; 843: } 844: if (($ENV{'request.role'}=~/^(au|ca)/) || 845: ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { 846: $function='author'; 847: } 848: my $domain=&Apache::loncommon::determinedomain(); 849: $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); 850: $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); 851: $font=&Apache::loncommon::designparm($function.'.font',$domain); 852: # ---- Print the screen, pretent to be in text mode to generate text-based menu 853: unless ($ENV{'brower.interface'} eq 'textual') { 854: $ENV{'environment.remote'}='off'; 855: } 856: my $utility=&utilityfunctions(); 857: $r->print(<<ENDHEADER); 858: <html><head> 859: <title>LON-CAPA Main Menu</title> 860: <script> 861: $utility 862: </script> 863: </head> 864: $bodytag 865: ENDHEADER 866: $r->print('<table>'.&inlinemenu().'</table>'.$form); 867: $r->print('</body></html>'); 868: return OK; 869: } 870: 871: # ================================================================ Main Program 872: 873: BEGIN { 874: if (! defined($readdesk)) { 875: { 876: my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. 877: '/mydesk.tab'); 878: while (my $configline=<$config>) { 879: $configline=(split(/\#/,$configline))[0]; 880: $configline=~s/^\s+//; 881: chomp($configline); 882: if ($configline) { 883: $desklines[$#desklines+1]=$configline; 884: } 885: } 886: } 887: $readdesk='done'; 888: } 889: } 890: 891: 1; 892: __END__ 893: 894: 895: 896: 897: 898: 899: