version 1.366, 2011/12/28 22:41:02
|
version 1.373, 2012/05/22 11:18:26
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# |
# |
# There is one parameter controlling the action of this module: |
|
# |
|
|
|
=head1 NAME |
=head1 NAME |
|
|
Line 35 Apache::lonmenu
|
Line 33 Apache::lonmenu
|
|
|
=head1 SYNOPSIS |
=head1 SYNOPSIS |
|
|
Coordinates the response to clicking an image. |
Loads contents of /home/httpd/lonTabs/mydesk.tab, |
|
used to generate inline menu, and Main Menu page. |
|
|
This is part of the LearningOnline Network with CAPA project |
This is part of the LearningOnline Network with CAPA project |
described at http://www.lon-capa.org. |
described at http://www.lon-capa.org. |
Line 74 It is set to 'done' in the BEGIN block o
|
Line 73 It is set to 'done' in the BEGIN block o
|
=item @primary_menu |
=item @primary_menu |
|
|
The elements of this array reference arrays that are made up of the components |
The elements of this array reference arrays that are made up of the components |
of those lines of mydesk.tab that start with prim. |
of those lines of mydesk.tab that start with prim:. |
It is used by primary_menu() to generate the corresponding menu. |
It is used by primary_menu() to generate the corresponding menu. |
It gets filled in the BEGIN block of this module. |
It gets filled in the BEGIN block of this module. |
|
|
|
=item %primary_sub_menu |
|
|
|
The keys of this hash reference are the names of items in the primary_menu array |
|
which have sub-menus. For each key, the corresponding value is a reference to |
|
an array containing components extracted from lines in mydesk.tab which begin |
|
with primsub:. |
|
This hash, which is used by primary_menu to generate sub-menus, is populated in |
|
the BEGIN block. |
|
|
=item @secondary_menu |
=item @secondary_menu |
|
|
The elements of this array reference arrays that are made up of the components |
The elements of this array reference arrays that are made up of the components |
Line 129 The javascript is usually similar to "go
|
Line 137 The javascript is usually similar to "go
|
|
|
=item utilityfunctions() |
=item utilityfunctions() |
|
|
|
Output from this routine is a number of javascript functions called by |
|
items in the inline menu, and in some cases items in the Main Menu page. |
|
|
=item serverform() |
=item serverform() |
|
|
=item constspaceform() |
=item constspaceform() |
Line 159 use HTML::Entities();
|
Line 170 use HTML::Entities();
|
use Apache::lonwishlist(); |
use Apache::lonwishlist(); |
|
|
use vars qw(@desklines %category_names %category_members %category_positions |
use vars qw(@desklines %category_names %category_members %category_positions |
$readdesk @primary_menu @secondary_menu); |
$readdesk @primary_menu %primary_submenu @secondary_menu); |
|
|
my @inlineremote; |
my @inlineremote; |
|
|
Line 182 sub prep_menuitem {
|
Line 193 sub prep_menuitem {
|
|
|
# primary_menu() evaluates @primary_menu and returns XHTML for the menu |
# primary_menu() evaluates @primary_menu and returns XHTML for the menu |
# that contains following links: |
# that contains following links: |
# About, Message, Roles, Help, Logout |
# About, Message, Personal, 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 { |
Line 212 sub primary_menu {
|
Line 223 sub primary_menu {
|
next if $$menuitem[4] eq 'courses' ##'Roles' wanted |
next if $$menuitem[4] eq 'courses' ##'Roles' wanted |
&& !&Apache::loncommon::show_course(); ## |
&& !&Apache::loncommon::show_course(); ## |
|
|
|
my $title = $menuitem->[3]; |
if ($$menuitem[3] eq 'Help') { # special treatment for helplink |
if (defined($primary_submenu{$title})) { |
|
my ($link,$target,$numsub); |
|
if ($menuitem->[0] ne '') { |
|
$link = $menuitem->[0]; |
|
$target = '_top'; |
|
} else { |
|
$link = '#'; |
|
} |
|
if (ref($primary_submenu{$title}) eq 'ARRAY') { |
|
$numsub = @{$primary_submenu{$title}}; |
|
if ($numsub) { |
|
$title = |
|
'<span class="LC_nobreak">'.&mt($title). |
|
'<span class="LC_fontsize_small">'. |
|
'▼</span></span>'; |
|
} |
|
} |
|
$menu .= '<li class="LC_hoverable">'. |
|
'<a href="'.$link.'" target="'.$target.'">'.$title.'</a>'; |
|
if ($numsub) { |
|
$menu .= '<ul>'; |
|
foreach my $item (@{$primary_submenu{$menuitem->[3]}}) { |
|
if (ref($item) eq 'ARRAY') { |
|
if ($item->[2] eq 'wishlist') { |
|
next unless ((&Apache::lonnet::allowed('bre',"/res/$env{'user.domain'}/")) || |
|
(&Apache::lonnet::allowed('bro',"/res/$env{'user.domain'}/"))); |
|
} elsif ($item->[2] eq 'reqcrs') { |
|
next unless(&check_for_rcrs()); |
|
} elsif (($item->[2] eq 'portfolio') || |
|
($item->[2] eq 'blog')) { |
|
if (!&Apache::lonnet::usertools_access( |
|
$env{'user.name'}, |
|
$env{'user.domain'}, |
|
$item->[2],undef,'tools')) { |
|
next; |
|
} |
|
} |
|
$menu .= '<li style="margin:0;padding:0">'. |
|
'<a href="'.$item->[0]. |
|
'" style="padding:0 0 0 10px">'. |
|
&mt($item->[1]).'</a></li>'; |
|
} |
|
} |
|
$menu .= '</ul>'; |
|
} |
|
$menu .= '</li>'; |
|
} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink |
if ($public) { |
if ($public) { |
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
my $defdom = &Apache::lonnet::default_login_domain(); |
my $defdom = &Apache::lonnet::default_login_domain(); |
Line 633 ENDMENUITEMS
|
Line 690 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&wishlist-link.png&Wishlist&wishlistlink[_2]&set_wishlistlink()&Set a link for this resource to wishlist&&1 |
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 |
ENDMENUITEMS |
ENDMENUITEMS |
} |
} |
|
|
Line 668 ENDMENUITEMS
|
Line 725 ENDMENUITEMS
|
if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') { |
if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') { |
# 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&wishlist-link.png&Wishlist&wishlistlink[_2]&set_wishlistlink()&Set a link for this resource to wishlist&&1 |
s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in in your personal Stored Links repository&&1 |
ENDMENUITEMS |
ENDMENUITEMS |
} |
} |
} |
} |
Line 1087 function showCourseID() {
|
Line 1144 function showCourseID() {
|
document.getElementById('dccid').style.display='block'; |
document.getElementById('dccid').style.display='block'; |
document.getElementById('dccid').style.textAlign='left'; |
document.getElementById('dccid').style.textAlign='left'; |
document.getElementById('dccid').style.textFace='normal'; |
document.getElementById('dccid').style.textFace='normal'; |
document.getElementById('dccidtext').innerHTML ='<a href="javascript:hideCourseID();">$lt{'less'}</a>'; |
document.getElementById('dccidtext').innerHTML ='<a href="javascript:hideCourseID();" class="LC_menubuttons_link">$lt{'less'}</a>'; |
return; |
return; |
} |
} |
|
|
function hideCourseID() { |
function hideCourseID() { |
document.getElementById('dccid').style.display='none'; |
document.getElementById('dccid').style.display='none'; |
document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()">$lt{'more'}</a>'; |
document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()" class="LC_menubuttons_link">$lt{'more'}</a>'; |
return; |
return; |
} |
} |
|
|
Line 1132 sub utilityfunctions {
|
Line 1189 sub utilityfunctions {
|
my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'. |
my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'. |
&mt('Switch server?'); |
&mt('Switch server?'); |
|
|
|
my $esc_url=&escape($currenturl); |
|
my $esc_symb=&escape($currentsymb); |
|
|
return (<<ENDUTILITY) |
return (<<ENDUTILITY) |
|
|
var currentURL="$currenturl"; |
var currentURL=unescape("$esc_url"); |
var reloadURL="$currenturl"; |
var reloadURL=unescape("$esc_url"); |
var currentSymb="$currentsymb"; |
var currentSymb=unescape("$esc_symb"); |
|
|
$dc_popup_cid |
$dc_popup_cid |
|
|
Line 1256 function annotate() {
|
Line 1315 function annotate() {
|
annotator.document.close(); |
annotator.document.close(); |
} |
} |
|
|
function open_Wishlist_Import(rat) { |
function open_StoredLinks_Import(rat) { |
var newWin; |
var newWin; |
if (rat) { |
if (rat) { |
newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat, |
newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat, |
Line 1269 function open_Wishlist_Import(rat) {
|
Line 1328 function open_Wishlist_Import(rat) {
|
newWin.focus(); |
newWin.focus(); |
} |
} |
|
|
|
(function (\$) { |
|
\$(document).ready(function () { |
|
\$.single=function(a){return function(b){a[0]=b;return a}}(\$([1])); |
|
/*\@cc_on |
|
if (!window.XMLHttpRequest) { |
|
\$('.LC_hoverable').each(function () { |
|
this.attachEvent('onmouseenter', function (evt) { \$.single(evt.srcElement).addClass('hover'); }); |
|
this.attachEvent('onmouseleave', function (evt) { \$.single(evt.srcElement).removeClass('hover'); }); |
|
}); |
|
} |
|
\@*/ |
|
}); |
|
}(jQuery)); |
|
|
ENDUTILITY |
ENDUTILITY |
} |
} |
|
|
Line 1657 sub required_privs {
|
Line 1730 sub required_privs {
|
'/adm/trackstudent' => 'vsa', |
'/adm/trackstudent' => 'vsa', |
'/adm/statistics' => 'vgr', |
'/adm/statistics' => 'vgr', |
'/adm/setblock' => 'dcm', |
'/adm/setblock' => 'dcm', |
|
'/adm/coursedocs' => 'mdc', |
}; |
}; |
unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') { |
unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') { |
$privs->{'/adm/classcalc'} = 'vgr', |
$privs->{'/adm/classcalc'} = 'vgr', |
Line 1684 BEGIN {
|
Line 1758 BEGIN {
|
} elsif ($configline=~/^prim\:/) { |
} elsif ($configline=~/^prim\:/) { |
my @entries = (split(/\:/, $configline))[1..5]; |
my @entries = (split(/\:/, $configline))[1..5]; |
push @primary_menu, \@entries; |
push @primary_menu, \@entries; |
|
} elsif ($configline=~/^primsub\:/) { |
|
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |
|
push (@{$primary_submenu{$parent}},\@entries); |
} elsif ($configline=~/^scnd\:/) { |
} elsif ($configline=~/^scnd\:/) { |
my @entries = (split(/\:/, $configline))[1..5]; |
my @entries = (split(/\:/, $configline))[1..5]; |
push @secondary_menu, \@entries; |
push @secondary_menu, \@entries; |