loncom/interface/lonmenu.pm - view

File: [LON-CAPA] / loncom / interface / lonmenu.pm
Revision 1.181: download - view: text, annotated - select for diffs
Mon May 15 16:23:58 2006 UTC (18 years ago) by albertel
Branches: MAIN
CVS tags: HEAD

- $escurl was getting interpolated
- according to the standard the sequence of characters </  is not allowed in
  a <script> block so need to make that <\/
- additonaly url's need to have the & replaced with &amp; if the are going
  to be a attribute argument to href=""
- and in xhtml it's post not POST

1: # The LearningOnline Network with CAPA 2: # Routines to control the menu 3: # 4: # $Id: lonmenu.pm,v 1.181 2006/05/15 16:23:58 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::lonhtmlcommon(); 44: use Apache::loncommon(); 45: use Apache::lonenc(); 46: use Apache::lonlocal; 47: 48: use vars qw(@desklines $readdesk); 49: 50: 51: my @inlineremote; 52: 53: # ================================================================ Little texts 54: 55: sub initlittle { 56: return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', 57: 'nav' => 'Navigate Contents', 58: 'main' => 'Main Menu', 59: 'roles' => ($env{'user.adv'}? 60: 'Roles':'Courses'), 61: 'docs' => 'Course Documents', 62: 'exit' => 'Exit', 63: 'launch' => 'Launch Remote Control', 64: 'groups' => 'Groups'); 65: } 66: 67: # ============================= This gets called at the top of the body section 68: 69: sub menubuttons { 70: my $forcereg=shift; 71: my $registration=shift; 72: my $titletable=shift; 73: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, 74: ['inhibitmenu']); 75: if (($env{'form.inhibitmenu'} eq 'yes') || 76: ($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; } 77: 78: if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } 79: 80: my %lt=&initlittle(); 81: my $navmaps=''; 82: my $reloadlink=''; 83: my $docs=''; 84: my $groups=''; 85: my $showgroups=0; 86: my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); 87: my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); 88: 89: if ($env{'request.state'} eq 'construct') { 90: if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { 91: my $returnurl = $env{'request.filename'}; 92: $returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:; 93: $escurl = &Apache::lonnet::escape($returnurl); 94: } 95: } 96: if ($env{'request.course.id'}) { 97: my %coursegroups; 98: my $viewgrps_permission = 99: &Apache::lonnet::allowed('vcg',$env{'request.course.id'}); 100: if (!$viewgrps_permission) { 101: %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); 102: } 103: if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) { 104: $showgroups = 1; 105: } 106: } 107: 108: if ($env{'browser.interface'} eq 'textual') { 109: # Textual display only 110: if ($env{'request.course.id'}) { 111: $navmaps=(<<ENDNAV); 112: <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a> 113: ENDNAV 114: if (($env{'request.noversionuri'}=~/^\/adm\//) && 115: ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) && 116: ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { 117: my $escreload=&Apache::lonnet::escape('return:'); 118: $reloadlink=(<<ENDRELOAD); 119: <a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a> 120: ENDRELOAD 121: } 122: if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { 123: $docs=(<<ENDDOCS); 124: <a href="/adm/coursedocs" target="_top">$lt{'docs'}</a> 125: ENDDOCS 126: } 127: if ($showgroups) { 128: $groups =(<<ENDGROUPS); 129: <a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td> 130: ENDGROUPS 131: } 132: } 133: my $form=&serverform(); 134: my $utility=&utilityfunctions(); 135: my $output=(<<ENDMAINMENU); 136: <script type="text/javascript"> 137: // BEGIN LON-CAPA Internal 138: $utility 139: </script> 140: <div id="LC_top_nav"> 141: <a href="/adm/menu" target="_top">$lt{'main'}</a> 142: $reloadlink $navmaps $docs $groups 143: <a href="/adm/roles" target="_top">$lt{'roles'}</a> 144: <a href="/adm/logout" target="_top">$lt{'exit'}</a> 145: </div> 146: <br /> 147: <script type="text/javascript"> 148: // END LON-CAPA Internal 149: </script> 150: $form 151: ENDMAINMENU 152: if ($registration) { $output.=&innerregister($forcereg); } 153: return $output."<hr />"; 154: } elsif ($env{'environment.remote'} eq 'off') { 155: # Remote Control is switched off 156: # figure out colors 157: my %lt=&initlittle(); 158: 159: my $domain=&Apache::loncommon::determinedomain(); 160: my $function =&Apache::loncommon::get_users_function(); 161: my $link=&Apache::loncommon::designparm($function.'.link',$domain); 162: my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); 163: my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); 164: my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); 165: if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { 166: my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); 167: return (<<ENDINLINEMENU); 168: <table id="LC_top_nav"> 169: <tr> 170: <td> 171: <a href="/adm/logout" target="_top">$lt{'exit'}</a> 172: </td> 173: <td align="right"> 174: <img align="right" src="$logo" alt="Logo" /> 175: <b>LON-CAPA</b>  176: </td> 177: </tr> 178: </table> 179: </font> 180: ENDINLINEMENU 181: } 182: # Do we have a NAV link? 183: if ($env{'request.course.id'}) { 184: my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. 185: $escsymb; 186: if ($env{'environment.remotenavmap'} eq 'on') { 187: $link="javascript:gonav('".$link."')"; 188: } 189: $navmaps=(<<ENDNAV); 190: <td><a href="$link" target="_top">$lt{'nav'}</a></td> 191: ENDNAV 192: if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { 193: $docs=(<<ENDDOCS); 194: <td><a href="/adm/coursedocs" target="_top">$lt{'docs'}</a></td> 195: ENDDOCS 196: } 197: if ($showgroups) { 198: $groups =(<<ENDGROUPS); 199: <td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td> 200: ENDGROUPS 201: } 202: if ( 203: ($env{'request.noversionuri'}=~m[^/(res|public)/] && 204: $env{'request.symb'} eq '') 205: || 206: (($env{'request.noversionuri'}=~/^\/adm\//) && 207: ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) && 208: ($env{'request.noversionuri'}!~ 209: m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)]) 210: ) 211: ) { 212: my $escreload=&Apache::lonnet::escape('return:'); 213: $reloadlink=(<<ENDRELOAD); 214: <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> 215: ENDRELOAD 216: } 217: } 218: if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { 219: my $escreload=&Apache::lonnet::escape('return:'); 220: $reloadlink=(<<ENDCRELOAD); 221: <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> 222: ENDCRELOAD 223: } 224: my $reg=''; 225: if ($registration) { 226: $reg=&innerregister($forcereg,$titletable); 227: } 228: my $form=&serverform(); 229: my $utility=&utilityfunctions(); 230: my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); 231: my $remote; 232: if ($env{'user.adv'}) { 233: $remote = '<td><a href="/adm/remote?action=launch&url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>' 234: } 235: return (<<ENDINLINEMENU); 236: <script type="text/javascript"> 237: // BEGIN LON-CAPA Internal 238: // <![CDATA[ 239: $utility 240: // ]]> 241: </script> 242: <table id="LC_top_nav"> 243: <tr> 244: <td><a href="/adm/menu" target="_top">$lt{'main'}</a></td> 245: $reloadlink 246: $navmaps 247: $docs 248: $groups 249: $remote 250: <td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td> 251: <td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td> 252: <td class="LC_top_nav_logo"><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td> 253: </tr> 254: </table> 255: $form 256: <script type="text/javascript"> 257: // END LON-CAPA Internal 258: </script> 259: $reg 260: ENDINLINEMENU 261: } else { 262: return ''; 263: } 264: } 265: 266: # ====================================== This gets called in the header section 267: 268: sub registerurl { 269: my ($forcereg) = @_; 270: my $result = ''; 271: if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } 272: my $force_title=''; 273: if ($env{'request.state'} eq 'construct') { 274: $force_title=&Apache::lonxml::display_title(); 275: } 276: if (($env{'browser.interface'} eq 'textual') || 277: ($env{'environment.remote'} eq 'off') || 278: ((($env{'request.publicaccess'}) || 279: (!&Apache::lonnet::is_on_map( 280: &Apache::lonnet::unescape($env{'request.noversionuri'})))) && 281: (!$forcereg))) { 282: return $result. 283: '<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title; 284: } 285: # Graphical display after login only 286: if ($env{'request.registered'} && !$forcereg) { return ''; } 287: $result.=&innerregister($forcereg); 288: return $result.$force_title; 289: } 290: 291: # =========== This gets called in order to register a URL, both with the Remote 292: # =========== and in the body of the document 293: 294: sub innerregister { 295: my ($forcereg, $titletable) = @_; 296: my $result = ''; 297: my ($uname,$thisdisfn); 298: my $const_space = ($env{'request.state'} eq 'construct'); 299: my $is_const_dir = 0; 300: 301: if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } 302: 303: $env{'request.registered'} = 1; 304: 305: my $textinter=($env{'browser.interface'} eq 'textual'); 306: my $noremote=($env{'environment.remote'} eq 'off'); 307: 308: my $textual=($textinter || $noremote); 309: 310: undef(@inlineremote); 311: 312: my $reopen=&Apache::lonmenu::reopenmenu(); 313: 314: my $newmail=''; 315: if ($noremote) { 316: $newmail='<table id="LC_nav_location"><tr>'; 317: } 318: if (&Apache::lonmsg::newmail()) { 319: if ($textual) { 320: $newmail.= '<td class="LC_new_mail"> 321: <a href="/adm/communicate" target="_top">'. 322: &mt('You have new messages').'</a></td>'; 323: } else { 324: $newmail= 'swmenu.setstatus("you have","messages");'; 325: } 326: } elsif (($textual) 327: && ($env{'request.symb'}) 328: && ($env{'request.course.id'})) { 329: $newmail.= '<td class="LC_current_location">'; 330: my ($mapurl,$rid,$resurl)= 331: &Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); 332: $newmail.=$env{'course.'.$env{'request.course.id'}.'.description'}; 333: my $maptitle=&Apache::lonnet::gettitle($mapurl); 334: my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread()); 335: if ($maptitle && $maptitle ne 'default.sequence') { 336: $newmail.=', '.$maptitle; 337: } 338: if ($restitle) { 339: $newmail.=': '.$restitle; 340: } 341: $newmail.='   </td>'; 342: } 343: if ($env{'request.state'} eq 'construct') { 344: $newmail = $titletable; 345: } else { 346: if ($noremote) { 347: $newmail.='</tr></table>'; 348: } 349: } 350: my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); 351: my $tablestart=($noremote?'<table id="LC_menubuttons">':''). 352: ($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':''); 353: my $tableend=($noremote?'</table>':'').($textinter?'<a name="content" />':''); 354: # ============================================================================= 355: # ============================ This is for URLs that actually can be registered 356: if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) { 357: # -- This applies to homework problems for users with grading privileges 358: my $crs='/'.$env{'request.course.id'}; 359: if ($env{'request.course.sec'}) { 360: $crs.='_'.$env{'request.course.sec'}; 361: } 362: $crs=~s/\_/\//g; 363: 364: my $hwkadd=''; 365: if ($env{'request.symb'} ne '' && 366: $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { 367: if (&Apache::lonnet::allowed('mgr',$crs)) { 368: $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]', 369: "gocmd('/adm/grades','gradingmenu')", 370: 'Modify user grades for this assessment resource'); 371: } elsif (&Apache::lonnet::allowed('vgr',$crs)) { 372: $hwkadd.=&switch('','',7,2,'subm.gif','view sub-[_1]','missions[_1]', 373: "gocmd('/adm/grades','submission')", 374: 'View user submissions for this assessment resource'); 375: } 376: } 377: if ($env{'request.symb'} ne '' && 378: &Apache::lonnet::allowed('opa',$crs)) { 379: $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]', 380: "gocmd('/adm/parmset','set')", 381: 'Modify deadlines, etc, for this resource'); 382: } 383: # -- End Homework 384: ### 385: ### Determine whether or not to display the 'cstr' button for this 386: ### resource 387: ### 388: my $editbutton = ''; 389: if ($env{'user.author'}) { 390: if ($env{'request.role'}=~/^(ca|au)/) { 391: # Set defaults for authors 392: my ($top,$bottom) = ('con-','struct'); 393: my $action = "go('/priv/".$env{'user.name'}."');"; 394: my $cadom = $env{'request.role.domain'}; 395: my $caname = $env{'user.name'}; 396: my $desc = "Enter my resource construction space"; 397: # Set defaults for co-authors 398: if ($env{'request.role'} =~ /^ca/) { 399: ($cadom,$caname)=($env{'request.role'}=~/(\w+)\/(\w+)$/); 400: ($top,$bottom) = ('co con-','struct'); 401: $action = "go('/priv/".$caname."');"; 402: $desc = "Enter construction space as co-author"; 403: } 404: # Check that we are on the correct machine 405: my $home = &Apache::lonnet::homeserver($caname,$cadom); 406: my $allowed=0; 407: my @ids=&Apache::lonnet::current_machine_ids(); 408: foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } 409: if (!$allowed) { 410: $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc); 411: } 412: } 413: ## 414: ## Determine if user can edit url. 415: ## 416: my $cfile=''; 417: my $cfuname=''; 418: my $cfudom=''; 419: if ($env{'request.filename'}) { 420: my $file=&Apache::lonnet::declutter($env{'request.filename'}); 421: $file=~s/^(\w+)\/(\w+)/\/priv\/$2/; 422: # Check that the user has permission to edit this resource 423: ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1); 424: if (defined($cfudom)) { 425: my $home=&Apache::lonnet::homeserver($cfuname,$cfudom); 426: my $allowed=0; 427: my @ids=&Apache::lonnet::current_machine_ids(); 428: foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } 429: if ($allowed) { 430: $cfile=$file; 431: } 432: } 433: } 434: # Finally, turn the button on or off 435: if ($cfile && !$const_space) { 436: $editbutton=&switch 437: ('','',6,1,'cstr.gif','edit[_1]','resource[_2]', 438: "go('".$cfile."');","Edit this resource"); 439: } elsif ($editbutton eq '') { 440: $editbutton=&switch('','',6,1,'port.gif', 441: 'port-[_1]','folio[_1]', 442: "go('/adm/portfolio');", 443: "Enter my portfolio space"); 444: } 445: } 446: ### 447: ### 448: # Prepare the rest of the buttons 449: my $menuitems; 450: if ($const_space) { 451: my ($uname,$thisdisfn) = 452: ($env{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|); 453: my $currdir = '/priv/'.$uname.'/'.$thisdisfn; 454: if ($currdir =~ m-/$-) { 455: $is_const_dir = 1; 456: } else { 457: $currdir =~ s#[^/]+$##; 458: $menuitems=(<<ENDMENUITEMS); 459: s&6&1&list.gif&list[_1]&dir[_1]&golist('$currdir')&List current directory 460: s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$thisdisfn')&Retrieve old version 461: s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$thisdisfn')&Publish this resource 462: s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$thisdisfn')&Delete this resource 463: s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document 464: ENDMENUITEMS 465: } 466: } elsif (defined($env{'request.course.id'}) && 467: $env{'request.symb'} ne '') { 468: $menuitems=(<<ENDMENUITEMS); 469: c&3&1 470: s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1 471: s&2&3&forw.gif&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&3 472: c&6&3 473: c&8&1 474: c&8&2 475: s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document 476: s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&1 477: s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&1 478: ENDMENUITEMS 479: unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { 480: $menuitems.=(<<ENDREALRES); 481: s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information 482: s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource 483: s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource 484: ENDREALRES 485: } 486: } 487: my $buttons=''; 488: foreach (split(/\n/,$menuitems)) { 489: my ($command,@rest)=split(/\&/,$_); 490: if ($command eq 's') { 491: $buttons.=&switch('','',@rest); 492: } else { 493: $buttons.=&clear(@rest); 494: } 495: } 496: 497: if ($textual) { 498: my $addremote=0; 499: foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } } 500: my $inlinebuttons=''; 501: if ($addremote) { 502: # Registered, textual output 503: 504: if ($env{'browser.interface'} eq 'textual') { 505: $inlinebuttons= 506: join('',map { (defined($_)?$_:'') } @inlineremote); 507: } else { 508: $inlinebuttons=(<<ENDINLINE); 509: <tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr> 510: <tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr> 511: <tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr> 512: <tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr> 513: <tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr> 514: ENDINLINE 515: } 516: } 517: $result =(<<ENDREGTEXT); 518: <script type="text/javascript"> 519: // BEGIN LON-CAPA Internal 520: </script> 521: $timesync 522: $newmail 523: $tablestart 524: $inlinebuttons 525: $tableend 526: <script type="text/javascript"> 527: // END LON-CAPA Internal 528: </script> 529: 530: ENDREGTEXT 531: # Registered, graphical output 532: } else { 533: my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); 534: $requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri)); 535: my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); 536: my $navstatus=&get_nav_status(); 537: my $clearcstr; 538: 539: if ($env{'user.adv'}) { $clearcstr='clearbut(6,1)'; } 540: $result = (<<ENDREGTHIS); 541: 542: <script type="text/javascript"> 543: // BEGIN LON-CAPA Internal 544: var swmenu=null; 545: 546: function LONCAPAreg() { 547: swmenu=$reopen; 548: swmenu.clearTimeout(swmenu.menucltim); 549: $timesync 550: $newmail 551: $buttons 552: swmenu.currentURL="$requri"; 553: swmenu.reloadURL=swmenu.currentURL+window.location.search; 554: swmenu.currentSymb="$cursymb"; 555: swmenu.reloadSymb="$cursymb"; 556: swmenu.currentStale=0; 557: $navstatus 558: $hwkadd 559: $editbutton 560: } 561: 562: function LONCAPAstale() { 563: swmenu=$reopen 564: swmenu.currentStale=1; 565: if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) { 566: swmenu.switchbutton 567: (3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence'); 568: } 569: swmenu.clearbut(7,2); 570: swmenu.clearbut(7,3); 571: swmenu.menucltim=swmenu.setTimeout( 572: 'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+ 573: 'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr', 574: 2000); 575: } 576: 577: // END LON-CAPA Internal 578: </script> 579: ENDREGTHIS 580: } 581: # ============================================================================= 582: } else { 583: # ========================================== This can or will not be registered 584: if ($textual) { 585: # Not registered, textual 586: $result= (<<ENDDONOTREGTEXT); 587: ENDDONOTREGTEXT 588: } else { 589: # Not registered, graphical 590: $result = (<<ENDDONOTREGTHIS); 591: 592: <script type="text/javascript"> 593: // BEGIN LON-CAPA Internal 594: var swmenu=null; 595: 596: function LONCAPAreg() { 597: swmenu=$reopen 598: $timesync 599: swmenu.currentStale=1; 600: swmenu.clearbut(2,1); 601: swmenu.clearbut(2,3); 602: swmenu.clearbut(8,1); 603: swmenu.clearbut(8,2); 604: swmenu.clearbut(8,3); 605: if (swmenu.currentURL) { 606: swmenu.switchbutton 607: (3,1,'reload.gif','return','location','go(currentURL)'); 608: } else { 609: swmenu.clearbut(3,1); 610: } 611: } 612: 613: function LONCAPAstale() { 614: } 615: 616: // END LON-CAPA Internal 617: </script> 618: ENDDONOTREGTHIS 619: } 620: # ============================================================================= 621: } 622: return $result; 623: } 624: 625: sub loadevents() { 626: if ($env{'request.state'} eq 'construct' || 627: $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } 628: return 'LONCAPAreg();'; 629: } 630: 631: sub unloadevents() { 632: if ($env{'request.state'} eq 'construct' || 633: $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } 634: return 'LONCAPAstale();'; 635: } 636: 637: # ============================================================= Start up remote 638: 639: sub startupremote { 640: my ($lowerurl)=@_; 641: if (($env{'browser.interface'} eq 'textual') || 642: ($env{'environment.remote'} eq 'off')) { 643: return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />'); 644: } 645: # 646: # The Remote actually gets launched! 647: # 648: my $configmenu=&rawconfig(); 649: my $esclowerurl=&Apache::lonnet::escape($lowerurl); 650: my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); 651: return(<<ENDREMOTESTARTUP); 652: <script type="text/javascript"> 653: var timestart; 654: function wheelswitch() { 655: if (typeof(document.wheel) != 'undefined') { 656: if (typeof(document.wheel.spin) != 'undefined') { 657: var date=new Date(); 658: var waited=Math.round(30-((date.getTime()-timestart)/1000)); 659: document.wheel.spin.value=$message; 660: } 661: } 662: if (window.status=='|') { 663: window.status='/'; 664: } else { 665: if (window.status=='/') { 666: window.status='-'; 667: } else { 668: if (window.status=='-') { 669: window.status='\\\\'; 670: } else { 671: if (window.status=='\\\\') { window.status='|'; } 672: } 673: } 674: } 675: } 676: 677: // ---------------------------------------------------------- The wait function 678: var canceltim; 679: function wait() { 680: if ((menuloaded==1) || (tim==1)) { 681: window.status='Done.'; 682: if (tim==0) { 683: clearTimeout(canceltim); 684: $configmenu 685: window.location='$lowerurl'; 686: } else { 687: window.location='/adm/remote?action=collapse&url=$esclowerurl'; 688: } 689: } else { 690: wheelswitch(); 691: setTimeout('wait();',200); 692: } 693: } 694: 695: function main() { 696: canceltim=setTimeout('tim=1;',30000); 697: window.status='-'; 698: var date=new Date(); 699: timestart=date.getTime(); 700: wait(); 701: } 702: 703: </script> 704: ENDREMOTESTARTUP 705: } 706: 707: sub setflags() { 708: return(<<ENDSETFLAGS); 709: <script type="text/javascript"> 710: menuloaded=0; 711: tim=0; 712: </script> 713: ENDSETFLAGS 714: } 715: 716: sub maincall() { 717: if (($env{'browser.interface'} eq 'textual') || 718: ($env{'environment.remote'} eq 'off')) { return ''; } 719: return(<<ENDMAINCALL); 720: <script type="text/javascript"> 721: main(); 722: </script> 723: ENDMAINCALL 724: } 725: 726: sub load_remote_msg { 727: my ($lowerurl)=@_; 728: 729: if (($env{'browser.interface'} eq 'textual') || 730: ($env{'environment.remote'} eq 'off')) { return ''; } 731: 732: my $esclowerurl=&Apache::lonnet::escape($lowerurl); 733: my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode', 734: "/adm/remote?action=collapse?url=$esclowerurl"); 735: return(<<ENDREMOTEFORM); 736: <p> 737: <form name="wheel"> 738: <input name="spin" type="text" size="60" /> 739: </form> 740: </p> 741: <p>$link</p> 742: ENDREMOTEFORM 743: } 744: # ================================================================= Reopen menu 745: 746: sub reopenmenu { 747: if (($env{'browser.interface'} eq 'textual') || 748: ($env{'environment.remote'} eq 'off')) { return ''; } 749: my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; 750: my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); 751: return('window.open('.$nothing.',"'.$menuname.'","",false);'); 752: } 753: 754: # =============================================================== Open the menu 755: 756: sub open { 757: my $returnval=''; 758: if (($env{'browser.interface'} eq 'textual') || 759: ($env{'environment.remote'} eq 'off')) { 760: return '<script type="text/javascript">self.name="loncapaclient";</script>'; 761: } 762: my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; 763: unless (shift eq 'unix') { 764: # resizing does not work on linux because of virtual desktop sizes 765: $returnval.=(<<ENDRESIZE); 766: if (window.screen) { 767: self.resizeTo(screen.availWidth-215,screen.availHeight-55); 768: self.moveTo(190,15); 769: } 770: ENDRESIZE 771: } 772: $returnval.=(<<ENDOPEN); 773: window.status='Opening LON-CAPA Remote Control'; 774: var menu=window.open("/res/adm/pages/menu.html","$menuname", 775: "height=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5"); 776: self.name='loncapaclient'; 777: ENDOPEN 778: return '<script type="text/javascript">'.$returnval.'</script>'; 779: } 780: 781: 782: # ================================================================== Raw Config 783: 784: sub clear { 785: my ($row,$col)=@_; 786: unless (($env{'browser.interface'} eq 'textual') || 787: ($env{'environment.remote'} eq 'off')) { 788: return "\n".qq(window.status+='.';swmenu.clearbut($row,$col);); 789: } else { 790: $inlineremote[10*$row+$col]=''; 791: return ''; 792: } 793: } 794: 795: # ============================================ Switch a button or create a link 796: # Switch acts on the javascript that is executed when a button is clicked. 797: # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)". 798: 799: sub switch { 800: my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_; 801: $act=~s/\$uname/$uname/g; 802: $act=~s/\$udom/$udom/g; 803: $top=&mt($top); 804: $bot=&mt($bot); 805: $desc=&mt($desc); 806: $img=&mt($img); 807: 808: unless (($env{'browser.interface'} eq 'textual') || 809: ($env{'environment.remote'} eq 'off')) { 810: # Remote 811: return "\n". 812: qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc");); 813: } elsif ($env{'browser.interface'} eq 'textual') { 814: # Accessibility 815: if ($nobreak==2) { return ''; } 816: my $text=$top.' '.$bot; 817: $text=~s/\s*\-\s*//gs; 818: if ($nobreak) { 819: $inlineremote[10*$row+$col]= 820: '<a href="javascript:'.$act.';">'.$text.'</a>'; 821: } else { 822: $inlineremote[10*$row+$col]="\n<br />". 823: $desc.' <a href="javascript:'.$act.';">'.$text.'</a>'; 824: } 825: } else { 826: # Inline Remote 827: if ($nobreak==2) { return ''; } 828: my $text=$top.' '.$bot; 829: $text=~s/\s*\-\s*//gs; 830: 831: my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; 832: if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } 833: my $pic= 834: '<img alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}. 835: ':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'. 836: ($nobreak==3?'right':'left').'" />'; 837: if ($env{'browser.interface'} eq 'faketextual') { 838: # Accessibility 839: if ($nobreak==3) { 840: $inlineremote[10*$row+$col]="\n". 841: '<td class="LC_menubuttons_text" align="right">'.$text. 842: '</td><td class="LC_menubuttons_img" align="left">'. 843: '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>'; 844: } elsif ($nobreak) { 845: $inlineremote[10*$row+$col]="\n<tr>". 846: '<td class="LC_menubuttons_img" align="left">'. 847: '<a href="javascript:'.$act.';">'.$pic.'</a></td> 848: <td class="LC_menubuttons_text" align="left">'.$text.'</td>'; 849: } else { 850: $inlineremote[10*$row+$col]="\n<tr>". 851: '<td class="LC_menubuttons_img" align="left">'. 852: '<a href="javascript:'.$act.';">'.$pic. 853: '</a></td><td class="LC_menubuttons_text" colspan="3">'. 854: $desc.'</td></tr>'; 855: } 856: } else { 857: # Inline Menu 858: $inlineremote[10*$row+$col]= 859: '<a href="javascript:'.$act.';">'.$pic. 860: '</a><span class="LC_menubuttons_inline_text">'.$desc.'</span>'; 861: } 862: } 863: return ''; 864: } 865: 866: sub secondlevel { 867: my $output=''; 868: my 869: ($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc)=@_; 870: if ($prt eq 'any') { 871: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 872: } elsif ($prt=~/^r(\w+)/) { 873: if ($rol eq $1) { 874: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 875: } 876: } 877: return $output; 878: } 879: 880: sub openmenu { 881: my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; 882: if (($env{'browser.interface'} eq 'textual') || 883: ($env{'environment.remote'} eq 'off')) { return ''; } 884: my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); 885: return "window.open(".$nothing.",'".$menuname."');"; 886: } 887: 888: sub inlinemenu { 889: @inlineremote=(); 890: undef @inlineremote; 891: &rawconfig(1); 892: return join('',map { (defined($_)?$_:'') } @inlineremote); 893: } 894: 895: sub rawconfig { 896: my $textualoverride=shift; 897: my $output=''; 898: unless (($env{'browser.interface'} eq 'textual') || 899: ($env{'environment.remote'} eq 'off')) { 900: $output.= 901: "window.status='Opening Remote Control';var swmenu=".&openmenu(). 902: "\nwindow.status='Configuring Remote Control ';"; 903: } else { 904: unless ($textualoverride) { return ''; } 905: } 906: my $uname=$env{'user.name'}; 907: my $udom=$env{'user.domain'}; 908: my $adv=$env{'user.adv'}; 909: my $author=$env{'user.author'}; 910: my $crs=''; 911: if ($env{'request.course.id'}) { 912: $crs='/'.$env{'request.course.id'}; 913: if ($env{'request.course.sec'}) { 914: $crs.='_'.$env{'request.course.sec'}; 915: } 916: $crs=~s/\_/\//g; 917: } 918: my $pub=($env{'request.state'} eq 'published'); 919: my $con=($env{'request.state'} eq 'construct'); 920: my $rol=$env{'request.role'}; 921: my $requested_domain = $env{'request.role.domain'}; 922: foreach (@desklines) { 923: my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_); 924: $prt=~s/\$uname/$uname/g; 925: $prt=~s/\$udom/$udom/g; 926: $prt=~s/\$crs/$crs/g; 927: $prt=~s/\$requested_domain/$requested_domain/g; 928: if ($pro eq 'clear') { 929: $output.=&clear($row,$col); 930: } elsif ($pro eq 'any') { 931: $output.=&secondlevel( 932: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc); 933: } elsif ($pro eq 'smp') { 934: unless ($adv) { 935: $output.=&secondlevel( 936: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc); 937: } 938: } elsif ($pro eq 'adv') { 939: if ($adv) { 940: $output.=&secondlevel( 941: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc); 942: } 943: } elsif (($pro=~/^p(\w+)/) && ($prt)) { 944: if (&Apache::lonnet::allowed($1,$prt)) { 945: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 946: } 947: } elsif ($pro eq 'course') { 948: if ($env{'request.course.fn'}) { 949: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 950: } 951: } elsif ($pro =~ /^courseenv_(.*)$/) { 952: my $key = $1; 953: if ($env{'course.'.$env{'request.course.id'}.'.'.$key}) { 954: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 955: } 956: } elsif ($pro =~ /^course_(.*)$/) { 957: # Check for permissions inside of a course 958: if (($env{'request.course.id'}) && 959: (&Apache::lonnet::allowed($1,$env{'request.course.id'}. 960: ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) 961: )) { 962: $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); 963: } 964: } elsif ($pro eq 'author') { 965: if ($author) { 966: if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) || 967: (($prt eq 'rau') && ($env{'request.role'}=~/^au/))) { 968: # Check that we are on the correct machine 969: my $cadom=$requested_domain; 970: my $caname=$env{'user.name'}; 971: if ($prt eq 'rca') { 972: ($cadom,$caname)= 973: ($env{'request.role'}=~/(\w+)\/(\w+)$/); 974: } 975: $act =~ s/\$caname/$caname/g; 976: my $home = &Apache::lonnet::homeserver($caname,$cadom); 977: my $allowed=0; 978: my @ids=&Apache::lonnet::current_machine_ids(); 979: foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } } 980: if ($allowed) { 981: $output.=switch($caname,$cadom, 982: $row,$col,$img,$top,$bot,$act,$desc); 983: } 984: } 985: } 986: } 987: } 988: unless (($env{'browser.interface'} eq 'textual') || 989: ($env{'environment.remote'} eq 'off')) { 990: $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; 991: if (&Apache::lonmsg::newmail()) { 992: $output.='swmenu.setstatus("you have","messages");'; 993: } 994: } 995: 996: return $output; 997: } 998: 999: # ======================================================================= Close 1000: 1001: sub close { 1002: if (($env{'browser.interface'} eq 'textual') || 1003: ($env{'environment.remote'} eq 'off')) { return ''; } 1004: my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; 1005: return(<<ENDCLOSE); 1006: <script type="text/javascript"> 1007: window.status='Accessing Remote Control'; 1008: menu=window.open("/adm/rat/empty.html","$menuname", 1009: "height=350,width=150,scrollbars=no,menubar=no"); 1010: window.status='Disabling Remote Control'; 1011: menu.active=0; 1012: menu.autologout=0; 1013: window.status='Closing Remote Control'; 1014: menu.close(); 1015: window.status='Done.'; 1016: </script> 1017: ENDCLOSE 1018: } 1019: 1020: # ====================================================================== Footer 1021: 1022: sub footer { 1023: 1024: } 1025: 1026: sub nav_control_js { 1027: my $nav=($env{'environment.remotenavmap'} eq 'on'); 1028: return (<<NAVCONTROL); 1029: var w_loncapanav_flag="$nav"; 1030: 1031: 1032: function gonav(url) { 1033: if (w_loncapanav_flag != 1) { 1034: gopost(url,''); 1035: } else { 1036: navwindow=window.open(url, 1037: "loncapanav","height=600,width=400,scrollbars=1"); 1038: } 1039: } 1040: NAVCONTROL 1041: } 1042: 1043: sub utilityfunctions { 1044: my $caller = shift; 1045: unless (($env{'browser.interface'} eq 'textual') || 1046: ($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } 1047: my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); 1048: $currenturl=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($currenturl)); 1049: 1050: my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); 1051: my $nav_control=&nav_control_js(); 1052: 1053: my $start_page_annotate = 1054: &Apache::loncommon::start_page('Annotator',undef, 1055: {'only_body' => 1, 1056: 'js_ready' => 1, 1057: 'bgcolor' => '#BBBBBB', 1058: 'add_entries' => { 1059: 'onload' => 'javascript:document.goannotate.submit();'}}); 1060: 1061: my $start_page_bookmark = 1062: &Apache::loncommon::start_page('Bookmarks',undef, 1063: {'only_body' => 1, 1064: 'js_ready' => 1, 1065: 'bgcolor' => '#BBBBBB',}); 1066: 1067: my $end_page = 1068: &Apache::loncommon::end_page({'js_ready' => 1}); 1069: 1070: return (<<ENDUTILITY) 1071: 1072: var currentURL="$currenturl"; 1073: var reloadURL="$currenturl"; 1074: var currentSymb="$currentsymb"; 1075: 1076: $nav_control 1077: 1078: function go(url) { 1079: if (url!='' && url!= null) { 1080: currentURL = null; 1081: currentSymb= null; 1082: window.location.href=url; 1083: } 1084: } 1085: 1086: function gopost(url,postdata) { 1087: if (url!='') { 1088: this.document.server.action=url; 1089: this.document.server.postdata.value=postdata; 1090: this.document.server.command.value=''; 1091: this.document.server.url.value=''; 1092: this.document.server.symb.value=''; 1093: this.document.server.submit(); 1094: } 1095: } 1096: 1097: function gocmd(url,cmd) { 1098: if (url!='') { 1099: this.document.server.action=url; 1100: this.document.server.postdata.value=''; 1101: this.document.server.command.value=cmd; 1102: this.document.server.url.value=currentURL; 1103: this.document.server.symb.value=currentSymb; 1104: this.document.server.submit(); 1105: } 1106: } 1107: 1108: function gocstr(url,filename) { 1109: if (url == '/adm/cfile?action=delete') { 1110: this.document.cstrdelete.filename.value = filename 1111: this.document.cstrdelete.submit(); 1112: return; 1113: } 1114: if (url == '/adm/printout') { 1115: this.document.cstrprint.postdata.value = filename 1116: this.document.cstrprint.curseed.value = 0; 1117: this.document.cstrprint.problemtype.value = 0; 1118: if (this.document.lonhomework) { 1119: if ((this.document.lonhomework.rndseed) && (this.document.lonhomework.rndseed.value != null) && (this.document.lonhomework.rndseed.value != '')) { 1120: this.document.cstrprint.curseed.value = this.document.lonhomework.rndseed.value 1121: } 1122: if (this.document.lonhomework.problemtype) { 1123: if (this.document.lonhomework.problemtype.value) { 1124: this.document.cstrprint.problemtype.value = 1125: this.document.lonhomework.problemtype.value; 1126: } else if (this.document.lonhomework.problemtype.options) { 1127: for (var i=0; i<this.document.lonhomework.problemtype.options.length; i++) { 1128: if (this.document.lonhomework.problemtype.options[i].selected) { 1129: if (this.document.lonhomework.problemtype.options[i].value != null && this.document.lonhomework.problemtype.options[i].value != '') { 1130: this.document.cstrprint.problemtype.value = this.document.lonhomework.problemtype.options[i].value 1131: } 1132: } 1133: } 1134: } 1135: } 1136: } 1137: this.document.cstrprint.submit(); 1138: return; 1139: } 1140: if (url !='') { 1141: this.document.constspace.filename.value = filename; 1142: this.document.constspace.action = url; 1143: this.document.constspace.submit(); 1144: } 1145: } 1146: 1147: function golist(url) { 1148: if (url!='' && url!= null) { 1149: currentURL = null; 1150: currentSymb= null; 1151: top.location.href=url; 1152: } 1153: } 1154: 1155: 1156: 1157: function catalog_info() { 1158: loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); 1159: } 1160: 1161: function chat_win() { 1162: lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no'); 1163: } 1164: 1165: function group_chat(group) { 1166: var url = '/adm/groupchat?group='+group; 1167: var winName = 'LONchat_'+group; 1168: grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no'); 1169: } 1170: 1171: function edit_bookmarks() { 1172: go(''); 1173: w_BookmarkPal_flag=1; 1174: bookmarkpal=window.open("/adm/bookmarks", 1175: "BookmarkPal", "width=400,height=505,scrollbars=0"); 1176: } 1177: 1178: function annotate() { 1179: w_Annotator_flag=1; 1180: annotator=window.open('','Annotator','width=365,height=265,scrollbars=0'); 1181: annotator.document.write( 1182: '$start_page_annotate' 1183: +"<form name='goannotate' target='Annotator' method='post' " 1184: +"action='/adm/annotations'>" 1185: +"<input type='hidden' name='urlnew' value='"+currentURL+"' />" 1186: +"<\\/form>" 1187: +'$end_page'); 1188: annotator.document.close(); 1189: } 1190: 1191: function set_bookmark() { 1192: go(''); 1193: clienttitle=document.title; 1194: clienthref=location.pathname; 1195: w_bmquery_flag=1; 1196: bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0'); 1197: bmquery.document.write( 1198: '$start_page_bookmark' 1199: +"<center><form method='post'" 1200: +" name='newlink' action='/adm/bookmarks' target='bmquery' " 1201: +">\\n <table width=340 height=150 " 1202: +"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input " 1203: +"type='text' name='title' size=45 value='"+clienttitle+"' />" 1204: +"<br />Address:<br /><input type='text' name='address' size='45' " 1205: +"value='"+clienthref+"' /><br /><center><input type='submit' " 1206: +"value='Save' /> <input type='button' value='Close (no save)' " 1207: +"onclick='javascript:window.close();' /><\\/center><\\/td>" 1208: +"<\\/tr><\\/table><\\/form><\\/center>" 1209: +'$end_page' ); 1210: bmquery.document.close(); 1211: } 1212: 1213: ENDUTILITY 1214: } 1215: 1216: sub serverform { 1217: return(<<ENDSERVERFORM); 1218: <form name="server" action="/adm/logout" method="post" target="_top"> 1219: <input type="hidden" name="postdata" value="none" /> 1220: <input type="hidden" name="command" value="none" /> 1221: <input type="hidden" name="url" value="none" /> 1222: <input type="hidden" name="symb" value="none" /> 1223: </form> 1224: ENDSERVERFORM 1225: } 1226: 1227: sub constspaceform { 1228: return(<<ENDCONSTSPACEFORM); 1229: <form name="constspace" action="/adm/logout" method="post" target="_top"> 1230: <input type="hidden" name="filename" value="" /> 1231: </form> 1232: <form name="cstrdelete" action="/adm/cfile" method="post" target="_top"> 1233: <input type="hidden" name="action" value="delete" /> 1234: <input type="hidden" name="filename" value="" /> 1235: </form> 1236: <form name="cstrprint" action="/adm/printout" target="_parent" method="post"> 1237: <input type="hidden" name="postdata" value="" /> 1238: <input type="hidden" name="curseed" value="" /> 1239: <input type="hidden" name="problemtype" value="" /> 1240: </form> 1241: 1242: ENDCONSTSPACEFORM 1243: } 1244: 1245: 1246: sub get_nav_status { 1247: my $navstatus="swmenu.w_loncapanav_flag="; 1248: if ($env{'environment.remotenavmap'} eq 'on') { 1249: $navstatus.="1"; 1250: } else { 1251: $navstatus.="-1"; 1252: } 1253: return $navstatus; 1254: } 1255: 1256: # ================================================================ Main Program 1257: 1258: BEGIN { 1259: if (! defined($readdesk)) { 1260: { 1261: my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab'; 1262: if ( CORE::open( my $config,"<$tabfile") ) { 1263: while (my $configline=<$config>) { 1264: $configline=(split(/\#/,$configline))[0]; 1265: $configline=~s/^\s+//; 1266: chomp($configline); 1267: if ($configline) { 1268: push(@desklines,$configline); 1269: } 1270: } 1271: CORE::close($config); 1272: } 1273: } 1274: $readdesk='done'; 1275: } 1276: } 1277: 1278: 1; 1279: __END__ 1280: 1281: 1282: 1283: 1284: 1285: 1286: