version 1.369.2.26, 2012/12/13 06:33:31
|
version 1.369.2.33, 2013/01/03 20:19:10
|
Line 268 sub primary_menu {
|
Line 268 sub primary_menu {
|
if (ref($primary_submenu{$title}) eq 'ARRAY') { |
if (ref($primary_submenu{$title}) eq 'ARRAY') { |
foreach my $item (@{$primary_submenu{$title}}) { |
foreach my $item (@{$primary_submenu{$title}}) { |
next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'})); |
next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'})); |
next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs())); |
|
next if ((($item->[2] eq 'portfolio') || |
next if ((($item->[2] eq 'portfolio') || |
($item->[2] eq 'blog')) && |
($item->[2] eq 'blog')) && |
(!&Apache::lonnet::usertools_access('','',$item->[2], |
(!&Apache::lonnet::usertools_access('','',$item->[2], |
Line 346 sub secondary_menu {
|
Line 345 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 ($canmodifycoauthor); |
|
if ($env{'request.role'} eq "au./$env{'user.domain'}/") { |
|
my $extent = "$env{'user.domain'}/$env{'user.name'}"; |
|
if ((&Apache::lonnet::allowed('cca',$extent)) || |
|
(&Apache::lonnet::allowed('caa',$extent))) { |
|
$canmodifycoauthor = 1; |
|
} |
|
} |
|
|
my %groups = &Apache::lonnet::get_active_groups( |
my %groups = &Apache::lonnet::get_active_groups( |
$env{'user.domain'}, $env{'user.name'}, |
$env{'user.domain'}, $env{'user.name'}, |
$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'}); |
|
|
|
my ($roleswitcher_js,$roleswitcher_form); |
|
|
foreach my $menuitem (@secondary_menu) { |
foreach my $menuitem (@secondary_menu) { |
# evaluate conditions |
# evaluate conditions |
next if ref($menuitem) ne 'ARRAY'; |
next if ref($menuitem) ne 'ARRAY'; |
next if $$menuitem[4] ne 'always' |
next if $$menuitem[4] ne 'always' |
&& $$menuitem[4] ne 'author' |
&& ($$menuitem[4] ne 'author' && $$menuitem[4] ne 'cca') |
&& !$env{'request.course.id'}; |
&& !$env{'request.course.id'}; |
next if $$menuitem[4] =~ /^mdc/ |
next if $$menuitem[4] =~ /^mdc/ |
&& !$canedit; |
&& !$canedit; |
Line 383 sub secondary_menu {
|
Line 393 sub secondary_menu {
|
&& ($canviewgrps || !%groups); |
&& ($canviewgrps || !%groups); |
next if $$menuitem[4] eq 'author' |
next if $$menuitem[4] eq 'author' |
&& !$author; |
&& !$author; |
|
next if $$menuitem[4] eq 'cca' |
|
&& !$canmodifycoauthor; |
|
|
my $title = $menuitem->[3]; |
my $title = $menuitem->[3]; |
if (defined($secondary_submenu{$title})) { |
if (defined($secondary_submenu{$title})) { |
Line 413 sub secondary_menu {
|
Line 425 sub secondary_menu {
|
} |
} |
} elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
} elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
# special treatment for role selector |
# special treatment for role selector |
my $roles_selector = &roles_selector( |
($roleswitcher_js,$roleswitcher_form,my $switcher) = |
|
&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'} |
|
); |
$menu .= $roles_selector ? "<li style=\"padding: 0 0.8em;\">$roles_selector</li>" |
$menu .= $switcher; |
: ''; |
|
} else { |
} else { |
$menu .= &prep_menuitem(\@$menuitem); |
$menu .= &prep_menuitem(\@$menuitem); |
} |
} |
Line 446 sub secondary_menu {
|
Line 458 sub secondary_menu {
|
if ($menu) { |
if ($menu) { |
$menu = "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
$menu = "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
} |
} |
|
if ($roleswitcher_form) { |
|
$menu .= "\n$roleswitcher_js\n$roleswitcher_form"; |
|
} |
return $menu; |
return $menu; |
} |
} |
|
|
Line 530 sub innerregister {
|
Line 545 sub innerregister {
|
$newmail= 'swmenu.setstatus("you have","messages");'; |
$newmail= 'swmenu.setstatus("you have","messages");'; |
} |
} |
|
|
my $resurl; |
my ($mapurl,$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.course.id'}) { |
|
if ($env{'request.symb'}) { |
|
($mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
|
my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'}; |
|
|
(my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'}; |
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
|
|
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
|
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
|
|
|
#SD |
#SD |
#course_type only Course and Community? |
#course_type only Course and Community? |
# |
# |
my @crumbs; |
my @crumbs; |
unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps') |
unless (($forcereg) && |
&& ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) { |
($env{'request.noversionuri'} eq '/adm/navmaps') && |
@crumbs = ({text => Apache::loncommon::course_type() |
($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) { |
. ' Contents', |
@crumbs = ({text => Apache::loncommon::course_type() |
href => "Javascript:gopost('/adm/navmaps','')"}); |
. ' Contents', |
} |
href => "Javascript:gopost('/adm/navmaps','')"}); |
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
} |
push(@crumbs, {text => '...', |
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
no_mt => 1}); |
push(@crumbs, {text => '...', |
} |
no_mt => 1}); |
|
} |
push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle |
|
&& $maptitle ne 'default.sequence' |
push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle |
&& $maptitle ne $coursetitle); |
&& $maptitle ne 'default.sequence' |
|
&& $maptitle ne $coursetitle); |
push @crumbs, {text => $restitle, no_mt => 1} if $restitle; |
|
|
push @crumbs, {text => $restitle, no_mt => 1} if $restitle; |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
|
} else { |
|
$resurl = $env{'request.noversionuri'}; |
|
my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'}); |
|
my $crstype = &Apache::loncommon::course_type(); |
|
my $title = &mt('View Resource'); |
|
if ($resurl =~ m{^\Q/uploaded$courseurl/supplemental/\E(default|\d+)/}) { |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folderpath','title']); |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
if ($env{'form.title'}) { |
|
$title = $env{'form.title'}; |
|
} |
|
my $trail; |
|
if ($env{'form.folderpath'}) { |
|
&prepare_functions($resurl,$forcereg,$group,undef,undef,1); |
|
($trail) = |
|
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1); |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{text => "Supplemental $crstype Content", |
|
href => "javascript:gopost('/adm/supplemental','')"}); |
|
$title = &mt('View Resource'); |
|
($trail) = |
|
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1); |
|
} |
|
return $trail; |
|
} |
|
unless ($env{'request.state'} eq 'construct') { |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'}); |
|
} |
|
} |
} 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) |
Line 580 sub innerregister {
|
Line 623 sub innerregister {
|
# ============================ This is for URLs that actually can be registered |
# ============================ This is for URLs that actually can be registered |
if ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) |
if ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) |
|| ($forcereg)) { |
|| ($forcereg)) { |
my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit, |
|
$forceview,$editbutton); |
my %swtext; |
if ($env{'request.noversionuri'} =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) { |
if ($noremote) { |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
%swtext = &get_inline_text(); |
&Apache::lonnet::can_edit_resource($env{'request.noversionuri'},$cnum,$cdom, |
} else { |
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
%swtext = &get_rc_text(); |
if (($cfile) && ($home ne '') && ($home ne 'no_host')) { |
} |
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
my $hwkadd=''; |
$forceedit,$forceview,$forcereg); |
|
|
my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit, |
|
$forceview,$editbutton); |
|
if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) || |
|
($env{'request.role'} !~/^(aa|ca|au)/)) { |
|
$editbutton = &prepare_functions($resurl,$forcereg,$group); |
|
} |
|
if ($editbutton eq '') { |
|
$editbutton = &clear(6,1); |
} |
} |
} elsif ($env{'request.role'} !~/^(aa|ca|au)/) { |
|
$editbutton = &prepare_functions($resurl,$forcereg,$group); |
|
} |
|
if ($editbutton eq '') { |
|
&clear(6,1); |
|
} |
|
|
|
# |
# |
# This applies in course context |
# This applies in course context |
# |
# |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
$perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
my @privs; |
my @privs; |
if ($env{'request.symb'} ne '') { |
if ($env{'request.symb'} ne '') { |
if ($env{'request.filename'}=~/$LONCAPA::assess_re/) { |
if ($env{'request.filename'}=~/$LONCAPA::assess_re/) { |
push(@privs,('mgr','vgr')); |
push(@privs,('mgr','vgr')); |
} |
} |
push(@privs,'opa'); |
push(@privs,'opa'); |
} |
} |
foreach my $priv (@privs) { |
foreach my $priv (@privs) { |
$perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); |
$perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); |
if (!$perms{$priv} && $env{'request.course.sec'} ne '') { |
if (!$perms{$priv} && $env{'request.course.sec'} ne '') { |
$perms{$priv} = |
$perms{$priv} = |
&Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}"); |
&Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}"); |
|
} |
} |
} |
} |
|
# |
# |
# Determine whether or not to show Grades and Submissions buttons |
# Determine whether or not to show Grades and Submissions buttons |
# |
# |
if ($env{'request.symb'} ne '' && |
if ($env{'request.symb'} ne '' && |
$env{'request.filename'}=~/$LONCAPA::assess_re/) { |
$env{'request.filename'}=~/$LONCAPA::assess_re/) { |
if ($perms{'mgr'}) { |
if ($perms{'mgr'}) { |
&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]', |
$hwkadd.= &switch('','',7,2,'pgrd.png','Content Grades', |
"gocmd('/adm/grades','gradingmenu')", |
'grades[_4]', |
'Content Grades'); |
"gocmd('/adm/grades','gradingmenu')", |
} elsif ($perms{'vgr'}) { |
'Content Grades'); |
&switch('','',7,2,'subm.png','Content Submissions','missions[_1]', |
} elsif ($perms{'vgr'}) { |
"gocmd('/adm/grades','submission')", |
$hwkadd .= &switch('','',7,2,'subm.png','Content Submissions', |
'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')", |
if (($env{'request.symb'} ne '') && ($perms{'opa'})) { |
'Content Settings'); |
$hwkadd .= &switch('','',7,3,'pparm.png','Content Settings', |
} |
'parms[_2]',"gocmd('/adm/parmset','set')", |
|
'Content Settings'); |
|
} |
# End grades/submissions check |
# End grades/submissions check |
|
|
# |
# |
# This applies to items inside a folder/page modifiable in the course. |
# This applies to items inside a folder/page modifiable in the course. |
# |
# |
if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) { |
if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) { |
&switch('','',7,4,'docs-22x22.png','Folder/Page Content','parms[_2]', |
my $text = 'Edit Folder'; |
"gocmd('/adm/coursedocs','direct')", |
if (($mapurl =~ /\.page$/) || |
'Folder/Page Content'); |
($env{'request.symb'}=~ |
} |
m{uploaded/$cdom/$cnum/default_\d+\.page$})) { |
|
$text = 'Edit Page'; |
|
} |
|
$hwkadd .= &switch('','',7,4,'docs-22x22.png',$text,'parms[_2]', |
|
"gocmd('/adm/coursedocs','direct')", |
|
'Folder/Page Content'); |
|
} |
# End modifiable folder/page container check |
# End modifiable folder/page container check |
} |
} |
# End course context |
# End course context |
|
|
# Prepare the rest of the buttons |
# Prepare the rest of the buttons |
Line 684 ENDMENUITEMS
|
Line 737 ENDMENUITEMS
|
undef($menuitems); |
undef($menuitems); |
} |
} |
} |
} |
if (ref($bread_crumbs) eq 'ARRAY') { |
if (ref($bread_crumbs) eq 'ARRAY') { |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
foreach my $crumb (@{$bread_crumbs}){ |
foreach my $crumb (@{$bread_crumbs}){ |
&Apache::lonhtmlcommon::add_breadcrumb($crumb); |
&Apache::lonhtmlcommon::add_breadcrumb($crumb); |
} |
|
} |
} |
|
} |
} elsif ( defined($env{'request.course.id'}) && |
} elsif ( defined($env{'request.course.id'}) && |
$env{'request.symb'} ne '' ) { |
$env{'request.symb'} ne '' ) { |
# |
# |
Line 1142 ENDOPEN
|
Line 1195 ENDOPEN
|
|
|
sub get_editbutton { |
sub get_editbutton { |
my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_; |
my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_; |
my $jscall = |
my $jscall; |
&Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
if (($forceview) && ($env{'form.todocs'})) { |
$forceedit,$forcereg,$env{'request.symb'}); |
my ($folderpath,$command); |
|
if ($env{'request.symb'}) { |
|
$folderpath = &Apache::loncommon::symb_to_docspath($env{'request.symb'}); |
|
} elsif ($env{'form.folderpath'} =~ /^supplemental/) { |
|
$folderpath = $env{'form.folderpath'}; |
|
$command = '&forcesupplement=1'; |
|
} |
|
$folderpath = &escape(&HTML::Entities::encode(&escape($folderpath),'<>&"')); |
|
$jscall = "go('/adm/coursedocs?folderpath=$folderpath$command')"; |
|
} else { |
|
$jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
|
$forceedit,$forcereg,$env{'request.symb'}, |
|
&escape($env{'form.folderpath'}), |
|
&escape($env{'form.title'}),$env{'form.idx'}, |
|
&escape($env{'form.suppurl'},$env{'form.todocs'})); |
|
} |
if ($jscall) { |
if ($jscall) { |
my $icon = 'pcstr.png'; |
my $icon = 'pcstr.png'; |
my $label = 'Edit'; |
my $label = 'Edit'; |
Line 1160 sub get_editbutton {
|
Line 1228 sub get_editbutton {
|
} |
} |
|
|
sub prepare_functions { |
sub prepare_functions { |
my ($resurl,$forcereg,$group,$bread_crumbs,$advtools) = @_; |
my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs) = @_; |
unless ($env{'request.registered'}) { |
unless ($env{'request.registered'}) { |
undef(@inlineremote); |
undef(@inlineremote); |
} |
} |
Line 1178 sub prepare_functions {
|
Line 1246 sub prepare_functions {
|
# Determine whether or not to display 'Edit' icon/button |
# Determine whether or not to display 'Edit' icon/button |
# |
# |
if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) { |
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'}); |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
if (($sdom eq $env{'user.domain'}) && ($sname eq $env{'user.name'})) { |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom, |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom, |
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
if (($cfile) && ($home ne '') && ($home ne 'no_host')) { |
$editbutton = &get_editbutton($cfile,$env{'user.home'},$switchserver, |
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
$forceedit,$forceview,$forcereg); |
$forceedit,$forceview,$forcereg); |
} |
} |
} elsif ((!$editbutton) && (!$env{'request.course.id'}) && |
} elsif ((!$env{'request.course.id'}) && |
($env{'user.author'}) && ($env{'request.filename'}) && |
($env{'user.author'}) && ($env{'request.filename'}) && |
($env{'request.role'} !~/^(aa|ca|au)/)) { |
($env{'request.role'} !~/^(aa|ca|au)/)) { |
# |
# |
Line 1201 sub prepare_functions {
|
Line 1265 sub prepare_functions {
|
($cfile,$home,$switchserver,$forceedit,$forceview) = |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom, |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom, |
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
&Apache::lonnet::clutter($resurl),$env{'request.symb'},$group); |
# Turn the button on or off |
|
if (($cfile) && ($home ne '') && ($home ne 'no_host')) { |
if (($cfile) && ($home ne '') && ($home ne 'no_host')) { |
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
$forceedit,$forceview,$forcereg); |
$forceedit,$forceview,$forcereg); |
Line 1228 sub prepare_functions {
|
Line 1291 sub prepare_functions {
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
$forceedit,$forceview,$forcereg); |
$forceedit,$forceview,$forcereg); |
} |
} |
} elsif ($resurl !~ m{^adm/($match_domain)/($match_username)/aboutme$}) { |
} elsif (($resurl eq '/adm/extresedit') && |
|
(($env{'form.symb'}) || ($env{'form.folderpath'}))) { |
|
($cfile,$home,$switchserver,$forceedit,$forceview) = |
|
&Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl, |
|
$env{'form.symb'}); |
|
if ($cfile ne '') { |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg, |
|
$env{'form.title'},$env{'form.suppurl'}); |
|
} |
|
} elsif (($resurl =~ m{^/?adm/viewclasslist$}) && |
|
(&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) { |
|
($cfile,$home,$switchserver,$forceedit,$forceview) = |
|
&Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl, |
|
$env{'form.symb'}); |
|
$editbutton = &get_editbutton($cfile,$home,$switchserver, |
|
$forceedit,$forceview,$forcereg); |
|
} elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) && |
|
($resurl ne '/cgi-bin/printout.pl')) { |
if ($env{'request.filename'}) { |
if ($env{'request.filename'}) { |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
my $file=&Apache::lonnet::declutter($env{'request.filename'}); |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
($cfile,$home,$switchserver,$forceedit,$forceview) = |
Line 1243 sub prepare_functions {
|
Line 1324 sub prepare_functions {
|
} |
} |
# End determination of 'Edit' icon/button display |
# End determination of 'Edit' icon/button display |
|
|
# This applies to about me page for users in a course |
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
if ($resurl =~ m{^adm/($match_domain)/($match_username)/aboutme$}) { |
# This applies to about me page for users in a course |
|
if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) { |
my ($sdom,$sname) = ($1,$2); |
my ($sdom,$sname) = ($1,$2); |
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', |
Line 1253 sub prepare_functions {
|
Line 1334 sub prepare_functions {
|
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')", |
"go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')", |
'Send message to specific user'); |
'Send message to specific user'); |
} |
} |
if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum)) { |
my $hideprivileged = 1; |
|
if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef, |
|
$hideprivileged)) { |
foreach my $priv ('vsa','vgr','srm') { |
foreach my $priv ('vsa','vgr','srm') { |
$perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); |
$perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); |
if (!$perms{$priv} && $env{'request.course.sec'} ne '') { |
if (!$perms{$priv} && $env{'request.course.sec'} ne '') { |
Line 1281 sub prepare_functions {
|
Line 1364 sub prepare_functions {
|
} |
} |
} |
} |
} |
} |
|
if (($env{'form.folderpath'} =~ /^supplemental/) && |
|
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) && |
|
(($resurl =~ m{^/adm/wrapper/ext/}) || |
|
($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) || |
|
($resurl eq '/adm/supplemental') || |
|
($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) || |
|
($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) { |
|
my @folders=split('&',$env{'form.folderpath'}); |
|
if ((@folders > 2) || ($resurl ne '/adm/supplemental')) { |
|
my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"')); |
|
&switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]', |
|
"location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'", |
|
'Folder/Page Content'); |
|
} |
|
} |
} |
} |
|
|
# End checking for items for about me page for users in a course |
# End checking for items for about me page for users in a course |
|
if ($docscrumbs) { |
if ($env{'request.registered'}) { |
&Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
|
&advtools_crumbs(@inlineremote); |
|
return $editbutton; |
|
} elsif ($env{'request.registered'}) { |
return $editbutton; |
return $editbutton; |
} else { |
} else { |
if (ref($bread_crumbs) eq 'ARRAY') { |
if (ref($bread_crumbs) eq 'ARRAY') { |
Line 1313 sub advtools_crumbs {
|
Line 1414 sub advtools_crumbs {
|
} elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
} elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
'advtools', @funcs[61,71,72,73,74,92]); |
'advtools', @funcs[61,71,72,73,74,92]); |
|
} elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') { |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'advtools', $funcs[61]); |
} |
} |
} |
} |
|
|
Line 1989 sub roles_selector {
|
Line 2093 sub roles_selector {
|
my $now = time; |
my $now = time; |
my (%courseroles,%seccount,%courseprivs); |
my (%courseroles,%seccount,%courseprivs); |
my $is_cc; |
my $is_cc; |
my $role_selector; |
my ($js,$form,$switcher,$switchtext); |
my $ccrole; |
my $ccrole; |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$ccrole = 'co'; |
$ccrole = 'co'; |
Line 2079 sub roles_selector {
|
Line 2183 sub roles_selector {
|
} |
} |
my $switchtext; |
my $switchtext; |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$switchtext = &mt('Switch community role to...') |
$switchtext = &mt('Switch community role') |
} else { |
} else { |
$switchtext = &mt('Switch course role to...') |
$switchtext = &mt('Switch course role') |
} |
} |
my @roles_order = ($ccrole,'in','ta','ep','ad','st'); |
my @roles_order = ($ccrole,'in','ta','ep','ad','st'); |
if (keys(%courseroles) > 1) { |
my $numdiffsec; |
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv); |
if (keys(%seccount) == 1) { |
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles"> |
foreach my $key (keys(%seccount)) { |
<select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">'; |
$numdiffsec = $seccount{$key}; |
$role_selector .= '<option value="">'.$switchtext.'</option>'; |
} |
|
} |
|
if ((keys(%seccount) > 1) || ($numdiffsec > 1)) { |
|
my @submenu; |
|
$js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv); |
|
$form = |
|
'<form name="rolechooser" method="post" action="/adm/roles">'."\n". |
|
' <input type="hidden" name="destinationurl" value="'. |
|
&HTML::Entities::encode($destinationurl).'" />'."\n". |
|
' <input type="hidden" name="gotorole" value="1" />'."\n". |
|
' <input type="hidden" name="selectrole" value="" />'."\n". |
|
' <input type="hidden" name="switchrole" value="" />'."\n"; |
|
if ($destsymb ne '') { |
|
$form .= ' <input type="hidden" name="destsymb" value="'. |
|
&HTML::Entities::encode($destsymb).'" />'."\n"; |
|
} |
|
$form .= '</form>'."\n"; |
foreach my $role (@roles_order) { |
foreach my $role (@roles_order) { |
|
my $include; |
if (defined($courseroles{$role})) { |
if (defined($courseroles{$role})) { |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role,$crstype).'</option>'; |
if ($env{'request.role'} =~ m{^\Q$role\E}) { |
|
if ($seccount{$role} > 1) { |
|
$include = 1; |
|
} |
|
} else { |
|
$include = 1; |
|
} |
|
} |
|
if ($include) { |
|
push(@submenu,['javascript:adhocRole('."'$role'".')', |
|
&Apache::lonnet::plaintext($role,$crstype)]); |
} |
} |
} |
} |
foreach my $role (sort(keys(%courseroles))) { |
foreach my $role (sort(keys(%courseroles))) { |
if ($role =~ /^cr/) { |
if ($role =~ /^cr/) { |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; |
my $include; |
|
if ($env{'request.role'} =~ m{^\Q$role\E}) { |
|
if ($seccount{$role} > 1) { |
|
$include = 1; |
|
} |
|
} else { |
|
$include = 1; |
|
} |
|
if ($include) { |
|
push(@submenu,['javascript:adhocRole('."'$role'".')', |
|
&Apache::lonnet::plaintext($role)]); |
|
} |
} |
} |
} |
} |
$role_selector .= '</select>'."\n"; |
if (@submenu > 0) { |
if ($destsymb ne '') { |
$switcher = &create_submenu('','',$switchtext,\@submenu); |
$role_selector .= '<input type="hidden" name="destsymb" value="'. |
|
&HTML::Entities::encode($destsymb).'" />'."\n"; |
|
} |
} |
$role_selector .= |
|
'<input type="hidden" name="destinationurl" value="'. |
|
&HTML::Entities::encode($destinationurl).'" />'."\n". |
|
'<input type="hidden" name="gotorole" value="1" />'."\n". |
|
'<input type="hidden" name="selectrole" value="" />'."\n". |
|
'<input type="hidden" name="switch" value="1" />'."\n". |
|
'</form>'; |
|
} |
} |
return $role_selector; |
return ($js,$form,$switcher); |
} |
} |
|
|
sub get_all_courseroles { |
sub get_all_courseroles { |
Line 2251 sub jump_to_role {
|
Line 2384 sub jump_to_role {
|
return <<"END"; |
return <<"END"; |
<script type="text/javascript"> |
<script type="text/javascript"> |
//<![CDATA[ |
//<![CDATA[ |
function adhocRole(roleitem) { |
function adhocRole(newrole) { |
$js |
$js |
var newrole = document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value; |
|
if (newrole == '') { |
if (newrole == '') { |
return; |
return; |
} |
} |
Line 2270 function adhocRole(roleitem) {
|
Line 2402 function adhocRole(roleitem) {
|
if (confirm("$lt{'role'}\\n$lt{'swit'}")) { |
if (confirm("$lt{'role'}\\n$lt{'swit'}")) { |
document.rolechooser.destinationurl.value = '/adm/menu'; |
document.rolechooser.destinationurl.value = '/adm/menu'; |
} else { |
} else { |
document.rolechooser.elements[roleitem].selectedIndex = 0; |
|
return; |
return; |
} |
} |
} |
} |
Line 2313 function adhocRole(roleitem) {
|
Line 2444 function adhocRole(roleitem) {
|
return; |
return; |
} |
} |
if (fullrole == "$env{'request.role'}") { |
if (fullrole == "$env{'request.role'}") { |
document.rolechooser.elements[roleitem].selectedIndex = 0; |
|
return; |
return; |
} |
} |
itemid = retrieveIndex('gotorole'); |
itemid = retrieveIndex('gotorole'); |
if (itemid != -1) { |
if (itemid != -1) { |
document.rolechooser.elements[itemid].name = fullrole; |
document.rolechooser.elements[itemid].name = fullrole; |
} |
} |
document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value = fullrole; |
document.rolechooser.switchrole.value = fullrole; |
document.rolechooser.selectrole.value = '1'; |
document.rolechooser.selectrole.value = '1'; |
document.rolechooser.submit(); |
document.rolechooser.submit(); |
return; |
return; |
Line 2442 BEGIN {
|
Line 2572 BEGIN {
|
$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..5]; |
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]; |
push (@{$primary_submenu{$parent}},\@entries); |
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); |
} elsif ($configline=~/^scndsub\:/) { |
} elsif ($configline=~/^scndsub\:/) { |
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |
my ($parent,@entries) = (split(/\:/, $configline))[1..4]; |
push (@{$secondary_submenu{$parent}},\@entries); |
push(@{$secondary_submenu{$parent}},\@entries); |
} elsif ($configline) { |
} elsif ($configline) { |
push(@desklines,$configline); |
push(@desklines,$configline); |
} |
} |