version 1.262, 2009/05/06 12:13:18
|
version 1.266, 2009/05/18 16:29:55
|
Line 51 described at http://www.lon-capa.org.
|
Line 51 described at http://www.lon-capa.org.
|
|
|
=over |
=over |
|
|
=item show_course() |
|
|
|
Little texts |
Little texts |
|
|
=item initlittle() |
=item initlittle() |
Line 150 use vars qw(@desklines %category_names %
|
Line 148 use vars qw(@desklines %category_names %
|
|
|
my @inlineremote; |
my @inlineremote; |
|
|
|
|
|
|
sub show_course { |
|
my $course = !$env{'user.adv'}; |
|
if (!$env{'user.adv'}) { |
|
foreach my $env (keys(%env)) { |
|
next if ($env !~ m/^user\.priv\./); |
|
if ($env !~ m/^user\.priv\.(?:st|cm)/) { |
|
$course = 0; |
|
last; |
|
} |
|
} |
|
} |
|
return $course; |
|
} |
|
|
|
sub initlittle { |
sub initlittle { |
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', |
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', |
'nav' => 'Navigate Contents', |
'nav' => 'Navigate Contents', |
'main' => 'Main Menu', |
'main' => 'Main Menu', |
'roles' => (&show_course()? |
'roles' => (&Apache::loncommon::show_course()? |
'Courses':'Roles'), |
'Courses':'Roles'), |
'other' => 'Other Roles', |
'other' => 'Other Roles', |
'docs' => 'Edit Course', |
'docs' => 'Edit Course', |
Line 369 $utility
|
Line 351 $utility
|
<li>$helplink</li> |
<li>$helplink</li> |
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li> |
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li> |
</ol> |
</ol> |
<ol id="LC_TabMainMenuContent"> |
<ul id="LC_TabMainMenuContent"> |
<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li> |
<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li> |
$reloadlink |
$reloadlink |
$navmaps |
$navmaps |
$docs |
$docs |
$groups |
$groups |
$role_selector |
$role_selector |
</ol> |
</ul> |
$form |
$form |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
<br clear="all" /> |
|
$reg |
$reg |
ENDINLINEMENU |
ENDINLINEMENU |
} else { |
} else { |
Line 1207 sub rawconfig {
|
Line 1188 sub rawconfig {
|
my $uname=$env{'user.name'}; |
my $uname=$env{'user.name'}; |
my $udom=$env{'user.domain'}; |
my $udom=$env{'user.domain'}; |
my $adv=$env{'user.adv'}; |
my $adv=$env{'user.adv'}; |
my $show_course=&show_course(); |
my $show_course=&Apache::loncommon::show_course(); |
my $author=$env{'user.author'}; |
my $author=$env{'user.author'}; |
my $crs=''; |
my $crs=''; |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
Line 1644 sub roles_selector {
|
Line 1625 sub roles_selector {
|
} |
} |
} |
} |
if ($is_cc) { |
if ($is_cc) { |
&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount); |
&get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount); |
} else { |
} else { |
my %gotnosection; |
my %gotnosection; |
foreach my $item (keys(%env)) { |
foreach my $item (keys(%env)) { |
Line 1662 sub roles_selector {
|
Line 1643 sub roles_selector {
|
} |
} |
if (ref($courseroles{$role}) eq 'ARRAY') { |
if (ref($courseroles{$role}) eq 'ARRAY') { |
if ($sec ne '') { |
if ($sec ne '') { |
if (!grep(/^Q$sec\E$/,@{$courseroles{$role}})) { |
if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) { |
push(@{$courseroles{$role}},$sec); |
push(@{$courseroles{$role}},$sec); |
$seccount{$role} ++; |
$seccount{$role} ++; |
} |
} |