Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.269.2.15 and 1.327

version 1.269.2.15, 2014/01/13 03:56:42	version 1.327, 2017/03/08 02:51:13
Line 128 package Apache::lonroles;	Line 128 package Apache::lonroles;
use strict;	use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonuserstate();	use Apache::lonuserstate();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common REDIRECT);
use Apache::File();	use Apache::File();
use Apache::lonmenu;	use Apache::lonmenu;
use Apache::loncommon;	use Apache::loncommon;
Line 140 use Apache::lonnavdisplay();	Line 140 use Apache::lonnavdisplay();
use Apache::loncoursequeueadmin;	use Apache::loncoursequeueadmin;
use Apache::longroup;	use Apache::longroup;
use Apache::lonrss;	use Apache::lonrss;
	use Apache::lonplacementtest;
use GDBM_File;	use GDBM_File;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use HTML::Entities;	use HTML::Entities;


sub redirect_user {	sub redirect_user {
my ($r,$title,$url,$msg) = @_;	my ($r,$title,$url,$msg) = @_;
Line 151 sub redirect_user {	Line 152 sub redirect_user {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig();

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => $url,	my $brcrum = [{'href' => $url,
Line 166 sub redirect_user {	Line 166 sub redirect_user {
$url=~s/ /\%20/g;	$url=~s/ /\%20/g;
$r->print(<<ENDREDIR);	$r->print(<<ENDREDIR);
$start_page	$start_page
<script type="text/javascript">
// <![CDATA[
$swinfo
// ]]>
</script>
<p>$msg</p>	<p>$msg</p>
$end_page	$end_page
ENDREDIR	ENDREDIR
Line 208 sub handler {	Line 203 sub handler {

my $r = shift;	my $r = shift;

	# Check for critical messages and redirect if present.
	my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);
	if ($redirect) {
	&Apache::loncommon::content_type($r,'text/html');
	$r->header_out(Location => $url);
	return REDIRECT;
	}

my $now=time;	my $now=time;
my $then=$env{'user.login.time'};	my $then=$env{'user.login.time'};
my $refresh=$env{'user.refresh.time'};	my $refresh=$env{'user.refresh.time'};
Line 221 sub handler {	Line 224 sub handler {

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});

# -------------------------------------------------- Check if setting hot list	# -------------------------------------------------- Check if setting hot list
my $hotlist;	my $hotlist;
if ($env{'form.action'} eq 'verify_and_change_rolespref') {	if ($env{'form.action'} eq 'verify_and_change_rolespref') {
$hotlist = &Apache::lonpreferences::verify_and_change_rolespref($r);	$hotlist = &Apache::lonpreferences::verify_and_change_rolespref($r);
Line 252 sub handler {	Line 255 sub handler {

my $envkey;	my $envkey;
my %dcroles = ();	my %dcroles = ();
my $numdc = &check_fordc(\%dcroles,$update,$then);	my %helpdeskroles = ();
my $loncaparev = $Apache::lonnet::perlvar{'lonVersion'};	my ($numdc,$numhelpdesk,$numadhoc) =
	&check_for_adhoc(\%dcroles,\%helpdeskroles,$update,$then);
	my $loncaparev = $r->dir_config('lonVersion');

# ================================================================== Roles Init	# ================================================================== Roles Init
if ($env{'form.selectrole'}) {	if ($env{'form.selectrole'}) {
Line 261 sub handler {	Line 266 sub handler {
my $locknum=&Apache::lonnet::get_locks();	my $locknum=&Apache::lonnet::get_locks();
if ($locknum) { return 409; }	if ($locknum) { return 409; }

	my $custom_adhoc;
if ($env{'form.newrole'}) {	if ($env{'form.newrole'}) {
$env{'form.'.$env{'form.newrole'}}=1;	$env{'form.'.$env{'form.newrole'}}=1;
	# Check if this is a Domain Helpdesk or Domain Helpdesk Assistant role trying to enter a course
	if ($env{'form.newrole'} =~ m{^cr/($match_domain)/\1\-domainconfig/\w+\./\1/$match_courseid$}) {
	if ($helpdeskroles{$1}) {
	$custom_adhoc = 1;
	}
	}
}	}
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
# Check if user is CC trying to select a course role	# Check if user is CC trying to select a course role
Line 284 sub handler {	Line 296 sub handler {
&Apache::lonnet::put('email_status',\%temp);	&Apache::lonnet::put('email_status',\%temp);
&Apache::lonnet::delenv('user.state.'.$env{'request.course.id'});	&Apache::lonnet::delenv('user.state.'.$env{'request.course.id'});
}	}
&Apache::lonnet::appenv({"request.course.id" => '',	&Apache::lonnet::appenv({"request.course.id" => '',
"request.course.fn" => '',	"request.course.fn" => '',
"request.course.uri" => '',	"request.course.uri" => '',
"request.course.sec" => '',	"request.course.sec" => '',
"request.course.tied" => '',	"request.course.tied" => '',
"request.role" => 'cm',	"request.course.timechecked" => '',
"request.role.adv" => $env{'user.adv'},	"request.role" => 'cm',
"request.role.domain" => $env{'user.domain'}});	"request.role.adv" => $env{'user.adv'},
# Check if user is a DC trying to enter a course or author space and needs privs to be created	"request.role.domain" => $env{'user.domain'}});
if ($numdc > 0) {	# Check if Domain Helpdesk role trying to enter a course needs privs to be created
foreach my $envkey (keys %env) {	if ($env{'form.newrole'} =~ m{^cr/($match_domain)/\1\-domainconfig/(\w+)\./\1/($match_courseid)(?:/(\w+)\|$)}) {
# Is this an ad-hoc Coordinator role?	my $cdom = $1;
if (my ($ccrole,$domain,$coursenum) =	my $rolename = $2;
($envkey =~ m-^form\.(cc\|co)\./($match_domain)/($match_courseid)$-)) {	my $cnum = $3;
if ($dcroles{$domain}) {	my $sec = $4;
if (&Apache::lonnet::check_adhoc_privs($domain,$coursenum,	if ($custom_adhoc) {
$update,$refresh,$now,$ccrole)) {	my ($possroles,$description) = &Apache::lonnet::get_my_adhocroles($cdom.'_'.$cnum,1);
&Apache::lonnet::appenv({"environment.internal.$domain.$coursenum.$ccrole.adhoc" => time});	if (ref($possroles) eq 'ARRAY') {
	if (grep(/^\Q$rolename\E$/,@{$possroles})) {
	if (&Apache::lonnet::check_adhoc_privs($cdom,$cnum,$update,$refresh,$now,
	"cr/$cdom/$cdom".'-domainconfig/'.$rolename,undef,$sec)) {
	&Apache::lonnet::appenv({"environment.internal.$cdom.$cnum.cr/$cdom/$cdom".'-domainconfig/'."$rolename.adhoc" => time});
}	}
}	}
last;
}	}
# Is this an ad-hoc CA-role?	}
if (my ($domain,$user) =	} elsif (($numdc > 0) \|\| ($numhelpdesk > 0)) {
($envkey =~ m-^form\.ca\./($match_domain)/($match_username)$-)) {	# Check if user is a DC trying to enter a course or author space and needs privs to be created
if (($domain eq $env{'user.domain'}) && ($user eq $env{'user.name'})) {	# Check if user is a DH or DA trying to enter a course and needs privs to be created
delete($env{$envkey});	foreach my $envkey (keys(%env)) {
$env{'form.au./'.$domain.'/'} = 1;	# Is this an ad-hoc Coordinator role?
my ($server_status,$home) = &check_author_homeserver($user,$domain);	if ($numdc) {
if ($server_status eq 'switchserver') {	if (my ($ccrole,$domain,$coursenum) =
my $trolecode = 'au./'.$domain.'/';	($envkey =~ m-^form\.(cc\|co)\./($match_domain)/($match_courseid)$-)) {
my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;	if ($dcroles{$domain}) {
$r->internal_redirect($switchserver);	if (&Apache::lonnet::check_adhoc_privs($domain,$coursenum,
return OK;	$update,$refresh,$now,$ccrole)) {
	&Apache::lonnet::appenv({"environment.internal.$domain.$coursenum.$ccrole.adhoc" => time});
	}
}	}
last;	last;
}	}
if (my ($castart,$caend) = ($env{'user.role.ca./'.$domain.'/'.$user} =~ /^(\d)\.(\d)$/)) {	# Is this an ad-hoc CA-role?
if (((($castart) && ($castart < $now)) \|\| !$castart) &&	if (my ($domain,$user) =
((!$caend) \|\| (($caend) && ($caend > $now)))) {	($envkey =~ m-^form\.ca\./($match_domain)/($match_username)$-)) {
	if (($domain eq $env{'user.domain'}) && ($user eq $env{'user.name'})) {
	delete($env{$envkey});
	$env{'form.au./'.$domain.'/'} = 1;
my ($server_status,$home) = &check_author_homeserver($user,$domain);	my ($server_status,$home) = &check_author_homeserver($user,$domain);
if ($server_status eq 'switchserver') {	if ($server_status eq 'switchserver') {
my $trolecode = 'ca./'.$domain.'/'.$user;	my $trolecode = 'au./'.$domain.'/';
my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;	my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;
$r->internal_redirect($switchserver);	$r->internal_redirect($switchserver);
return OK;	return OK;
}	}
last;	last;
}	}
}	if (my ($castart,$caend) = ($env{'user.role.ca./'.$domain.'/'.$user} =~ /^(\d)\.(\d)$/)) {
# Check if author blocked ca-access	if (((($castart) && ($castart < $now)) \|\| !$castart) &&
my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],$domain,$user);	((!$caend) \|\| (($caend) && ($caend > $now)))) {
if ($blocked{'domcoord.author'} eq 'blocked') {	my ($server_status,$home) = &check_author_homeserver($user,$domain);
delete($env{$envkey});	if ($server_status eq 'switchserver') {
$env{'user.error.msg'}=':::1:User '.$user.' in domain '.$domain.' blocked domain coordinator access';	my $trolecode = 'ca./'.$domain.'/'.$user;
	my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;
	$r->internal_redirect($switchserver);
	return OK;
	}
	last;
	}
	}
	# Check if author blocked ca-access
	my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],$domain,$user);
	if ($blocked{'domcoord.author'} eq 'blocked') {
	delete($env{$envkey});
	$env{'user.error.msg'}=':::1:User '.$user.' in domain '.$domain.' blocked domain coordinator access';
	last;
	}
	if ($dcroles{$domain}) {
	my ($server_status,$home) = &check_author_homeserver($user,$domain);
	if (($server_status eq 'ok') \|\| ($server_status eq 'switchserver')) {
	&Apache::lonnet::check_adhoc_privs($domain,$user,$update,
	$refresh,$now,'ca');
	if ($server_status eq 'switchserver') {
	my $trolecode = 'ca./'.$domain.'/'.$user;
	my $switchserver = '/adm/switchserver?'
	.'otherserver='.$home.'&role='.$trolecode;
	$r->internal_redirect($switchserver);
	return OK;
	}
	} else {
	delete($env{$envkey});
	}
	} else {
	delete($env{$envkey});
	}
last;	last;
}	}
if ($dcroles{$domain}) {	}
my ($server_status,$home) = &check_author_homeserver($user,$domain);	if ($numhelpdesk) {
if (($server_status eq 'ok') \|\| ($server_status eq 'switchserver')) {	# Is this an ad hoc custom role in a course/community?
&Apache::lonnet::check_adhoc_privs($domain,$user,$update,	if (my ($domain,$rolename,$coursenum,$sec) = ($envkey =~ m{^form\.cr/($match_domain)/\1\-domainconfig/(\w+)\./\1/($match_courseid)(?:/(\w+)\|$)})) {
$refresh,$now,'ca');	if ($helpdeskroles{$domain}) {
if ($server_status eq 'switchserver') {	my ($possroles,$description) = &Apache::lonnet::get_my_adhocroles($domain.'_'.$coursenum,1);
my $trolecode = 'ca./'.$domain.'/'.$user;	if (ref($possroles) eq 'ARRAY') {
my $switchserver = '/adm/switchserver?'	if (grep(/^\Q$rolename\E$/,@{$possroles})) {
.'otherserver='.$home.'&role='.$trolecode;	if (&Apache::lonnet::check_adhoc_privs($domain,$coursenum,$update,$refresh,$now,
$r->internal_redirect($switchserver);	"cr/$domain/$domain".'-domainconfig/'.$rolename,
return OK;	undef,$sec)) {
	&Apache::lonnet::appenv({"environment.internal.$domain.$coursenum.cr/$domain/$domain".
	'-domainconfig/'."$rolename.adhoc" => time});
	}
	} else {
	delete($env{$envkey});
	}
	} else {
	delete($env{$envkey});
}	}
} else {	} else {
delete($env{$envkey});	delete($env{$envkey});
}	}
} else {	last;
delete($env{$envkey});
}	}
last;
}	}
}	}
}	}
	foreach $envkey (keys(%env)) {
foreach $envkey (keys %env) {
next if ($envkey!~/^user\.role\./);	next if ($envkey!~/^user\.role\./);
my ($where,$trolecode,$role,$tstatus,$tend,$tstart);	my ($where,$trolecode,$role,$tstatus,$tend,$tstart);
&Apache::lonnet::role_status($envkey,$update,$refresh,$now,\$role,\$where,	&Apache::lonnet::role_status($envkey,$update,$refresh,$now,\$role,\$where,
Line 380 sub handler {	Line 437 sub handler {
my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired');	my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired');
if ($curr_reqd_hash{'internal.releaserequired'} ne '') {	if ($curr_reqd_hash{'internal.releaserequired'} ne '') {
my ($switchserver,$switchwarning) =	my ($switchserver,$switchwarning) =
&check_release_required($loncaparev,$cdom.'_'.$cnum,$trolecode,$curr_reqd_hash{'internal.releaserequired'});	&Apache::loncommon::check_release_required($loncaparev,$cdom.'_'.$cnum,$trolecode,
	$curr_reqd_hash{'internal.releaserequired'});
if ($switchwarning ne '' \|\| $switchserver ne '') {	if ($switchwarning ne '' \|\| $switchserver ne '') {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
my $end_page=&Apache::loncommon::end_page();	$r->print(&Apache::loncommon::check_release_result($switchwarning,$switchserver));
$r->print(&Apache::loncommon::start_page('Selected course unavailable on this server').
'<p class="LC_warning">');
if ($switchwarning) {
$r->print($switchwarning.'<br /><a href="/adm/roles">');
if (&Apache::loncommon::show_course()) {
$r->print(&mt('Display courses'));
} else {
$r->print(&mt('Display roles'));
}
$r->print('</a>');
} elsif ($switchserver) {
$r->print(&mt('This course requires a newer version of LON-CAPA than is installed on this server.').
'<br />'.
'<a href="/adm/switchserver?'.$switchserver.'">'.
&mt('Switch Server').
'</a>');
}
$r->print('</p>'.&Apache::loncommon::end_page());
return OK;	return OK;
}	}
}	}
Line 516 ENDENTERKEY	Line 556 ENDENTERKEY
$env{'user.name'},	$env{'user.name'},
$env{'user.home'},	$env{'user.home'},
"Role ".$trolecode);	"Role ".$trolecode);

&Apache::lonnet::appenv(	&Apache::lonnet::appenv(
{'request.role' => $trolecode,	{'request.role' => $trolecode,
'request.role.domain' => $cdom,	'request.role.domain' => $cdom,
Line 525 ENDENTERKEY	Line 565 ENDENTERKEY
my $tadv=0;	my $tadv=0;

if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {	if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {
	if ($role =~ m{^\Qcr/$cdom/$cdom\E\-domainconfig/(\w+)$}) {
	my $rolename = $1;
	my %domdef = &Apache::lonnet::get_domain_defaults($cdom);
	if (ref($domdef{'adhocroles'}) eq 'HASH') {
	if (ref($domdef{'adhocroles'}{$rolename}) eq 'HASH') {
	&Apache::lonnet::appenv({'request.role.desc' => $domdef{'adhocroles'}{$rolename}{'desc'}});
	}
	}
	}
my $msg;	my $msg;
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
unless ($ferr) {	unless ($ferr) {
unless (($env{'form.switchrole'}) \|\|	unless (($env{'form.switchrole'}) \|\|
($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {	($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) {
&Apache::lonnet::put('nohist_crslastlogin',	&Apache::lonnet::put('nohist_crslastlogin',
{$env{'user.name'}.':'.$env{'user.domain'}.	{$env{'user.name'}.':'.$env{'user.domain'}.
Line 552 ENDENTERKEY	Line 601 ENDENTERKEY
}	}
if (($env{'form.orgurl'}) &&	if (($env{'form.orgurl'}) &&
($env{'form.orgurl'}!~/^\/adm\/flip/) &&	($env{'form.orgurl'}!~/^\/adm\/flip/) &&
($env{'form.orgurl'} ne '/adm/roles')) {	($env{'form.orgurl'} ne '/adm/roles')) {
my $dest=$env{'form.orgurl'};	my $dest=$env{'form.orgurl'};
if ($env{'form.symb'}) {	if ($env{'form.symb'}) {
if ($dest =~ /\?/) {	if ($dest =~ /\?/) {
Line 597 ENDENTERKEY	Line 646 ENDENTERKEY
} else {	} else {
# Check to see if the user is a CC entering a course	# Check to see if the user is a CC entering a course
# for the first time	# for the first time
my (undef, undef, $role, $courseid) = split(/\./, $envkey);
if (substr($courseid, 0, 1) eq '/') {
$courseid = substr($courseid, 1);
}
$courseid =~ s/\//_/;
if ((($role eq 'cc') \|\| ($role eq 'co'))	if ((($role eq 'cc') \|\| ($role eq 'co'))
&& ($env{'course.' . $courseid .'.course.helper.not.run'})) {	&& ($env{'course.'.$cdom.'_'.$cnum.'.course.helper.not.run'})) {
$furl = "/adm/helper/course.initialization.helper";	$furl = "/adm/helper/course.initialization.helper";
# Send the user to the course they selected	# Send the user to the course they selected
} elsif ($env{'request.course.id'}) {	} elsif ($env{'request.course.id'}) {
	if ((&Apache::loncommon::course_type() eq 'Placement') &&
	(!$env{'request.role.adv'})) {
	my ($score,$incomplete) =
	&Apache::lonplacementtest::check_completion(undef,undef,1);
	if (($incomplete) && ($incomplete < 100)) {
	&redirect_user($r, &mt('Entering [_1]',
	$env{'course.'.$cdom.'_'.$cnum.'.description'}),
	'/adm/placement', $msg);
	return OK;
	}
	}
my ($dest,$destsymb,$checkenc);	my ($dest,$destsymb,$checkenc);
$dest = $env{'form.destinationurl'};	$dest = $env{'form.destinationurl'};
$destsymb = $env{'form.destsymb'};	$destsymb = $env{'form.destsymb'};
Line 619 ENDENTERKEY	Line 674 ENDENTERKEY
}	}
}	}
}	}
	if (($dest =~ m{^\Q/public/$cdom/$cnum/syllabus\E.*(\?\|\&)usehttp=1}) \|\|
	($dest =~ m{^\Q/adm/wrapper/ext/\E(?!https:)})) {
	if ($ENV{'SERVER_PORT'} == 443) {
	my $hostname = $r->hostname();
	if ($hostname ne '') {
	$dest = 'http://'.$hostname.$dest;
	}
	}
	}
if ($dest =~ m{^/enc/}) {	if ($dest =~ m{^/enc/}) {
if ($env{'request.role.adv'}) {	if ($env{'request.role.adv'}) {
$dest = &Apache::lonenc::unencrypted($dest);	$dest = &Apache::lonenc::unencrypted($dest);
if ($destsymb eq '') {	if ($destsymb eq '') {
($destsymb) = ($dest =~ /(?:\?\|\&)symb=([^\&]*)/);	($destsymb) = ($dest =~ /(?:\?\|\&)symb=([^\&]*)/);
$destsymb = &unescape($destsymb);	$destsymb = &unescape($destsymb);
}	}
}	}
Line 648 ENDENTERKEY	Line 712 ENDENTERKEY
}	}
}	}
}	}
unless (($dest =~ m{^/enc/}) \|\| ($dest =~ /(\?\|\&)symb=.+___\d+___.+/)) {	unless (($dest =~ m{^/enc/}) \|\| ($dest =~ /(\?\|\&)symb=.+___\d+___.+/)) {
if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) {	if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) {
my $esc_symb = &escape($destsymb);	my $esc_symb = &escape($destsymb);
$dest .= '?symb='.$esc_symb;	$dest .= (($dest =~/\?/)? '&':'?').'symb='.$esc_symb;
}	}
}	}
&redirect_user($r, &mt('Entering [_1]',	&redirect_user($r, &mt('Entering [_1]',
$env{'course.'.$courseid.'.description'}),	$env{'course.'.$cdom.'_'.$cnum.'.description'}),
$dest, $msg);	$dest, $msg);
return OK;	return OK;
}	}
Line 665 ENDENTERKEY	Line 729 ENDENTERKEY
$env{'request.course.id'}.'/'	$env{'request.course.id'}.'/'
.$env{'request.course.sec'})	.$env{'request.course.sec'})
) {	) {
my $startpage = &courseloadpage($courseid);	my $startpage = &courseloadpage($env{'request.course.id'});
unless ($startpage eq 'firstres') {	unless ($startpage eq 'firstres') {
$msg = &mt('Entering [_1] ...',	$msg = &mt('Entering [_1] ...',
$env{'course.'.$courseid.'.description'});	$env{'course.'.$env{'request.course.id'}.'.description'});
&redirect_user($r, &mt('New in course'),	&redirect_user($r, &mt('New in course'),
'/adm/whatsnew?refpage=start', $msg);	'/adm/whatsnew?refpage=start', $msg);
return OK;	return OK;
}	}
}	}
}	}
# Are we allowed to look at the first resource?	# Are we allowed to look at the first resource?
if ($furl !~ m\|^/adm/\|) {	my $access;
# Guess not ...	if ($furl =~ m{^(/adm/wrapper\|)/ext/}) {
$furl=&Apache::lonpageflip::first_accessible_resource();	# If it's an external resource,
}	# strip off the symb argument and possible query
	my ($exturl,$symb) = ($furl =~ m{^(.+)(?:\?\|\&)symb=(.+)$});
	# Unencode $symb
	$symb = &unescape($symb);
	# Then check for permission
	$access = &Apache::lonnet::allowed('bre',$exturl,$symb);
	# For other resources just check for permission
	} else {
	$access = &Apache::lonnet::allowed('bre',$furl);
	}
	if (!$access) {
	$furl = &Apache::lonpageflip::first_accessible_resource();
	} elsif ($access eq 'B') {
	$furl = '/adm/navmaps?showOnlyHomework=1';
	}
$msg = &mt('Entering [_1] ...',	$msg = &mt('Entering [_1] ...',
$env{'course.'.$courseid.'.description'});	$env{'course.'.$cdom.'_'.$cnum.'.description'});
&redirect_user($r, &mt('Entering [_1]',	&redirect_user($r, &mt('Entering [_1]',
$env{'course.'.$courseid.'.description'}),	$env{'course.'.$cdom.'_'.$cnum.'.description'}),
$furl, $msg);	$furl, $msg);
}	}
return OK;	return OK;
Line 709 ENDENTERKEY	Line 787 ENDENTERKEY
$redirect_url);	$redirect_url);
return OK;	return OK;
}	}
	if ($role eq 'dh') {
	my $redirect_url = '/adm/menu/';
	&redirect_user($r,&mt('Loading Domain Helpdesk Menu'),
	$redirect_url);
	return OK;
	}
	if ($role eq 'da') {
	my $redirect_url = '/adm/menu/';
	&redirect_user($r,&mt('Loading Domain Helpdesk Assistant Menu'),
	$redirect_url);
	return OK;
	}
if ($role eq 'sc') {	if ($role eq 'sc') {
my $redirect_url = '/adm/grades?command=scantronupload';	my $redirect_url = '/adm/grades?command=scantronupload';
&redirect_user($r,&mt('Loading Data Upload Page'),	&redirect_user($r,&mt('Loading Data Upload Page'),
Line 737 ENDENTERKEY	Line 827 ENDENTERKEY
$crumbtext = 'Courses';	$crumbtext = 'Courses';
$pagetitle = 'My Courses';	$pagetitle = 'My Courses';
$recent = &mt('Recent Courses');	$recent = &mt('Recent Courses');
$standby = &mt('Course selected. Please stand by.');	$standby = &mt('Course selected. Please stand by.');
}	}
my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}];	my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}];

Line 745 ENDENTERKEY	Line 835 ENDENTERKEY
my $showcount = &roles_from_env(\%roles_in_env,$update);	my $showcount = &roles_from_env(\%roles_in_env,$update);

my $swinfo=&Apache::lonmenu::rawconfig();	my $swinfo=&Apache::lonmenu::rawconfig();
my $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum});	my %domdefs=&Apache::lonnet::get_domain_defaults($env{'user.domain'});
my $funcs = &get_roles_functions($showcount);	my $cattype = 'std';
$standby=~s/\n/\\n/g;	if ($domdefs{'catauth'}) {
	$cattype = $domdefs{'catauth'};
	}
	my $placementonly;
	if ($showcount == 1) {
	if ($env{'request.course.id'}) {
	if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') {
	$placementonly = 1;
	}
	} else {
	foreach my $rolecode (keys(%roles_in_env)) {
	my ($cid) = ($rolecode =~ m{^\Quser.role.st./\E($match_domain/$match_courseid)(?:/\|$)});
	if ($cid) {
	my %coursedescription =
	&Apache::lonnet::coursedescription($cid,{'one_time' => '1'});
	if ($coursedescription{'type'} eq 'Placement') {
	$placementonly = 1;
	}
	last;
	}
	}
	}
	}
	my ($start_page,$funcs);
	if ($placementonly) {
	$start_page=&Apache::loncommon::start_page($pagetitle,undef,
	{bread_crumbs=>$brcrum,crstype=>'Placement'});
	} else {
	$funcs = &get_roles_functions($showcount,$cattype);
	my $crumbsright;
	if ($env{'browser.mobile'}) {
	$crumbsright = $funcs;
	undef($funcs);
	}
	$start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum,
	bread_crumbs_component=>$crumbsright});
	}
	&js_escape(\$standby);
my $noscript='<br /><span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';	my $noscript='<br /><span class="LC_error">'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'<br />'.&mt('As this is not the case, most functionality in the system will be unavailable.').'</span><br />';

$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
Line 780 function rolesView (caller) {	Line 907 function rolesView (caller) {
document.rolechoice.display.value = caller;	document.rolechoice.display.value = caller;
} else {	} else {
if ((caller == 'doupdate') \|\| (caller == 'requestauthor') \|\|	if ((caller == 'doupdate') \|\| (caller == 'requestauthor') \|\|
(caller == 'queued')) {	(caller == 'queued')) {
document.rolechoice.state.value = caller;	document.rolechoice.state.value = caller;
}	}
}	}
Line 864 ENDHEADER	Line 991 ENDHEADER
}	}
if ($hotlist) {	if ($hotlist) {
$showresult .= $hotlist;	$showresult .= $hotlist;
}	}
$showresult .= '</div>';	$showresult .= '</div>';
$r->print($showresult);	$r->print($showresult);
} elsif ($env{'form.state'} eq 'queued') {	} elsif ($env{'form.state'} eq 'queued') {
Line 889 ENDHEADER	Line 1016 ENDHEADER
\%sortrole,\%roleclass,\%futureroles,\%timezones,$loncaparev);	\%sortrole,\%roleclass,\%futureroles,\%timezones,$loncaparev);
$refresh = $now;	$refresh = $now;
&Apache::lonnet::appenv({'user.refresh.time' => $refresh});	&Apache::lonnet::appenv({'user.refresh.time' => $refresh});
unless ($env{'user.adv'}) {	if ($countactive == 1) {
	if ($env{'request.course.id'}) {
	if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') {
	$placementonly = 1;
	}
	} elsif ($possiblerole) {
	if ($possiblerole =~ m{^st\./($match_domain)/($match_courseid)(?:/\|$)}) {
	if ($env{'course.'.$1.'_'.$2.'.type'} eq 'Placement') {
	$placementonly = 1;
	}
	}
	}
	}
	if ((($cattype eq 'std') \|\| ($cattype eq 'domonly')) && (!$env{'user.adv'}) &&
	(!$placementonly)) {
if ($countactive > 0) {	if ($countactive > 0) {
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');	my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');	my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');
$r->print(	$r->print(
'<p>'	'<p>'
.&mt('[_1]Visit the [_2]Course/Community Catalog[_3]'	.&mt('[_1]Visit the [_2]Course/Community Catalog[_3][_4]'
.' to view all [_4] LON-CAPA courses and communities.'	.' to view all [_5] LON-CAPA courses and communities.'
,'<b>'	,'<b>'
,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">'	,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">'
,'</a></b>',$domdesc)	,'</a>'
	,'</b>'
	,'"'.$domdesc.'"')
.'<br />'	.'<br />'
.&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,'	.&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,'
.' you may be able to enroll if self-enrollment is permitted.'	.' you may be able to enroll if self-enrollment is permitted.'
Line 911 ENDHEADER	Line 1054 ENDHEADER

# No active roles	# No active roles
if ($countactive==0) {	if ($countactive==0) {
if ($inrole) {	&requestcourse_advice($r,$cattype,$inrole);
$r->print('<h2>'.&mt('Currently no additional roles, courses or communities').'</h2>');
} else {
$r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>');
}
&findcourse_advice($r);
&requestcourse_advice($r);
$r->print('</form>');	$r->print('</form>');
if ($countfuture) {	if ($countfuture) {
$r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture));	$r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture));
my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,	my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,
$nochoose);	$nochoose);
&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,	&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,
\%roletext);	\%roletext,$update,$then);
my $tremark='';	my $tremark='';
my $tbg;	my $tbg;
if ($env{'request.role'} eq 'cm') {	if ($env{'request.role'} eq 'cm') {
Line 946 ENDHEADER	Line 1083 ENDHEADER
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
	} elsif (($placementonly) && ($env{'request.role'} eq 'cm')) {
	$r->print('<h3>'.&mt('Please stand by.').'</h3>
	<input type="hidden" name="'.$possiblerole.'" value="1" />
	<noscript><br />
	<input type="submit" name="submit" value="'.&mt('Continue').'" />
	</noscript></form>');
	$r->rflush();
	$r->print('<script type="text/javascript">document.forms.rolechoice.submit();</script>');
	$r->print(&Apache::loncommon::end_page());
	return OK;
}	}
# ----------------------------------------------------------------------- Table	# ----------------------------------------------------------------------- Table

if ($numdc > 0) {	if (($numdc > 0) \|\| (($numhelpdesk > 0) && ($numadhoc > 0))) {
$r->print(&coursepick_jscript());	$r->print(&coursepick_jscript());
$r->print(&Apache::loncommon::coursebrowser_javascript().	$r->print(&Apache::loncommon::coursebrowser_javascript().
&Apache::loncommon::authorbrowser_javascript());	&Apache::loncommon::authorbrowser_javascript());
Line 982 ENDHEADER	Line 1129 ENDHEADER
$roletext{'user.role.'.$role}->[1].	$roletext{'user.role.'.$role}->[1].
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row();
}	}
if ($role =~ m{dc\./($match_domain)/}	if ($role =~ m{^dc\./($match_domain)/$}
&& $dcroles{$1}) {	&& $dcroles{$1}) {
$output .= &adhoc_roles_row($1,'recent');	$output .= &adhoc_roles_row($1,'recent');
	} elsif ($role =~ m{^(dh\|da)\./($match_domain)/$}) {
	$output .= &adhoc_customroles_row($1,$2,'recent',$update,$then);
}	}
} elsif ($numdc > 0) {	} elsif ($numdc > 0) {
unless ($role =~/^error\:/) {	unless ($role =~/^error\:/) {
Line 1013 ENDHEADER	Line 1162 ENDHEADER
$doheaders ++;	$doheaders ++;
}	}
}	}
&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,\%roletext);	&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,\%roletext,$update,$then);
if ($countactive > 1) {	if ($countactive > 1) {
my $tremark='';	my $tremark='';
my $tbg;	my $tbg;
Line 1058 ENDHEADER	Line 1207 ENDHEADER
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');	my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');
$r->print('<p><small><i>'	$r->print('<p><small><i>'
.&mt('This LON-CAPA server is version [_1]',$r->dir_config('lonVersion'))	.&mt('This LON-CAPA server is version [_1]',$r->dir_config('lonVersion'))
.'</i><br />'	.'</i></small></p>');
.'<a href="/adm/logout">'.&mt('Logout').'</a>  '
.'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">'
.&mt('Course/Community Catalog')
.'</a></small></p>');
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
Line 1094 sub gather_roles {	Line 1239 sub gather_roles {
my $tryagain = $env{'form.tryagain'};	my $tryagain = $env{'form.tryagain'};
my @ids = &Apache::lonnet::current_machine_ids();	my @ids = &Apache::lonnet::current_machine_ids();
if (ref($roles_in_env) eq 'HASH') {	if (ref($roles_in_env) eq 'HASH') {
	my %adhocdesc;
foreach my $envkey (sort(keys(%{$roles_in_env}))) {	foreach my $envkey (sort(keys(%{$roles_in_env}))) {
my $button = 1;	my $button = 1;
my $switchserver='';	my $switchserver='';
Line 1145 sub gather_roles {	Line 1291 sub gather_roles {
my $trole;	my $trole;
if ($role =~ /^cr\//) {	if ($role =~ /^cr\//) {
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);	my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);
if ($tremark) { $tremark.='<br />'; }	unless ($rauthor eq $rdomain.'-domainconfig') {
$tremark.=&mt('Customrole defined by [_1].',$rauthor.':'.$rdomain);	if ($tremark) { $tremark.='<br />'; }
	$tremark.=&mt('Custom role defined by [_1].',$rauthor.':'.$rdomain);
	}
}	}
$trole=Apache::lonnet::plaintext($role);	$trole=Apache::lonnet::plaintext($role);
my $ttype;	my $ttype;
my $twhere;	my $twhere;
	my $skipcal;
my ($tdom,$trest,$tsection)=	my ($tdom,$trest,$tsection)=
split(/\//,Apache::lonnet::declutter($where));	split(/\//,Apache::lonnet::declutter($where));
# First, Co-Authorship roles	# First, Co-Authorship roles
Line 1192 sub gather_roles {	Line 1341 sub gather_roles {
} elsif ($trest) {	} elsif ($trest) {
my $tcourseid=$tdom.'_'.$trest;	my $tcourseid=$tdom.'_'.$trest;
$ttype = &Apache::loncommon::course_type($tcourseid);	$ttype = &Apache::loncommon::course_type($tcourseid);
$trole = &Apache::lonnet::plaintext($role,$ttype,$tcourseid);	if ($role !~ /^cr/) {
	$trole = &Apache::lonnet::plaintext($role,$ttype,$tcourseid);
	} elsif ($role =~ m{^\Qcr/$tdom/$tdom\E\-domainconfig/(\w+)$}) {
	my $rolename = $1;
	my $desc;
	if (ref($adhocdesc{$tdom}) eq 'HASH') {
	$desc = $adhocdesc{$tdom}{$rolename};
	} else {
	my %domdef = &Apache::lonnet::get_domain_defaults($tdom);
	if (ref($domdef{'adhocroles'}) eq 'HASH') {
	foreach my $rolename (sort(keys(%{$domdef{'adhocroles'}}))) {
	if (ref($domdef{'adhocroles'}{$rolename}) eq 'HASH') {
	$adhocdesc{$tdom}{$rolename} = $domdef{'adhocroles'}{$rolename}{'desc'};
	$desc = $adhocdesc{$tdom}{$rolename};
	}
	}
	}
	}
	if ($desc ne '') {
	$trole = $desc;
	} else {
	$trole = &mt('Helpdesk[_1]',' '.$rolename);
	}
	} else {
	$trole = (split(/\//,$role,4))[-1];
	}
if ($env{'course.'.$tcourseid.'.description'}) {	if ($env{'course.'.$tcourseid.'.description'}) {
my $home=$env{'course.'.$tcourseid.'.home'};	my $home=$env{'course.'.$tcourseid.'.home'};
$twhere=$env{'course.'.$tcourseid.'.description'};	$twhere=$env{'course.'.$tcourseid.'.description'};
Line 1206 sub gather_roles {	Line 1380 sub gather_roles {
my $required = $env{'course.'.$tcourseid.'.internal.releaserequired'};	my $required = $env{'course.'.$tcourseid.'.internal.releaserequired'};
if ($required ne '') {	if ($required ne '') {
($switchserver,$switchwarning) =	($switchserver,$switchwarning) =
&check_release_required($loncaparev,$tcourseid,$trolecode,$required);	&Apache::loncommon::check_release_required($loncaparev,$tcourseid,$trolecode,$required);
if ($switchserver \|\| $switchwarning) {	if ($switchserver \|\| $switchwarning) {
$button = 0;	$button = 0;
}	}
Line 1229 sub gather_roles {	Line 1403 sub gather_roles {
my $required = $newhash{'internal.releaserequired'};	my $required = $newhash{'internal.releaserequired'};
if ($required ne '') {	if ($required ne '') {
($switchserver,$switchwarning) =	($switchserver,$switchwarning) =
&check_release_required($loncaparev,$tcourseid,$trolecode,$required);	&Apache::loncommon::check_release_required($loncaparev,$tcourseid,$trolecode,$required);
if ($switchserver \|\| $switchwarning) {	if ($switchserver \|\| $switchwarning) {
$button = 0;	$button = 0;
}	}
Line 1240 sub gather_roles {	Line 1414 sub gather_roles {
$env{'course.'.$tcourseid.'.description'}=$twhere;	$env{'course.'.$tcourseid.'.description'}=$twhere;
$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;	$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;
$ttype = 'Unavailable';	$ttype = 'Unavailable';
	$skipcal = 1;
}	}
}	}
	if ($ttype eq 'Placement') {
	$ttype = 'Placement Test';
	}
if ($tsection) {	if ($tsection) {
$twhere.='<br />'.&mt('Section').': '.$tsection;	$twhere.='<br />'.&mt('Section').': '.$tsection;
}	}
Line 1258 sub gather_roles {	Line 1436 sub gather_roles {
($role_text,$role_text_end) =	($role_text,$role_text_end) =
&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,	&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,
$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,	$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,
$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning);	$tpend,$nochoose,$button,$switchserver,$reinit,
	$switchwarning,$skipcal);
$roletext->{$envkey}=[$role_text,$role_text_end];	$roletext->{$envkey}=[$role_text,$role_text_end];
if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}	if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}
$sortrole->{$sortkey}=$envkey;	$sortrole->{$sortkey}=$envkey;
Line 1330 sub roletable_headers {	Line 1509 sub roletable_headers {
my $doheaders;	my $doheaders;
if ((ref($sortrole) eq 'HASH') && (ref($roleclass) eq 'HASH')) {	if ((ref($sortrole) eq 'HASH') && (ref($roleclass) eq 'HASH')) {
$r->print('<br />'	$r->print('<br />'
.&Apache::loncommon::start_data_table()	.&Apache::loncommon::start_data_table('LC_textsize_mobile')
.&Apache::loncommon::start_data_table_header_row()	.&Apache::loncommon::start_data_table_header_row()
);	);
if (!$nochoose) { $r->print('<th> </th>'); }	if (!$nochoose) { $r->print('<th> </th>'); }
Line 1356 sub roletable_headers {	Line 1535 sub roletable_headers {
}	}

sub roletypes {	sub roletypes {
my @types = ('Domain','Authoring Space','Course','Community','Unavailable','System');	my @types = ('Domain','Authoring Space','Course','Placement Test','Community','Unavailable','System');
return @types;	return @types;
}	}

sub print_rolerows {	sub print_rolerows {
my ($r,$doheaders,$roleclass,$sortrole,$dcroles,$roletext) = @_;	my ($r,$doheaders,$roleclass,$sortrole,$dcroles,$roletext,$update,$then) = @_;
if ((ref($roleclass) eq 'HASH') && (ref($sortrole) eq 'HASH')) {	if ((ref($roleclass) eq 'HASH') && (ref($sortrole) eq 'HASH')) {
my @types = &roletypes();	my @types = &roletypes();
foreach my $type (@types) {	foreach my $type (@types) {
Line 1379 sub print_rolerows {	Line 1558 sub print_rolerows {
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row();
}	}
}	}
if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) {	if ($sortrole->{$which} =~ m{^user\.role\.dc\./($match_domain)/}) {
if (ref($dcroles) eq 'HASH') {	if (ref($dcroles) eq 'HASH') {
if ($dcroles->{$1}) {	if ($dcroles->{$1}) {
$output .= &adhoc_roles_row($1,'');	$output .= &adhoc_roles_row($1,'');
}	}
}	}
	} elsif ($sortrole->{$which} =~ m{^user\.role\.(dh\|da)\./($match_domain)/}) {
	$output .= &adhoc_customroles_row($1,$2,'',$update,$then);
}	}
}	}
}	}
Line 1405 sub print_rolerows {	Line 1586 sub print_rolerows {
}	}

sub findcourse_advice {	sub findcourse_advice {
my ($r) = @_;	my ($r,$cattype) = @_;
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');	my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');	my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');
if (&Apache::lonnet::auto_run(undef,$env{'user.domain'})) {	if (&Apache::lonnet::auto_run(undef,$env{'user.domain'})) {
Line 1420 sub findcourse_advice {	Line 1601 sub findcourse_advice {
} else {	} else {
$r->print(&mt('If you were expecting to see an active role listed for a particular course, that course may not have been created yet.').'<br />');	$r->print(&mt('If you were expecting to see an active role listed for a particular course, that course may not have been created yet.').'<br />');
}	}
$r->print('<h3>'.&mt('Self-Enrollment').'</h3>'.	if (($cattype eq 'std') \|\| ($cattype eq 'domonly')) {
'<p>'.&mt('The [_1]Course/Community Catalog[_2] provides information about all [_3] classes for which LON-CAPA courses have been created, as well as any communities in the domain.','<a href="/adm/coursecatalog?showdom='.$esc_dom.'">','</a>',$domdesc).'<br />');	$r->print('<h3>'.&mt('Self-Enrollment').'</h3>'.
$r->print(&mt('You can search for courses and communities which permit self-enrollment, if you would like to enroll in one.').'</p>'.	'<p>'.&mt('The [_1]Course/Community Catalog[_2] provides information about all [_3] classes for which LON-CAPA courses have been created, as well as any communities in the domain.','<a href="/adm/coursecatalog?showdom='.$esc_dom.'">','</a>',$domdesc).'<br />');
&Apache::loncoursequeueadmin::queued_selfenrollment());	$r->print(&mt('You can search for courses and communities which permit self-enrollment, if you would like to enroll in one.').'</p>'.
	&Apache::loncoursequeueadmin::queued_selfenrollment());
	}
return;	return;
}	}

sub requestcourse_advice {	sub requestcourse_advice {
my ($r) = @_;	my ($r,$cattype,$inrole) = @_;
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');	my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');	my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');
my (%can_request,%request_doms);	my (%can_request,%request_doms,$output);
&Apache::lonnet::check_can_request($env{'user.domain'},\%can_request,\%request_doms);	&Apache::lonnet::check_can_request($env{'user.domain'},\%can_request,\%request_doms);
if (keys(%request_doms) > 0) {	if (keys(%request_doms) > 0) {
my ($types,$typename) = &Apache::loncommon::course_types();	my ($types,$typename) = &Apache::loncommon::course_types();
if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) {	if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) {
$r->print('<h3>'.&mt('Request creation of a course or community').'</h3>'.
'<p>'.&mt('You have rights to request the creation of courses and/or communities in the following domain(s):').'<ul>');
my (@reqdoms,@reqtypes);	my (@reqdoms,@reqtypes);
foreach my $type (sort(keys(%request_doms))) {	foreach my $type (sort(keys(%request_doms))) {
push(@reqtypes,$type);	push(@reqtypes,$type);
if (ref($request_doms{$type}) eq 'ARRAY') {	if (ref($request_doms{$type}) eq 'ARRAY') {
my $domstr = join(', ',map { &Apache::lonnet::domain($_) } sort(@{$request_doms{$type}}));	my $domstr = join(', ',map { &Apache::lonnet::domain($_) } sort(@{$request_doms{$type}}));
$r->print(	$output .=
'<li>'	'<li>'
.&mt('[_1]'.$typename->{$type}.'[_2] in domain: [_3]',	.&mt('[_1]'.$typename->{$type}.'[_2] in domain: [_3]',
'<i>',	'<i>',
'</i>',	'</i>',
'<b>'.$domstr.'</b>')	'<b>'.$domstr.'</b>')
.'</li>'	.'</li>';
);
foreach my $dom (@{$request_doms{$type}}) {	foreach my $dom (@{$request_doms{$type}}) {
unless (grep(/^\Q$dom\E/,@reqdoms)) {	unless (grep(/^\Q$dom\E/,@reqdoms)) {
push(@reqdoms,$dom);	push(@reqdoms,$dom);
Line 1473 sub requestcourse_advice {	Line 1653 sub requestcourse_advice {
}	}
if (@reqdoms == 1 \|\| @showtypes > 0) {	if (@reqdoms == 1 \|\| @showtypes > 0) {
$requrl .= '&state=crstype&action=new';	$requrl .= '&state=crstype&action=new';
}	}
$r->print('</ul>'.&mt('Use the [_1]request form[_2] to submit a request for creation of a new course or community.','<a href="'.$requrl.'">','</a>').'</p>');	if ($output) {
	$r->print('<h3>'.&mt('Request creation of a course or community').'</h3>'.
	'<p>'.
	&mt('You have rights to request the creation of courses and/or communities in the following domain(s):').
	'<ul>'.
	$output.
	'</ul>'.
	&mt('Use the [_1]request form[_2] to submit a request for creation of a new course or community.',
	'<a href="'.$requrl.'">','</a>').
	'</p>');
	}
}	}
	} elsif (!$env{'user.adv'}) {
	if ($inrole) {
	$r->print('<h3>'.&mt('Currently no additional roles, courses or communities').'</h3>');
	} else {
	$r->print('<h3>'.&mt('Currently no active roles, courses or communities').'</h3>');
	}
	&findcourse_advice($r,$cattype);
}	}
return;	return;
}	}
Line 1536 sub privileges_info {	Line 1733 sub privileges_info {
}	}

sub build_roletext {	sub build_roletext {
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning) = @_;	my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,
	$tpstart,$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning,$skipcal) = @_;
my ($roletext,$roletext_end);	my ($roletext,$roletext_end);
my $is_dc=($trolecode =~ m/^dc\./);	my $is_dc=($trolecode =~ m/^dc\./);
my $rowspan=($is_dc) ? ''	my $rowspan=($is_dc) ? ''
Line 1592 sub build_roletext {	Line 1790 sub build_roletext {
$trolecode."','".$buttonname.'\');" /></td>';	$trolecode."','".$buttonname.'\');" /></td>';
}	}
}	}
if ($trolecode !~ m/^(dc\|ca\|au\|aa)\./) {	if (($trolecode !~ m/^(dc\|ca\|au\|aa)\./) && (!$skipcal)) {
$tremark.=&Apache::lonannounce::showday(time,1,	$tremark.=&Apache::lonannounce::showday(time,1,
&Apache::lonannounce::readcalendar($tdom.'_'.$trest));	&Apache::lonannounce::readcalendar($tdom.'_'.$trest));
}	}
Line 1608 sub build_roletext {	Line 1806 sub build_roletext {
return ($roletext,$roletext_end);	return ($roletext,$roletext_end);
}	}

sub check_needs_switchserver {
my ($possiblerole) = @_;
my $needs_switchserver;
my ($role,$where) = split(/\./,$possiblerole,2);
my (undef,$tdom,$twho) = split(/\//,$where);
my ($server_status,$home);
if (($role eq 'ca') \|\| ($role eq 'aa')) {
($server_status,$home) = &check_author_homeserver($twho,$tdom);
} else {
($server_status,$home) = &check_author_homeserver($env{'user.name'},
$env{'user.domain'});
}
if ($server_status eq 'switchserver') {
$needs_switchserver = 1;
}
return $needs_switchserver;
}

sub check_author_homeserver {	sub check_author_homeserver {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
if (($uname eq '') \|\| ($udom eq '')) {	if (($uname eq '') \|\| ($udom eq '')) {
Line 1643 sub check_author_homeserver {	Line 1823 sub check_author_homeserver {
}	}
}	}

sub check_fordc {	sub check_for_adhoc {
my ($dcroles,$update,$then) = @_;	my ($dcroles,$helpdeskroles,$update,$then) = @_;
my $numdc = 0;	my $numdc = 0;
	my $numhelpdesk = 0;
	my $numadhoc = 0;
	my $num_custom_adhoc = 0;
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
foreach my $envkey (sort keys %env) {	foreach my $envkey (sort(keys(%env))) {
if ($envkey=~/^user\.role\.dc\.\/($match_domain)\/$/) {	if ($envkey=~/^user\.role\.(dc\|dh\|da)\.\/($match_domain)\/$/) {
my $dcdom = $1;	my $role = $1;
my $livedc = 1;	my $roledom = $2;
	my $liverole = 1;
my ($tstart,$tend)=split(/\./,$env{$envkey});	my ($tstart,$tend)=split(/\./,$env{$envkey});
my $limit = $update;	my $limit = $update;
if ($env{'request.role'} eq 'dc./'.$dcdom.'/') {	if ($env{'request.role'} eq "$role./$roledom/") {
$limit = $then;	$limit = $then;
}	}
if ($tstart && $tstart>$limit) { $livedc = 0; }	if ($tstart && $tstart>$limit) { $liverole = 0; }
if ($tend && $tend <$limit) { $livedc = 0; }	if ($tend && $tend <$limit) { $liverole = 0; }
if ($livedc) {	if ($liverole) {
$$dcroles{$dcdom} = $envkey;	if ($role eq 'dc') {
$numdc++;	$dcroles->{$roledom} = $envkey;
	$numdc++;
	} else {
	$helpdeskroles->{$roledom} = $envkey;
	my %domdefaults = &Apache::lonnet::get_domain_defaults($roledom);
	if (ref($domdefaults{'adhocroles'}) eq 'HASH') {
	if (keys(%{$domdefaults{'adhocroles'}})) {
	$numadhoc ++;
	}
	}
	$numhelpdesk++;
	}
}	}
}	}
}	}
}	}
return $numdc;	return ($numdc,$numhelpdesk,$numadhoc);
}	}

sub adhoc_course_role {	sub adhoc_course_role {
Line 1691 sub adhoc_course_role {	Line 1886 sub adhoc_course_role {
}	}
}	}
if ($setprivs) {	if ($setprivs) {
if ($env{'form.switchrole'} =~ m-^(in\|ta\|ep\|ad\|st\|cr)([\w/])\./\Q$cdom\E/\Q$cnum\E/?(\w)$-) {	if ($env{'form.switchrole'} =~ m-^(in\|ta\|ep\|ad\|st\|cr)(.?)\./\Q$cdom\E/\Q$cnum\E/?(\w)$-) {
my $role = $1;	my $role = $1;
my $custom_role = $2;	my $custom_role = $2;
my $usec = $3;	my $usec = $3;
Line 1706 sub adhoc_course_role {	Line 1901 sub adhoc_course_role {
my %cgroups =	my %cgroups =
&Apache::lonnet::get_active_groups($env{'user.domain'},	&Apache::lonnet::get_active_groups($env{'user.domain'},
$env{'user.name'},$cdom,$cnum);	$env{'user.name'},$cdom,$cnum);
	my $ccrole;
	if ($crstype eq 'Community') {
	$ccrole = 'co';
	} else {
	$ccrole = 'cc';
	}
foreach my $group (keys(%cgroups)) {	foreach my $group (keys(%cgroups)) {
$group_privs{$group} =	$group_privs{$group} =
$env{'user.priv.cc./'.$cdom.'/'.$cnum.'./'.$cdom.'/'.$cnum.'/'.$group};	$env{'user.priv.'.$ccrole.'./'.$cdom.'/'.$cnum.'./'.$cdom.'/'.$cnum.'/'.$group};
}	}
$newgroups{'/'.$cdom.'/'.$cnum} = \%group_privs;	$newgroups{'/'.$cdom.'/'.$cnum} = \%group_privs;
my $area = '/'.$cdom.'/'.$cnum;	my $area = '/'.$cdom.'/'.$cnum;
Line 1756 sub check_forcc {	Line 1957 sub check_forcc {
return $is_cc;	return $is_cc;
}	}

sub check_release_required {
my ($loncaparev,$tcourseid,$trolecode,$required) = @_;
my ($switchserver,$warning);
if ($required ne '') {
my ($reqdmajor,$reqdminor) = ($required =~ /^(\d+)\.(\d+)$/);
my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
if ($reqdmajor ne '' && $reqdminor ne '') {
my $otherserver;
if (($major eq '' && $minor eq '') \|\|
(($reqdmajor > $major) \|\| (($reqdmajor == $major) && ($reqdminor > $minor)))) {
my ($userdomserver) = &Apache::lonnet::choose_server($env{'user.domain'});
my $switchlcrev =
&Apache::lonnet::get_server_loncaparev($env{'user.domain'},
$userdomserver);
my ($swmajor,$swminor) = ($switchlcrev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
if (($swmajor eq '' && $swminor eq '') \|\| ($reqdmajor > $swmajor) \|\|
(($reqdmajor == $swmajor) && ($reqdminor > $swminor))) {
my $cdom = $env{'course.'.$tcourseid.'.domain'};
if ($cdom ne $env{'user.domain'}) {
my ($coursedomserver,$coursehostname) = &Apache::lonnet::choose_server($cdom);
my $serverhomeID = &Apache::lonnet::get_server_homeID($coursehostname);
my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID);
my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom);
my %udomdefaults = &Apache::lonnet::get_domain_defaults($env{'user.domain'});
my $remoterev = &Apache::lonnet::get_server_loncaparev($serverhomedom,$coursedomserver);
my $canhost =
&Apache::lonnet::can_host_session($env{'user.domain'},
$coursedomserver,
$remoterev,
$udomdefaults{'remotesessions'},
$defdomdefaults{'hostedsessions'});

if ($canhost) {
$otherserver = $coursedomserver;
} else {
$warning = &mt('Requires LON-CAPA version [_1].',$env{'course.'.$tcourseid.'.internal.releaserequired'}).'<br />'. &mt("No suitable server could be found amongst servers in either your own domain or in the course's domain.");
}
} else {
$warning = &mt('Requires LON-CAPA version [_1].',$env{'course.'.$tcourseid.'.internal.releaserequired'}).'<br />'.&mt("No suitable server could be found amongst servers in your own domain (which is also the course's domain).");
}
} else {
$otherserver = $userdomserver;
}
}
if ($otherserver ne '') {
$switchserver = 'otherserver='.$otherserver.'&role='.$trolecode;
}
}
}
return ($switchserver,$warning);
}

sub courselink {	sub courselink {
my ($dcdom,$rowtype) = @_;	my ($roledom,$rowtype,$role) = @_;
my $courseform=&Apache::loncommon::selectcourse_link	my $courseform=&Apache::loncommon::selectcourse_link
('rolechoice','dccourse'.$rowtype.'_'.$dcdom,	('rolechoice','course'.$rowtype.'_'.$roledom.'_'.$role,
'dcdomain'.$rowtype.'_'.$dcdom,'coursedesc'.$rowtype.'_'.	'domain'.$rowtype.'_'.$roledom.'_'.$role,
$dcdom,$dcdom,undef,'Course/Community');	'coursedesc'.$rowtype.'_'.$roledom.'_'.$role,
my $hiddenitems = '<input type="hidden" name="dcdomain'.$rowtype.'_'.$dcdom.'" value="'.$dcdom.'" />'.	$roledom.':'.$role,undef,'Course/Community');
'<input type="hidden" name="origdom'.$rowtype.'_'.$dcdom.'" value="'.$dcdom.'" />'.	my $hiddenitems = '<input type="hidden" name="domain'.$rowtype.'_'.$roledom.'_'.$role.'" value="'.$roledom.'" />'.
'<input type="hidden" name="dccourse'.$rowtype.'_'.$dcdom.'" value="" />'.	'<input type="hidden" name="origdom'.$rowtype.'_'.$roledom.'_'.$role.'" value="'.$roledom.'" />'.
'<input type="hidden" name="coursedesc'.$rowtype.'_'.$dcdom.'" value="" />';	'<input type="hidden" name="course'.$rowtype.'_'.$roledom.'_'.$role.'" value="" />'.
	'<input type="hidden" name="coursedesc'.$rowtype.'_'.$roledom.'_'.$role.'" value="" />';
return $courseform.$hiddenitems;	return $courseform.$hiddenitems;
}	}

sub coursepick_jscript {	sub coursepick_jscript {
my %lt = &Apache::lonlocal::texthash(	my %js_lt = &Apache::lonlocal::texthash(
plsu => "Please use the 'Select Course/Community' link to open a separate pick course window where you may select the course or community you wish to enter.",	plsu => "Please use the 'Select Course/Community' link to open a separate pick course window where you may select the course or community you wish to enter.",
youc => 'You can only use this screen to select courses and communities in the current domain.',	youc => 'You can only use this screen to select courses and communities in the current domain.',
);	);
	&js_escape(\%js_lt);
my $verify_script = <<"END";	my $verify_script = <<"END";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 1842 function verifyCoursePick(caller) {	Line 1993 function verifyCoursePick(caller) {
}	}
}	}
else {	else {
alert("$lt{'plsu'}");	alert("$js_lt{'plsu'}");
}	}
}	}
else {	else {
alert("$lt{'youc'}")	alert("$js_lt{'youc'}")
}	}
}	}
function getIndex(caller) {	function getIndex(caller) {
Line 1884 sub display_cc_role {	Line 2035 sub display_cc_role {
my $trolecode = $ccrole.'./'.$tdom.'/'.$trest;	my $trolecode = $ccrole.'./'.$tdom.'/'.$trest;
my $twhere;	my $twhere;
my $ttype;	my $ttype;
	my $skipcal;
my $tbg='LC_roles_is';	my $tbg='LC_roles_is';
my %newhash=&Apache::lonnet::coursedescription($tcourseid);	my %newhash=&Apache::lonnet::coursedescription($tcourseid);
if (%newhash) {	if (%newhash) {
Line 1895 sub display_cc_role {	Line 2047 sub display_cc_role {
} else {	} else {
$twhere=&mt('Currently not available');	$twhere=&mt('Currently not available');
$env{'course.'.$tcourseid.'.description'}=$twhere;	$env{'course.'.$tcourseid.'.description'}=$twhere;
	$skipcal = 1;
}	}
my $trole = &Apache::lonnet::plaintext($ccrole,$ttype,$tcourseid);	my $trole = &Apache::lonnet::plaintext($ccrole,$ttype,$tcourseid);
$twhere.="<br />".&mt('Domain').":".$tdom;	$twhere.="<br />".&mt('Domain').":".$tdom;
($roletext,$roletext_end) = &build_roletext($trolecode,$tdom,$trest,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,'');	($roletext,$roletext_end) = &build_roletext($trolecode,$tdom,$trest,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,'','','',$skipcal);
}	}
}	}
return ($roletext,$roletext_end);	return ($roletext,$roletext_end);
Line 1907 sub display_cc_role {	Line 2060 sub display_cc_role {
sub adhoc_roles_row {	sub adhoc_roles_row {
my ($dcdom,$rowtype) = @_;	my ($dcdom,$rowtype) = @_;
my $output = &Apache::loncommon::continue_data_table_row()	my $output = &Apache::loncommon::continue_data_table_row()
.' <td colspan="5">'	.' <td colspan="5" class="LC_textsize_mobile">'
.&mt('[_1]Ad hoc[_2] roles in domain [_3] --'	.&mt('[_1]Ad hoc[_2] roles in domain [_3] --'
,'<span class="LC_cusr_emph">','</span>',$dcdom)	,'<span class="LC_cusr_emph">','</span>',$dcdom)
.' ';	.' ';
my $selectcclink = &courselink($dcdom,$rowtype);	my $role = 'cc';
	my $selectcclink = &courselink($dcdom,$rowtype,$role);
my $ccrole = &Apache::lonnet::plaintext('co',undef,undef,1);	my $ccrole = &Apache::lonnet::plaintext('co',undef,undef,1);
my $carole = &Apache::lonnet::plaintext('ca');	my $carole = &Apache::lonnet::plaintext('ca');
my $selectcalink = &coauthorlink($dcdom,$rowtype);	my $selectcalink = &coauthorlink($dcdom,$rowtype);
Line 1921 sub adhoc_roles_row {	Line 2075 sub adhoc_roles_row {
return $output;	return $output;
}	}

	sub adhoc_customroles_row {
	my ($role,$dhdom,$rowtype,$update,$then) = @_;
	my $liverole = 1;
	my ($tstart,$tend)=split(/\./,$env{"user.role.$role./$dhdom/"});
	my $limit = $update;
	if (($role eq 'dh') && ($env{'request.role'} eq 'dh./'.$dhdom.'/')) {
	$limit = $then;
	}
	if ($tstart && $tstart>$limit) { $liverole = 0; }
	if ($tend && $tend <$limit) { $liverole = 0; }
	return unless ($liverole);
	my %domdefaults = &Apache::lonnet::get_domain_defaults($dhdom);
	if (ref($domdefaults{'adhocroles'}) eq 'HASH') {
	if (scalar(keys(%{$domdefaults{'adhocroles'}})) > 0) {
	return &Apache::loncommon::continue_data_table_row()
	.' <td colspan="5" class="LC_textsize_mobile">'
	.&mt('[_1]Ad hoc[_2] course/community roles in domain [_3] --',
	'<span class="LC_cusr_emph">','</span>',$dhdom)
	.' '.&courselink($dhdom,$rowtype,$role);
	}
	}
	return;
	}

sub recent_filename {	sub recent_filename {
my $area=shift;	my $area=shift;
return 'nohist_recent_'.&escape($area);	return 'nohist_recent_'.&escape($area);
Line 2237 sub update_session_roles {	Line 2415 sub update_session_roles {
my $status_in_env =	my $status_in_env =
&curr_role_status($currstart,$currend,$refresh,$update);	&curr_role_status($currstart,$currend,$refresh,$update);
my ($rolekey) = ($envkey =~ /^user\.role\.(.+)$/);	my ($rolekey) = ($envkey =~ /^user\.role\.(.+)$/);
my ($role,$rest)=split(/\./,$rolekey,2);	my ($role,$rest)=split(m{\./},$rolekey,2);
	$rest = '/'.$rest;
if (&Apache::lonnet::delenv($envkey,undef,[$role])) {	if (&Apache::lonnet::delenv($envkey,undef,[$role])) {
if ($status_in_env eq 'active') {	if ($status_in_env eq 'active') {
if ($role eq 'gr') {	if ($role eq 'gr') {
Line 2437 sub update_session_roles {	Line 2616 sub update_session_roles {
}	}
my $groupdesc;	my $groupdesc;
unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {	unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {
%{$curr_groups{$cdom.'_'.$cnum}} =	%{$curr_groups{$cdom.'_'.$cnum}} =
&Apache::longroup::coursegroups($cdom,$cnum);	&Apache::longroup::coursegroups($cdom,$cnum);
}	}
unless ((ref($groupdescs{$cdom.'_'.$cnum}) eq 'HASH') &&	unless ((ref($groupdescs{$cdom.'_'.$cnum}) eq 'HASH') &&
($groupdescs{$cdom.'_'.$cnum}{$group})) {	($groupdescs{$cdom.'_'.$cnum}{$group})) {

my %groupinfo =	my %groupinfo =
&Apache::longroup::get_group_settings($curr_groups{$cdom.'_'.$cnum}{$group});	&Apache::longroup::get_group_settings($curr_groups{$cdom.'_'.$cnum}{$group});
$groupdescs{$cdom.'_'.$cnum}{$group} =	$groupdescs{$cdom.'_'.$cnum}{$group} =
&unescape($groupinfo{'description'});	&unescape($groupinfo{'description'});
}	}
$groupdesc = $groupdescs{$cdom.'_'.$cnum}{$group};	$groupdesc = $groupdescs{$cdom.'_'.$cnum}{$group};
Line 2473 sub update_session_roles {	Line 2652 sub update_session_roles {
if ($desc) {	if ($desc) {
$newmsg .= '<li>'.	$newmsg .= '<li>'.
&mt('[_1] with status: [_2].',	&mt('[_1] with status: [_2].',
$desc,$newrole{$item}).'</li>';	$desc,&mt($newrole{$item})).'</li>';
}	}
}	}
if ($newmsg) {	if ($newmsg) {
Line 2564 sub update_session_roles {	Line 2743 sub update_session_roles {
my $cdom = $env{'course.'.$cid.'.domain'};	my $cdom = $env{'course.'.$cid.'.domain'};
my $cnum = $env{'course.'.$cid.'.num'};	my $cnum = $env{'course.'.$cid.'.num'};
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
my %groupdesc;	my %groupdesc;
if (ref($groupchange{$crs}) eq 'HASH') {	if (ref($groupchange{$crs}) eq 'HASH') {
$groupchgmsg .= '<li>'.&mt('Course/Community: [_1]','<b>'.$crsdesc.'</b><ul>');	$groupchgmsg .= '<li>'.&mt('Course/Community: [_1]','<b>'.$crsdesc.'</b><ul>');
foreach my $group (sort(keys(%{$groupchange{$crs}}))) {	foreach my $group (sort(keys(%{$groupchange{$crs}}))) {
Line 2607 sub role_desc {	Line 2786 sub role_desc {
return unless ($role);	return unless ($role);
if ($role =~ /^cr\//) {	if ($role =~ /^cr\//) {
my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);	my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);
$tremark = &mt('Customrole defined by [_1].',$rauthor.':'.$rdomain);	$tremark = &mt('Custom role defined by [_1].',$rauthor.':'.$rdomain);
}	}
$trole=Apache::lonnet::plaintext($role);	$trole=Apache::lonnet::plaintext($role);
my ($tdom,$trest,$tsection)=	my ($tdom,$trest,$tsection)=
Line 2719 sub is_active_course {	Line 2898 sub is_active_course {
}	}

sub get_roles_functions {	sub get_roles_functions {
my ($rolescount) = @_;	my ($rolescount,$cattype) = @_;
my @links;	my @links;
push(@links,["javascript:rolesView('doupdate');",'start-here-22x22',&mt('Check for changes')]);	push(@links,["javascript:rolesView('doupdate');",'start-here-22x22',&mt('Check for changes')]);
if ($env{'environment.canrequest.author'}) {	if ($env{'environment.canrequest.author'}) {
Line 2745 sub get_roles_functions {	Line 2924 sub get_roles_functions {
push(@links,["javascript:rolesView('showall');",'edit-undo-22x22',&mt('Include expired')]);	push(@links,["javascript:rolesView('showall');",'edit-undo-22x22',&mt('Include expired')]);
}	}
}	}
if (&Apache::loncommon::designparm('login.coursecatalog',$env{'user.domain'})) {	unless ($cattype eq 'none') {
push(@links,['/adm/coursecatalog','ccat-22x22',&mt('Course catalog')]);	push(@links,['/adm/coursecatalog','ccat-22x22',&mt('Course catalog')]);
}	}
my $funcs = &Apache::lonhtmlcommon::start_funclist();	my $funcs;
foreach my $link (@links) {	if ($env{'browser.mobile'}) {
$funcs .= &Apache::lonhtmlcommon::add_item_funclist(	my @functions;
'<a href="'.$link->[0].'" class="LC_menubuttons_link">'.	foreach my $link (@links) {
'<img src="/res/adm/pages/'.$link->[1].'.png" class="LC_icon" alt="'.$link->[2].'" />'.	push(@functions,[$link->[0],$link->[2]]);
$link->[2].'</a>');	}
	my $title = 'Display options';
	if ($env{'user.adv'}) {
	$title = 'Roles options';
	}
	$funcs = &Apache::lonmenu::create_submenu('','',$title,\@functions,1,'LC_breadcrumbs_hoverable');
	$funcs = '<ol class="LC_primary_menu LC_floatright">'.$funcs.'</ol>';
	} else {
	$funcs = &Apache::lonhtmlcommon::start_funclist();
	foreach my $link (@links) {
	$funcs .= &Apache::lonhtmlcommon::add_item_funclist(
	'<a href="'.$link->[0].'" class="LC_menubuttons_link">'.
	'<img src="/res/adm/pages/'.$link->[1].'.png" class="LC_icon" alt="'.$link->[2].'" />'.
	$link->[2].'</a>');
	}
	$funcs .= &Apache::lonhtmlcommon::end_funclist();
	$funcs = &Apache::loncommon::head_subbox($funcs);
}	}
$funcs .= &Apache::lonhtmlcommon::end_funclist();	return $funcs;
return &Apache::loncommon::head_subbox($funcs);
}	}

sub get_queued {	sub get_queued {
Line 2766 sub get_queued {	Line 2960 sub get_queued {
$env{'user.name'},'^status:');	$env{'user.name'},'^status:');
foreach my $key (keys(%statusinfo)) {	foreach my $key (keys(%statusinfo)) {
next unless (($statusinfo{$key} eq 'approval') \|\| ($statusinfo{$key} eq 'pending'));	next unless (($statusinfo{$key} eq 'approval') \|\| ($statusinfo{$key} eq 'pending'));
(undef,my($cdom,$cnum)) = split(':',$key);	(undef,my($cdom,$cnum)) = split(/:/,$key);
my $requestkey = $cdom.'_'.$cnum;	my $requestkey = $cdom.'_'.$cnum;
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {	if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
my %history = &Apache::lonnet::restore($requestkey,'courserequests',	my %history = &Apache::lonnet::restore($requestkey,'courserequests',
Line 2782 sub get_queued {	Line 2976 sub get_queued {
if (ref($history{'details'}) eq 'HASH') {	if (ref($history{'details'}) eq 'HASH') {
$description = $history{details}{'cdescr'};	$description = $history{details}{'cdescr'};
}	}
@{$reqcrs{$reqtime}} = ($description,$showtype);	@{$reqcrs{$reqtime}} = ($description,$showtype);
}	}
}	}
my @sortedtimes = sort {$a <=> $b} (keys(%reqcrs));	my @sortedtimes = sort {$a <=> $b} (keys(%reqcrs));
Line 2816 sub get_queued {	Line 3010 sub get_queued {
if (($status eq 'approval') \|\| ($status eq 'approved')) {	if (($status eq 'approval') \|\| ($status eq 'approved')) {
$output .= '<p><b>'.&mt('Author role request').'</b><br />';	$output .= '<p><b>'.&mt('Author role request').'</b><br />';
if ($status eq 'approval') {	if ($status eq 'approval') {
$output .= &mt('A request for authoring space submitted on [_1] is awaiting approval',	$output .= &mt('A request for Authoring Space submitted on [_1] is awaiting approval',
&Apache::lonlocal::locallocaltime($timestamp));	&Apache::lonlocal::locallocaltime($timestamp));
} elsif ($status eq 'approved') {	} elsif ($status eq 'approved') {
my %roleshash =	my %roleshash =

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.269.2.15
changed lines
	Added in v.1.327