version 1.369.2.37, 2013/01/14 18:04:32
|
version 1.369.2.57, 2016/08/13 21:14:50
|
Line 106 secondary_menu().
|
Line 106 secondary_menu().
|
|
|
=item primary_menu() |
=item primary_menu() |
|
|
This routine evaluates @primary_menu and returns XHTML for the menu |
This routine evaluates @primary_menu and returns a two item array, |
that contains following links: About, Message, Roles, Help, Logout |
with the array elements containing XHTML for the left and right sides of |
|
the menu that contains the following links: About, Message, Roles, Help, Logout |
@primary_menu is filled within the BEGIN block of this module with |
@primary_menu is filled within the BEGIN block of this module with |
entries from mydesk.tab |
entries from mydesk.tab |
|
|
=item secondary_menu() |
=item secondary_menu() |
|
|
Line 123 dropdown list when mouse hovers over top
|
Line 124 dropdown list when mouse hovers over top
|
(no hover psuedo class) via LC_hoverable class for <li> tag for top- |
(no hover psuedo class) via LC_hoverable class for <li> tag for top- |
level item, which employs jQuery to handle behavior on mouseover. |
level item, which employs jQuery to handle behavior on mouseover. |
|
|
Inputs: 4 - (a) link and (b) target for anchor href in top level item, |
Inputs: 6 - (a) link and (b) target for anchor href in top level item, |
(c) title for text wrapped by anchor tag in top level item. |
(c) title for text wrapped by anchor tag in top level item. |
(d) reference to array of arrays of sub-menu items. |
(d) reference to array of arrays of sub-menu items. |
|
(e) boolean to indicate whether to call &mt() to translate |
|
name of menu item, |
|
(f) optional class for <li> element in primary menu, for which |
|
sub menu is being generated. |
|
|
|
|
=item innerregister() |
=item innerregister() |
|
|
Line 223 sub prep_menuitem {
|
Line 229 sub prep_menuitem {
|
. qq| href="$$menuitem[0]" target="_top">$link</a></li>|; |
. qq| href="$$menuitem[0]" target="_top">$link</a></li>|; |
} |
} |
|
|
# primary_menu() evaluates @primary_menu and returns XHTML for the menu |
# primary_menu() evaluates @primary_menu and returns a two item array, |
# that contains following links: |
# with the array elements containing XHTML for the left and right sides of |
# About, Message, Personal, Roles, Help, Logout |
# the menu that contains the following links: |
|
# Personal, About, Message, Roles, Help, Logout |
# @primary_menu is filled within the BEGIN block of this module with |
# @primary_menu is filled within the BEGIN block of this module with |
# entries from mydesk.tab |
# entries from mydesk.tab |
sub primary_menu { |
sub primary_menu { |
my $menu; |
my %menu; |
# each element of @primary contains following array: |
# each element of @primary contains following array: |
# (link url, icon path, alt text, link text, condition) |
# (link url, icon path, alt text, link text, condition, position) |
my $public; |
my $public; |
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) |
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) |
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
Line 256 sub primary_menu {
|
Line 263 sub primary_menu {
|
&& !&Apache::loncommon::show_course(); ## |
&& !&Apache::loncommon::show_course(); ## |
|
|
my $title = $menuitem->[3]; |
my $title = $menuitem->[3]; |
|
my $position = $menuitem->[5]; |
|
if ($position eq '') { |
|
$position = 'right'; |
|
} |
if (defined($primary_submenu{$title})) { |
if (defined($primary_submenu{$title})) { |
my ($link,$target); |
my ($link,$target); |
if ($menuitem->[0] ne '') { |
if ($menuitem->[0] ne '') { |
Line 275 sub primary_menu {
|
Line 286 sub primary_menu {
|
push(@primsub,$item); |
push(@primsub,$item); |
} |
} |
if (@primsub > 0) { |
if (@primsub > 0) { |
$menu .= &create_submenu($link,$target,$title,\@primsub); |
$menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1); |
} elsif ($link) { |
} elsif ($link) { |
$menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>'; |
$menu{$position} .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>'; |
} |
} |
} |
} |
} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink |
} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink |
Line 288 sub primary_menu {
|
Line 299 sub primary_menu {
|
'helpdeskmail', |
'helpdeskmail', |
$defdom,$origmail); |
$defdom,$origmail); |
if ($to ne '') { |
if ($to ne '') { |
$menu .= &prep_menuitem($menuitem); |
$menu{$position} .= &prep_menuitem($menuitem); |
} |
} |
} else { |
} else { |
$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>'; |
$menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>'; |
} |
} |
} else { |
} else { |
$menu .= prep_menuitem($menuitem); |
$menu{$position} .= prep_menuitem($menuitem); |
} |
} |
} |
} |
$menu =~ s/\[domain\]/$env{'user.domain'}/g; |
my @output = ('',''); |
$menu =~ s/\[user\]/$env{'user.name'}/g; |
if ($menu{'left'} ne '') { |
|
$output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>"; |
return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>"; |
} |
|
if ($menu{'right'} ne '') { |
|
$output[1] = "<ol class=\"LC_primary_menu LC_floatright LC_right\">$menu{'right'}</ol>"; |
|
} |
|
return @output; |
} |
} |
|
|
#returns hashref {user=>'',dom=>''} containing: |
#returns hashref {user=>'',dom=>''} containing: |
Line 329 sub getauthor{
|
Line 344 sub getauthor{
|
} |
} |
|
|
sub secondary_menu { |
sub secondary_menu { |
|
my ($httphost) = @_; |
my $menu; |
my $menu; |
|
|
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
Line 337 sub secondary_menu {
|
Line 353 sub secondary_menu {
|
: ''); |
: ''); |
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'}); |
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'}); |
my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'}; |
my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'}; |
|
if ($canviewroster eq 'disabled') { |
|
undef($canviewroster); |
|
} |
my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec); |
my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec); |
my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); |
my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); |
my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec); |
my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec); |
Line 345 sub secondary_menu {
|
Line 364 sub secondary_menu {
|
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); |
my $author = &getauthor(); |
my $author = &getauthor(); |
|
|
|
my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv); |
|
if ($env{'request.course.id'}) { |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
unless ($canedit) { |
|
unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) { |
|
if (($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'}) || |
|
($env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'}) || |
|
($env{'course.'.$env{'request.course.id'}.'.updatedsyllabus'}) || |
|
($env{'request.course.syllabustime'})) { |
|
$showsyllabus = 1; |
|
} |
|
} |
|
if ($env{'request.course.feeds'}) { |
|
$showfeeds = 1; |
|
} |
|
} |
|
unless ($canmgr) { |
|
my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom); |
|
if (keys(%slots) > 0) { |
|
$showresv = 1; |
|
} |
|
} |
|
} |
|
|
my ($canmodifycoauthor); |
my ($canmodifycoauthor); |
if ($env{'request.role'} eq "au./$env{'user.domain'}/") { |
if ($env{'request.role'} eq "au./$env{'user.domain'}/") { |
my $extent = "$env{'user.domain'}/$env{'user.name'}"; |
my $extent = "$env{'user.domain'}/$env{'user.name'}"; |
Line 383 sub secondary_menu {
|
Line 427 sub secondary_menu {
|
&& ($canmodifyuser || !$canviewroster); |
&& ($canmodifyuser || !$canviewroster); |
next if $$menuitem[4] eq 'mgr' |
next if $$menuitem[4] eq 'mgr' |
&& !$canmgr; |
&& !$canmgr; |
next if $$menuitem[4] eq 'nmgr' |
next if $$menuitem[4] eq 'showresv' |
&& $canmgr; |
&& !$showresv; |
next if $$menuitem[4] eq 'whn' |
next if $$menuitem[4] eq 'whn' |
&& !$canviewwnew; |
&& !$canviewwnew; |
next if $$menuitem[4] eq 'opa' |
next if $$menuitem[4] eq 'opa' |
&& !$canmodpara; |
&& !$canmodpara; |
next if $$menuitem[4] eq 'nvcg' |
next if $$menuitem[4] eq 'nvcg' |
&& ($canviewgrps || !%groups); |
&& ($canviewgrps || !%groups); |
|
next if $$menuitem[4] eq 'showsyllabus' |
|
&& !$showsyllabus; |
|
next if $$menuitem[4] eq 'showfeeds' |
|
&& !$showfeeds; |
next if $$menuitem[4] eq 'author' |
next if $$menuitem[4] eq 'author' |
&& !$author; |
&& !$author; |
next if $$menuitem[4] eq 'cca' |
next if $$menuitem[4] eq 'cca' |
Line 405 sub secondary_menu {
|
Line 453 sub secondary_menu {
|
} else { |
} else { |
$link = '#'; |
$link = '#'; |
} |
} |
my @scndsub; |
my @scndsub; |
if (ref($secondary_submenu{$title}) eq 'ARRAY') { |
if (ref($secondary_submenu{$title}) eq 'ARRAY') { |
foreach my $item (@{$secondary_submenu{$title}}) { |
foreach my $item (@{$secondary_submenu{$title}}) { |
if (ref($item) eq 'ARRAY') { |
if (ref($item) eq 'ARRAY') { |
Line 414 sub secondary_menu {
|
Line 462 sub secondary_menu {
|
next if ($item->[2] eq 'cst' && !$canmodifyuser); |
next if ($item->[2] eq 'cst' && !$canmodifyuser); |
next if ($item->[2] eq 'mgr' && !$canmgr); |
next if ($item->[2] eq 'mgr' && !$canmgr); |
next if ($item->[2] eq 'vcg' && !$canviewgrps); |
next if ($item->[2] eq 'vcg' && !$canviewgrps); |
|
next if ($item->[2] eq 'mdc' && !$canedit); |
push(@scndsub,$item); |
push(@scndsub,$item); |
} |
} |
} |
} |
if (@scndsub > 0) { |
if (@scndsub > 0) { |
$menu .= &create_submenu($link,$target,$title,\@scndsub); |
$menu .= &create_submenu($link,$target,$title,\@scndsub,1); |
} elsif ($link) { |
} elsif ($link ne '#') { |
$menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>'; |
$menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>'; |
} |
} |
} |
} |
Line 428 sub secondary_menu {
|
Line 477 sub secondary_menu {
|
($roleswitcher_js,$roleswitcher_form,my $switcher) = |
($roleswitcher_js,$roleswitcher_form,my $switcher) = |
&roles_selector( |
&roles_selector( |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.num'} |
$env{'course.' . $env{'request.course.id'} . '.num'}, |
|
$httphost |
); |
); |
$menu .= $switcher; |
$menu .= $switcher; |
} else { |
} else { |
|
if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) { |
|
my $url = $$menuitem[0]; |
|
$url =~ s{\[cdom\]/\[cnum\]}{$cdom/$cnum}; |
|
if (&Apache::lonnet::is_on_map($url)) { |
|
unless ($$menuitem[0] =~ /\?register=1/) { |
|
$$menuitem[0] .= '?register=1'; |
|
} |
|
} else { |
|
$$menuitem[0] =~ s{\?register=1}{}; |
|
} |
|
} |
$menu .= &prep_menuitem(\@$menuitem); |
$menu .= &prep_menuitem(\@$menuitem); |
} |
} |
} |
} |
Line 455 sub secondary_menu {
|
Line 516 sub secondary_menu {
|
} |
} |
$menu =~ s/\[uname\]/$$author{user}/g; |
$menu =~ s/\[uname\]/$$author{user}/g; |
$menu =~ s/\[udom\]/$$author{dom}/g; |
$menu =~ s/\[udom\]/$$author{dom}/g; |
|
if ($env{'request.course.id'}) { |
|
$menu =~ s/\[cnum\]/$cnum/g; |
|
$menu =~ s/\[cdom\]/$cdom/g; |
|
} |
if ($menu) { |
if ($menu) { |
$menu = "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
$menu = "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
} |
} |
Line 465 sub secondary_menu {
|
Line 530 sub secondary_menu {
|
} |
} |
|
|
sub create_submenu { |
sub create_submenu { |
my ($link,$target,$title,$submenu) = @_; |
my ($link,$target,$title,$submenu,$translate,$addclass) = @_; |
return unless (ref($submenu) eq 'ARRAY'); |
return unless (ref($submenu) eq 'ARRAY'); |
my $disptarget; |
my $disptarget; |
if ($target ne '') { |
if ($target ne '') { |
$disptarget = ' target="'.$target.'"'; |
$disptarget = ' target="'.$target.'"'; |
} |
} |
my $menu = '<li class="LC_hoverable">'. |
my $name; |
'<a href="'.$link.'"'.$disptarget.'>'. |
if ($title eq 'Personal') { |
'<span class="LC_nobreak">'.&mt($title). |
if ($env{'user.name'} && $env{'user.domain'}) { |
|
$name = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}); |
|
} else { |
|
$name = &mt($title); |
|
} |
|
} else { |
|
$name = &mt($title); |
|
} |
|
my $menu = '<li class="LC_hoverable '.$addclass.'">'. |
|
'<a href="'.$link.'"'.$disptarget.'>'. |
|
'<span class="LC_nobreak">'.$name. |
'<span class="LC_fontsize_small" style="font-weight:normal;">'. |
'<span class="LC_fontsize_small" style="font-weight:normal;">'. |
' ▼</span></span></a>'. |
' ▼</span></span></a>'. |
'<ul>'; |
'<ul>'; |
Line 482 sub create_submenu {
|
Line 557 sub create_submenu {
|
foreach my $item (@{$submenu}) { |
foreach my $item (@{$submenu}) { |
$count ++; |
$count ++; |
if (ref($item) eq 'ARRAY') { |
if (ref($item) eq 'ARRAY') { |
|
my $href = $item->[0]; |
|
if ($href =~ /(aboutme|rss\.html)$/) { |
|
next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')); |
|
$href =~ s/\[domain\]/$env{'user.domain'}/g; |
|
$href =~ s/\[user\]/$env{'user.name'}/g; |
|
} |
my $borderbot; |
my $borderbot; |
if ($count == $numsub) { |
if ($count == $numsub) { |
$borderbot = 'border-bottom:1px solid black;'; |
$borderbot = 'border-bottom:1px solid black;'; |
} |
} |
|
unless (($href eq '') || ($href =~ /^\#/)) { |
|
$target = ' target="_top"'; |
|
} |
$menu .= '<li style="margin:0;padding:0;'. |
$menu .= '<li style="margin:0;padding:0;'. |
$borderbot.'"><a href="'.$item->[0].'">'. |
$borderbot.'"><a href="'.$href.'"'.$target.'>'; |
&mt($item->[1]).'</a></li>'; |
if ($translate) { |
|
$menu .= &mt($item->[1]); |
|
} else { |
|
$menu .= $item->[1]; |
|
} |
|
$menu .= '</a></li>'; |
} |
} |
} |
} |
$menu .= '</ul></li>'; |
$menu .= '</ul></li>'; |
Line 576 sub innerregister {
|
Line 665 sub innerregister {
|
&& $maptitle ne 'default.sequence' |
&& $maptitle ne 'default.sequence' |
&& $maptitle ne $coursetitle); |
&& $maptitle ne $coursetitle); |
|
|
push @crumbs, {text => $restitle, no_mt => 1} if $restitle; |
push @crumbs, {text => $restitle, no_mt => 1} if $restitle; |
|
my @tools; |
|
if ($env{'request.filename'} =~ /\.page$/) { |
|
my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools(); |
|
if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') { |
|
@tools = @{$breadcrumb_tools{'tools'}}; |
|
} |
|
} |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
|
if (@tools) { |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',@tools); |
|
} |
} else { |
} else { |
$resurl = $env{'request.noversionuri'}; |
$resurl = $env{'request.noversionuri'}; |
my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'}); |
my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'}); |
Line 604 sub innerregister {
|
Line 703 sub innerregister {
|
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1); |
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1); |
} |
} |
return $trail; |
return $trail; |
|
} elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) { |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
&prepare_functions('/public'.$courseurl."/syllabus", |
|
$forcereg,$group,undef,undef,1); |
|
$title = &mt('Syllabus File'); |
|
my ($trail) = |
|
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1); |
|
return $trail; |
} |
} |
unless ($env{'request.state'} eq 'construct') { |
unless ($env{'request.state'} eq 'construct') { |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
Line 721 sub innerregister {
|
Line 828 sub innerregister {
|
my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn; |
my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn; |
if ($currdir =~ m-/$-) { |
if ($currdir =~ m-/$-) { |
$is_const_dir = 1; |
$is_const_dir = 1; |
|
if ($thisdisfn eq '') { |
|
$is_const_dir = 2; |
|
} |
} else { |
} else { |
$currdir =~ s|[^/]+$||; |
$currdir =~ s|[^/]+$||; |
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn); |
Line 768 ENDMENUITEMS
|
Line 878 ENDMENUITEMS
|
# wishlist is only available for users with access to resource-pool |
# wishlist is only available for users with access to resource-pool |
# and links can only be set for resources within the resource-pool |
# and links can only be set for resources within the resource-pool |
$menuitems .= (<<ENDMENUITEMS); |
$menuitems .= (<<ENDMENUITEMS); |
s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1 |
s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink('',currentURL)&Save a link for this resource in my personal Stored Links repository&&1 |
ENDMENUITEMS |
ENDMENUITEMS |
$got_wishlist = 1; |
$got_wishlist = 1; |
} |
} |
Line 784 if(length($annotation) > 0){
|
Line 894 if(length($annotation) > 0){
|
} |
} |
$menuitems.="&$swtext{'anot'}&tations[_1]&annotate()&"; |
$menuitems.="&$swtext{'anot'}&tations[_1]&annotate()&"; |
$menuitems.="Make notes and annotations about this resource&&1\n"; |
$menuitems.="Make notes and annotations about this resource&&1\n"; |
|
my $is_mobile; |
|
if ($env{'browser.mobile'}) { |
|
$is_mobile = 1; |
|
} |
|
|
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) { |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) { |
if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) { |
if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) { |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info()&Show Metadata |
s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info('$is_mobile')&Show Metadata |
ENDREALRES |
ENDREALRES |
} |
} |
unless ($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) { |
unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) || |
|
($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/})) { |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource |
s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource |
ENDREALRES |
ENDREALRES |
} |
} |
$menuitems.=(<<ENDREALRES); |
unless ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) { |
|
$menuitems.=(<<ENDREALRES); |
s&8&2&fdbk.png&$swtext{'fdbk'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource |
s&8&2&fdbk.png&$swtext{'fdbk'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource |
ENDREALRES |
ENDREALRES |
|
} |
} |
} |
} |
} |
if ($env{'request.uri'} =~ /^\/res/) { |
if ($env{'request.uri'} =~ /^\/res/) { |
Line 812 ENDMENUITEMS
|
Line 929 ENDMENUITEMS
|
if (($env{'user.adv'}) && (!$env{'request.enc'})) { |
if (($env{'user.adv'}) && (!$env{'request.enc'})) { |
# wishlist is only available for users with access to resource-pool |
# wishlist is only available for users with access to resource-pool |
$menuitems .= (<<ENDMENUITEMS); |
$menuitems .= (<<ENDMENUITEMS); |
s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1 |
s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink('',currentURL)&Save a link for this resource in your personal Stored Links repository&&1 |
ENDMENUITEMS |
ENDMENUITEMS |
$got_wishlist = 1; |
$got_wishlist = 1; |
} |
} |
Line 856 ENDMENUITEMS
|
Line 973 ENDMENUITEMS
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
'navigation', @inlineremote[21,23]); |
'navigation', @inlineremote[21,23]); |
|
|
my $countdown = &countdown_timer(); |
my $countdown; |
|
if ($env{'request.filename'} =~ /\.page$/) { |
|
my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools(); |
|
if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') { |
|
$countdown = $breadcrumb_tools{'tools'}[0]; |
|
} |
|
} else { |
|
$countdown = &countdown_timer(); |
|
} |
if (&hidden_button_check() eq 'yes') { |
if (&hidden_button_check() eq 'yes') { |
if ($countdown) { |
if ($countdown) { |
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown); |
&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown); |
Line 880 ENDMENUITEMS
|
Line 1005 ENDMENUITEMS
|
&advtools_crumbs(@inlineremote); |
&advtools_crumbs(@inlineremote); |
} |
} |
} |
} |
|
my ($topic_help,$topic_help_text); |
|
if ($is_const_dir == 2) { |
|
if ((($ENV{'SERVER_PORT'} == 443) || |
|
($Apache::lonnet::protocol{$Apache::lonnet::perlvar{'lonHostID'}} eq 'https')) && |
|
(&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},'webdav'))) { |
|
$topic_help = 'Authoring_WebDAV,Authoring_WebDAV_Mac_10v6,Authoring_WebDAV_Mac_10v10,'. |
|
'Authoring_WebDAV_Windows_v7,Authoring_WebDAV_Linux_Centos'; |
|
$topic_help_text = 'About WebDAV access'; |
|
} |
|
} |
return &Apache::lonhtmlcommon::scripttag('', 'start') |
return &Apache::lonhtmlcommon::scripttag('', 'start') |
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0) |
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text) |
. &Apache::lonhtmlcommon::scripttag('', 'end'); |
. &Apache::lonhtmlcommon::scripttag('', 'end'); |
|
|
} else { |
} else { |
Line 1292 sub prepare_functions {
|
Line 1427 sub prepare_functions {
|
# |
# |
# This applies in course context |
# This applies in course context |
# |
# |
if (($resurl eq "/public/$cdom/$cnum/syllabus") && ($perms{'mdc'})) { |
if (($perms{'mdc'}) && |
if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) { |
(($resurl eq "/public/$cdom/$cnum/syllabus") || |
&switch('','',6,1,'pcstr.png','Edit', |
($resurl =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/}))) { |
'resource[_2]', |
$cfile = $resurl; |
"go('/adm/courseprefs?phase=display&actions=courseinfo')", |
$home = &Apache::lonnet::homeserver($cnum,$cdom); |
'Edit this resource','','',1); |
if ($env{'form.forceedit'}) { |
$editbutton = 1; |
$forceview = 1; |
} else { |
} else { |
$cfile = $resurl; |
$forceedit = 1; |
$home = &Apache::lonnet::homeserver($cnum,$cdom); |
|
if ($env{'form.forceedit'}) { |
|
$forceview = 1; |
|
} else { |
|
$forceedit = 1; |
|
} |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg); |
|
} |
} |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg); |
} elsif (($resurl eq '/adm/extresedit') && |
} elsif (($resurl eq '/adm/extresedit') && |
(($env{'form.symb'}) || ($env{'form.folderpath'}))) { |
(($env{'form.symb'}) || ($env{'form.folderpath'}))) { |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
Line 1350 sub prepare_functions {
|
Line 1479 sub prepare_functions {
|
unless (&Apache::lonnet::is_course($sdom,$sname)) { |
unless (&Apache::lonnet::is_course($sdom,$sname)) { |
&switch('','',6,4,'mail-message-new-22x22.png','Message to user', |
&switch('','',6,4,'mail-message-new-22x22.png','Message to user', |
'', |
'', |
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')", |
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')", |
'Send message to specific user','','',1); |
'Send message to specific user','','',1); |
} |
} |
my $hideprivileged = 1; |
my $hideprivileged = 1; |
Line 1372 sub prepare_functions {
|
Line 1501 sub prepare_functions {
|
if ($perms{'vgr'}) { |
if ($perms{'vgr'}) { |
&switch('','',6,6,'rsrv-22x22.png','Reservations', |
&switch('','',6,6,'rsrv-22x22.png','Reservations', |
'', |
'', |
"go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')", |
"go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')", |
'Slot reservation history','','',1); |
'Slot reservation history','','',1); |
} |
} |
if ($perms{'srm'}) { |
if ($perms{'srm'}) { |
&switch('','',6,7,'contact-new-22x22.png','Records', |
&switch('','',6,7,'contact-new-22x22.png','Records', |
'', |
'', |
"go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')", |
"go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')", |
'Add records','','',1); |
'Add records','','',1); |
} |
} |
} |
} |
Line 1394 sub prepare_functions {
|
Line 1523 sub prepare_functions {
|
if ((@folders > 2) || ($resurl ne '/adm/supplemental')) { |
if ((@folders > 2) || ($resurl ne '/adm/supplemental')) { |
my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"')); |
my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"')); |
&switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]', |
&switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]', |
"location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'", |
"location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'", |
'Folder/Page Content','','',1); |
'Folder/Page Content','','',1); |
} |
} |
} |
} |
Line 1623 sub rawconfig {
|
Line 1752 sub rawconfig {
|
my $pub=($env{'request.state'} eq 'published'); |
my $pub=($env{'request.state'} eq 'published'); |
my $con=($env{'request.state'} eq 'construct'); |
my $con=($env{'request.state'} eq 'construct'); |
my $rol=$env{'request.role'}; |
my $rol=$env{'request.role'}; |
my $requested_domain = $env{'request.role.domain'}; |
my $requested_domain; |
|
if ($rol) { |
|
$requested_domain = $env{'request.role.domain'}; |
|
} |
foreach my $line (@desklines) { |
foreach my $line (@desklines) { |
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line); |
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line); |
$prt=~s/\$uname/$uname/g; |
$prt=~s/\$uname/$uname/g; |
Line 1637 sub rawconfig {
|
Line 1769 sub rawconfig {
|
next if ($crstype ne 'Community'); |
next if ($crstype ne 'Community'); |
$prt=~s/\$cmty/$crs/g; |
$prt=~s/\$cmty/$crs/g; |
} |
} |
$prt=~s/\$requested_domain/$requested_domain/g; |
if ($prt =~ m/\$requested_domain/) { |
|
if ((!$requested_domain) && ($pro eq 'pbre') && ($env{'user.adv'})) { |
|
$prt=~s/\$requested_domain/$env{'user.domain'}/g; |
|
} else { |
|
$prt=~s/\$requested_domain/$requested_domain/g; |
|
} |
|
} |
if ($category_names{$cat}!~/\w/) { $cat='oth'; } |
if ($category_names{$cat}!~/\w/) { $cat='oth'; } |
if ($pro eq 'clear') { |
if ($pro eq 'clear') { |
$output.=&clear($row,$col); |
$output.=&clear($row,$col); |
Line 1673 sub rawconfig {
|
Line 1811 sub rawconfig {
|
next; |
next; |
} |
} |
} |
} |
if (&Apache::lonnet::allowed($priv,$prt)) { |
if ((($priv eq 'bre') && (&Apache::lonnet::allowed($priv,$prt) eq 'F')) || |
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
(($priv ne 'bre') && (&Apache::lonnet::allowed($priv,$prt)))) { |
|
$output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat); |
} |
} |
} elsif ($pro eq 'course') { |
} elsif ($pro eq 'course') { |
if (($env{'request.course.fn'}) && ($crstype ne 'Community')) { |
if (($env{'request.course.fn'}) && ($crstype ne 'Community')) { |
Line 1790 sub rawconfig {
|
Line 1929 sub rawconfig {
|
|
|
sub check_for_rcrs { |
sub check_for_rcrs { |
my $showreqcrs = 0; |
my $showreqcrs = 0; |
my @reqtypes = ('official','unofficial','community'); |
my @reqtypes = ('official','unofficial','community','textbook'); |
foreach my $type (@reqtypes) { |
foreach my $type (@reqtypes) { |
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
$env{'user.domain'}, |
$env{'user.domain'}, |
Line 1879 END
|
Line 2018 END
|
} |
} |
|
|
sub utilityfunctions { |
sub utilityfunctions { |
|
my ($httphost) = @_; |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
if ($currenturl =~ m{^/adm/wrapper/ext/} |
if ($currenturl =~ m{^/adm/wrapper/ext/} |
&& $env{'request.external.querystring'} ) { |
&& $env{'request.external.querystring'} ) { |
Line 1913 sub utilityfunctions {
|
Line 2053 sub utilityfunctions {
|
|
|
my $countdown = &countdown_toggle_js(); |
my $countdown = &countdown_toggle_js(); |
|
|
return (<<ENDUTILITY) |
my $hostvar = ' |
|
function setLCHost() { |
|
var lcHostname=""; |
|
'; |
|
if ($httphost =~ m{^https?\://}) { |
|
$hostvar .= ' var lcServer="'.$httphost.'";'."\n". |
|
' var hostReg = /^https?:\/\/([^\/]+)$/i;'."\n". |
|
' var match = hostReg.exec(lcServer);'."\n". |
|
' if (match.length) {'."\n". |
|
' if (match[1] == location.hostname) {'."\n". |
|
' lcHostname=lcServer;'."\n". |
|
' }'."\n". |
|
' }'."\n"; |
|
} |
|
|
|
$hostvar .= ' return lcHostname;'."\n". |
|
'}'."\n"; |
|
|
|
return (<<ENDUTILITY) |
|
$hostvar |
var currentURL=unescape("$esc_url"); |
var currentURL=unescape("$esc_url"); |
var reloadURL=unescape("$esc_url"); |
var reloadURL=unescape("$esc_url"); |
var currentSymb=unescape("$esc_symb"); |
var currentSymb=unescape("$esc_symb"); |
Line 1925 function go(url) {
|
Line 2083 function go(url) {
|
if (url!='' && url!= null) { |
if (url!='' && url!= null) { |
currentURL = null; |
currentURL = null; |
currentSymb= null; |
currentSymb= null; |
window.location.href=url; |
var lcHostname = setLCHost(); |
|
window.location.href=lcHostname+url; |
} |
} |
} |
} |
|
|
Line 1933 $jumptores
|
Line 2092 $jumptores
|
|
|
function gopost(url,postdata) { |
function gopost(url,postdata) { |
if (url!='') { |
if (url!='') { |
this.document.server.action=url; |
var lcHostname = setLCHost(); |
|
this.document.server.action=lcHostname+url; |
this.document.server.postdata.value=postdata; |
this.document.server.postdata.value=postdata; |
this.document.server.command.value=''; |
this.document.server.command.value=''; |
this.document.server.url.value=''; |
this.document.server.url.value=''; |
Line 1944 function gopost(url,postdata) {
|
Line 2104 function gopost(url,postdata) {
|
|
|
function gocmd(url,cmd) { |
function gocmd(url,cmd) { |
if (url!='') { |
if (url!='') { |
this.document.server.action=url; |
var lcHostname = setLCHost(); |
|
this.document.server.action=lcHostname+url; |
this.document.server.postdata.value=''; |
this.document.server.postdata.value=''; |
this.document.server.command.value=cmd; |
this.document.server.command.value=cmd; |
this.document.server.url.value=currentURL; |
this.document.server.url.value=currentURL; |
Line 1996 function golist(url) {
|
Line 2157 function golist(url) {
|
if (url!='' && url!= null) { |
if (url!='' && url!= null) { |
currentURL = null; |
currentURL = null; |
currentSymb= null; |
currentSymb= null; |
top.location.href=url; |
var lcHostname = setLCHost(); |
|
top.location.href=lcHostname+url; |
} |
} |
} |
} |
|
|
|
|
|
|
function catalog_info() { |
function catalog_info(isMobile) { |
openMyModal(window.location.pathname+'.meta',500,400,'yes'); |
if (isMobile == 1) { |
|
openMyModal(window.location.pathname+'.meta?modal=1',500,400,'yes'); |
|
} else { |
|
loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); |
|
} |
} |
} |
|
|
function chat_win() { |
function chat_win() { |
lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no'); |
var lcHostname = setLCHost(); |
|
lonchat=window.open(lcHostname+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no'); |
} |
} |
|
|
function group_chat(group) { |
function group_chat(group) { |
var url = '/adm/groupchat?group='+group; |
var lcHostname = setLCHost(); |
|
var url = lcHostname+'/adm/groupchat?group='+group; |
var winName = 'LONchat_'+group; |
var winName = 'LONchat_'+group; |
grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no'); |
grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no'); |
} |
} |
Line 2031 function annotate() {
|
Line 2199 function annotate() {
|
|
|
function open_StoredLinks_Import(rat) { |
function open_StoredLinks_Import(rat) { |
var newWin; |
var newWin; |
|
var lcHostname = setLCHost(); |
if (rat) { |
if (rat) { |
newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat, |
newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat, |
'wishlistImport','scrollbars=1,resizable=1,menubar=0'); |
'wishlistImport','scrollbars=1,resizable=1,menubar=0'); |
} |
} |
else { |
else { |
newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import', |
newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import', |
'wishlistImport','scrollbars=1,resizable=1,menubar=0'); |
'wishlistImport','scrollbars=1,resizable=1,menubar=0'); |
} |
} |
newWin.focus(); |
newWin.focus(); |
Line 2111 sub hidden_button_check {
|
Line 2280 sub hidden_button_check {
|
} |
} |
|
|
sub roles_selector { |
sub roles_selector { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum,$httphost) = @_; |
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
my $now = time; |
my $now = time; |
my (%courseroles,%seccount,%courseprivs); |
my (%courseroles,%seccount,%courseprivs); |
Line 2204 sub roles_selector {
|
Line 2373 sub roles_selector {
|
} |
} |
} |
} |
} |
} |
$switchtext = &mt('Switch role'); |
$switchtext = 'Switch role'; # do not translate here |
my @roles_order = ($ccrole,'in','ta','ep','ad','st'); |
my @roles_order = ($ccrole,'in','ta','ep','ad','st'); |
my $numdiffsec; |
my $numdiffsec; |
if (keys(%seccount) == 1) { |
if (keys(%seccount) == 1) { |
Line 2216 sub roles_selector {
|
Line 2385 sub roles_selector {
|
my @submenu; |
my @submenu; |
$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv); |
$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv); |
$form = |
$form = |
'<form name="rolechooser" method="post" action="/adm/roles">'."\n". |
'<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles">'."\n". |
' <input type="hidden" name="destinationurl" value="'. |
' <input type="hidden" name="destinationurl" value="'. |
&HTML::Entities::encode($destinationurl).'" />'."\n". |
&HTML::Entities::encode($destinationurl).'" />'."\n". |
' <input type="hidden" name="gotorole" value="1" />'."\n". |
' <input type="hidden" name="gotorole" value="1" />'."\n". |
Line 2326 sub get_all_courseroles {
|
Line 2495 sub get_all_courseroles {
|
push(@{$courseroles->{'st'}},keys(%sections_count)); |
push(@{$courseroles->{'st'}},keys(%sections_count)); |
$seccount->{'st'} = scalar(keys(%sections_count)); |
$seccount->{'st'} = scalar(keys(%sections_count)); |
} |
} |
|
$seccount->{'st'} ++; # Increment for a section-less student role. |
my $rolehash = { |
my $rolehash = { |
'roles' => $courseroles, |
'roles' => $courseroles, |
'seccount' => $seccount, |
'seccount' => $seccount, |
Line 2588 BEGIN {
|
Line 2758 BEGIN {
|
$category_positions{$entries[2]}=$entries[1]; |
$category_positions{$entries[2]}=$entries[1]; |
$category_names{$entries[2]}=$entries[3]; |
$category_names{$entries[2]}=$entries[3]; |
} elsif ($configline=~/^prim\:/) { |
} elsif ($configline=~/^prim\:/) { |
my @entries = (split(/\:/, $configline))[1..5]; |
my @entries = (split(/\:/, $configline))[1..6]; |
push(@primary_menu,\@entries); |
push(@primary_menu,\@entries); |
} elsif ($configline=~/^primsub\:/) { |
} elsif ($configline=~/^primsub\:/) { |
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |