File:
[LON-CAPA] /
loncom /
interface /
lonmenu.pm
Revision
1.539:
download - view:
text,
annotated -
select for diffs
Mon Oct 2 21:01:21 2023 UTC (9 months ago) by
raeburn
Branches:
MAIN
CVS tags:
HEAD
- Bug 6979.
"View As" form in Functions menu includes domain dropdown list if users in
course are from more than one domain. Use course's environment.db to store
comma separated list of unique domains to which course users belong.
1: # The LearningOnline Network with CAPA
2: # Routines to control the menu
3: #
4: # $Id: lonmenu.pm,v 1.539 2023/10/02 21:01:21 raeburn 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:
30: =head1 NAME
31:
32: Apache::lonmenu
33:
34: =head1 SYNOPSIS
35:
36: Loads contents of /home/httpd/lonTabs/mydesk.tab,
37: used to generate inline menu, and Main Menu page.
38:
39: This is part of the LearningOnline Network with CAPA project
40: described at http://www.lon-capa.org.
41:
42: =head1 GLOBAL VARIABLES
43:
44: =over
45:
46: =item @desklines
47:
48: Each element of this array contains a line of mydesk.tab that doesn't start with
49: cat, prim or scnd.
50: It gets filled in the BEGIN block of this module.
51:
52: =item %category_names
53:
54: The keys of this hash are the abbreviations used in mydesk.tab in those lines that
55: start with cat, the values are strings representing titles.
56: It gets filled in the BEGIN block of this module.
57:
58: =item %category_members
59:
60: TODO
61:
62: =item %category_positions
63:
64: The keys of this hash are the abbreviations used in mydesk.tab in those lines that
65: start with cat, its values are position vectors (column, row).
66: It gets filled in the BEGIN block of this module.
67:
68: =item $readdesk
69:
70: Indicates that mydesk.tab has been read.
71: It is set to 'done' in the BEGIN block of this module.
72:
73: =item @primary_menu
74:
75: The elements of this array reference arrays that are made up of the components
76: of those lines of mydesk.tab that start with prim:.
77: It is used by primary_menu() to generate the corresponding menu.
78: It gets filled in the BEGIN block of this module.
79:
80: =item %primary_sub_menu
81:
82: The keys of this hash reference are the names of items in the primary_menu array
83: which have sub-menus. For each key, the corresponding value is a reference to
84: an array containing components extracted from lines in mydesk.tab which begin
85: with primsub:.
86: This hash, which is used by primary_menu to generate sub-menus, is populated in
87: the BEGIN block.
88:
89: =item @secondary_menu
90:
91: The elements of this array reference arrays that are made up of the components
92: of those lines of mydesk.tab that start with scnd.
93: It is used by secondary_menu() to generate the corresponding menu.
94: It gets filled in the BEGIN block of this module.
95:
96: =back
97:
98: =head1 SUBROUTINES
99:
100: =over
101:
102: =item prep_menuitems(\@menuitem,$target,$listclass,$linkattr)
103:
104: This routine wraps a menuitem in proper HTML. It is used by primary_menu() and
105: secondary_menu().
106:
107: =item primary_menu()
108:
109: This routine evaluates @primary_menu and returns a two item array,
110: with the array elements containing XHTML for the left and right sides of
111: the menu that contains the following links: About, Message, Roles, Help, Logout
112: @primary_menu is filled within the BEGIN block of this module with
113: entries from mydesk.tab
114:
115: =item secondary_menu()
116:
117: Same as primary_menu() but operates on @secondary_menu.
118:
119: =item create_submenu()
120:
121: Creates XHTML for unordered list of sub-menu items which belong to a
122: particular top-level menu item. Uses hover pseudo class in css to display
123: dropdown list when mouse hovers over top-level item. Support for IE6
124: (no hover psuedo class) via LC_hoverable class for <li> tag for top-
125: level item, which employs jQuery to handle behavior on mouseover.
126:
127: Inputs: 6 - (a) link and (b) target for anchor href in top level item,
128: (c) title for text wrapped by anchor tag in top level item,
129: (d) reference to array of arrays of sub-menu items,
130: (e) boolean to indicate whether to call &mt() to translate
131: name of menu item,
132: (f) optional class for <li> element in primary menu, for which
133: sub menu is being generated.
134:
135: The underlying datastructure used in (d) contains data from mydesk.tab.
136: It consists of an array which has an array for each item appearing in
137: the menu (e.g. [["link", "title", "condition"]] for a single-item menu).
138: create_submenu() supports also the creation of XHTML for nested dropdown
139: menus represented by unordered lists. This is done by replacing the
140: scalar used for the link with an arrayreference containing the menuitems
141: for the nested menu. This can be done recursively so that the next menu
142: may also contain nested submenus.
143:
144: Example:
145: [ # begin of datastructure
146: ["/home/", "Home", "condition1"], # 1st item of the 1st layer menu
147: [ # 2nd item of the 1st layer menu
148: [ # anon. array for nested menu
149: ["/path1", "Path1", undef], # 1st item of the 2nd layer menu
150: ["/path2", "Path2", undef], # 2nd item of the 2nd layer menu
151: [ # 3rd item of the 2nd layer menu
152: [[...], [...], ..., [...]], # containing another menu layer
153: "Sub-Sub-Menu", # title for this container
154: undef
155: ]
156: ], # end of array/nested menu
157: "Sub-Menu", # title for the container item
158: undef
159: ] # end of 2nd item of the 1st layer menu
160: ]
161:
162: =item innerregister()
163:
164: This gets called in order to register a URL in the body of the document
165:
166: =item clear()
167:
168: =item switch()
169:
170: Switch a button or create a link
171: Switch acts on the javascript that is executed when a button is clicked.
172: The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
173:
174: =item secondlevel()
175:
176: =item openmenu()
177:
178: =item inlinemenu()
179:
180: =item rawconfig()
181:
182: =item utilityfunctions()
183:
184: Output from this routine is a number of javascript functions called by
185: items in the inline menu, and in some cases items in the Main Menu page.
186:
187: =item serverform()
188:
189: =item constspaceform()
190:
191: =item get_nav_status()
192:
193: =item hidden_button_check()
194:
195: =item roles_selector()
196:
197: =item jump_to_role()
198:
199: =back
200:
201: =cut
202:
203: package Apache::lonmenu;
204:
205: use strict;
206: use Apache::lonnet;
207: use Apache::lonhtmlcommon();
208: use Apache::loncommon();
209: use Apache::lonenc();
210: use Apache::lonlocal;
211: use Apache::lonmsg();
212: use LONCAPA qw(:DEFAULT :match);
213: use HTML::Entities();
214: use Apache::lonwishlist();
215:
216: use vars qw(@desklines %category_names %category_members %category_positions
217: $readdesk @primary_menu %primary_submenu @secondary_menu %secondary_submenu);
218:
219: my @inlineremote;
220:
221: sub prep_menuitem {
222: my ($menuitem,$target,$listclass,$linkattr) = @_;
223: return '' unless(ref($menuitem) eq 'ARRAY');
224: my ($link,$targetattr);
225: if ($$menuitem[1]) { # graphical Link
226: $link = "<img class=\"LC_noBorder\""
227: . " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\""
228: . " alt=\"" . &mt($$menuitem[2]) . "\" />";
229: } else { # textual Link
230: $link = &mt($$menuitem[3]);
231: }
232: if ($target ne '') {
233: $targetattr = ' target="'.$target.'"';
234: }
235: return ($listclass?'<li class="'.$listclass.'">':'<li>').'<a'
236: # highlighting for new messages
237: . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '')
238: . qq| href="$$menuitem[0]"$targetattr $linkattr>$link</a></li>|;
239: }
240:
241: # primary_menu() evaluates @primary_menu and returns a two item array,
242: # with the array elements containing XHTML for the left and right sides of
243: # the menu that contains the following links:
244: # Personal, About, Message, Roles, Help, Logout
245: # @primary_menu is filled within the BEGIN block of this module with
246: # entries from mydesk.tab
247: sub primary_menu {
248: my ($crstype,$ltimenu,$menucoll,$menuref,$links_disabled,$links_target) = @_;
249: my (%menu,%ltiexc,%menuopts);
250: # each element of @primary contains following array:
251: # (link url, icon path, alt text, link text, condition, position)
252: my $public;
253: if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
254: || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
255: $public = 1;
256: }
257: my $rolecount;
258: if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {
259: my $update=$env{'user.update.time'};
260: if (!$update) {
261: $update = $env{'user.login.time'};
262: }
263: my %roles_in_env;
264: $rolecount = &Apache::lonroles::roles_from_env(\%roles_in_env,$update);
265: }
266: my $lti;
267: if ($env{'request.lti.login'}) {
268: $lti = 1;
269: if (ref($ltimenu) eq 'HASH') {
270: foreach my $item ('fullname','logout') {
271: unless ($ltimenu->{$item}) {
272: $ltiexc{$item} = 1;
273: }
274: }
275: }
276: }
277: my ($listclass,$linkattr,$target);
278: if ($links_disabled) {
279: $listclass = 'LCisDisabled';
280: $linkattr = 'aria-disabled="true"';
281: }
282: if ($links_target ne '') {
283: $target = $links_target;
284: } else {
285: my ($ltitarget,$deeplinktarget);
286: if ($env{'request.lti.login'}) {
287: $ltitarget = $env{'request.lti.target'};
288: }
289: if ($env{'request.deeplink.login'}) {
290: $deeplinktarget = $env{'request.deeplink.target'};
291: }
292: if (($ltitarget eq 'iframe') || ($deeplinktarget eq '_self')) {
293: $target = '_self';
294: } else {
295: $target = '_top';
296: }
297: }
298: if (($menucoll) && (ref($menuref) eq 'HASH')) {
299: %menuopts = %{$menuref};
300: }
301: foreach my $menuitem (@primary_menu) {
302: # evaluate conditions
303: next if ref($menuitem) ne 'ARRAY'; #
304: next if $$menuitem[4] eq 'nonewmsg' # show links depending on
305: && &Apache::lonmsg::mynewmail(); # whether a new msg
306: next if $$menuitem[4] eq 'newmsg' # arrived or not
307: && !&Apache::lonmsg::mynewmail(); #
308: next if $$menuitem[4] !~ /public/ ##we've a public user,
309: && $public; ##who should not see all
310: ##links
311: next if $$menuitem[4] eq 'onlypublic'# hide links which are
312: && !$public; # only visible to public
313: # users
314: next if $$menuitem[4] eq 'roles' ##show links depending on
315: && (&Apache::loncommon::show_course() ##term 'Courses' or
316: || $lti); ##'Roles' wanted
317: next if $$menuitem[4] eq 'courses' ##and not LTI access
318: && (!&Apache::loncommon::show_course()
319: || $lti);
320: next if $$menuitem[4] eq 'notlti'
321: && $lti;
322: next if $$menuitem[4] eq 'ltiexc'
323: && exists($ltiexc{lc($menuitem->[3])});
324: my $title = $menuitem->[3];
325: if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {
326: if ($menuitem->[4] eq 'courses') {
327: next unless ($rolecount>1);
328: } else {
329: next unless (($title eq 'Personal') || ($title eq 'Logout'));
330: }
331: }
332: my $position = $menuitem->[5];
333: if ($position eq '') {
334: $position = 'right';
335: }
336: if ($env{'request.course.id'} && $menucoll) {
337: if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]})) {
338: if ($menuitem->[6] eq 'pers') {
339: if ($menuopts{'name'} && !$ltiexc{'fullname'} &&
340: $env{'user.name'} && $env{'user.domain'}) {
341: $menu{$position} .= '<li><a href="#">'.
342: &Apache::loncommon::plainname($env{'user.name'},
343: $env{'user.domain'}).'</a></li>';
344: next;
345: } else {
346: next;
347: }
348: } else {
349: next;
350: }
351: }
352: }
353: if (defined($primary_submenu{$title})) {
354: my $link;
355: if ($menuitem->[0] ne '') {
356: $link = $menuitem->[0];
357: } else {
358: $link = '#';
359: }
360: my @primsub;
361: if (ref($primary_submenu{$title}) eq 'ARRAY') {
362: foreach my $item (@{$primary_submenu{$title}}) {
363: next if (($crstype eq 'Placement') && (!$env{'request.role.adv'}));
364: next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'}));
365: next if ((($item->[2] eq 'portfolio') ||
366: ($item->[2] eq 'blog')) &&
367: (!&Apache::lonnet::usertools_access('','',$item->[2],
368: undef,'tools')));
369: if ($env{'request.course.id'} && $menucoll) {
370: next if ($item->[3]) && (!$menuopts{$item->[3]});
371: }
372: push(@primsub,$item);
373: }
374: if ($title eq 'Personal') {
375: if ($env{'user.name'} && $env{'user.domain'} && !$ltiexc{'fullname'}) {
376: unless (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'})) {
377: $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
378: }
379: }
380: next if (($env{'request.course.id'}) && ($menucoll) && ($title eq 'Personal') &&
381: (!@primsub));
382: if ($title eq 'Personal') {
383: $title = &mt($title);
384: }
385: } else {
386: $title = &mt($title);
387: }
388: if (@primsub > 0) {
389: $menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1,undef,$listclass,$linkattr);
390: } elsif ($link) {
391: $menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').
392: '<a href="'.$link.'" target="'.$target.'" '.$linkattr.'>'.$title.'</a></li>';
393: }
394: }
395: } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
396: next if ($crstype eq 'Placement');
397: if ($public) {
398: my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
399: my $defdom = &Apache::lonnet::default_login_domain();
400: my $to = &Apache::loncommon::build_recipient_list(undef,
401: 'helpdeskmail',
402: $defdom,$origmail);
403: if ($to ne '') {
404: $menu{$position} .= &prep_menuitem($menuitem,$target,$listclass,$linkattr);
405: }
406: } else {
407: $menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').
408: &Apache::loncommon::top_nav_help('Help',$linkattr).
409: '</li>';
410: }
411: } elsif ($$menuitem[3] eq 'Log In') {
412: if ($public) {
413: if (&Apache::lonnet::get_saml_landing()) {
414: $$menuitem[0] = '/adm/login';
415: }
416: }
417: $menu{$position} .= prep_menuitem($menuitem,$target,$listclass,$linkattr);
418: } else {
419: $menu{$position} .= prep_menuitem($menuitem,$target,$listclass,$linkattr);
420: }
421: }
422: my @output = ('','');
423: if ($menu{'left'} ne '') {
424: $output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";
425: }
426: if ($menu{'right'} ne '') {
427: $output[1] = "<ol class=\"LC_primary_menu LC_floatright LC_right\">$menu{'right'}</ol>";
428: }
429: return @output;
430: }
431:
432: #returns hashref {user=>'',dom=>''} containing:
433: # own name, domain if user is au
434: # name, domain of parent author if user is ca or aa
435: #empty return if user is not an author or not on homeserver
436: #
437: #TODO this should probably be moved somewhere more central
438: #since it can be used by different parts of the system
439: sub getauthor{
440: return unless $env{'request.role'}=~/^(ca|aa|au)/; #nothing to do if user isn't some kind of author
441:
442: #co- or assistent author?
443: my ($dom, $user) = ($env{'request.role'} =~ /^(?:ca|aa)\.\/($match_domain)\/($match_username)$/)
444: ? ($1, $2) #domain, username of the parent author
445: : @env{ ('request.role.domain', 'user.name') }; #own domain, username
446:
447: # current server == home server?
448: my $home = &Apache::lonnet::homeserver($user,$dom);
449: foreach (&Apache::lonnet::current_machine_ids()){
450: return {user => $user, dom => $dom} if $_ eq $home;
451: }
452:
453: # if wrong server
454: return;
455: }
456:
457: sub secondary_menu {
458: my ($httphost,$ltiscope,$ltimenu,$noprimary,$menucoll,$menuref,
459: $links_disabled,$links_target) = @_;
460: my $menu;
461:
462: my $crstype = &Apache::loncommon::course_type();
463: my $crs_sec = $env{'request.course.id'} . ($env{'request.course.sec'}
464: ? "/$env{'request.course.sec'}"
465: : '');
466: my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
467: my $canvieweditor = &Apache::lonnet::allowed('cev', $env{'request.course.id'});
468: my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
469: if ($canviewroster eq 'disabled') {
470: undef($canviewroster);
471: }
472: my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec);
473: my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
474: my $canviewusers = &Apache::lonnet::allowed('vcl', $crs_sec);
475: my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec);
476: my $canviewpara = &Apache::lonnet::allowed('vpa', $crs_sec);
477: my $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec);
478: my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec);
479: my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec);
480: my $canplc = &Apache::lonnet::allowed('plc', $crs_sec);
481: my $author = &getauthor();
482:
483: my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools,
484: $lti,$ltimapres,%ltiexc,%menuopts);
485: $grouptools = 0;
486: if ($env{'request.course.id'}) {
487: $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
488: $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
489: unless ($canedit || $canvieweditor) {
490: unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) {
491: if (($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'}) ||
492: ($env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'}) ||
493: ($env{'course.'.$env{'request.course.id'}.'.updatedsyllabus'}) ||
494: ($env{'request.course.syllabustime'})) {
495: $showsyllabus = 1;
496: }
497: }
498: if ($env{'request.course.feeds'}) {
499: $showfeeds = 1;
500: }
501: }
502: unless ($canmgr || $canvgr) {
503: my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
504: if (keys(%slots) > 0) {
505: $showresv = 1;
506: }
507: }
508: if ($env{'request.course.groups'} ne '') {
509: foreach my $group (split(/:/,$env{'request.course.groups'})) {
510: next unless ($group =~ /^\w+$/);
511: my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});
512: shift(@privs);
513: if (@privs) {
514: $grouptools ++;
515: }
516: }
517: }
518: if ($env{'request.lti.login'}) {
519: $lti = 1;
520: if (ref($ltimenu) eq 'HASH') {
521: foreach my $item ('fullname','coursetitle','role','logout','grades') {
522: unless ($ltimenu->{$item}) {
523: $ltiexc{$item} = 1;
524: }
525: }
526: }
527: if (($ltiscope eq 'map') || ($ltiscope eq 'resource')) {
528: $ltimapres = 1;
529: }
530: }
531: }
532: if (($menucoll) && (ref($menuref) eq 'HASH')) {
533: %menuopts = %{$menuref};
534: }
535:
536: my ($listclass,$linkattr,$target);
537: if ($links_disabled) {
538: $listclass = 'LCisDisabled';
539: $linkattr = 'aria-disabled="true"';
540: }
541:
542: my ($canmodifycoauthor);
543: if ($env{'request.role'} eq "au./$env{'user.domain'}/") {
544: my $extent = "$env{'user.domain'}/$env{'user.name'}";
545: if ((&Apache::lonnet::allowed('cca',$extent)) ||
546: (&Apache::lonnet::allowed('caa',$extent))) {
547: $canmodifycoauthor = 1;
548: }
549: }
550:
551: my ($roleswitcher_js,$roleswitcher_form);
552: if ($links_target ne '') {
553: $target = $links_target;
554: } else {
555: my ($ltitarget,$deeplinktarget);
556: if ($env{'request.lti.login'}) {
557: $ltitarget = $env{'request.lti.target'};
558: }
559: if ($env{'request.deeplink.login'}) {
560: $deeplinktarget = $env{'request.deeplink.target'};
561: }
562: if (($ltitarget eq 'iframe') || ($deeplinktarget eq '_self')) {
563: $target = '_self';
564: } else {
565: $target = '_top';
566: }
567: }
568:
569: foreach my $menuitem (@secondary_menu) {
570: # evaluate conditions
571: next if ref($menuitem) ne 'ARRAY';
572: next if (($crstype eq 'Placement') && ($$menuitem[3] ne 'Roles') && (!$env{'request.role.adv'}));
573: next if $$menuitem[4] ne 'always'
574: && ($$menuitem[4] ne 'author' && $$menuitem[4] ne 'cca')
575: && !$env{'request.course.id'};
576: next if $$menuitem[4] =~ /^crsedit/
577: && (!$canedit && !$canvieweditor);
578: next if $$menuitem[4] eq 'nvgr'
579: && ($canvgr || $ltiexc{'grades'});
580: next if $$menuitem[4] eq 'vgr'
581: && !$canvgr;
582: next if $$menuitem[4] eq 'viewusers'
583: && !$canmodifyuser && !$canviewusers;
584: next if $$menuitem[4] eq 'noviewusers'
585: && ($canmodifyuser || $canviewusers || !$canviewroster);
586: next if $$menuitem[4] eq 'mgr'
587: && !$canmgr;
588: next if $$menuitem[4] eq 'showresv'
589: && !$showresv;
590: next if $$menuitem[4] eq 'whn'
591: && !$canviewwnew;
592: next if $$menuitem[4] eq 'params'
593: && (!$canmodpara && !$canviewpara);
594: next if $$menuitem[4] eq 'showgroups'
595: && ($canviewgrps || !$grouptools);
596: next if $$menuitem[4] eq 'showsyllabus'
597: && !$showsyllabus;
598: next if $$menuitem[4] eq 'showfeeds'
599: && !$showfeeds;
600: next if $$menuitem[4] eq 'plc'
601: && !$canplc;
602: next if $$menuitem[4] eq 'author'
603: && !$author;
604: next if $$menuitem[4] eq 'cca'
605: && !$canmodifycoauthor;
606: next if $$menuitem[4] eq 'notltimapres'
607: && $ltimapres;
608: next if $$menuitem[4] eq 'notlti'
609: && $lti;
610: next if $$menuitem[4] eq 'lti'
611: && (!$lti || !$noprimary);
612: next if $$menuitem[3] eq 'Logout'
613: && $ltiexc{'logout'};
614:
615: my $title = $menuitem->[3];
616: if ($env{'request.course.id'} && $menucoll) {
617: unless ($$menuitem[5] eq 'roles') {
618: next if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]}));
619: }
620: }
621: if (defined($secondary_submenu{$title})) {
622: my $link;
623: if ($menuitem->[0] ne '') {
624: $link = $menuitem->[0];
625: } else {
626: $link = '#';
627: }
628: my @scndsub;
629: if (ref($secondary_submenu{$title}) eq 'ARRAY') {
630: foreach my $item (@{$secondary_submenu{$title}}) {
631: if (ref($item) eq 'ARRAY') {
632: next if ($item->[2] eq 'vgr' && !$canvgr);
633: next if ($item->[2] eq 'opa' && !$canmodpara);
634: next if ($item->[2] eq 'vpa' && !$canviewpara);
635: next if ($item->[2] eq 'viewusers' && !($canmodifyuser || $canviewusers));
636: next if ($item->[2] eq 'mgr' && !$canmgr);
637: next if ($item->[2] eq 'vcg' && !$canviewgrps);
638: next if ($item->[2] eq 'crsedit' && !$canedit && !$canvieweditor);
639: next if ($item->[2] eq 'params' && !$canmodpara && !$canviewpara);
640: next if ($item->[2] eq 'author' && !$author);
641: next if ($item->[2] eq 'cca' && !$canmodifycoauthor);
642: next if ($item->[2] eq 'lti' && !$lti);
643: if ($item->[2] =~ /^lti(portfolio|wishlist|blog)$/) {
644: my $tool = $1;
645: next if !$lti;
646: next if (!&Apache::lonnet::usertools_access('','',$tool,
647: undef,'tools'));
648: }
649: push(@scndsub,$item);
650: }
651: }
652: if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'}) {
653: unless ($ltiexc{'fullname'}) {
654: $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
655: }
656: }
657: if (@scndsub > 0) {
658: $menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1,undef,
659: $listclass,$linkattr);
660: } elsif ($link ne '#') {
661: $menu .= ($listclass?'<li class="'.$listclass.'">':'<li>').
662: '<a href="'.$link.'" target="'.$target.'" '.$linkattr.'>'.
663: &mt($title).'</a></li>';
664: }
665: }
666: } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
667: # special treatment for role selector
668: my ($switcher,$has_opa_priv);
669: ($roleswitcher_js,$roleswitcher_form,$switcher,$has_opa_priv) =
670: &roles_selector(
671: $env{'course.' . $env{'request.course.id'} . '.domain'},
672: $env{'course.' . $env{'request.course.id'} . '.num'},
673: $httphost,$target,$menucoll,$menuref
674: );
675: if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]})) {
676: next unless ($has_opa_priv);
677: }
678: $menu .= $switcher;
679: } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
680: next if ($crstype eq 'Placement');
681: $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
682: } else {
683: if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {
684: my $url = $$menuitem[0];
685: $url =~ s{\[cdom\]/\[cnum\]}{$cdom/$cnum};
686: if (&Apache::lonnet::is_on_map($url)) {
687: unless ($$menuitem[0] =~ /(\?|\&)register=1/) {
688: $$menuitem[0] .= (($$menuitem[0]=~/\?/)? '&' : '?').'register=1';
689: }
690: } else {
691: $$menuitem[0] =~ s{\&?register=1}{};
692: }
693: if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {
694: if (($ENV{'SERVER_PORT'} == 443) || ($env{'request.use_absolute'} =~ m{^https://})) {
695: unless ((&Apache::lonnet::uses_sts()) || (&Apache::lonnet::waf_allssl())) {
696: unless ($$menuitem[0] =~ m{^https?://}) {
697: $$menuitem[0] = 'http://'.$ENV{'SERVER_NAME'}.$$menuitem[0];
698: }
699: unless ($$menuitem[0] =~ /(\&|\?)usehttp=1/) {
700: $$menuitem[0] .= (($$menuitem[0]=~/\?/) ? '&' : '?').'usehttp=1';
701: }
702: }
703: }
704: }
705: $$menuitem[0] = &HTML::Entities::encode($$menuitem[0],'&<>"');
706: }
707: $menu .= &prep_menuitem(\@$menuitem,$target,$listclass,$linkattr);
708: }
709: }
710: if ($menu =~ /\[url\].*\[symb\]/) {
711: my $escurl = &escape( &Apache::lonenc::check_encrypt(
712: $env{'request.noversionuri'}));
713:
714: my $escsymb = &escape( &Apache::lonenc::check_encrypt(
715: $env{'request.symb'}));
716:
717: if ( $env{'request.state'} eq 'construct'
718: and ( $env{'request.noversionuri'} eq ''
719: || !defined($env{'request.noversionuri'})))
720: {
721: my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
722: ($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};
723: $escurl = &escape($escurl);
724: }
725: $menu =~ s/\[url\]/$escurl/g;
726: $menu =~ s/\[symb\]/$escsymb/g;
727: }
728: $menu =~ s/\[uname\]/$$author{user}/g;
729: $menu =~ s/\[udom\]/$$author{dom}/g;
730: $menu =~ s/\[javascript\]/javascript:/g;
731: if ($env{'request.course.id'}) {
732: $menu =~ s/\[cnum\]/$cnum/g;
733: $menu =~ s/\[cdom\]/$cdom/g;
734: }
735: if ($menu) {
736: $menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";
737: }
738: if ($roleswitcher_form) {
739: $menu .= "\n$roleswitcher_js\n$roleswitcher_form";
740: }
741: return $menu;
742: }
743:
744: sub create_submenu {
745: my ($link,$target,$title,$submenu,$translate,$addclass,$listclass,$linkattr) = @_;
746: return unless (ref($submenu) eq 'ARRAY');
747: my $targetattr;
748: if (($target ne '') && ($link ne '#')) {
749: $targetattr = ' target="'.$target.'"';
750: }
751: my $menu = '<li class="LC_hoverable '.$addclass.'">'.
752: '<a href="'.$link.'"'.$targetattr.'>'.
753: '<span class="LC_nobreak">'.$title.
754: '<span class="LC_fontsize_small" style="font-weight:normal;">'.
755: ' ▼</span></span></a>'.
756: '<ul>';
757:
758: # $link and $title are only used in the initial string written in $menu
759: # as seen above, not needed for nested submenus
760: $menu .= &build_submenu($target, $submenu, $translate, '1', $listclass, $linkattr);
761: $menu .= '</ul></li>';
762:
763: return $menu;
764: }
765:
766: # helper routine for create_submenu
767: # build the dropdown (and nested submenus) recursively
768: # see perldoc create_submenu documentation for further information
769: sub build_submenu {
770: my ($target, $submenu, $translate, $first_level, $listclass, $linkattr) = @_;
771: unless (@{$submenu}) {
772: return '';
773: }
774:
775: my $menu = '';
776: my $count = 0;
777: my $numsub = scalar(@{$submenu});
778: foreach my $item (@{$submenu}) {
779: $count ++;
780: if (ref($item) eq 'ARRAY') {
781: my $href = $item->[0];
782: my $bordertop;
783: my $borderbot;
784: my $title;
785:
786: if ($translate) {
787: $title = &mt($item->[1]);
788: } else {
789: $title = $item->[1];
790: }
791:
792: if ($count == 1 && !$first_level) {
793: $bordertop = 'border-top: 1px solid black;';
794: }
795: if ($count == $numsub) {
796: $borderbot = 'border-bottom: 1px solid black;';
797: }
798:
799: # href is a reference to another submenu
800: if (ref($href) eq 'ARRAY') {
801: $menu .= '<li style="margin:0;padding:0;'.$bordertop . $borderbot . '">';
802: $menu .= '<p><span class="LC_primary_menu_innertitle">'
803: . $title . '</span><span class="LC_primary_menu_innerarrow">▶</span></p>';
804: $menu .= '<ul>';
805: $menu .= &build_submenu($target, $href, $translate);
806: $menu .= '</ul>';
807: $menu .= '</li>';
808: } else { # href is the actual hyperlink and does not represent another submenu
809: # for the current menu title
810: if ($href =~ /(aboutme|rss\.html)$/) {
811: next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));
812: $href =~ s/\[domain\]/$env{'user.domain'}/g;
813: $href =~ s/\[user\]/$env{'user.name'}/g;
814: } elsif (($href =~ m{^/adm/preferences\?}) && ($href =~ /\[returnurl\]/)) {
815: my $returnurl = $ENV{'REQUEST_URI'};
816: if ($ENV{'REQUEST_URI'} =~ m{/adm/preferences\?action=(?:changedomcoord|authorsettings)\&returnurl=([^\&]+)$}) {
817: $returnurl = $1;
818: }
819: if (($returnurl =~ m{^/adm/createuser($|\?action=)}) ||
820: ($returnurl =~ m{^/priv/$match_domain/$match_username}) ||
821: ($returnurl =~ m{^/res(/?$|/$match_domain/$match_username)})) {
822: $returnurl =~ s{\?.*$}{};
823: $returnurl = '&returnurl='.&HTML::Entities::encode($returnurl,'"<>&\'');
824: } else {
825: undef($returnurl);
826: }
827: $href =~ s/\[returnurl\]/$returnurl/;
828: }
829: my $targetattr;
830: unless (($href eq '') || ($href =~ /^\#/)) {
831: if ($target ne '') {
832: $targetattr = ' target="'.$target.'"';
833: }
834: }
835:
836: $menu .= '<li ';
837: $menu .= ($listclass?'class="'.$listclass.'" ':'');
838: $menu .= 'style="margin:0;padding:0;'. $bordertop . $borderbot .'">';
839: $menu .= '<a href="'.$href.'"'.$targetattr.' '.$linkattr.'>' . $title . '</a>';
840: $menu .= '</li>';
841: }
842: }
843: }
844: return $menu;
845: }
846:
847: sub innerregister {
848: my ($forcereg,$bread_crumbs,$group,$pagebuttonshide,$hostname,
849: $ltiscope,$ltiuri,$showncrumbsref) = @_;
850: my $const_space = ($env{'request.state'} eq 'construct');
851: my $is_const_dir = 0;
852:
853: if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
854:
855: $env{'request.registered'} = 1;
856:
857: undef(@inlineremote);
858:
859: my ($mapurl,$resurl,$crstype,$navmap);
860:
861: if ($env{'request.course.id'}) {
862: #
863: #course_type: Course, Community, or Placement
864: #
865: $crstype = &Apache::loncommon::course_type();
866: if ($env{'request.symb'}) {
867: my $ignorenull;
868: unless ($env{'request.noversionuri'} eq '/adm/navmaps') {
869: $ignorenull = 1;
870: }
871: my $symb = &Apache::lonnet::symbread('','',$ignorenull);
872: ($mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb($symb);
873: my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
874:
875: my $maptitle = &Apache::lonnet::gettitle($mapurl);
876: my $restitle = &Apache::lonnet::gettitle($symb);
877: my (@crumbs,@mapcrumbs);
878: if (($env{'request.noversionuri'} ne '/adm/navmaps') && ($mapurl ne '') &&
879: (!(($crstype eq 'Placement') && !$env{'request.role.adv'}))) {
880: unless ($ltiscope eq 'resource') {
881: if (($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) &&
882: !(($ltiscope eq 'map') && (&Apache::lonnet::clutter($resurl) eq $ltiuri))) {
883: $navmap = Apache::lonnavmaps::navmap->new();
884: if (ref($navmap)) {
885: @mapcrumbs = $navmap->recursed_crumbs($mapurl,$restitle);
886: }
887: }
888: }
889: }
890: unless ((($crstype eq 'Placement') && (!$env{'request.role.adv'})) ||
891: ($ltiscope eq 'map') || ($ltiscope eq 'resource')) {
892: @crumbs = ({text => $crstype.' Contents',
893: href => "Javascript:gopost('/adm/navmaps','')"});
894: }
895: if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {
896: if (@mapcrumbs) {
897: push(@crumbs,@mapcrumbs);
898: } elsif (!(($crstype eq 'Placement') && (!$env{'request.role.adv'})) &&
899: ($ltiscope ne 'map') && ($ltiscope ne 'resource')) {
900: push(@crumbs, {text => '...',
901: no_mt => 1});
902: }
903: }
904:
905: unless ((($crstype eq 'Placement') && (!$env{'request.role.adv'})) || (@mapcrumbs) ||
906: (!$maptitle) || ($maptitle eq 'default.sequence') ||
907: ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'}) ||
908: ($ltiscope eq 'resource')) {
909: push @crumbs, {text => $maptitle, no_mt => 1,
910: href => &Apache::lonnet::clutter($mapurl).'?navmap=1'};
911: }
912: if ($restitle && !@mapcrumbs) {
913: push(@crumbs,{text => $restitle, no_mt => 1});
914: }
915: my @tools;
916: if ($env{'request.filename'} =~ /\.page$/) {
917: my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
918: if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
919: @tools = @{$breadcrumb_tools{'tools'}};
920: }
921: }
922: &Apache::lonhtmlcommon::clear_breadcrumbs();
923: &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
924: if (@tools) {
925: &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',@tools);
926: }
927: } else {
928: $resurl = $env{'request.noversionuri'};
929: my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});
930: my $title = &mt('View Resource');
931: if ($resurl =~ m{^\Q/uploaded$courseurl/supplemental/\E(default|\d+)/}) {
932: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folderpath','title']);
933: &Apache::lonhtmlcommon::clear_breadcrumbs();
934: if ($env{'form.title'}) {
935: $title = $env{'form.title'};
936: }
937: my ($trail,$cnum,$cdom);
938: if ($env{'form.folderpath'}) {
939: $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
940: $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
941: &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);
942: }
943: if ($env{'form.folderpath'}) {
944: &prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname);
945: $title = &HTML::Entities::encode($title,'\'"<>&');
946: ($trail) =
947: &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
948: } else {
949: &Apache::lonhtmlcommon::add_breadcrumb(
950: {text => "Supplemental $crstype Content",
951: href => "javascript:gopost('/adm/supplemental','')"});
952: $title = &HTML::Entities::encode(&mt('View Resource'),'\'"<>&');
953: ($trail) =
954: &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
955: }
956: if (ref($showncrumbsref)) {
957: $$showncrumbsref = 1;
958: }
959: return $trail;
960: } elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {
961: &Apache::lonhtmlcommon::clear_breadcrumbs();
962: &prepare_functions('/public'.$courseurl."/syllabus",
963: $forcereg,$group,undef,undef,1,$hostname);
964: $title = &HTML::Entities::encode(&mt('Syllabus File'),'\'"<>&');
965: my ($trail) =
966: &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
967: if (ref($showncrumbsref)) {
968: $$showncrumbsref = 1;
969: }
970: return $trail;
971: } elsif (($resurl eq '/public'.$courseurl.'/syllabus') &&
972: ($env{'form.folderpath'})) {
973: if ($env{'form.title'}) {
974: $title = $env{'form.title'};
975: } else {
976: $title = 'Syllabus';
977: }
978: &prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname);
979: $title = &HTML::Entities::encode($title,'\'"<>&');
980: my ($trail) =
981: &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);
982: return $trail;
983: }
984: unless ($env{'request.state'} eq 'construct') {
985: &Apache::lonhtmlcommon::clear_breadcrumbs();
986: &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
987: }
988: }
989: } elsif (! $const_space){
990: #a situation when we're looking at a resource outside of context of a
991: #course or construction space (e.g. with cumulative rights)
992: &Apache::lonhtmlcommon::clear_breadcrumbs();
993: unless ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {
994: &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
995: }
996: }
997: # =============================================================================
998: # ============================ This is for URLs that actually can be registered
999: return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})
1000: || $forcereg );
1001: my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
1002: $forceview,$editbutton);
1003: if (($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) ||
1004: ($env{'request.role'} !~/^(aa|ca|au)/)) {
1005: $editbutton = &prepare_functions($resurl,$forcereg,$group,'','','',$hostname);
1006: }
1007: if ($editbutton eq '') {
1008: $editbutton = &clear(6,1);
1009: }
1010:
1011: #
1012: # This applies in course context
1013: #
1014: if ($env{'request.course.id'}) {
1015: $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
1016: $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1017: $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
1018: $perms{'cev'} = &Apache::lonnet::allowed('cev',$env{'request.course.id'});
1019: my @privs;
1020: my $gradable_exttool;
1021: if ($env{'request.symb'} ne '') {
1022: if ($env{'request.noversionuri'} =~ m{^/adm/$cdom/$cnum/(\d+)/ext\.tool$}) {
1023: if (&Apache::lonnet::EXT('resource.0.gradable') =~ /^yes$/i) {
1024: $gradable_exttool = 1;
1025: push(@privs,('mgr','vgr'));
1026: }
1027: } elsif ($env{'request.filename'}=~/$LONCAPA::assess_re/) {
1028: push(@privs,('mgr','vgr'));
1029: }
1030: push(@privs,('opa','vpa'));
1031: }
1032: foreach my $priv (@privs) {
1033: $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
1034: if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
1035: $perms{$priv} =
1036: &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
1037: }
1038: }
1039: #
1040: # Determine whether or not to show Grades and Submissions buttons
1041: #
1042: if (($env{'request.symb'} ne '') &&
1043: (($env{'request.filename'}=~/$LONCAPA::assess_re/) || ($gradable_exttool))) {
1044: if ($perms{'mgr'}) {
1045: &switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
1046: "gocmd('/adm/grades','gradingmenu')",
1047: 'Content Grades');
1048: } elsif ($perms{'vgr'}) {
1049: &switch('','',7,2,'subm.png','Content Submissions','missions[_1]',
1050: "gocmd('/adm/grades','submission')",
1051: 'Content Submissions');
1052: }
1053: }
1054: if (($env{'request.symb'} ne '') && (($perms{'opa'}) || ($perms{'vpa'}))) {
1055: &switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
1056: "gocmd('/adm/parmset','set')",
1057: 'Content Settings');
1058: }
1059: # End grades/submissions check
1060:
1061: #
1062: # This applies to items inside a folder/page modifiable in the course.
1063: #
1064: if (($env{'request.symb'}=~/^uploaded/) && (($perms{'mdc'}) || ($perms{'cev'}))) {
1065: my $text = 'Edit Folder';
1066: if (($mapurl =~ /\.page$/) ||
1067: ($env{'request.symb'}=~
1068: m{uploaded/$cdom/$cnum/default_\d+\.page$})) {
1069: $text = 'Edit Page';
1070: }
1071: &switch('','',7,4,'docs-22x22.png',$text,'parms[_2]',
1072: "gocmd('/adm/coursedocs','direct')",
1073: 'Folder/Page Content');
1074: }
1075: # End modifiable folder/page container check
1076:
1077: #
1078: # Determine whether to show View As button for shortcut to display problem, answer, and submissions
1079: #
1080:
1081: if (($env{'request.symb'} ne '') &&
1082: ($env{'request.filename'}=~/$LONCAPA::assess_re/) &&
1083: (($perms{'mgr'}) || ($perms{'vgr'}))) {
1084: my ($viewas,$text,$change,$visibility,$vuname,$vudom,$vid,$leftvis,$defdom,
1085: $domselector,$righticon);
1086: my %lt = &Apache::lonlocal::texthash(
1087: view => 'View',
1088: upda => 'Update',
1089: );
1090: my $possdomstr = $env{'course.'.$env{'request.course.id'}.'.internal.userdomains'};
1091: if ($possdomstr =~ /,/) {
1092: my @possdoms = split(/,/,$possdomstr);
1093: if ($env{'request.user_in_effect'} =~ /^$match_username:($match_domain)$/) {
1094: $defdom = $1;
1095: } elsif (grep(/^\Q$cdom\E$/,@possdoms)) {
1096: $defdom = $cdom;
1097: } elsif (&Apache::lonnet::domain($possdoms[0]) ne '') {
1098: $defdom = $possdoms[0];
1099: }
1100: $domselector = &Apache::loncommon::select_dom_form($defdom,'vudom','','','',\@possdoms);
1101: } elsif (($possdomstr ne '') && (&Apache::lonnet::domain($possdomstr) ne '')) {
1102: if ($env{'request.user_in_effect'} =~ /^$match_username:($match_domain)$/) {
1103: $defdom = $1;
1104: } else {
1105: $defdom = $possdomstr;
1106: }
1107: }
1108: if ($env{'request.user_in_effect'} =~ /^($match_username):($match_domain)$/) {
1109: ($vuname,$vudom) = ($1,$2);
1110: unless (&Apache::lonnet::is_advanced_user($vudom,$vuname)) {
1111: $vid = (&Apache::lonnet::idrget($vudom,$vuname))[1];
1112: }
1113: $viewas = $env{'request.user_in_effect'};
1114: $text = $lt{'upda'};
1115: $change = 'off';
1116: $visibility = 'inline';
1117: $leftvis = 'none';
1118: $defdom = $vudom;
1119: $righticon = '✖';
1120: } else {
1121: $text = $lt{'view'};
1122: $change = 'on';
1123: $visibility = 'none';
1124: $leftvis = 'inline';
1125: if ($defdom eq '') {
1126: $defdom = $cdom;
1127: }
1128: }
1129: my $sellink = &Apache::loncommon::selectstudent_link('userview','vuname','vudom','','','vuidentifier');
1130: my $selscript=&Apache::loncommon::studentbrowser_javascript();
1131: my $shownsymb = &HTML::Entities::encode(&Apache::lonenc::check_encrypt($env{'request.symb'}),'<>&"');
1132: my $input;
1133: my @items = (
1134: '<label><input type="radio" name="vuidentifier" value="uname" checked="checked" onclick="javascript:toggleIdentifier(this.form);" />',
1135: '</label><input name="vuname" type="text" size="6" value="'.$vuname.'" id="LC_vuname" />',
1136: '<label><input type="radio" name="vuidentifier" value="uid" onclick="javascript:toggleIdentifier(this.form);" />',
1137: '</label><input name="vid" type="hidden" size="6" value="'.$vid.'" id="LC_vid" />'
1138: );
1139: if ($domselector) {
1140: push(@items,$domselector);
1141: $input = &mt('[_1]User:[_2] or [_3]ID:[_4] at [_5] | ',@items);
1142: } else {
1143: $input = &mt('[_1]Username:[_2] or [_3]ID:[_4] | ',@items).
1144: '<input name="vudom" type="hidden" value="'.$defdom.'" />';
1145: }
1146: $input .= '<input name="LC_viewas" type="hidden" value="'.$viewas.'" />',
1147: '<input name="symb" type="hidden" value="'.$shownsymb.'" />';
1148: my $chooser = <<END;
1149: $selscript
1150: <a href="javascript:toggleViewAsUser('$change');" class="LC_menubuttons_link">
1151: <span id="usexpand" class="LC_menubuttons_inline_text" style="display:$leftvis">► </span>
1152: </a>
1153: <fieldset id="LC_selectuser" style="display:$visibility">
1154: <form name="userview" action="" method="post" onsubmit="event.preventDefault(); return validCourseUser(this,'$change');">
1155: <span class="LC_menubuttons_inline_text LC_nobreak">
1156: $input
1157: $sellink
1158: </span>
1159: <input type="submit" value="$text" />
1160: </form>
1161: </fieldset>
1162: <a href="javascript:toggleViewAsUser('$change');" class="LC_menubuttons_link">
1163: <span id="uscollapse" class="LC_menubuttons_inline_text">$righticon</span>
1164: </a>
1165: END
1166: &switch('','',7,5,'viewuser.png','View As','user[_1]',
1167: 'toggleViewAsUser('."'$change'".')',
1168: 'View As','','',$chooser);
1169: }
1170: # End view as user check
1171:
1172: }
1173: # End course context
1174:
1175: # Prepare the rest of the buttons
1176: my ($menuitems,$got_prt,$got_wishlist,$crsauthor);
1177: if ($const_space) {
1178: #
1179: # We are in construction space
1180: #
1181:
1182: my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
1183: my ($udom,$uname,$thisdisfn) =
1184: ($env{'request.filename'}=~m{^\Q$londocroot/priv/\E([^/]+)/([^/]+)/(.*)$});
1185: my $crsauthor;
1186: if (($env{'request.course.id'}) &&
1187: ($env{'course.'.$env{'request.course.id'}.'.num'} eq $uname) &&
1188: ($env{'course.'.$env{'request.course.id'}.'.domain'} eq $udom)) {
1189: $crsauthor = 1;
1190: }
1191: my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
1192: if ($currdir =~ m-/$-) {
1193: $is_const_dir = 1;
1194: if (($thisdisfn eq '') && ($crsauthor)) {
1195: $is_const_dir = 2;
1196: }
1197: my $esc_currdir = &Apache::loncommon::escape_single($currdir);
1198: $menuitems=(<<ENDMENUITEMS);
1199: s&6&3&pub.png&Publish&dir[_2]&gocstr('/adm/publish','$esc_currdir')&Publish this Directory
1200: s&7&4&docs-22x22.png&Edit Metadata&defaults[_1]&gopost('${esc_currdir}default.meta','')&Edit metadata for this Directory
1201: s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','$esc_currdir')&Print contents of directory
1202: s&7&1&del.png&Delete&dir[_3]&gocstr('/adm/cfile?action=delete','$esc_currdir')&Delete this Directory
1203: ENDMENUITEMS
1204: } else {
1205: $currdir =~ s|[^/]+$||;
1206: my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
1207: my $esc_currdir = &Apache::loncommon::escape_single($currdir);
1208: my $pubfile = "/res/$udom/$uname/$thisdisfn";
1209: my $candelete = 1;
1210: if (-e $londocroot.$pubfile) {
1211: unless (&Apache::lonnet::metadata($pubfile,'obsolete')) {
1212: undef($candelete);
1213: }
1214: }
1215: #
1216: # Probably should be in mydesk.tab
1217: #
1218: if (($crsauthor) && ($pubfile eq "/res/$udom/$uname/default.rights")) {
1219: $menuitems=(<<ENDMENUITEMS);
1220: s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
1221: s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
1222: ENDMENUITEMS
1223: } else {
1224: $menuitems=(<<ENDMENUITEMS);
1225: s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
1226: s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version
1227: s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
1228: s&7&3©.png&Copy&resource[_4]&gocstr('/adm/cfile?action=copy','/priv/$udom/$uname/$cleandisfn')&Copy this resource
1229: ENDMENUITEMS
1230: }
1231: #
1232: # Rename and Delete only available if obsolete or unpublished
1233: #
1234: if ($candelete) {
1235: $menuitems .= (<<ENDMENUITEMS);
1236: s&7&4&rename.png&Rename&resource[_5]&gocstr('/adm/cfile?action=rename','/priv/$udom/$uname/$cleandisfn')&Rename this resource
1237: s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource
1238: ENDMENUITEMS
1239: }
1240: $menuitems .= (<<ENDMENUITEMS);
1241: s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
1242: ENDMENUITEMS
1243: }
1244: if (ref($bread_crumbs) eq 'ARRAY') {
1245: &Apache::lonhtmlcommon::clear_breadcrumbs();
1246: foreach my $crumb (@{$bread_crumbs}){
1247: &Apache::lonhtmlcommon::add_breadcrumb($crumb);
1248: }
1249: }
1250: } elsif ( defined($env{'request.course.id'}) &&
1251: $env{'request.symb'} ne '' ) {
1252: #
1253: # We are in a course and looking at a registered URL
1254: # Should probably be in mydesk.tab
1255: #
1256: $menuitems = "c&3&1";
1257: if ($ltiscope eq 'resource') {
1258: # Suppress display of backward arrow for LTI Provider if scope is resource.
1259: # Suppress display of forward arrow for LTI Provider if scope is resource.
1260: } elsif ($ltiscope eq 'map') {
1261: # Suppress display of backward arrow for LTI Provider if scope is map and this is first resource.
1262: # Suppress display of forward arrow for LTI Provider if scope is map and this is the last resource.
1263: my $showforw = 1;
1264: my $showback = 1;
1265: my $navmap = Apache::lonnavmaps::navmap->new();
1266: if (ref($navmap)) {
1267: my $mapres = $navmap->getResourceByUrl($ltiuri);
1268: if (ref($mapres)) {
1269: if ($navmap->isLastResource($mapres,$env{'request.symb'})) {
1270: $showforw = 0;
1271: }
1272: if ($navmap->isFirstResource($mapres,$env{'request.symb'})) {
1273: $showback = 0;
1274: }
1275: }
1276: }
1277: if ($showback) {
1278: $menuitems.="
1279: s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1";
1280: }
1281: if ($showforw) {
1282: $menuitems.="
1283: s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3";
1284: }
1285: } elsif (($crstype ne 'Placement') || ($env{'request.role.adv'})) {
1286: $menuitems.="
1287: s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1
1288: s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3";
1289: } else {
1290: # Suppress display of backward arrow for Placement Tests
1291: # Suppress display of forward arrow for Placement Tests if this is the last resource.
1292: my $showforw = 1;
1293: if ($env{'request.symb'}) {
1294: my $navmap = Apache::lonnavmaps::navmap->new();
1295: if (ref($navmap)) {
1296: if (&Apache::lonplacementtest::is_lastres($env{'request.symb'},$navmap)) {
1297: $showforw = 0;
1298: }
1299: }
1300: }
1301: if ($showforw) {
1302: $menuitems.="
1303: s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3";
1304: }
1305: }
1306: $menuitems .= (<<ENDMENUITEMS);
1307:
1308: c&6&3
1309: c&8&1
1310: c&8&2
1311: s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
1312: ENDMENUITEMS
1313: $got_prt = 1;
1314: if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)
1315: && (!$env{'request.enc'})) {
1316: my $privurl = $env{'request.uri'};
1317: $privurl =~ s{^/res/}{/priv/};
1318: my ($cnum,$cdom) = &Apache::loncommon::crsauthor_url($privurl);
1319: if ($cnum) {
1320: $crsauthor = 1;
1321: } else {
1322: # wishlist is only available for users with access to resource-pool
1323: # and links can only be set for resources within the resource-pool
1324: $menuitems .= (<<ENDMENUITEMS);
1325: s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in my personal Stored Links repository&&1
1326: ENDMENUITEMS
1327: $got_wishlist = 1;
1328: }
1329: }
1330:
1331: my $currentURL = &Apache::loncommon::get_symb();
1332: my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
1333: my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);
1334: $menuitems.="s&9&3&";
1335: if(length($annotation) > 0){
1336: $menuitems.="anot2.png";
1337: }else{
1338: $menuitems.="anot.png";
1339: }
1340: $menuitems.="&Notes&&annotate()&";
1341: $menuitems.="Make notes and annotations about this resource&&1\n";
1342: my $is_mobile;
1343: if ($env{'browser.mobile'}) {
1344: $is_mobile = 1;
1345: }
1346:
1347: unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
1348: if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) &&
1349: ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) &&
1350: ($env{'request.noversionuri'} !~ m{^/adm/.+/ext\.tool$})) {
1351: $menuitems.=(<<ENDREALRES);
1352: s&6&3&catalog.png&Info&info[_1]&catalog_info(currentURL,'$is_mobile')&Show Metadata
1353: ENDREALRES
1354: }
1355: unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) ||
1356: ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) ||
1357: ($env{'request.noversionuri'} =~ m{^/adm/.+/ext\.tool$})) {
1358: $menuitems.=(<<ENDREALRES);
1359: s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
1360: ENDREALRES
1361: }
1362: unless ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) {
1363: $menuitems.=(<<ENDREALRES);
1364: s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
1365: ENDREALRES
1366: }
1367: }
1368: }
1369: if ($env{'request.uri'} =~ /^\/res/) {
1370: unless ($got_prt) {
1371: $menuitems .= (<<ENDMENUITEMS);
1372: s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
1373: ENDMENUITEMS
1374: $got_prt = 1;
1375: }
1376: unless (($got_wishlist) || ($crsauthor)) {
1377: if (($env{'user.adv'}) && (!$env{'request.enc'})) {
1378: # wishlist is only available for users with access to resource-pool
1379: $menuitems .= (<<ENDMENUITEMS);
1380: s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1
1381: ENDMENUITEMS
1382: $got_wishlist = 1;
1383: }
1384: }
1385: }
1386: my $buttons='';
1387: foreach (split(/\n/,$menuitems)) {
1388: my ($command,@rest)=split(/\&/,$_);
1389: my $idx=10*$rest[0]+$rest[1];
1390: if (&hidden_button_check() eq 'yes') {
1391: if ($idx == 21 ||$idx == 23) {
1392: $buttons.=&switch('','',@rest);
1393: } else {
1394: $buttons.=&clear(@rest);
1395: }
1396: } else {
1397: if ($command eq 's') {
1398: $buttons.=&switch('','',@rest);
1399: } else {
1400: $buttons.=&clear(@rest);
1401: }
1402: }
1403: }
1404: my ($showprogress,$linkprotout);
1405: if (($crstype eq 'Placement') && (!$env{'request.role.adv'})) {
1406: $showprogress = &placement_progress();
1407: }
1408: if ($env{'request.deeplink.login'}) {
1409: $linkprotout = &linkprot_exit();
1410: }
1411:
1412: my $addremote=0;
1413: foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
1414:
1415: if ($addremote) {
1416: my ($countdown,$buttonshide);
1417: if ($env{'request.filename'} =~ /\.page$/) {
1418: my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
1419: if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
1420: $countdown = $breadcrumb_tools{'tools'}->[0];
1421: }
1422: $buttonshide = $pagebuttonshide;
1423: } else {
1424: $countdown = &countdown_timer();
1425: $buttonshide = &hidden_button_check();
1426: }
1427: &Apache::lonhtmlcommon::clear_breadcrumb_tools();
1428:
1429: &Apache::lonhtmlcommon::add_breadcrumb_tool(
1430: 'navigation', @inlineremote[21,23]);
1431:
1432: if ($buttonshide eq 'yes') {
1433: if ($countdown) {
1434: &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
1435: }
1436: if ($linkprotout) {
1437: &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$linkprotout);
1438: }
1439: if ($showprogress) {
1440: &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$showprogress);
1441: }
1442: } else {
1443: my @tools = @inlineremote[93,91,81,82,83];
1444: if ($countdown) {
1445: unshift(@tools,$countdown);
1446: }
1447: if ($linkprotout) {
1448: unshift(@tools,$linkprotout);
1449: }
1450: &Apache::lonhtmlcommon::add_breadcrumb_tool(
1451: 'tools',@tools);
1452:
1453: #publish button in construction space
1454: if ($env{'request.state'} eq 'construct'){
1455: &Apache::lonhtmlcommon::add_breadcrumb_tool(
1456: 'advtools', $inlineremote[63]);
1457: } else {
1458: &Apache::lonhtmlcommon::add_breadcrumb_tool(
1459: 'tools', $inlineremote[63]);
1460: }
1461: &advtools_crumbs(@inlineremote);
1462: }
1463: } else {
1464: if ($showprogress) {
1465: &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$showprogress);
1466: }
1467: if ($linkprotout) {
1468: &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$linkprotout);
1469: }
1470: }
1471: my ($topic_help,$topic_help_text);
1472: if ($is_const_dir == 2) {
1473: if ((($ENV{'SERVER_PORT'} == 443) ||
1474: ($Apache::lonnet::protocol{$Apache::lonnet::perlvar{'lonHostID'}} eq 'https')) &&
1475: (&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},'webdav'))) {
1476: $topic_help = 'Authoring_WebDAV,Authoring_WebDAV_Mac_10v6,Authoring_WebDAV_Mac_10v10,'.
1477: 'Authoring_WebDAV_Windows_v7,Authoring_WebDAV_Linux_Centos';
1478: $topic_help_text = 'About WebDAV access';
1479: }
1480: }
1481: if (ref($showncrumbsref)) {
1482: $$showncrumbsref = 1;
1483: }
1484: return &Apache::lonhtmlcommon::scripttag('', 'start')
1485: . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text)
1486: . &Apache::lonhtmlcommon::scripttag('', 'end');
1487: }
1488:
1489: sub get_editbutton {
1490: my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg,$hostname) = @_;
1491: my $jscall;
1492: if (($forceview) && ($env{'form.todocs'})) {
1493: my ($folderpath,$command,$navmap);
1494: if ($env{'request.symb'}) {
1495: $folderpath = &Apache::loncommon::symb_to_docspath($env{'request.symb'},\$navmap);
1496: } elsif ($env{'form.folderpath'} =~ /^supplemental/) {
1497: $folderpath = $env{'form.folderpath'};
1498: $command = '&forcesupplement=1';
1499: }
1500: $folderpath = &escape(&HTML::Entities::encode(&escape($folderpath),'<>&"'));
1501: $jscall = "go('/adm/coursedocs?folderpath=$folderpath$command')";
1502: } else {
1503: my $suppanchor;
1504: if ($env{'form.folderpath'}) {
1505: $suppanchor = $env{'form.anchor'};
1506: }
1507: my $shownsymb;
1508: if ($env{'request.symb'}) {
1509: $shownsymb = &Apache::lonenc::check_encrypt($env{'request.symb'});
1510: }
1511: $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
1512: $forceedit,$forcereg,$env{'request.symb'},$shownsymb,
1513: &escape($env{'form.folderpath'}),
1514: &escape($env{'form.title'}),$hostname,
1515: $env{'form.idx'},&escape($env{'form.suppurl'}),
1516: $env{'form.todocs'},$suppanchor);
1517: }
1518: if ($jscall) {
1519: my $icon = 'pcstr.png';
1520: my $label = 'Edit';
1521: if ($forceview) {
1522: $icon = 'tolastloc.png';
1523: $label = 'Exit Editing';
1524: }
1525: &switch('','',6,1,$icon,$label,'resource[_2]',
1526: $jscall,"Edit this resource");
1527: return 1;
1528: }
1529: return;
1530: }
1531:
1532: sub prepare_functions {
1533: my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs,$hostname) = @_;
1534: unless ($env{'request.registered'}) {
1535: undef(@inlineremote);
1536: }
1537: my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
1538: $forceview);
1539:
1540: if ($env{'request.course.id'}) {
1541: $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
1542: $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1543: $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
1544: }
1545:
1546: my $editbutton = '';
1547: my $viewsrcbutton = '';
1548: my $clientip = &Apache::lonnet::get_requestor_ip();
1549: #
1550: # Determine whether or not to display 'Edit' or 'View Source' icon/button
1551: #
1552: if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
1553: my $blocked = &Apache::loncommon::blocking_status('about',$clientip,$2,$1);
1554: my $file=&Apache::lonnet::declutter($env{'request.filename'});
1555: ($cfile,$home,$switchserver,$forceedit,$forceview) =
1556: &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
1557: &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
1558: if (($cfile) && ($home ne '') && ($home ne 'no_host') && (!$blocked)) {
1559: $editbutton = &get_editbutton($cfile,$home,$switchserver,
1560: $forceedit,$forceview,$forcereg);
1561: }
1562: } elsif ((!$env{'request.course.id'}) &&
1563: ($env{'user.author'}) && ($env{'request.filename'}) &&
1564: ($env{'request.role'} !~/^(aa|ca|au)/)) {
1565: #
1566: # Currently do not have the role of author or co-author.
1567: # Do we have authoring privileges for the resource?
1568: #
1569: my $file=&Apache::lonnet::declutter($env{'request.filename'});
1570: ($cfile,$home,$switchserver,$forceedit,$forceview) =
1571: &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
1572: &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
1573: if (($cfile) && ($home ne '') && ($home ne 'no_host')) {
1574: $editbutton = &get_editbutton($cfile,$home,$switchserver,
1575: $forceedit,$forceview,$forcereg);
1576: }
1577: } elsif ($env{'request.course.id'}) {
1578: #
1579: # This applies in course context
1580: #
1581: if (($perms{'mdc'}) &&
1582: (($resurl =~ m{^/?public/$cdom/$cnum/syllabus}) ||
1583: ($resurl =~ m{^/?uploaded/$cdom/$cnum/portfolio/syllabus/}) ||
1584: (($resurl =~ m{^/?uploaded/$cdom/$cnum/default_\d+\.sequence$}) && ($env{'form.navmap'})))) {
1585: if ($resurl =~ m{^/}) {
1586: $cfile = $resurl;
1587: } else {
1588: $cfile = "/$resurl";
1589: }
1590: $home = &Apache::lonnet::homeserver($cnum,$cdom);
1591: if ($env{'form.forceedit'}) {
1592: $forceview = 1;
1593: } else {
1594: $forceedit = 1;
1595: }
1596: if ($cfile =~ m{^/uploaded/$cdom/$cnum/default_\d+\.sequence$}) {
1597: my $text = 'Edit Folder';
1598: &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
1599: "gocmd('/adm/coursedocs','direct')",
1600: 'Folder/Page Content');
1601: $editbutton = 1;
1602: } else {
1603: $editbutton = &get_editbutton($cfile,$home,$switchserver,
1604: $forceedit,$forceview,$forcereg,
1605: $hostname);
1606: }
1607: } elsif (($resurl eq '/adm/extresedit') &&
1608: (($env{'form.symb'}) || ($env{'form.folderpath'}))) {
1609: ($cfile,$home,$switchserver,$forceedit,$forceview) =
1610: &Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,
1611: $env{'form.symb'});
1612: if ($cfile ne '') {
1613: $editbutton = &get_editbutton($cfile,$home,$switchserver,
1614: $forceedit,$forceview,$forcereg);
1615: }
1616: } elsif (($resurl =~ m{^/?adm/viewclasslist$}) &&
1617: (&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
1618: ($cfile,$home,$switchserver,$forceedit,$forceview) =
1619: &Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,
1620: $env{'form.symb'});
1621: $editbutton = &get_editbutton($cfile,$home,$switchserver,
1622: $forceedit,$forceview,$forcereg);
1623: } elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) &&
1624: ($resurl ne '/cgi-bin/printout.pl')) {
1625: if ($env{'request.filename'}) {
1626: my $file=&Apache::lonnet::declutter($env{'request.filename'});
1627: ($cfile,$home,$switchserver,$forceedit,$forceview) =
1628: &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
1629: &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
1630: if ($cfile ne '') {
1631: $editbutton = &get_editbutton($cfile,$home,$switchserver,
1632: $forceedit,$forceview,$forcereg,
1633: $hostname);
1634: }
1635: if ((($cfile eq '') || (!$editbutton)) &&
1636: ($resurl =~ /$LONCAPA::assess_re/)) {
1637: my $showurl = &Apache::lonnet::clutter($resurl);
1638: my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '')
1639: ? "/$env{'request.course.sec'}"
1640: : '');
1641: if ((&Apache::lonnet::allowed('cre','/')) &&
1642: (&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open')) {
1643: $viewsrcbutton = 1;
1644: } elsif (&Apache::lonnet::allowed('vxc',$crs_sec)) {
1645: if ($showurl =~ m{^\Q/res/$cdom/\E($match_username)/}) {
1646: my $auname = $1;
1647: if (($env{'request.course.adhocsrcaccess'} ne '') &&
1648: (grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {
1649: $viewsrcbutton = 1;
1650: } elsif ((&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open') &&
1651: (&Apache::lonnet::allowed('bre',$crs_sec))) {
1652: $viewsrcbutton = 1;
1653: }
1654: }
1655: }
1656: if ($viewsrcbutton) {
1657: &switch('','',6,1,'pcstr.png','View Source','resource[_2]','open_source()',
1658: 'View source code');
1659: }
1660: }
1661: }
1662: }
1663: }
1664: # End determination of 'Edit' icon/button display
1665:
1666: if ($env{'request.course.id'}) {
1667: # This applies to about me page for users in a course
1668: if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
1669: my ($sdom,$sname) = ($1,$2);
1670: unless (&Apache::lonnet::is_course($sdom,$sname)) {
1671: my $blocked = &Apache::loncommon::blocking_status('about',$clientip,$sname,$sdom);
1672: unless ($blocked) {
1673: &switch('','',6,4,'mail-message-new-22x22.png','Message to user',
1674: '',
1675: "go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')",
1676: 'Send message to specific user');
1677: }
1678: }
1679: my $hideprivileged = 1;
1680: if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,
1681: $hideprivileged)) {
1682: foreach my $priv ('vsa','vgr','srm') {
1683: $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
1684: if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
1685: $perms{$priv} =
1686: &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
1687: }
1688: }
1689: if ($perms{'vsa'}) {
1690: &switch('','',6,5,'trck-22x22.png','Activity',
1691: '',
1692: "go('/adm/trackstudent?selected_student=$sname:$sdom')",
1693: 'View recent activity by this person');
1694: }
1695: if ($perms{'vgr'}) {
1696: &switch('','',6,6,'rsrv-22x22.png','Reservations',
1697: '',
1698: "go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')",
1699: 'Slot reservation history');
1700: }
1701: if ($perms{'srm'}) {
1702: &switch('','',6,7,'contact-new-22x22.png','Records',
1703: '',
1704: "go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')",
1705: 'Add records');
1706: }
1707: }
1708: }
1709: if (($env{'form.folderpath'} =~ /^supplemental/) &&
1710: (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
1711: (($resurl =~ m{^/adm/wrapper/ext/}) ||
1712: ($resurl =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}) ||
1713: ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||
1714: ($resurl eq '/adm/supplemental') ||
1715: ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||
1716: ($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) {
1717: my @folders=split('&',$env{'form.folderpath'});
1718: if ((@folders > 2) || ($resurl ne '/adm/supplemental')) {
1719: my $suppanchor;
1720: if ($resurl =~ m{^/adm/wrapper/ext/}) {
1721: $suppanchor = $env{'form.anchor'};
1722: }
1723: my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));
1724: my $link = '/adm/coursedocs?command=direct&forcesupplement=1&supppath='.
1725: "$esc_path&anchor=$suppanchor";
1726: if ($env{'request.use_absolute'} ne '') {
1727: $link = $env{'request.use_absolute'}.$link;
1728: }
1729: &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
1730: "location.href='$link'",'Folder/Page Content');
1731: }
1732: }
1733: }
1734:
1735: # End checking for items for about me page for users in a course
1736: if ($docscrumbs) {
1737: &Apache::lonhtmlcommon::clear_breadcrumb_tools();
1738: &advtools_crumbs(@inlineremote);
1739: return $editbutton;
1740: } elsif ($env{'request.registered'}) {
1741: return $editbutton || $viewsrcbutton;
1742: } else {
1743: if (ref($bread_crumbs) eq 'ARRAY') {
1744: if (@inlineremote > 0) {
1745: if (ref($advtools) eq 'ARRAY') {
1746: @{$advtools} = @inlineremote;
1747: }
1748: }
1749: return;
1750: } elsif (@inlineremote > 0) {
1751: &Apache::lonhtmlcommon::clear_breadcrumb_tools();
1752: &advtools_crumbs(@inlineremote);
1753: return &Apache::lonhtmlcommon::scripttag('', 'start')
1754: . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
1755: . &Apache::lonhtmlcommon::scripttag('', 'end');
1756: }
1757: }
1758: }
1759:
1760: sub advtools_crumbs {
1761: my @funcs = @_;
1762: if ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {
1763: &Apache::lonhtmlcommon::add_breadcrumb_tool(
1764: 'advtools', @funcs[61,64,65,66,67,74]);
1765: } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
1766: if ($env{'request.state'} eq 'construct') {
1767: &Apache::lonhtmlcommon::add_breadcrumb_tool(
1768: 'advtools', @funcs[61,73,74,71,72]);
1769: } else {
1770: &Apache::lonhtmlcommon::add_breadcrumb_tool(
1771: 'advtools', @funcs[61,71,72,73,74,75,92]);
1772: }
1773: } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {
1774: &Apache::lonhtmlcommon::add_breadcrumb_tool(
1775: 'advtools', $funcs[61]);
1776: }
1777: return;
1778: }
1779:
1780: # ================================================================== Raw Config
1781:
1782: sub clear {
1783: my ($row,$col)=@_;
1784: $inlineremote[10*$row+$col]='';
1785: return '';
1786: }
1787:
1788: # ============================================ Switch a button or create a link
1789: # Switch acts on the javascript that is executed when a button is clicked.
1790: # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
1791:
1792: sub switch {
1793: my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$form)=@_;
1794: $act=~s/\$uname/$uname/g;
1795: $act=~s/\$udom/$udom/g;
1796: $top=&mt($top);
1797: $bot=&mt($bot);
1798: $desc=&mt($desc);
1799: my $idx=10*$row+$col;
1800: $category_members{$cat}.=':'.$idx;
1801:
1802: # Inline Menu
1803: if ($nobreak==2) { return ''; }
1804: my $text=$top.' '.$bot;
1805: $text=~s/\s*\-\s*//gs;
1806:
1807: my $pic=
1808: '<img alt="'.$text.'" src="'.
1809: &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
1810: '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
1811: if ($env{'browser.interface'} eq 'faketextual') {
1812: # Main Menu
1813: if ($nobreak==3) {
1814: $inlineremote[$idx]="\n".
1815: '<td class="LC_menubuttons_text" align="right">'.$text.
1816: '</td><td align="left">'.
1817: '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
1818: } elsif ($nobreak) {
1819: $inlineremote[$idx]="\n<tr>".
1820: '<td align="left">'.
1821: '<a href="javascript:'.$act.';">'.$pic.'</a></td>
1822: <td class="LC_menubuttons_text" align="left"><a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$text.'</span></a></td>';
1823: } else {
1824: $inlineremote[$idx]="\n<tr>".
1825: '<td align="left">'.
1826: '<a href="javascript:'.$act.';">'.$pic.
1827: '</a></td><td class="LC_menubuttons_text" colspan="3">'.
1828: '<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';
1829: }
1830: } else {
1831: # Inline Menu
1832: my @tools = (93,91,81,82,83);
1833: unless ($env{'request.state'} eq 'construct') {
1834: push(@tools,63);
1835: }
1836: if ((($env{'environment.icons'} eq 'iconsonly') ||
1837: ($env{'environment.icons'} eq '') && ($env{'request.lti.login'})) &&
1838: (grep(/^$idx$/,@tools))) {
1839: $inlineremote[$idx] =
1840: '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';
1841: } else {
1842: $inlineremote[$idx] =
1843: '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
1844: '<span class="LC_menubuttons_inline_text">'.$top.' </span></a>'.$form;
1845: }
1846: }
1847: return '';
1848: }
1849:
1850: sub secondlevel {
1851: my $output='';
1852: my
1853: ($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat)=@_;
1854: if ($prt eq 'any') {
1855: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
1856: } elsif ($prt=~/^r(\w+)/) {
1857: if ($rol eq $1) {
1858: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
1859: }
1860: }
1861: return $output;
1862: }
1863:
1864: sub inlinemenu {
1865: undef(@inlineremote);
1866: undef(%category_members);
1867: # calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
1868: &rawconfig(1);
1869: my $output='<table><tr>';
1870: for (my $col=1; $col<=2; $col++) {
1871: $output.='<td class="LC_mainmenu_col_fieldset">';
1872: for (my $row=1; $row<=8; $row++) {
1873: foreach my $cat (keys(%category_members)) {
1874: if ($category_positions{$cat} ne "$col,$row") { next; }
1875: #$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
1876: $output.='<div class="LC_Box LC_400Box">';
1877: $output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>';
1878: $output.='<table>';
1879: my %active=();
1880: foreach my $menu_item (split(/\:/,$category_members{$cat})) {
1881: if ($inlineremote[$menu_item]) {
1882: $active{$menu_item}=1;
1883: }
1884: }
1885: foreach my $item (sort(keys(%active))) {
1886: $output.=$inlineremote[$item];
1887: }
1888: $output.='</table>';
1889: $output.='</div>';
1890: }
1891: }
1892: $output.="</td>";
1893: }
1894: $output.="</tr></table>";
1895: return $output;
1896: }
1897:
1898: sub rawconfig {
1899: #
1900: # This evaluates mydesk.tab
1901: # Need to add more positions and more privileges to deal with all
1902: # menu items.
1903: #
1904: my $textualoverride=shift;
1905: my $output='';
1906: return '' unless $textualoverride;
1907: my $uname=$env{'user.name'};
1908: my $udom=$env{'user.domain'};
1909: my $adv=$env{'user.adv'};
1910: my $show_course=&Apache::loncommon::show_course();
1911: my $author=$env{'user.author'};
1912: my $crs='';
1913: my $crstype='';
1914: if ($env{'request.course.id'}) {
1915: $crs='/'.$env{'request.course.id'};
1916: if ($env{'request.course.sec'}) {
1917: $crs.='_'.$env{'request.course.sec'};
1918: }
1919: $crs=~s/\_/\//g;
1920: $crstype = &Apache::loncommon::course_type();
1921: }
1922: my $pub=($env{'request.state'} eq 'published');
1923: my $con=($env{'request.state'} eq 'construct');
1924: my $rol=$env{'request.role'};
1925: my $requested_domain;
1926: if ($rol) {
1927: $requested_domain = $env{'request.role.domain'};
1928: }
1929: foreach my $line (@desklines) {
1930: my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
1931: $prt=~s/\$uname/$uname/g;
1932: $prt=~s/\$udom/$udom/g;
1933: if ($prt =~ /\$crs/) {
1934: next unless ($env{'request.course.id'});
1935: next if ($crstype eq 'Community');
1936: $prt=~s/\$crs/$crs/g;
1937: } elsif ($prt =~ /\$cmty/) {
1938: next unless ($env{'request.course.id'});
1939: next if ($crstype ne 'Community');
1940: $prt=~s/\$cmty/$crs/g;
1941: }
1942: if ($prt =~ m/\$requested_domain/) {
1943: if ((!$requested_domain) && ($pro eq 'pbre') && ($env{'user.adv'})) {
1944: $prt=~s/\$requested_domain/$env{'user.domain'}/g;
1945: } else {
1946: $prt=~s/\$requested_domain/$requested_domain/g;
1947: }
1948: }
1949: if ($category_names{$cat}!~/\w/) { $cat='oth'; }
1950: if ($pro eq 'clear') {
1951: $output.=&clear($row,$col);
1952: } elsif ($pro eq 'any') {
1953: $output.=&secondlevel(
1954: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
1955: } elsif ($pro eq 'smp') {
1956: unless ($adv) {
1957: $output.=&secondlevel(
1958: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
1959: }
1960: } elsif ($pro eq 'adv') {
1961: if ($adv) {
1962: $output.=&secondlevel(
1963: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
1964: }
1965: } elsif ($pro eq 'shc') {
1966: if ($show_course) {
1967: $output.=&secondlevel(
1968: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
1969: }
1970: } elsif ($pro eq 'nsc') {
1971: if (!$show_course) {
1972: $output.=&secondlevel(
1973: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
1974: }
1975: } elsif (($pro=~/^p(\w+)/) && ($prt)) {
1976: my $priv = $1;
1977: if ($priv =~ /^mdc(Course|Community)/) {
1978: if ($crstype eq $1) {
1979: $priv = 'mdc';
1980: } else {
1981: next;
1982: }
1983: }
1984: if ((($priv eq 'bre') && (&Apache::lonnet::allowed($priv,$prt) eq 'F')) ||
1985: (($priv ne 'bre') && (&Apache::lonnet::allowed($priv,$prt)))) {
1986: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
1987: }
1988: } elsif ($pro eq 'course') {
1989: if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
1990: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
1991: }
1992: } elsif ($pro eq 'community') {
1993: if (($env{'request.course.fn'}) && ($crstype eq 'Community')) {
1994: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
1995: }
1996: } elsif ($pro =~ /^courseenv_(.*)$/) {
1997: my $key = $1;
1998: if ($crstype ne 'Community') {
1999: my $coursepref = $env{'course.'.$env{'request.course.id'}.'.'.$key};
2000: if ($key eq 'canuse_pdfforms') {
2001: if ($env{'request.course.id'} && $coursepref eq '') {
2002: my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
2003: $coursepref = $domdefs{'canuse_pdfforms'};
2004: }
2005: }
2006: if ($coursepref) {
2007: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
2008: }
2009: }
2010: } elsif ($pro =~ /^communityenv_(.*)$/) {
2011: my $key = $1;
2012: if ($crstype eq 'Community') {
2013: my $coursepref = $env{'course.'.$env{'request.course.id'}.'.'.$key};
2014: if ($key eq 'canuse_pdfforms') {
2015: if ($env{'request.course.id'} && $coursepref eq '') {
2016: my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
2017: $coursepref = $domdefs{'canuse_pdfforms'};
2018: }
2019: }
2020: if ($coursepref) {
2021: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
2022: }
2023: }
2024: } elsif ($pro =~ /^course_(.*)$/) {
2025: # Check for permissions inside of a course
2026: if (($env{'request.course.id'}) && ($crstype ne 'Community') &&
2027: (&Apache::lonnet::allowed($1,$env{'request.course.id'}.
2028: ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
2029: )) {
2030: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
2031: }
2032: } elsif ($pro =~ /^community_(.*)$/) {
2033: # Check for permissions inside of a community
2034: if (($env{'request.course.id'}) && ($crstype eq 'Community') &&
2035: (&Apache::lonnet::allowed($1,$env{'request.course.id'}.
2036: ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
2037: )) {
2038: $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
2039: }
2040: } elsif ($pro eq 'author') {
2041: if ($author) {
2042: if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) ||
2043: (($prt eq 'raa') && ($env{'request.role'}=~/^aa/)) ||
2044: (($prt eq 'rau') && ($env{'request.role'}=~/^au/))) {
2045: # Check that we are on the correct machine
2046: my $cadom=$requested_domain;
2047: my $caname=$env{'user.name'};
2048: if (($prt eq 'rca') || ($prt eq 'raa')) {
2049: ($cadom,$caname)=
2050: ($env{'request.role'}=~/($match_domain)\/($match_username)$/);
2051: }
2052: $act =~ s/\$caname/$caname/g;
2053: $act =~ s/\$cadom/$cadom/g;
2054: my $home = &Apache::lonnet::homeserver($caname,$cadom);
2055: my $allowed=0;
2056: my @ids=&Apache::lonnet::current_machine_ids();
2057: foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
2058: if ($allowed) {
2059: $output.=&switch($caname,$cadom,
2060: $row,$col,$img,$top,$bot,$act,$desc,$cat);
2061: }
2062: }
2063: }
2064: } elsif ($pro eq 'tools') {
2065: my @tools = ('aboutme','blog','portfolio');
2066: if (grep(/^\Q$prt\E$/,@tools)) {
2067: if (!&Apache::lonnet::usertools_access($env{'user.name'},
2068: $env{'user.domain'},
2069: $prt,undef,'tools')) {
2070: $output.=&clear($row,$col);
2071: next;
2072: }
2073: } elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) {
2074: if (($prt eq 'reqcrsnsc') && ($show_course)) {
2075: next;
2076: }
2077: if (($prt eq 'reqcrsshc') && (!$show_course)) {
2078: next;
2079: }
2080: my $showreqcrs = &check_for_rcrs();
2081: if (!$showreqcrs) {
2082: $output.=&clear($row,$col);
2083: next;
2084: }
2085: }
2086: $prt='any';
2087: $output.=&secondlevel(
2088: $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
2089: }
2090: }
2091: return $output;
2092: }
2093:
2094: sub check_for_rcrs {
2095: my $showreqcrs = 0;
2096: my @reqtypes = ('official','unofficial','community','textbook','placement');
2097: foreach my $type (@reqtypes) {
2098: if (&Apache::lonnet::usertools_access($env{'user.name'},
2099: $env{'user.domain'},
2100: $type,undef,'requestcourses')) {
2101: $showreqcrs = 1;
2102: last;
2103: }
2104: }
2105: if (!$showreqcrs) {
2106: foreach my $type (@reqtypes) {
2107: if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
2108: my @domains = split(',',$env{'environment.reqcrsotherdom.'.$type});
2109: foreach my $entry (@domains) {
2110: my ($extdom,$extopt) = split(':',$entry);
2111: if (&Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom)) {
2112: $showreqcrs = 1;
2113: last;
2114: }
2115: }
2116: if ($showreqcrs) {
2117: last;
2118: }
2119: }
2120: }
2121: }
2122: return $showreqcrs;
2123: }
2124:
2125: sub dc_popup_js {
2126: my %lt = &Apache::lonlocal::texthash(
2127: more => '(More ...)',
2128: less => '(Less ...)',
2129: );
2130: return <<"END";
2131:
2132: function showCourseID() {
2133: document.getElementById('dccid').style.display='block';
2134: document.getElementById('dccid').style.textAlign='left';
2135: document.getElementById('dccid').style.textFace='normal';
2136: document.getElementById('dccidtext').innerHTML ='<a href="javascript:hideCourseID();" class="LC_menubuttons_link">$lt{'less'}</a>';
2137: return;
2138: }
2139:
2140: function hideCourseID() {
2141: document.getElementById('dccid').style.display='none';
2142: document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()" class="LC_menubuttons_link">$lt{'more'}</a>';
2143: return;
2144: }
2145:
2146: END
2147:
2148: }
2149:
2150: sub countdown_toggle_js {
2151: return <<"END";
2152:
2153: function toggleCountdown() {
2154: var countdownid = document.getElementById('duedatecountdown');
2155: var currstyle = countdownid.style.display;
2156: if (currstyle == 'inline') {
2157: countdownid.style.display = 'none';
2158: document.getElementById('ddcountcollapse').innerHTML='';
2159: document.getElementById('ddcountexpand').innerHTML='◄ ';
2160: } else {
2161: countdownid.style.display = 'inline';
2162: document.getElementById('ddcountcollapse').innerHTML='► ';
2163: document.getElementById('ddcountexpand').innerHTML='';
2164: }
2165: return;
2166: }
2167:
2168: END
2169: }
2170:
2171: # This creates a "done button" for timed events. The confirmation box is a jQuery
2172: # dialog widget. If the interval parameter requires a proctor key for the timed
2173: # event to be marked done, there will also be a textbox where that can be entered.
2174: # Clicking OK will set the value of LC_interval_done to 'true', and, if needed will
2175: # set the value of LC_interval_done_proctorpass to the text entered in that box,
2176: # and submit the corresponding form.
2177: #
2178: # The &zero_time() routine in lonhomework.pm is called when a page is rendered if
2179: # LC_interval_done is true.
2180: #
2181: sub done_button_js {
2182: my ($type,$width,$height,$proctor,$donebuttontext) = @_;
2183: return unless (($type eq 'map') || ($type eq 'resource'));
2184: my %lt = &Apache::lonlocal::texthash(
2185: title => 'WARNING!',
2186: preamble => 'You are trying to end this timed event early.',
2187: map => 'Confirming that you are done will cause the time to expire and prevent you from changing any answers in the current folder.',
2188: resource => 'Confirming that you are done will cause the time to expire for this question, and prevent you from changing your answer(s).',
2189: okdone => 'Click "OK" if you are completely finished.',
2190: cancel => 'Click "Cancel" to continue working.',
2191: proctor => 'Ask a proctor to enter the key, then click "OK" if you are completely finished.',
2192: ok => 'OK',
2193: exit => 'Cancel',
2194: key => 'Key:',
2195: nokey => 'A proctor key is required',
2196: );
2197: my $shownsymb = &HTML::Entities::encode(&Apache::lonenc::check_encrypt($env{'request.symb'}));
2198: my $navmap = Apache::lonnavmaps::navmap->new();
2199: my ($missing,$tried) = (0,0);
2200: if (ref($navmap)) {
2201: my @resources=();
2202: if ($type eq 'map') {
2203: my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});
2204: if ($env{'request.symb'} =~ /\.page$/) {
2205: @resources=$navmap->retrieveResources($resurl,sub { $_[0]->is_problem() });
2206: } else {
2207: @resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() });
2208: }
2209: } else {
2210: my $res = $navmap->getBySymb($env{'request.symb'});
2211: if (ref($res)) {
2212: if ($res->is_problem()) {
2213: push(@resources,$res);
2214: }
2215: }
2216: }
2217: foreach my $res (@resources) {
2218: if (ref($res->parts()) eq 'ARRAY') {
2219: foreach my $part (@{$res->parts()}) {
2220: if (!$res->tries($part)) {
2221: $missing++;
2222: } else {
2223: $tried++;
2224: }
2225: }
2226: }
2227: }
2228: }
2229: if ($missing) {
2230: $lt{'miss'} .= '<p class="LC_error">';
2231: if ($type eq 'map') {
2232: $lt{'miss'} .= &mt('Submissions are missing for [quant,_1,question part,question parts] in this folder.',$missing);
2233: } else {
2234: $lt{'miss'} .= &mt('Submissions are missing for [quant,_1,part] in this question.',$missing);
2235: }
2236: if ($missing > 1) {
2237: $lt{'miss'} .= ' '.&mt('If you confirm you are done you will be unable to submit answers for them.').'</span>';
2238: } else {
2239: $lt{'miss'} .= ' '.&mt('If you confirm you are done you will be unable to submit an answer for it.').'</p>';
2240: }
2241: }
2242: $donebuttontext = &HTML::Entities::encode($donebuttontext,'<>&"');
2243: if ($proctor) {
2244: if ($height !~ /^\d+$/) {
2245: $height = 400;
2246: if ($missing) {
2247: $height += 60;
2248: }
2249: }
2250: if ($width !~ /^\d+$/) {
2251: $width = 400;
2252: if ($missing) {
2253: $width += 60;
2254: }
2255: }
2256: return <<END;
2257: <form method="post" name="LCdoneButton" action="">
2258: <input type="hidden" name="LC_interval_done" value="" />
2259: <input type="hidden" name="LC_interval_done_proctorpass" value="" />
2260: <input type="hidden" name="symb" value="$shownsymb" />
2261: <button id="LC_done-confirm-opener" type="button">$donebuttontext</button>
2262: </form>
2263:
2264: <div id="LC_done-confirm" title="$lt{'title'}">
2265: <p>$lt{'preamble'} $lt{$type}</p>
2266: $lt{'miss'}
2267: <p>$lt{'proctor'}</p>
2268: <form name="LCdoneButtonProctor" action="">
2269: <label>$lt{'key'}<input type="password" name="LC_interval_done_proctorkey" value="" /></label>
2270: <input type="submit" tabindex="-1" style="position:absolute; top:-1000px" />
2271: </form>
2272: <p>$lt{'cancel'}</p>
2273: </div>
2274:
2275: <script type="text/javascript">
2276: // <![CDATA[
2277: \$( "#LC_done-confirm" ).dialog({ autoOpen: false });
2278: \$( "#LC_done-confirm-opener" ).on("click", function() {
2279: \$( "#LC_done-confirm" ).dialog("open");
2280: \$( "#LC_done-confirm" ).dialog({
2281: height: $height,
2282: width: $width,
2283: modal: true,
2284: resizable: false,
2285: buttons: [
2286: {
2287: text: "$lt{'ok'}",
2288: click: function() {
2289: var proctorkey = \$( '[name="LC_interval_done_proctorkey"]' )[0].value;
2290: if ((proctorkey == '') || (proctorkey == null)) {
2291: alert("$lt{'nokey'}");
2292: } else {
2293: \$( '[name="LC_interval_done"]' )[0].value = 'true';
2294: \$( '[name="LC_interval_done_proctorpass"]' )[0].value = proctorkey;
2295: \$( '[name="LCdoneButton"]' )[0].submit();
2296: }
2297: },
2298: },
2299: {
2300: text: "$lt{'exit'}",
2301: click: function() {
2302: \$("#LC_done-confirm").dialog( "close" );
2303: }
2304: }
2305: ],
2306: close: function() {
2307: \$( '[name="LC_interval_done_proctorkey"]' )[0].value = '';
2308: }
2309: });
2310: \$( "#LC_done-confirm" ).find( "form" ).on( "submit", function( event ) {
2311: event.preventDefault();
2312: \$( '[name="LC_interval_done"]' )[0].value = 'true';
2313: \$( '[name="LC_interval_done_proctorpass"]' )[0].value = \$( '[name="LC_interval_done_proctorkey"]' )[0].value;
2314: \$( '[name="LCdoneButton"]' )[0].submit();
2315: });
2316: });
2317:
2318: // ]]>
2319: </script>
2320:
2321: END
2322: } else {
2323: if ($height !~ /^\d+$/) {
2324: $height = 320;
2325: if ($missing) {
2326: $height += 60;
2327: }
2328: }
2329: if ($width !~ /^\d+$/) {
2330: $width = 320;
2331: if ($missing) {
2332: $width += 60;
2333: }
2334: }
2335: if ($missing) {
2336: $lt{'miss'} = '</p>'.$lt{'miss'}.'<p>';
2337: }
2338: return <<END;
2339:
2340: <form method="post" name="LCdoneButton" action="">
2341: <input type="hidden" name="LC_interval_done" value="" />
2342: <input type="hidden" name="symb" value="$shownsymb" />
2343: <button id="LC_done-confirm-opener" type="button">$donebuttontext</button>
2344: </form>
2345:
2346: <div id="LC_done-confirm" title="$lt{'title'}">
2347: <p>$lt{'preamble'} $lt{$type} $lt{'miss'} $lt{'okdone'} $lt{'cancel'}</p>
2348: </div>
2349:
2350: <script type="text/javascript">
2351: // <![CDATA[
2352: \$( "#LC_done-confirm" ).dialog({ autoOpen: false });
2353: \$( "#LC_done-confirm-opener" ).click(function() {
2354: \$( "#LC_done-confirm" ).dialog( "open" );
2355: \$( "#LC_done-confirm" ).dialog({
2356: resizable: false,
2357: height: $height,
2358: width: $width,
2359: modal: true,
2360: buttons: [
2361: {
2362: text: "$lt{'ok'}",
2363: click: function() {
2364: \$( this ).dialog( "close" );
2365: \$( '[name="LC_interval_done"]' )[0].value = 'true';
2366: \$( '[name="LCdoneButton"]' )[0].submit();
2367: },
2368: },
2369: {
2370: text: "$lt{'exit'}",
2371: click: function() {
2372: \$( this ).dialog( "close" );
2373: },
2374: },
2375: ],
2376: });
2377: });
2378: // ]]>
2379: </script>
2380:
2381: END
2382: }
2383: }
2384:
2385: sub view_as_js {
2386: my ($url,$symb) = @_;
2387: my %lt = &Apache::lonlocal::texthash(
2388: ente => 'Enter a username or a student/employee ID',
2389: info => 'Information you entered does not match a valid course user',
2390: );
2391: &js_escape(\%lt);
2392: return <<"END";
2393:
2394: function toggleViewAsUser(change) {
2395: if (document.getElementById('LC_selectuser')) {
2396: var seluserid = document.getElementById('LC_selectuser');
2397: var currstyle = seluserid.style.display;
2398: if (change == 'off') {
2399: document.userview.elements['LC_viewas'].value = '';
2400: document.userview.elements['vuname'].value = '';
2401: document.userview.elements['vid'].value = '';
2402: document.userview.submit();
2403: return;
2404: }
2405: if ((document.getElementById('usexpand')) && (document.getElementById('uscollapse'))) {
2406: if (currstyle == 'inline') {
2407: seluserid.style.display = 'none';
2408: document.getElementById('usexpand').innerHTML='► ';
2409: document.getElementById('uscollapse').innerHTML='';
2410: } else {
2411: seluserid.style.display = 'inline';
2412: document.getElementById('usexpand').innerHTML='';
2413: document.getElementById('uscollapse').innerHTML='◄ ';
2414: toggleIdentifier(document.userview);
2415: }
2416: }
2417: }
2418: return;
2419: }
2420:
2421: function validCourseUser(form,change) {
2422: var possuname = form.elements['vuname'].value;
2423: var possuid = form.elements['vid'].value;
2424: var possudom = form.elements['vudom'].value;
2425: if ((possuname == '') && (possuid == '')) {
2426: if (change == 'off') {
2427: form.elements['LC_viewas'].value = '';
2428: form.submit();
2429: } else {
2430: alert("$lt{'ente'}");
2431: }
2432: return;
2433: }
2434: var http = new XMLHttpRequest();
2435: var url = "/adm/courseuser";
2436: var params = "uname="+possuname+"&uid="+possuid+"&udom="+possudom;
2437: http.open("POST", url, true);
2438: http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
2439: http.onreadystatechange = function() {
2440: if (http.readyState == 4 && http.status == 200) {
2441: var data = JSON.parse(http.responseText);
2442: if (Array.isArray(data.match)) {
2443: var len = data.match.length;
2444: if (len == 2) {
2445: if (data.match[0] != '' && data.match[1] != '') {
2446: form.elements['LC_viewas'].value = data.match[0]+':'+data.match[1];
2447: form.submit();
2448: }
2449: } else {
2450: alert("$lt{'info'}");
2451: }
2452: }
2453: }
2454: return;
2455: }
2456: http.send(params);
2457: return false;
2458: }
2459:
2460: function toggleIdentifier(form) {
2461: if ((document.getElementById('LC_vuname')) && (document.getElementById('LC_vid'))) {
2462: var radioelem = form.elements['vuidentifier'];
2463: if (radioelem.length > 0) {
2464: var i;
2465: for (i=0; i<radioelem.length; i++) {
2466: if (radioelem[i].checked == true) {
2467: if (radioelem[i].value == 'uname') {
2468: document.getElementById('LC_vuname').type = 'text';
2469: document.getElementById('LC_vid').type = 'hidden';
2470: document.getElementById('LC_vid').value = '';
2471: } else {
2472: document.getElementById('LC_vuname').type = 'hidden';
2473: document.getElementById('LC_vuname').value = '';
2474: document.getElementById('LC_vid').type = 'text';
2475: }
2476: break;
2477: }
2478: }
2479: }
2480: }
2481: return;
2482: }
2483:
2484: END
2485: }
2486:
2487: sub utilityfunctions {
2488: my ($httphost) = @_;
2489: my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
2490: my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
2491: if ($currenturl =~ m{^/adm/wrapper/ext/}) {
2492: if ($env{'request.external.querystring'}) {
2493: $currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};
2494: }
2495: my ($anchor) = ($env{'request.symb'} =~ /(\#[^\#]+)$/);
2496: if (($anchor) && ($currenturl !~ /\Q$anchor\E$/)) {
2497: $currenturl .= $1;
2498: }
2499: }
2500: $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));
2501:
2502: my $dc_popup_cid;
2503: if ($env{'user.adv'} && exists($env{'user.role.dc./'.
2504: $env{'course.'.$env{'request.course.id'}.
2505: '.domain'}.'/'})) {
2506: $dc_popup_cid = &dc_popup_js();
2507: }
2508:
2509: my $start_page_annotate =
2510: &Apache::loncommon::start_page('Annotator',undef,
2511: {'only_body' => 1,
2512: 'js_ready' => 1,
2513: 'bgcolor' => '#BBBBBB',
2514: 'add_entries' => {
2515: 'onload' => 'javascript:document.goannotate.submit();'}});
2516:
2517: my $end_page_annotate =
2518: &Apache::loncommon::end_page({'js_ready' => 1});
2519:
2520: my $jumptores = &Apache::lonhtmlcommon::javascript_jumpto_resource();
2521:
2522: my $esc_url=&escape($currenturl);
2523: my $esc_symb=&escape($currentsymb);
2524: my $newname = &mt('New Name');
2525:
2526: my $countdown = &countdown_toggle_js();
2527:
2528: my $viewuser;
2529: if (($env{'request.course.id'}) &&
2530: ($env{'request.symb'} ne '') &&
2531: ($env{'request.filename'}=~/$LONCAPA::assess_re/)) {
2532: my $canview;
2533: foreach my $priv ('msg','vgr') {
2534: $canview = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
2535: if (!$canview && $env{'request.course.sec'} ne '') {
2536: $canview =
2537: &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
2538: }
2539: last if ($canview);
2540: }
2541: if ($canview) {
2542: $viewuser = &view_as_js($esc_url,$esc_symb);
2543: }
2544: }
2545:
2546: my ($ltitarget,$deeplinktarget);
2547: if ($env{'request.lti.login'}) {
2548: $ltitarget = $env{'request.lti.target'};
2549: }
2550: if ($env{'request.deeplink.login'}) {
2551: $deeplinktarget = $env{'request.deeplink.target'};
2552: }
2553:
2554: my $annotateurl = '/adm/annotation';
2555: if ($httphost) {
2556: $annotateurl = '/adm/annotations';
2557: }
2558: my $hostvar = '
2559: function setLCHost() {
2560: var lcHostname="";
2561: ';
2562: if ($httphost =~ m{^https?\://}) {
2563: $hostvar .= ' var lcServer="'.$httphost.'";'."\n".
2564: ' var hostReg = /^https?:\/\/([^\/]+)$/i;'."\n".
2565: ' var match = hostReg.exec(lcServer);'."\n".
2566: ' if (match.length) {'."\n".
2567: ' if (match[1] == location.hostname) {'."\n".
2568: ' lcHostname=lcServer;'."\n".
2569: ' }'."\n".
2570: ' }'."\n";
2571: }
2572:
2573: $hostvar .= ' return lcHostname;'."\n".
2574: '}'."\n";
2575:
2576: return (<<ENDUTILITY)
2577: $hostvar
2578: var currentURL=unescape("$esc_url");
2579: var reloadURL=unescape("$esc_url");
2580: var currentSymb=unescape("$esc_symb");
2581:
2582: $dc_popup_cid
2583:
2584: $jumptores
2585:
2586: function gopost(url,postdata) {
2587: if (url!='') {
2588: var lcHostname = setLCHost();
2589: this.document.server.action=lcHostname+url;
2590: this.document.server.postdata.value=postdata;
2591: this.document.server.command.value='';
2592: this.document.server.url.value='';
2593: this.document.server.symb.value='';
2594: this.document.server.submit();
2595: }
2596: }
2597:
2598: function gocmd(url,cmd) {
2599: if (url!='') {
2600: var lcHostname = setLCHost();
2601: this.document.server.action=lcHostname+url;
2602: this.document.server.postdata.value='';
2603: this.document.server.command.value=cmd;
2604: this.document.server.url.value=currentURL;
2605: this.document.server.symb.value=currentSymb;
2606: this.document.server.submit();
2607: }
2608: }
2609:
2610: function gocstr(url,filename) {
2611: if (url == '/adm/cfile?action=delete') {
2612: this.document.cstrdelete.filename.value = filename
2613: this.document.cstrdelete.submit();
2614: return;
2615: }
2616: if ((url == '/adm/cfile?action=copy') || (url == '/adm/cfile?action=rename')) {
2617: this.document.cstrcopy.filename.value = filename;
2618: var oldname = filename.substring(filename.lastIndexOf("/") + 1);
2619: var newname=prompt('$newname',oldname);
2620: if (newname == "" || !newname || newname == oldname) {
2621: return;
2622: }
2623: if (url == '/adm/cfile?action=rename') {
2624: this.document.cstrcopy.action.value = 'rename';
2625: } else {
2626: this.document.cstrcopy.action.value = 'copy';
2627: }
2628: this.document.cstrcopy.newfilename.value = newname;
2629: this.document.cstrcopy.submit();
2630: return;
2631: }
2632: if (url == '/adm/printout') {
2633: this.document.cstrprint.postdata.value = filename
2634: this.document.cstrprint.curseed.value = 0;
2635: this.document.cstrprint.problemtype.value = 0;
2636: if (this.document.lonhomework) {
2637: if ((this.document.lonhomework.rndseed) && (this.document.lonhomework.rndseed.value != null) && (this.document.lonhomework.rndseed.value != '')) {
2638: this.document.cstrprint.curseed.value = this.document.lonhomework.rndseed.value
2639: }
2640: if (this.document.lonhomework.problemtype) {
2641: if (this.document.lonhomework.problemtype.value) {
2642: this.document.cstrprint.problemtype.value =
2643: this.document.lonhomework.problemtype.value;
2644: } else if (this.document.lonhomework.problemtype.options) {
2645: for (var i=0; i<this.document.lonhomework.problemtype.options.length; i++) {
2646: if (this.document.lonhomework.problemtype.options[i].selected) {
2647: if (this.document.lonhomework.problemtype.options[i].value != null && this.document.lonhomework.problemtype.options[i].value != '') {
2648: this.document.cstrprint.problemtype.value = this.document.lonhomework.problemtype.options[i].value
2649: }
2650: }
2651: }
2652: }
2653: }
2654: }
2655: this.document.cstrprint.submit();
2656: return;
2657: }
2658: if (url !='') {
2659: this.document.constspace.filename.value = filename;
2660: this.document.constspace.action = url;
2661: this.document.constspace.submit();
2662: }
2663: }
2664:
2665: function golist(url) {
2666: if (url!='' && url!= null) {
2667: currentURL = null;
2668: currentSymb= null;
2669: var lcHostname = setLCHost();
2670: var ltitarget = '$ltitarget';
2671: var deeplinktarget = '$deeplinktarget';
2672: if ((ltitarget == 'iframe') || (deeplinktarget == '_self')) {
2673: document.location.href=lcHostname+url;
2674: } else {
2675: top.location.href=lcHostname+url;
2676: }
2677: }
2678: }
2679:
2680:
2681:
2682: function catalog_info(url,isMobile) {
2683: if (isMobile == 1) {
2684: openMyModal(url+'.meta?modal=1',500,400,'yes');
2685: } else {
2686: loncatinfo=window.open(url+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
2687: }
2688: }
2689:
2690: function chat_win() {
2691: var lcHostname = setLCHost();
2692: lonchat=window.open(lcHostname+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
2693: }
2694:
2695: function group_chat(group) {
2696: var lcHostname = setLCHost();
2697: var url = lcHostname+'/adm/groupchat?group='+group;
2698: var winName = 'LONchat_'+group;
2699: grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
2700: }
2701:
2702: function annotate() {
2703: w_Annotator_flag=1;
2704: annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
2705: annotator.document.write(
2706: '$start_page_annotate'
2707: +"<form name='goannotate' target='Annotator' method='post' "
2708: +"action='$annotateurl'>"
2709: +"<input type='hidden' name='symbnew' value='"+currentSymb+"' />"
2710: +"<\\/form>"
2711: +'$end_page_annotate');
2712: annotator.document.close();
2713: }
2714:
2715: function open_StoredLinks_Import(rat) {
2716: var newWin;
2717: var lcHostname = setLCHost();
2718: if (rat) {
2719: newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
2720: 'wishlistImport','scrollbars=1,resizable=1,menubar=0');
2721: }
2722: else {
2723: newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import',
2724: 'wishlistImport','scrollbars=1,resizable=1,menubar=0');
2725: }
2726: newWin.focus();
2727: }
2728:
2729: function open_source() {
2730: sourcewin=window.open('/adm/source?inhibitmenu=yes&viewonly=1&filename='+currentURL,'LONsource',
2731: 'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes');
2732: }
2733:
2734: function open_aboutLC() {
2735: var isMobile = "$env{'browser.mobile'}";
2736: var url = '/adm/about.html';
2737: if (isMobile == 1) {
2738: openMyModal(url,600,400,'yes');
2739: } else {
2740: window.open(url,"aboutLONCAPA","height=400,width=600,scrollbars=1,resizable=1,menubar=0,location=1");
2741: }
2742: return;
2743: }
2744:
2745:
2746: (function (\$) {
2747: \$(document).ready(function () {
2748: \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));
2749: /*\@cc_on
2750: if (!window.XMLHttpRequest) {
2751: \$('.LC_hoverable').each(function () {
2752: this.attachEvent('onmouseenter', function (evt) { \$.single(evt.srcElement).addClass('hover'); });
2753: this.attachEvent('onmouseleave', function (evt) { \$.single(evt.srcElement).removeClass('hover'); });
2754: });
2755: }
2756: \@*/
2757: });
2758: }(jQuery));
2759:
2760: $countdown
2761:
2762: $viewuser
2763:
2764: ENDUTILITY
2765: }
2766:
2767: sub serverform {
2768: my $target;
2769: unless (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {
2770: $target = ' target="_top"';
2771: }
2772: if (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self')) {
2773: $target = ' target="_self"';
2774: }
2775: return(<<ENDSERVERFORM);
2776: <form name="server" action="/adm/logout" method="post"$target>
2777: <input type="hidden" name="postdata" value="none" />
2778: <input type="hidden" name="command" value="none" />
2779: <input type="hidden" name="url" value="none" />
2780: <input type="hidden" name="symb" value="none" />
2781: </form>
2782: ENDSERVERFORM
2783: }
2784:
2785: sub constspaceform {
2786: my ($frameset) = @_;
2787: my ($target,$printtarget);
2788: if ($frameset) {
2789: $target = ' target="_parent"';
2790: $printtarget = ' target="_parent"';
2791: } else {
2792: unless ((($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) ||
2793: (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self'))) {
2794: $target = ' target="_top"';
2795: $printtarget = ' target="_top"';
2796: }
2797: }
2798: return(<<ENDCONSTSPACEFORM);
2799: <form name="constspace" action="/adm/logout" method="post"$target>
2800: <input type="hidden" name="filename" value="" />
2801: </form>
2802: <form name="cstrdelete" action="/adm/cfile" method="post"$target>
2803: <input type="hidden" name="action" value="delete" />
2804: <input type="hidden" name="filename" value="" />
2805: </form>
2806: <form name="cstrprint" action="/adm/printout" method="post"$printtarget>
2807: <input type="hidden" name="postdata" value="" />
2808: <input type="hidden" name="curseed" value="" />
2809: <input type="hidden" name="problemtype" value="" />
2810: </form>
2811: <form name="cstrcopy" action="/adm/cfile" method="post"$target>
2812: <input type="hidden" name="action" value="copy" />
2813: <input type="hidden" name="filename" value="" />
2814: <input type="hidden" name="newfilename" value="" />
2815: </form>
2816:
2817: ENDCONSTSPACEFORM
2818: }
2819:
2820: sub hidden_button_check {
2821: if ( $env{'request.course.id'} eq ''
2822: || $env{'request.role.adv'} ) {
2823:
2824: return;
2825: }
2826: my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');
2827: return $buttonshide;
2828: }
2829:
2830: sub roles_selector {
2831: my ($cdom,$cnum,$httphost,$target,$menucoll,$menuref) = @_;
2832: my $crstype = &Apache::loncommon::course_type();
2833: my $now = time;
2834: my (%courseroles,%seccount,%courseprivs,%roledesc);
2835: my $is_cc;
2836: my ($js,$form,$switcher,$has_opa_priv);
2837: my $ccrole;
2838: if ($crstype eq 'Community') {
2839: $ccrole = 'co';
2840: } else {
2841: $ccrole = 'cc';
2842: }
2843: my ($privref,$gotsymb,$destsymb);
2844: my $destinationurl = $ENV{'REQUEST_URI'};
2845: if ($destinationurl =~ /(\?|\&)symb=/) {
2846: $gotsymb = 1;
2847: } elsif ($destinationurl =~ m{^/enc/}) {
2848: my $plainurl = &Apache::lonenc::unencrypted($destinationurl);
2849: if ($plainurl =~ /(\?|\&)symb=/) {
2850: $gotsymb = 1;
2851: }
2852: }
2853: unless ($gotsymb) {
2854: $destsymb = &Apache::lonnet::symbread();
2855: if ($destsymb ne '') {
2856: $destsymb = &Apache::lonenc::check_encrypt($destsymb);
2857: }
2858: }
2859: my $reqprivs = &required_privs();
2860: if (ref($reqprivs) eq 'HASH') {
2861: my $destination = $destinationurl;
2862: $destination =~ s/(\?.*)$//;
2863: if (exists($reqprivs->{$destination})) {
2864: if ($reqprivs->{$destination} =~ /,/) {
2865: @{$privref} = split(/,/,$reqprivs->{$destination});
2866: } else {
2867: $privref = [$reqprivs->{$destination}];
2868: }
2869: }
2870: }
2871: if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {
2872: my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});
2873: if ((($start) && ($start<0)) ||
2874: (($end) && ($end<$now)) ||
2875: (($start) && ($now<$start))) {
2876: $is_cc = 0;
2877: } else {
2878: $is_cc = 1;
2879: }
2880: }
2881: if ($is_cc) {
2882: &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs);
2883: } elsif ($env{'request.role'} =~ m{^\Qcr/$cdom/$cdom-domainconfig/\E(\w+)\.\Q/$cdom/$cnum\E}) {
2884: &get_customadhoc_roles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs,\%roledesc,$privref);
2885: } else {
2886: my %gotnosection;
2887: foreach my $item (keys(%env)) {
2888: if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) {
2889: my $role = $1;
2890: my $sec = $2;
2891: next if ($role eq 'gr');
2892: my ($start,$end) = split(/\./,$env{$item});
2893: next if (($start && $start > $now) || ($end && $end < $now));
2894: if ($sec eq '') {
2895: if (!$gotnosection{$role}) {
2896: $seccount{$role} ++;
2897: $gotnosection{$role} = 1;
2898: }
2899: }
2900: if ((ref($privref) eq 'ARRAY') && (@{$privref} > 0)) {
2901: my $cnumsec = $cnum;
2902: if ($sec ne '') {
2903: $cnumsec .= "/$sec";
2904: }
2905: $courseprivs{"$role./$cdom/$cnumsec./"} =
2906: $env{"user.priv.$role./$cdom/$cnumsec./"};
2907: $courseprivs{"$role./$cdom/$cnumsec./$cdom/"} =
2908: $env{"user.priv.$role./$cdom/$cnumsec./$cdom/"};
2909: $courseprivs{"$role./$cdom/$cnumsec./$cdom/$cnumsec"} =
2910: $env{"user.priv.$role./$cdom/$cnumsec./$cdom/$cnumsec"};
2911: }
2912: if (ref($courseroles{$role}) eq 'ARRAY') {
2913: if ($sec ne '') {
2914: if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {
2915: push(@{$courseroles{$role}},$sec);
2916: $seccount{$role} ++;
2917: }
2918: }
2919: } else {
2920: @{$courseroles{$role}} = ();
2921: if ($sec ne '') {
2922: $seccount{$role} ++;
2923: push(@{$courseroles{$role}},$sec);
2924: }
2925: }
2926: }
2927: }
2928: }
2929: my @roles_order = ($ccrole,'in','ta','ep','ad','st');
2930: my $numdiffsec;
2931: if (keys(%seccount) == 1) {
2932: foreach my $key (keys(%seccount)) {
2933: $numdiffsec = $seccount{$key};
2934: }
2935: }
2936: if ((keys(%seccount) > 1) || ($numdiffsec > 1)) {
2937: my $targetattr;
2938: if ($target ne '') {
2939: $targetattr = ' target="'.$target.'"';
2940: }
2941: my @submenu;
2942: $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,
2943: \%roledesc,$privref,$menucoll,$menuref);
2944: $form =
2945: '<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles"'.$targetattr.'>'."\n".
2946: ' <input type="hidden" name="destinationurl" value="'.
2947: &HTML::Entities::encode($destinationurl).'" />'."\n".
2948: ' <input type="hidden" name="gotorole" value="1" />'."\n".
2949: ' <input type="hidden" name="selectrole" value="" />'."\n".
2950: ' <input type="hidden" name="switchrole" value="" />'."\n";
2951: if ($destsymb ne '') {
2952: $form .= ' <input type="hidden" name="destsymb" value="'.
2953: &HTML::Entities::encode($destsymb).'" />'."\n";
2954: }
2955: $form .= '</form>'."\n";
2956: foreach my $role (@roles_order) {
2957: my $include;
2958: if (defined($courseroles{$role})) {
2959: if ($env{'request.role'} =~ m{^\Q$role\E}) {
2960: if ($seccount{$role} > 1) {
2961: $include = 1;
2962: } else {
2963: if ($env{'user.priv.'.$env{'request.role'}."./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
2964: $has_opa_priv = 1;
2965: }
2966: }
2967: } else {
2968: $include = 1;
2969: }
2970: }
2971: if ($include) {
2972: if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
2973: $has_opa_priv = 1;
2974: }
2975: push(@submenu,['javascript:adhocRole('."'$role'".')',
2976: &Apache::lonnet::plaintext($role,$crstype)]);
2977: }
2978: }
2979: foreach my $role (sort(keys(%courseroles))) {
2980: if ($role =~ /^cr/) {
2981: my $include;
2982: if ($env{'request.role'} =~ m{^\Q$role\E}) {
2983: if ($seccount{$role} > 1) {
2984: $include = 1;
2985: }
2986: } else {
2987: $include = 1;
2988: }
2989: if ($include) {
2990: my $rolename;
2991: if ($role =~ m{^cr/$cdom/$cdom\-domainconfig/(\w+)(?:/\w+|$)}) {
2992: $rolename = $roledesc{$role};
2993: if ($rolename eq '') {
2994: $rolename = &mt('Helpdesk [_1]',$1);
2995: }
2996: } else {
2997: $rolename = &Apache::lonnet::plaintext($role);
2998: }
2999: if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
3000: $has_opa_priv = 1;
3001: }
3002: push(@submenu,['javascript:adhocRole('."'$role'".')',
3003: $rolename]);
3004: }
3005: }
3006: }
3007: if (@submenu > 0) {
3008: $switcher = &create_submenu('#',$target,&mt('Switch role'),\@submenu);
3009: }
3010: }
3011: return ($js,$form,$switcher,$has_opa_priv);
3012: }
3013:
3014: sub get_all_courseroles {
3015: my ($cdom,$cnum,$courseroles,$seccount,$courseprivs) = @_;
3016: unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') &&
3017: (ref($courseprivs) eq 'HASH')) {
3018: return;
3019: }
3020: my ($result,$cached) =
3021: &Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);
3022: if (defined($cached)) {
3023: if (ref($result) eq 'HASH') {
3024: if ((ref($result->{'roles'}) eq 'HASH') &&
3025: (ref($result->{'seccount'}) eq 'HASH') &&
3026: (ref($result->{'privs'}) eq 'HASH')) {
3027: %{$courseroles} = %{$result->{'roles'}};
3028: %{$seccount} = %{$result->{'seccount'}};
3029: %{$courseprivs} = %{$result->{'privs'}};
3030: return;
3031: }
3032: }
3033: }
3034: my %gotnosection;
3035: my %adv_roles =
3036: &Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
3037: foreach my $role (keys(%adv_roles)) {
3038: my ($urole,$usec) = split(/:/,$role);
3039: if (!$gotnosection{$urole}) {
3040: $seccount->{$urole} ++;
3041: $gotnosection{$urole} = 1;
3042: }
3043: if (ref($courseroles->{$urole}) eq 'ARRAY') {
3044: if ($usec ne '') {
3045: if (!grep(/^Q$usec\E$/,@{$courseroles->{$urole}})) {
3046: push(@{$courseroles->{$urole}},$usec);
3047: $seccount->{$urole} ++;
3048: }
3049: }
3050: } else {
3051: @{$courseroles->{$urole}} = ();
3052: if ($usec ne '') {
3053: $seccount->{$urole} ++;
3054: push(@{$courseroles->{$urole}},$usec);
3055: }
3056: }
3057: my $area = '/'.$cdom.'/'.$cnum;
3058: if ($usec ne '') {
3059: $area .= '/'.$usec;
3060: }
3061: if ($role =~ /^cr\//) {
3062: &Apache::lonnet::custom_roleprivs($courseprivs,$urole,$cdom,$cnum,$urole.'.'.$area,$area);
3063: } else {
3064: &Apache::lonnet::standard_roleprivs($courseprivs,$urole,$cdom,$urole.'.'.$area,$cnum,$area);
3065: }
3066: }
3067: my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);
3068: @{$courseroles->{'st'}} = ();
3069: &Apache::lonnet::standard_roleprivs($courseprivs,'st',$cdom,"st./$cdom/$cnum",$cnum,"/$cdom/$cnum");
3070: if (keys(%sections_count) > 0) {
3071: push(@{$courseroles->{'st'}},keys(%sections_count));
3072: $seccount->{'st'} = scalar(keys(%sections_count));
3073: }
3074: $seccount->{'st'} ++; # Increment for a section-less student role.
3075: my $rolehash = {
3076: 'roles' => $courseroles,
3077: 'seccount' => $seccount,
3078: 'privs' => $courseprivs,
3079: };
3080: &Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);
3081: return;
3082: }
3083:
3084: sub get_customadhoc_roles {
3085: my ($cdom,$cnum,$courseroles,$seccount,$courseprivs,$roledesc,$privref) = @_;
3086: unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') &&
3087: (ref($courseprivs) eq 'HASH') && (ref($roledesc) eq 'HASH')) {
3088: return;
3089: }
3090: my $is_helpdesk = 0;
3091: my $now = time;
3092: foreach my $role ('dh','da') {
3093: if ($env{"user.role.$role./$cdom/"}) {
3094: my ($start,$end)=split(/\./,$env{"user.role.$role./$cdom/"});
3095: if (!($start && ($now<$start)) && !($end && ($now>$end))) {
3096: $is_helpdesk = 1;
3097: last;
3098: }
3099: }
3100: }
3101: if ($is_helpdesk) {
3102: my ($possroles,$description) = &Apache::lonnet::get_my_adhocroles($cdom.'_'.$cnum);
3103: my %available;
3104: if (ref($possroles) eq 'ARRAY') {
3105: map { $available{$_} = 1; } @{$possroles};
3106: }
3107: my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
3108: if (ref($domdefaults{'adhocroles'}) eq 'HASH') {
3109: if (keys(%{$domdefaults{'adhocroles'}})) {
3110: my $numsec = 1;
3111: my @sections;
3112: my ($allseclist,$cached) =
3113: &Apache::lonnet::is_cached_new('courseseclist',$cdom.'_'.$cnum);
3114: if (defined($cached)) {
3115: if ($allseclist ne '') {
3116: @sections = split(/,/,$allseclist);
3117: $numsec += scalar(@sections);
3118: }
3119: } else {
3120: my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);
3121: @sections = sort(keys(%sections_count));
3122: $numsec += scalar(@sections);
3123: $allseclist = join(',',@sections);
3124: &Apache::lonnet::do_cache_new('courseseclist',$cdom.'_'.$cnum,$allseclist);
3125: }
3126: my (%adhoc,$gotprivs);
3127: my $prefix = "cr/$cdom/$cdom".'-domainconfig';
3128: foreach my $role (keys(%{$domdefaults{'adhocroles'}})) {
3129: next if (($role eq '') || ($role =~ /\W/));
3130: $seccount->{"$prefix/$role"} = $numsec;
3131: $roledesc->{"$prefix/$role"} = $description->{$role};
3132: if ((ref($privref) eq 'ARRAY') && (@{$privref} > 0)) {
3133: if (exists($env{"user.priv.$prefix/$role./$cdom/$cnum./"})) {
3134: $courseprivs->{"$prefix/$role./$cdom/$cnum./"} =
3135: $env{"user.priv.$prefix/$role./$cdom/$cnum./"};
3136: $courseprivs->{"$prefix/$role./$cdom/$cnum./$cdom/"} =
3137: $env{"user.priv.$prefix/$role./$cdom/$cnum./$cdom/"};
3138: $courseprivs->{"$prefix/$role./$cdom/$cnum./$cdom/$cnum"} =
3139: $env{"user.priv.$prefix/$role./$cdom/$cnum./$cdom/$cnum"};
3140: } else {
3141: unless ($gotprivs) {
3142: my ($adhocroles,$privscached) =
3143: &Apache::lonnet::is_cached_new('adhocroles',$cdom);
3144: if ((defined($privscached)) && (ref($adhocroles) eq 'HASH')) {
3145: %adhoc = %{$adhocroles};
3146: } else {
3147: my $confname = &Apache::lonnet::get_domainconfiguser($cdom);
3148: my %roledefs = &Apache::lonnet::dump('roles',$cdom,$confname,'rolesdef_');
3149: foreach my $key (keys(%roledefs)) {
3150: (undef,my $rolename) = split(/_/,$key);
3151: if ($rolename ne '') {
3152: my ($systempriv,$domainpriv,$coursepriv) = split(/\_/,$roledefs{$key});
3153: $coursepriv = &Apache::lonnet::course_adhocrole_privs($rolename,$cdom,$cnum,$coursepriv);
3154: $adhoc{$rolename} = join('_',($systempriv,$domainpriv,$coursepriv));
3155: }
3156: }
3157: &Apache::lonnet::do_cache_new('adhocroles',$cdom,\%adhoc);
3158: }
3159: $gotprivs = 1;
3160: }
3161: ($courseprivs->{"$prefix/$role./$cdom/$cnum./"},
3162: $courseprivs->{"$prefix/$role./$cdom/$cnum./$cdom/"},
3163: $courseprivs->{"$prefix/$role./$cdom/$cnum./$cdom/$cnum"}) =
3164: split(/\_/,$adhoc{$role});
3165: }
3166: }
3167: if ($available{$role}) {
3168: $courseroles->{"$prefix/$role"} = \@sections;
3169: }
3170: }
3171: }
3172: }
3173: }
3174: return;
3175: }
3176:
3177: sub jump_to_role {
3178: my ($cdom,$cnum,$seccount,$courseroles,$courseprivs,$roledesc,$privref,
3179: $menucoll,$menuref) = @_;
3180: my %lt = &Apache::lonlocal::texthash(
3181: this => 'This role has section(s) associated with it.',
3182: ente => 'Enter a specific section.',
3183: orlb => 'Enter a specific section, or leave blank for no section.',
3184: avai => 'Available sections are:',
3185: youe => 'You entered an invalid section choice:',
3186: plst => 'Please try again.',
3187: role => 'The role you selected is not permitted to view the current page.',
3188: swit => 'Switch role, but display Main Menu page instead?',
3189: );
3190: &js_escape(\%lt);
3191: my $js;
3192: if (ref($courseroles) eq 'HASH') {
3193: $js = ' var secpick = new Array("'.$lt{'ente'}.'","'.$lt{'orlb'}.'");'."\n".
3194: ' var numsec = new Array();'."\n".
3195: ' var rolesections = new Array();'."\n".
3196: ' var rolenames = new Array();'."\n".
3197: ' var roleseclist = new Array();'."\n";
3198: my @items = keys(%{$courseroles});
3199: for (my $i=0; $i<@items; $i++) {
3200: $js .= ' rolenames['.$i.'] = "'.$items[$i].'";'."\n";
3201: my ($secs,$secstr);
3202: if (ref($courseroles->{$items[$i]}) eq 'ARRAY') {
3203: my @sections = sort { $a <=> $b } @{$courseroles->{$items[$i]}};
3204: $secs = join('","',@sections);
3205: $secstr = join(', ',@sections);
3206: }
3207: $js .= ' rolesections['.$i.'] = new Array("'.$secs.'");'."\n".
3208: ' roleseclist['.$i.'] = "'.$secstr.'";'."\n".
3209: ' numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";
3210: }
3211: }
3212: my $checkroles = 0;
3213: my $fallback = '/adm/menu';
3214: my $displaymsg = $lt{'swit'};
3215: if ((ref($privref) eq 'ARRAY') && (@{$privref} > 0) && (ref($courseprivs) eq 'HASH')) {
3216: my %disallowed;
3217: foreach my $role (sort(keys(%{$courseprivs}))) {
3218: my $trole;
3219: if ($role =~ m{^(.+?)\Q./$cdom/$cnum\E}) {
3220: $trole = $1;
3221: }
3222: if (($trole ne '') && ($trole ne 'cm')) {
3223: $disallowed{$trole} = 1;
3224: foreach my $priv (@{$privref}) {
3225: if ($courseprivs->{$role} =~ /\Q:$priv\E($|:|\&\w+)/) {
3226: delete($disallowed{$trole});
3227: last;
3228: }
3229: }
3230: }
3231: }
3232: if (keys(%disallowed) > 0) {
3233: $checkroles = 1;
3234: $js .= " var disallow = new Array('".join("','",keys(%disallowed))."');\n".
3235: " var rolecheck = 1;\n";
3236: if ($menucoll) {
3237: if (ref($menuref) eq 'HASH') {
3238: if ($menuref->{'main'} eq 'n') {
3239: $fallback = '/adm/navmaps';
3240: if (&Apache::loncommon::course_type() eq 'Community') {
3241: $displaymsg = &mt('Switch role, but display Community Contents page instead?');
3242: } else {
3243: $displaymsg = &mt('Switch role, but display Course Contents page instead?');
3244: }
3245: &js_escape(\$displaymsg);
3246: }
3247: }
3248: }
3249: }
3250: }
3251: &js_escape(\$fallback);
3252: if (!$checkroles) {
3253: $js .= " var disallow = new Array();\n".
3254: " rolecheck = 0;\n";
3255: }
3256: return <<"END";
3257: <script type="text/javascript">
3258: //<![CDATA[
3259: function adhocRole(newrole) {
3260: $js
3261: if (newrole == '') {
3262: return;
3263: }
3264: var fullrole = newrole+'./$cdom/$cnum';
3265: var selidx = '';
3266: for (var i=0; i<rolenames.length; i++) {
3267: if (rolenames[i] == newrole) {
3268: selidx = i;
3269: }
3270: }
3271: if (rolecheck > 0) {
3272: for (var i=0; i<disallow.length; i++) {
3273: if (disallow[i] == newrole) {
3274: if (confirm("$lt{'role'}\\n$displaymsg")) {
3275: document.rolechooser.destinationurl.value = '$fallback';
3276: } else {
3277: return;
3278: }
3279: }
3280: }
3281: }
3282: var secok = 1;
3283: var secchoice = '';
3284: if (selidx >= 0) {
3285: if (numsec[selidx] > 1) {
3286: secok = 0;
3287: var numrolesec = rolesections[selidx].length;
3288: var msgidx = numsec[selidx] - numrolesec;
3289: secchoice = prompt("$lt{'this'} "+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");
3290: if (secchoice == '') {
3291: if (msgidx > 0) {
3292: secok = 1;
3293: }
3294: } else {
3295: for (var j=0; j<rolesections[selidx].length; j++) {
3296: if (rolesections[selidx][j] == secchoice) {
3297: secok = 1;
3298: }
3299: }
3300: }
3301: } else {
3302: if (rolesections[selidx].length == 1) {
3303: secchoice = rolesections[selidx][0];
3304: }
3305: }
3306: }
3307: if (secok == 1) {
3308: if (secchoice != '') {
3309: fullrole += '/'+secchoice;
3310: }
3311: } else {
3312: if (secchoice != null) {
3313: alert("$lt{'youe'} \\""+secchoice+"\\".\\n $lt{'plst'}");
3314: }
3315: return;
3316: }
3317: if (fullrole == "$env{'request.role'}") {
3318: return;
3319: }
3320: itemid = retrieveIndex('gotorole');
3321: if (itemid != -1) {
3322: document.rolechooser.elements[itemid].name = fullrole;
3323: }
3324: document.rolechooser.switchrole.value = fullrole;
3325: document.rolechooser.selectrole.value = '1';
3326: document.rolechooser.submit();
3327: return;
3328: }
3329:
3330: function retrieveIndex(item) {
3331: for (var i=0;i<document.rolechooser.elements.length;i++) {
3332: if (document.rolechooser.elements[i].name == item) {
3333: return i;
3334: }
3335: }
3336: return -1;
3337: }
3338: // ]]>
3339: </script>
3340: END
3341: }
3342:
3343: sub required_privs {
3344: my $privs = {
3345: '/adm/parmset' => 'opa,vpa',
3346: '/adm/courseprefs' => 'opa,vpa',
3347: '/adm/whatsnew' => 'whn',
3348: '/adm/populate' => 'cst,vpa,vcl',
3349: '/adm/trackstudent' => 'vsa',
3350: '/adm/statistics' => 'mgr,vgr',
3351: '/adm/setblock' => 'dcm,vcb',
3352: '/adm/coursedocs' => 'mdc',
3353: };
3354: unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
3355: $privs->{'/adm/classcalc'} = 'vgr',
3356: $privs->{'/adm/assesscalc'} = 'vgr',
3357: $privs->{'/adm/studentcalc'} = 'vgr';
3358: }
3359: return $privs;
3360: }
3361:
3362: sub countdown_timer {
3363: if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&
3364: (($env{'request.filename'}=~/$LONCAPA::assess_re/) ||
3365: (($env{'request.symb'} =~ /ext\.tool$/) &&
3366: (&Apache::lonnet::EXT('resource.0.gradable',$env{'request.symb'}) =~ /^yes$/i)))) {
3367: my ($type,$hastimeleft,$slothastime);
3368: my $now = time;
3369: if ($env{'request.filename'} =~ /\.task$/) {
3370: $type = 'Task';
3371: } elsif ($env{'request.symb'} =~ /ext\.tool$/) {
3372: $type = 'tool';
3373: } else {
3374: $type = 'problem';
3375: }
3376: my ($status,$accessmsg,$slot_name,$slot);
3377: if ($type eq 'tool') {
3378: ($status,$accessmsg,$slot_name,$slot) =
3379: &Apache::lonhomework::check_slot_access('0',$type,$env{'request.symb'},['0']);
3380: } else {
3381: ($status,$accessmsg,$slot_name,$slot) =
3382: &Apache::lonhomework::check_slot_access('0',$type);
3383: }
3384: if ($slot_name ne '') {
3385: if (ref($slot) eq 'HASH') {
3386: if (($slot->{'starttime'} < $now) &&
3387: ($slot->{'endtime'} > $now)) {
3388: $slothastime = 1;
3389: }
3390: }
3391: }
3392: if ($status ne 'CAN_ANSWER') {
3393: return;
3394: }
3395: my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
3396: my @interval=&Apache::lonnet::EXT("resource.0.interval");
3397: my ($timelimit,$usesdone,$donebuttontext,$proctor,$secret);
3398: if (@interval > 1) {
3399: ($timelimit,my $donesuffix) = split(/_/,$interval[0],2);
3400: if ($donesuffix =~ /^done\:([^\:]+)\:(.*)$/) {
3401: $usesdone = 'done';
3402: $donebuttontext = $1;
3403: (undef,$proctor,$secret) = split(/_/,$2);
3404: } elsif ($donesuffix =~ /^done(|_.+)$/) {
3405: $donebuttontext = &mt('Done');
3406: ($usesdone,$proctor,$secret) = split(/_/,$donesuffix);
3407: }
3408: my $first_access=&Apache::lonnet::get_first_access($interval[1]);
3409: if ($first_access > 0) {
3410: if ($first_access+$timelimit > time) {
3411: $hastimeleft = 1;
3412: }
3413: }
3414: }
3415: if (($duedate && $duedate > time) ||
3416: (!$duedate && $hastimeleft) ||
3417: ($slot_name ne '' && $slothastime)) {
3418: my ($collapse,$expand,$alttxt,$title,$currdisp,$donebutton);
3419: if ((@interval > 1 && $hastimeleft) ||
3420: ($type eq 'Task' && $slothastime)) {
3421: $currdisp = 'inline';
3422: $collapse = '► ';
3423: if ((@interval > 1) && ($hastimeleft)) {
3424: if ($usesdone eq 'done') {
3425: $donebutton = &done_button_js($interval[1],'','',$proctor,$donebuttontext);
3426: }
3427: }
3428: } else {
3429: $currdisp = 'none';
3430: $expand = '◄ ';
3431: }
3432: unless ($env{'environment.icons'} eq 'iconsonly') {
3433: $alttxt = &mt('Timer');
3434: $title = $alttxt.' ';
3435: }
3436: my $desc = &mt('Countdown to due date/time');
3437:
3438: return <<END;
3439: $donebutton
3440: <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">
3441: <span id="ddcountcollapse" class="LC_menubuttons_inline_text">
3442: $collapse
3443: </span></a>
3444: <span id="duedatecountdown" class="LC_menubuttons_inline_text" style="display: $currdisp;"></span>
3445: <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">
3446: <span id="ddcountexpand" class="LC_menubuttons_inline_text" >$expand</span>
3447: <img src="/res/adm/pages/timer.png" title="$desc" class="LC_icon" alt="$alttxt" /><span class="LC_menubuttons_inline_text">$title</span></a>
3448: END
3449: }
3450: }
3451: return;
3452: }
3453:
3454: sub placement_progress {
3455: my ($totalpoints,$incomplete) = &Apache::lonplacementtest::check_completion(undef,undef,1);
3456: my $complete = 100 - $incomplete;
3457: return '<span class="LC_placement_prog">'.
3458: &mt('Test is [_1]% complete',$complete).'</span>';
3459: }
3460:
3461: sub linkprot_exit {
3462: if (($env{'request.course.id'}) && ($env{'request.deeplink.login'})) {
3463: my ($deeplink_symb,$deeplink);
3464: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
3465: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
3466: if (($cnum ne '') && ($cdom ne '')) {
3467: $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);
3468: if ($deeplink_symb) {
3469: if ($deeplink_symb =~ /\.(page|sequence)$/) {
3470: my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($deeplink_symb))[2]);
3471: my $navmap = Apache::lonnavmaps::navmap->new();
3472: if (ref($navmap)) {
3473: $deeplink = $navmap->get_mapparam(undef,$mapname,'0.deeplink');
3474: }
3475: } else {
3476: $deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$deeplink_symb);
3477: }
3478: if ($deeplink ne '') {
3479: my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink);
3480: my %lt = &Apache::lonlocal::texthash(
3481: title => 'Exit Tool',
3482: okdone => 'Click "OK" to exit embedded tool',
3483: cancel => 'Click "Cancel" to continue working.',
3484: ok => 'OK',
3485: exit => 'Cancel',
3486: );
3487: if ($exit) {
3488: my ($show,$text) = split(/:/,$exit);
3489: unless ($show eq 'no') {
3490: my $height = 250;
3491: my $width = 300;
3492: my $exitbuttontext;
3493: if ($text eq '') {
3494: $exitbuttontext = &mt('Exit Tool');
3495: } else {
3496: $exitbuttontext = $text;
3497: }
3498: return <<END;
3499: <form method="post" name="LCexitButton" action="/adm/linkexit">
3500: <input type="hidden" name="LC_deeplink_exit" value="" />
3501: <button id="LC_exit-confirm-opener" type="button">$exitbuttontext</button>
3502: </form>
3503:
3504: <div id="LC_exit-confirm" title="$lt{'title'}">
3505: <p>$lt{'okdone'} $lt{'cancel'}</p>
3506: </div>
3507:
3508: <script type="text/javascript">
3509: // <![CDATA[
3510: \$( "#LC_exit-confirm" ).dialog({ autoOpen: false });
3511: \$( "#LC_exit-confirm-opener" ).click(function() {
3512: \$( "#LC_exit-confirm" ).dialog( "open" );
3513: \$( "#LC_exit-confirm" ).dialog({
3514: resizable: false,
3515: height: $height,
3516: width: $width,
3517: modal: true,
3518: buttons: [
3519: {
3520: text: "$lt{'ok'}",
3521: click: function() {
3522: \$( this ).dialog( "close" );
3523: \$( '[name="LC_deeplink_exit"]' )[0].value = 'true';
3524: \$( '[name="LCexitButton"]' )[0].submit();
3525: },
3526: },
3527: {
3528: text: "$lt{'exit'}",
3529: click: function() {
3530: \$( this ).dialog( "close" );
3531: },
3532: },
3533: ],
3534: });
3535: });
3536: // ]]>
3537: </script>
3538:
3539: END
3540: }
3541: }
3542: }
3543: }
3544: }
3545: }
3546: return;
3547: }
3548:
3549: # ================================================================ Main Program
3550:
3551: BEGIN {
3552: if (! defined($readdesk)) {
3553: {
3554: my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
3555: if ( CORE::open( my $config,"<$tabfile") ) {
3556: while (my $configline=<$config>) {
3557: $configline=(split(/\#/,$configline))[0];
3558: $configline=~s/^\s+//;
3559: chomp($configline);
3560: if ($configline=~/^cat\:/) {
3561: my @entries=split(/\:/,$configline);
3562: $category_positions{$entries[2]}=$entries[1];
3563: $category_names{$entries[2]}=$entries[3];
3564: } elsif ($configline=~/^prim\:/) {
3565: my @entries = (split(/\:/, $configline))[1..7];
3566: push(@primary_menu,\@entries);
3567: } elsif ($configline=~/^primsub\:/) {
3568: my ($parent,@entries) = (split(/\:/, $configline))[1..5];
3569: push(@{$primary_submenu{$parent}},\@entries);
3570: } elsif ($configline=~/^scnd\:/) {
3571: my @entries = (split(/\:/, $configline))[1..6];
3572: push(@secondary_menu,\@entries);
3573: } elsif ($configline=~/^scndsub\:/) {
3574: my ($parent,@entries) = (split(/\:/, $configline))[1..4];
3575: push(@{$secondary_submenu{$parent}},\@entries);
3576: } elsif ($configline) {
3577: push(@desklines,$configline);
3578: }
3579: }
3580: CORE::close($config);
3581: }
3582: }
3583: $readdesk='done';
3584: }
3585: }
3586:
3587: 1;
3588: __END__
3589:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>