version 1.406, 2012/12/31 14:29:08
|
version 1.413, 2013/05/06 15:02:49
|
Line 248 sub primary_menu {
|
Line 248 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 326 sub secondary_menu {
|
Line 325 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); |
|
if ($env{'request.course.id'}) { |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
if ($canedit) { |
|
$showsyllabus = 1; |
|
$showfeeds = 1; |
|
} else { |
|
unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum",'syllabus')) { |
|
$showsyllabus = 1; |
|
} |
|
if ($env{'course.'.$env{'request.course.id'}.'.feeds'}) { |
|
$showfeeds = 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 369 sub secondary_menu {
|
Line 385 sub secondary_menu {
|
next if $$menuitem[4] =~ /showgroups$/ |
next if $$menuitem[4] =~ /showgroups$/ |
&& !$canviewgrps |
&& !$canviewgrps |
&& !%groups; |
&& !%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 406 sub secondary_menu {
|
Line 426 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 ($showsyllabus || $showfeeds) { |
|
$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 515 sub innerregister {
|
Line 539 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 847 sub prepare_functions {
|
Line 879 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'); |
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 990 sub advtools_crumbs {
|
Line 1016 sub advtools_crumbs {
|
'advtools', @funcs[61,71,72,73,74,92]); |
'advtools', @funcs[61,71,72,73,74,92]); |
} elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') { |
} elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') { |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
&Apache::lonhtmlcommon::add_breadcrumb_tool( |
'advtools', @funcs[61]); |
'advtools', $funcs[61]); |
} |
} |
|
return; |
} |
} |
|
|
# ================================================================== Raw Config |
# ================================================================== Raw Config |
Line 1673 sub roles_selector {
|
Line 1700 sub roles_selector {
|
} |
} |
} |
} |
} |
} |
if ($crstype eq 'Community') { |
$switchtext = &mt('Switch role'); |
$switchtext = &mt('Switch community role') |
|
} else { |
|
$switchtext = &mt('Switch course role') |
|
} |
|
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 1799 sub get_all_courseroles {
|
Line 1822 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 2003 sub countdown_timer {
|
Line 2027 sub countdown_timer {
|
} |
} |
my $duedate = &Apache::lonnet::EXT("resource.0.duedate"); |
my $duedate = &Apache::lonnet::EXT("resource.0.duedate"); |
my @interval=&Apache::lonnet::EXT("resource.0.interval"); |
my @interval=&Apache::lonnet::EXT("resource.0.interval"); |
my $hastimeleft; |
|
if (@interval > 1) { |
if (@interval > 1) { |
my $first_access=&Apache::lonnet::get_first_access($interval[1]); |
my $first_access=&Apache::lonnet::get_first_access($interval[1]); |
if ($first_access > 0) { |
if ($first_access > 0) { |