version 1.389, 2012/10/31 12:54:13
|
version 1.390, 2012/11/08 18:37:44
|
Line 431 sub create_submenu {
|
Line 431 sub create_submenu {
|
} |
} |
|
|
sub innerregister { |
sub innerregister { |
my ($forcereg,$bread_crumbs) = @_; |
my ($forcereg,$bread_crumbs,$group) = @_; |
my $const_space = ($env{'request.state'} eq 'construct'); |
my $const_space = ($env{'request.state'} eq 'construct'); |
my $is_const_dir = 0; |
my $is_const_dir = 0; |
|
|
Line 441 sub innerregister {
|
Line 441 sub innerregister {
|
|
|
undef(@inlineremote); |
undef(@inlineremote); |
|
|
my $resurl; |
my $resurl; |
|
|
|
if ($env{'request.course.id'} && $env{'request.symb'} eq '') { |
|
$resurl = $env{'request.noversionuri'}; |
|
} |
|
|
if ( $env{'request.symb'} && $env{'request.course.id'} ) { |
if ( $env{'request.symb'} && $env{'request.course.id'} ) { |
|
|
(my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
(my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
Line 473 sub innerregister {
|
Line 478 sub innerregister {
|
|
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
}elsif (! $const_space){ |
} elsif (! $const_space){ |
#a situation when we're looking at a resource outside of context of a |
#a situation when we're looking at a resource outside of context of a |
#course or construction space (e.g. with cumulative rights) |
#course or construction space (e.g. with cumulative rights) |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'}); |
unless ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) { |
|
&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'}); |
|
} |
} |
} |
# ============================================================================= |
# ============================================================================= |
# ============================ This is for URLs that actually can be registered |
# ============================ This is for URLs that actually can be registered |
return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) |
return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) |
|| $forcereg ); |
|| $forcereg ); |
|
my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit, |
|
$forceview,$editbutton); |
|
if ($env{'request.noversionuri'} =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) { |
|
($cfile,$home,$switchserver,$forceedit,$forceview) = |
|
&Apache::lonnet::can_edit_resource($env{'request.noversionuri'},$cnum,$cdom, |
|
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
|
if (($cfile) && ($home ne '') && ($home ne 'no_host')) { |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg); |
|
} |
|
} elsif ($env{'request.role'} !~/^(aa|ca|au)/) { |
|
$editbutton = &prepare_functions($resurl,$forcereg,$group); |
|
} |
|
if ($editbutton eq '') { |
|
&clear(6,1); |
|
} |
|
|
# -- This applies to homework problems for users with grading privileges |
|
my $crs='/'.$env{'request.course.id'}; |
|
if ($env{'request.course.sec'}) { |
|
$crs.='_'.$env{'request.course.sec'}; |
|
} |
|
$crs=~s/\_/\//g; |
|
|
|
my $hwkadd=''; |
|
if ($env{'request.symb'} ne '' && |
|
$env{'request.filename'}=~/$LONCAPA::assess_re/) { |
|
if (&Apache::lonnet::allowed('mgr',$crs)) { |
|
$hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]', |
|
"gocmd('/adm/grades','gradingmenu')", |
|
'Content Grades'); |
|
} elsif (&Apache::lonnet::allowed('vgr',$crs)) { |
|
$hwkadd.=&switch('','',7,2,'subm.png','Content Submissions','missions[_1]', |
|
"gocmd('/adm/grades','submission')", |
|
'Content Submissions'); |
|
} |
|
} |
|
if ($env{'request.symb'} ne '' && |
|
&Apache::lonnet::allowed('opa',$crs)) { |
|
$hwkadd.=&switch('','',7,3,'pparm.png','Content Settings','parms[_2]', |
|
"gocmd('/adm/parmset','set')", |
|
'Content Settings'); |
|
} |
|
if ($env{'request.symb'}=~/^uploaded/ && |
|
&Apache::lonnet::allowed('mdc',$crs)) { |
|
$hwkadd.=&switch('','',7,4,'docs.png','Folder/Page Content','parms[_2]', |
|
"gocmd('/adm/coursedocs','direct')", |
|
'Folder/Page Content'); |
|
} |
|
# -- End Homework |
|
### |
|
### Determine whether or not to display the 'cstr' button for this |
|
### resource |
|
### |
|
my $editbutton = ''; |
|
my $noeditbutton = 1; |
|
my ($cnum,$cdom,$cfile,$switchserver,$home,$uploaded); |
|
if ($env{'request.course.id'}) { |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
} |
|
if ($env{'user.author'}) { |
|
if ($env{'request.role'}=~/^(aa|ca|au)/) { |
|
# |
|
# We have the role of an author |
|
# |
|
# Set defaults for authors |
|
my ($top,$bottom) = ('con-','struct'); |
|
my $action = "go('/priv/".$env{'user.domain'}.'/'.$env{'user.name'}."');"; |
|
my $cadom = $env{'request.role.domain'}; |
|
my $caname = $env{'user.name'}; |
|
my $desc = "Enter my construction space"; |
|
# Set defaults for co-authors |
|
if ($env{'request.role'} =~ /^ca/) { |
|
($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/); |
|
($top,$bottom) = ('co con-','struct'); |
|
$action = "go('/priv/".$cadom.'/'.$caname."');"; |
|
$desc = "Enter construction space as co-author"; |
|
} elsif ($env{'request.role'} =~ /^aa/) { |
|
($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/); |
|
($top,$bottom) = ('co con-','struct'); |
|
$action = "go('/priv/".$cadom.'/'.$caname."');"; |
|
$desc = "Enter construction space as assistant co-author"; |
|
} |
|
# Check that we are on the correct machine |
|
my $home = &Apache::lonnet::homeserver($caname,$cadom); |
|
my $allowed=0; |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
if (($home ne 'no_host') && (grep(/^\Q$home\E$/,@ids))) { |
|
$editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc); |
|
} |
|
} else { |
|
# |
# |
# We are an author for some stuff, but currently do not have the role of author. |
# This applies in course context |
# Figure out if we have authoring privileges for the resource we are looking at. |
|
# |
# |
my ($cfile,$switchserver,$home,$uploaded); |
if ($env{'request.course.id'}) { |
if ($env{'request.filename'}) { |
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
## |
$perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
## Determine if user can edit url. |
my @privs; |
## |
if ($env{'request.symb'} ne '') { |
($cfile,$home,$switchserver,$uploaded) = |
if ($env{'request.filename'}=~/$LONCAPA::assess_re/) { |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom); |
push(@privs,('mgr','vgr')); |
} |
} |
# Turn the button on or off |
push(@privs,'opa'); |
if (($cfile) && ($home ne '') && ($home ne 'no_host')) { |
|
my $nocrsedit; |
|
# Suppress display where CC has switched to student role. |
|
if ($env{'request.course.id'}) { |
|
unless(&Apache::lonnet::allowed('mdc', |
|
$env{'request.course.id'})) { |
|
$nocrsedit = 1; |
|
} |
|
} |
|
if ($nocrsedit) { |
|
$editbutton=&clear(6,1); |
|
} else { |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver,$uploaded); |
|
} |
|
} elsif ($editbutton eq '') { |
|
$editbutton=&clear(6,1); |
|
} |
|
} |
|
} elsif (($env{'request.filename'}) && $env{'request.course.id'}) { |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
|
if (($cnum =~ /$match_courseid/) && ($cdom =~ /$match_domain/)) { |
|
my ($cfile,$home,$switchserver,$uploaded) = |
|
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom); |
|
if (($uploaded) && ($cfile ne '')) { |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver,$uploaded); |
|
} |
|
} |
|
} |
|
} |
} |
if ($env{'request.course.id'}) { |
foreach my $priv (@privs) { |
if ($resurl eq "public/$cdom/$cnum/syllabus") { |
$perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); |
if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) { |
if (!$perms{$priv} && $env{'request.course.sec'} ne '') { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
$perms{$priv} = |
$editbutton=&switch('','',6,1,'pcstr.png','Edit', |
&Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}"); |
'resource[_2]', |
|
"go('/adm/courseprefs?phase=display&actions=courseinfo')", |
|
'Edit this resource'); |
|
} |
|
} |
|
} |
} |
} |
} |
### |
# |
### |
# Determine whether or not to show Grades and Submissions buttons |
|
# |
|
if ($env{'request.symb'} ne '' && |
|
$env{'request.filename'}=~/$LONCAPA::assess_re/) { |
|
if ($perms{'mgr'}) { |
|
&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]', |
|
"gocmd('/adm/grades','gradingmenu')", |
|
'Content Grades'); |
|
} elsif ($perms{'vgr'}) { |
|
&switch('','',7,2,'subm.png','Content Submissions','missions[_1]', |
|
"gocmd('/adm/grades','submission')", |
|
'Content Submissions'); |
|
} |
|
} |
|
if (($env{'request.symb'} ne '') && ($perms{'opa'})) { |
|
&switch('','',7,3,'pparm.png','Content Settings','parms[_2]', |
|
"gocmd('/adm/parmset','set')", |
|
'Content Settings'); |
|
} |
|
# End grades/submissions check |
|
|
|
# |
|
# This applies to items inside a folder/page modifiable in the course. |
|
# |
|
if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) { |
|
&switch('','',7,4,'docs-22x22.png','Folder/Page Content','parms[_2]', |
|
"gocmd('/adm/coursedocs','direct')", |
|
'Folder/Page Content'); |
|
} |
|
# End modifiable folder/page container check |
|
} |
|
# End course context |
|
|
# Prepare the rest of the buttons |
# Prepare the rest of the buttons |
my ($menuitems,$got_prt,$got_wishlist); |
my ($menuitems,$got_prt,$got_wishlist); |
if ($const_space) { |
if ($const_space) { |
Line 771 ENDMENUITEMS
|
Line 716 ENDMENUITEMS
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
'tools', $inlineremote[63]); |
'tools', $inlineremote[63]); |
} |
} |
|
&advtools_crumbs(@inlineremote); |
unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'advtools', @inlineremote[61,71,72,73,74,92]); |
|
} |
|
} |
} |
} |
} |
|
|
Line 785 ENDMENUITEMS
|
Line 726 ENDMENUITEMS
|
} |
} |
|
|
sub get_editbutton { |
sub get_editbutton { |
my ($cfile,$home,$switchserver,$uploaded) = @_; |
my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_; |
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
my $jscall = |
$uploaded,$env{'request.symb'}); |
&Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
|
$forceedit,$forcereg,$env{'request.symb'}); |
if ($jscall) { |
if ($jscall) { |
return &switch('','',6,1,'pcstr.png','Edit','resource[_2]', |
my $icon = 'pcstr.png'; |
$jscall,"Edit this resource"); |
my $label = 'Edit'; |
|
if ($forceview) { |
|
$icon = 'tolastloc.png'; |
|
$label = 'Exit Editing'; |
|
} |
|
&switch('','',6,1,$icon,$label,'resource[_2]', |
|
$jscall,"Edit this resource"); |
|
return 1; |
|
} |
|
return; |
|
} |
|
|
|
sub prepare_functions { |
|
my ($resurl,$forcereg,$group,$bread_crumbs,$advtools) = @_; |
|
unless ($env{'request.registered'}) { |
|
undef(@inlineremote); |
|
} |
|
my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit, |
|
$forceview); |
|
|
|
if ($env{'request.course.id'}) { |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
$perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
|
} |
|
|
|
my $editbutton = ''; |
|
# |
|
# Determine whether or not to display 'Edit' icon/button |
|
# |
|
if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) { |
|
# |
|
# This applies to a user's own about me page |
|
# |
|
my ($sdom,$sname) = ($1,$2); |
|
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
|
if (($sdom eq $env{'user.domain'}) && ($sname eq $env{'user.name'})) { |
|
($cfile,$home,$switchserver,$forceedit,$forceview) = |
|
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom, |
|
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
|
$editbutton = &get_editbutton($cfile,$env{'user.home'},$switchserver, |
|
$forceedit,$forceview,$forcereg); |
|
} |
|
} elsif ((!$editbutton) && (!$env{'request.course.id'}) && |
|
($env{'user.author'}) && ($env{'request.filename'}) && |
|
($env{'request.role'} !~/^(aa|ca|au)/)) { |
|
# |
|
# Currently do not have the role of author or co-author. |
|
# Do we have authoring privileges for the resource? |
|
# |
|
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
|
($cfile,$home,$switchserver,$forceedit,$forceview) = |
|
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom, |
|
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
|
# Turn the button on or off |
|
if (($cfile) && ($home ne '') && ($home ne 'no_host')) { |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg); |
|
} |
|
} elsif ($env{'request.course.id'}) { |
|
# |
|
# This applies in course context |
|
# |
|
if (($resurl eq "/public/$cdom/$cnum/syllabus") && ($perms{'mdc'})) { |
|
if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) { |
|
&switch('','',6,1,'pcstr.png','Edit', |
|
'resource[_2]', |
|
"go('/adm/courseprefs?phase=display&actions=courseinfo')", |
|
'Edit this resource'); |
|
$editbutton = 1; |
|
} else { |
|
$cfile = $resurl; |
|
$home = &Apache::lonnet::homeserver($cnum,$cdom); |
|
if ($env{'form.forceedit'}) { |
|
$forceview = 1; |
|
} else { |
|
$forceedit = 1; |
|
} |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg); |
|
} |
|
} elsif ($resurl !~ m{^adm/($match_domain)/($match_username)/aboutme$}) { |
|
if ($env{'request.filename'}) { |
|
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
|
($cfile,$home,$switchserver,$forceedit,$forceview) = |
|
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom, |
|
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
|
if ($cfile ne '') { |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg); |
|
} |
|
} |
|
} |
|
} |
|
# End determination of 'Edit' icon/button display |
|
|
|
# This applies to about me page for users in a course |
|
if ($env{'request.course.id'}) { |
|
if ($resurl =~ m{^adm/($match_domain)/($match_username)/aboutme$}) { |
|
my ($sdom,$sname) = ($1,$2); |
|
unless (&Apache::lonnet::is_course($sdom,$sname)) { |
|
&switch('','',6,4,'mail-message-new-22x22.png','Message to user', |
|
'', |
|
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')", |
|
'Send message to specific user'); |
|
} |
|
if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum)) { |
|
foreach my $priv ('vsa','vgr','srm') { |
|
$perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); |
|
if (!$perms{$priv} && $env{'request.course.sec'} ne '') { |
|
$perms{$priv} = |
|
&Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}"); |
|
} |
|
} |
|
if ($perms{'vsa'}) { |
|
&switch('','',6,5,'trck-22x22.png','Activity', |
|
'', |
|
"go('/adm/trackstudent?selected_student=$sname:$sdom')", |
|
'View recent activity by this person'); |
|
} |
|
if ($perms{'vgr'}) { |
|
&switch('','',6,6,'rsrv-22x22.png','Reservations', |
|
'', |
|
"go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')", |
|
'Slot reservation history'); |
|
} |
|
if ($perms{'srm'}) { |
|
&switch('','',6,7,'contact-new-22x22.png','Records', |
|
'', |
|
"go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')", |
|
'Add records'); |
|
} |
|
} |
|
} |
|
} |
|
|
|
# End checking for items for about me page for users in a course |
|
|
|
if ($env{'request.registered'}) { |
|
return $editbutton; |
|
} else { |
|
if (ref($bread_crumbs) eq 'ARRAY') { |
|
if (@inlineremote > 0) { |
|
if (ref($advtools) eq 'ARRAY') { |
|
@{$advtools} = @inlineremote; |
|
} |
|
} |
|
return; |
|
} elsif (@inlineremote > 0) { |
|
&Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
|
&advtools_crumbs(@inlineremote); |
|
return &Apache::lonhtmlcommon::scripttag('', 'start') |
|
. &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0) |
|
. &Apache::lonhtmlcommon::scripttag('', 'end'); |
|
} |
|
} |
|
} |
|
|
|
sub advtools_crumbs { |
|
my @funcs = @_; |
|
if ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) { |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'advtools', @funcs[61,64,65,66,67,74]); |
|
} elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'advtools', @funcs[61,71,72,73,74,92]); |
} |
} |
} |
} |
|
|