loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.296 and 1.344

version 1.296, 2014/02/23 19:06:18	version 1.344, 2020/12/18 15:23:03
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;

	my $registered_cleanup;
	my $rosterupdates;

sub redirect_user {	sub redirect_user {
my ($r,$title,$url,$msg) = @_;	my ($r,$title,$url,$msg) = @_;
Line 152 sub redirect_user {	Line 155 sub redirect_user {
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;

# Breadcrumbs	my $start_page;
my $brcrum = [{'href' => $url,	if ($env{'request.lti.login'}) {
'text' => 'Switching Role'},];	$start_page = &Apache::loncommon::start_page(undef,undef,
my $start_page = &Apache::loncommon::start_page('Switching Role',undef,	{'redirect' => [0,$url],}).$msg;
{'redirect' => [1,$url],	} else {
'bread_crumbs' => $brcrum,});	# Breadcrumbs
my $end_page = &Apache::loncommon::end_page();	my $brcrum = [{'href' => $url,
	'text' => 'Switching Role'},];
	$start_page = &Apache::loncommon::start_page('Switching Role',undef,
	{'redirect' => [1,$url],
	'bread_crumbs' => $brcrum,}).
	"\n<p>$msg</p>";
	}
	my $end_page = &Apache::loncommon::end_page();

# Note to style police:	# Note to style police:
# This must only replace the spaces, nothing else, or it bombs elsewhere.	# This must only replace the spaces, nothing else, or it bombs elsewhere.
$url=~s/ /\%20/g;	$url=~s/ /\%20/g;
$r->print(<<ENDREDIR);	$r->print(<<ENDREDIR);
$start_page	$start_page
<p>$msg</p>
$end_page	$end_page
ENDREDIR	ENDREDIR
return;	return;
Line 202 sub handler {	Line 211 sub handler {

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

	# Check for critical messages and redirect if present.
	my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'roles');
	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 213 sub handler {	Line 230 sub handler {
$update = $then;	$update = $then;
}	}

	$registered_cleanup=0;
	@{$rosterupdates}=();
&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
Line 246 sub handler {	Line 265 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'}) {
	if (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq '')) {
	if ($env{'form.ltitarget'} eq 'iframe') {
	&Apache::lonnet::appenv({'request.lti.target' => 'iframe'});
	delete($env{'form.ltitarget'});
	}
	}

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 278 sub handler {	Line 312 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);
Line 374 sub handler {	Line 453 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 443 sub handler {	Line 505 sub handler {
my $end_page=&Apache::loncommon::end_page();	my $end_page=&Apache::loncommon::end_page();
my $buttontext=&mt('Enter Course');	my $buttontext=&mt('Enter Course');
my $message=&mt('Successfully registered key');	my $message=&mt('Successfully registered key');
	my $ip = &Apache::lonnet::get_requestor_ip();
my $assignresult=	my $assignresult=
&Apache::lonnet::assign_access_key(	&Apache::lonnet::assign_access_key(
$env{'form.newkey'},	$env{'form.newkey'},
Line 451 sub handler {	Line 514 sub handler {
$env{'user.domain'},	$env{'user.domain'},
$env{'user.name'},	$env{'user.name'},
&mt('Assigned from [_1] at [_2] for [_3]'	&mt('Assigned from [_1] at [_2] for [_3]'
,$ENV{'REMOTE_ADDR'}	,$ip
,&Apache::lonlocal::locallocaltime()	,&Apache::lonlocal::locallocaltime()
,$trolecode)	,$trolecode)
);	);
Line 510 ENDENTERKEY	Line 573 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 519 ENDENTERKEY	Line 582 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) {
	&Apache::lonnet::appenv({'request.course.timechecked'=>$now});
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'}.
':'.$csec.':'.$role => $now},$cdom,$cnum);	':'.$csec.':'.$role => $now},$cdom,$cnum);
}	}
	if (($env{"environment.internal.$cdom.$cnum.$role.adhoc"}) &&
	(&Apache::lonnet::allowed('vxc',$cdom.'_'.$cnum))) {
	my $owner = $env{'course.'.$cdom.'_'.$cnum.'.internal.courseowner'};
	my @coowners = split(/,/,$env{'course.'.$env{'request.course.id'}.'.internal.co-owners'});
	my %auaccess;
	foreach my $user ($owner,@coowners) {
	my ($cpname,$cpdom) = split(/:/,$user);
	my %auroles = &Apache::lonnet::get_my_roles($cpname,$cpdom,'userroles',undef,['au','ca','aa'],[$cdom]);
	foreach my $key (keys(%auroles)) {
	my ($auname,$audom,$aurole) = split(/:/,$key);
	if ($aurole eq 'au') {
	$auaccess{$cpname} = 1;
	} else {
	$auaccess{$auname} = 1;
	}
	}
	}
	&Apache::lonnet::appenv({'request.course.adhocsrcaccess' => join(',',sort(keys(%auaccess))) });
	}
my ($feeds,$syllabus_time);	my ($feeds,$syllabus_time);
&Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);	&Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);
&Apache::lonnet::appenv({'request.course.feeds' => $feeds});	&Apache::lonnet::appenv({'request.course.feeds' => $feeds});
Line 568 ENDENTERKEY	Line 660 ENDENTERKEY
$cdom.'_'.$cnum);	$cdom.'_'.$cnum);
}	}
}	}
	if (($env{'request.lti.login'}) &&
	($env{'request.lti.rosterid'} \|\| $env{'request.lti.passbackid'})) {
	&process_lti($r,$cdom,$cnum);
	}
$r->internal_redirect($dest);	$r->internal_redirect($dest);
}	}
return OK;	return OK;
Line 589 ENDENTERKEY	Line 685 ENDENTERKEY
if (($ferr) && ($tadv)) {	if (($ferr) && ($tadv)) {
&error_page($r,$ferr,$furl);	&error_page($r,$ferr,$furl);
} else {	} else {
	if (($env{'request.lti.login'}) &&
	($env{'request.lti.rosterid'} \|\| $env{'request.lti.passbackid'})) {
	&process_lti($r,$cdom,$cnum);
	}
# 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 613 ENDENTERKEY	Line 719 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) {
	unless (&Apache::lonnet::uses_sts()) {
	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);
Line 645 ENDENTERKEY	Line 762 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]',	my $title;
$env{'course.'.$courseid.'.description'}),	unless ($env{'request.lti.login'}) {
$dest, $msg);	$title = &mt('Entering [_1]',
	$env{'course.'.$cdom.'_'.$cnum.'.description'});
	}
	&redirect_user($r,$title,$dest,$msg);
return OK;	return OK;
}	}
if (&Apache::lonnet::allowed('whn',	if (&Apache::lonnet::allowed('whn',
Line 659 ENDENTERKEY	Line 779 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
$msg = &mt('Entering [_1] ...',	my ($exturl,$symb) = ($furl =~ m{^(.+)(?:\?\|\&)symb=(.+)$});
$env{'course.'.$courseid.'.description'});	# Unencode $symb
&redirect_user($r, &mt('Entering [_1]',	$symb = &unescape($symb);
$env{'course.'.$courseid.'.description'}),	# Then check for permission
$furl, $msg);	$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';
	}
	my $title;
	if ($env{'request.lti.login'}) {
	undef($msg);
	} else {
	$title = &mt('Entering [_1]',
	$env{'course.'.$cdom.'_'.$cnum.'.description'});
	$msg = &mt('Entering [_1] ...',
	$env{'course.'.$cdom.'_'.$cnum.'.description'});
	}
	&redirect_user($r,$title,$furl,$msg);
}	}
return OK;	return OK;
}	}
Line 703 ENDENTERKEY	Line 842 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 739 ENDENTERKEY	Line 890 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 883 ENDHEADER	Line 1071 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'},'"<>&');
Line 907 ENDHEADER	Line 1109 ENDHEADER

# No active roles	# No active roles
if ($countactive==0) {	if ($countactive==0) {
if ($inrole) {	my $elapsed = 0;
$r->print('<h2>'.&mt('Currently no additional roles, courses or communities').'</h2>');	if ($now && $update) {
} else {	$elapsed = $now - $update;
$r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>');	}
}	&requestcourse_advice($r,$cattype,$inrole,$elapsed);
&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 942 ENDHEADER	Line 1142 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) \|\| (($numhelpdesk > 0) && ($numadhoc > 0))) {
	$r->print(&coursepick_jscript().
	&Apache::loncommon::coursebrowser_javascript());
	}
if ($numdc > 0) {	if ($numdc > 0) {
$r->print(&coursepick_jscript());	$r->print(&Apache::loncommon::authorbrowser_javascript());
$r->print(&Apache::loncommon::coursebrowser_javascript().
&Apache::loncommon::authorbrowser_javascript());
}	}

unless ((!&Apache::loncommon::show_course()) \|\| ($nochoose) \|\| ($countactive==1)) {	unless ((!&Apache::loncommon::show_course()) \|\| ($nochoose) \|\| ($countactive==1)) {
Line 978 ENDHEADER	Line 1190 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 1009 ENDHEADER	Line 1223 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 1054 ENDHEADER	Line 1268 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 1089 sub gather_roles {	Line 1299 sub gather_roles {
my $advanced = $env{'user.adv'};	my $advanced = $env{'user.adv'};
my $tryagain = $env{'form.tryagain'};	my $tryagain = $env{'form.tryagain'};
my @ids = &Apache::lonnet::current_machine_ids();	my @ids = &Apache::lonnet::current_machine_ids();
	my (%willtrust,%trustchecked);
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 1141 sub gather_roles {	Line 1353 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
if (($role eq 'ca') \|\| ($role eq 'aa')) {	if (($role eq 'ca') \|\| ($role eq 'aa')) {
my $home = &Apache::lonnet::homeserver($trest,$tdom);	my $home = &Apache::lonnet::homeserver($trest,$tdom);
my $allowed=0;	my $allowed=0;
	my $prohibited;
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }	foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
if (!$allowed) {	if (!$allowed) {
$button=0;	$button=0;
$switchserver='otherserver='.$home.'&role='.$trolecode;	unless ($trustchecked{$tdom}) {
	if ((&Apache::lonnet::will_trust('othcoau',$env{'user.domain'},$tdom)) &&
	(&Apache::lonnet::will_trust('coaurem',$tdom,$env{'user.domain'}))) {
	$willtrust{$tdom} = 1;
	$trustchecked{$tdom} = 1;
	}
	}
	if ($willtrust{$tdom}) {
	$switchserver='otherserver='.$home.'&role='.$trolecode;
	} else {
	$prohibited = 1;
	$tremark .= &mt('Session switch required but prohibited.');
	}
}	}
#next if ($home eq 'no_host');	#next if ($home eq 'no_host');
$home = &Apache::lonnet::hostname($home);	$home = &Apache::lonnet::hostname($home);
Line 1165 sub gather_roles {	Line 1393 sub gather_roles {
': '.$tdom.'<br />'.	': '.$tdom.'<br />'.
' '.&mt('Server').': '.$home;	' '.&mt('Server').': '.$home;
$env{'course.'.$tdom.'_'.$trest.'.description'}='ca';	$env{'course.'.$tdom.'_'.$trest.'.description'}='ca';
$tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$trest.'/');	unless ($prohibited) {
	$tremark.=&Apache::lonhtmlcommon::authorbombs('/res/'.$tdom.'/'.$trest.'/');
	}
$sortkey=$role."$trest:$tdom";	$sortkey=$role."$trest:$tdom";
} elsif ($role eq 'au') {	} elsif ($role eq 'au') {
# Authors	# Authors
Line 1188 sub gather_roles {	Line 1418 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 1202 sub gather_roles {	Line 1457 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 1225 sub gather_roles {	Line 1480 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 1236 sub gather_roles {	Line 1491 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 1254 sub gather_roles {	Line 1513 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 1326 sub roletable_headers {	Line 1586 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 1352 sub roletable_headers {	Line 1612 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 1375 sub print_rolerows {	Line 1635 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 1401 sub print_rolerows {	Line 1663 sub print_rolerows {
}	}

sub findcourse_advice {	sub findcourse_advice {
my ($r) = @_;	my ($r,$cattype,$elapsed) = @_;
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'})) {
$r->print(&mt('If you were expecting to see an active role listed for a particular course in the [_1] domain, it may be missing for one of the following reasons:',$domdesc).'	$r->print('<p>'.&mt('If you were expecting to see an active role listed for a particular course in the [_1] domain, it may be missing for one of the following reasons:',$domdesc).'
<ul>	<ul>
<li>'.&mt('The course has yet to be created.').'</li>	<li>'.&mt('The course has yet to be created.').'</li>
<li>'.&mt('Automatic enrollment of registered students has not been enabled for the course.').'</li>	<li>'.&mt('Automatic enrollment of registered students has not been enabled for the course.').'</li>
<li>'.&mt('You are in a section of course for which automatic enrollment in the corresponding LON-CAPA course is not active.').'</li>	<li>'.&mt('You are in a section of course for which automatic enrollment in the corresponding LON-CAPA course is not active.').'</li>
<li>'.&mt('The start date for automated enrollment has yet to be reached.').'</li>	<li>'.&mt('The start date for automated enrollment has yet to be reached.').'</li>
<li>'.&mt('You registered for the course recently and there is a time lag between the time you register, and the time this information becomes available for the update of LON-CAPA course rosters.').'</li>	<li>'.&mt('You registered for the course recently and there is a time lag between the time you register, and the time this information becomes available for the update of LON-CAPA course rosters.').'</li>
</ul>');	<li>'.&mt('Automated enrollment added you to the course in the time since you last logged-in.').' '.&mt('If that is the case you can use the "Check for changes" link in the gray Functions bar to update the list of your available course roles.').'</li>
	</ul></p>');
} 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('<p>'.&mt('If you were expecting to see an active role listed for a particular course, that course may not have been created yet.').'</p>');
	if ($elapsed > 600) {
	$r->print('<p>'.&mt('You may also have been assigned to a course in the time since you last logged-in, or checked for changes').
	'<br />'.
	&mt('If that is the case you can use the "Check for changes" link in the gray Functions bar to update the list of your available course roles.').'</p>');
	}
	}
	if (($cattype eq 'std') \|\| ($cattype eq 'domonly')) {
	$r->print('<h3>'.&mt('Self-Enrollment').'</h3>'.
	'<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(&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());
}	}
$r->print('<h3>'.&mt('Self-Enrollment').'</h3>'.
'<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(&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,$elapsed) = @_;
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 1469 sub requestcourse_advice {	Line 1736 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,$elapsed);
}	}
return;	return;
}	}
Line 1532 sub privileges_info {	Line 1816 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,
my ($roletext,$roletext_end);	$tpstart,$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning,$skipcal) = @_;
my $is_dc=($trolecode =~ m/^dc\./);	my ($roletext,$roletext_end,$poss_adhoc);
my $rowspan=($is_dc) ? ''	if ($trolecode =~ m/^d(c\|h\|a)\./) {
	$poss_adhoc = 1;
	}
	my $rowspan=($poss_adhoc) ? ''
: ' rowspan="2" ';	: ' rowspan="2" ';

unless ($nochoose) {	unless ($nochoose) {
Line 1588 sub build_roletext {	Line 1875 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 1596 sub build_roletext {	Line 1883 sub build_roletext {
.'<td>'.$twhere.'</td>'	.'<td>'.$twhere.'</td>'
.'<td>'.$tpstart.'</td>'	.'<td>'.$tpstart.'</td>'
.'<td>'.$tpend.'</td>';	.'<td>'.$tpend.'</td>';
if (!$is_dc) {	unless ($poss_adhoc) {
$roletext_end = '<td colspan="4">'.	$roletext_end = '<td colspan="4">'.
$tremark.' '.	$tremark.' '.
'</td>';	'</td>';
Line 1604 sub build_roletext {	Line 1891 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 1639 sub check_author_homeserver {	Line 1908 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;
if ($env{'user.adv'}) {	my $numhelpdesk = 0;
foreach my $envkey (sort keys %env) {	my $numadhoc = 0;
if ($envkey=~/^user\.role\.dc\.\/($match_domain)\/$/) {	my $num_custom_adhoc = 0;
my $dcdom = $1;	if (($env{'user.adv'}) \|\| ($env{'user.rar'})) {
my $livedc = 1;	foreach my $envkey (sort(keys(%env))) {
	if ($envkey=~/^user\.role\.(dc\|dh\|da)\.\/($match_domain)\/$/) {
	my $role = $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 1687 sub adhoc_course_role {	Line 1971 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 1702 sub adhoc_course_role {	Line 1986 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 1752 sub check_forcc {	Line 2042 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 1838 function verifyCoursePick(caller) {	Line 2078 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 1880 sub display_cc_role {	Line 2120 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 1891 sub display_cc_role {	Line 2132 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 1903 sub display_cc_role {	Line 2145 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 1917 sub adhoc_roles_row {	Line 2160 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 2233 sub update_session_roles {	Line 2500 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 2603 sub role_desc {	Line 2871 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 2715 sub is_active_course {	Line 2983 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 2741 sub get_roles_functions {	Line 3009 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 2762 sub get_queued {	Line 3045 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 2841 sub get_queued {	Line 3124 sub get_queued {
$output.'</fieldset></div><br clear="all" />';	$output.'</fieldset></div><br clear="all" />';
}	}

	sub process_lti {
	my ($r,$cdom,$cnum) = @_;
	my %lti = &Apache::lonnet::get_domain_lti($cdom,'provider');
	my $uriscope = &LONCAPA::ltiutils::lti_provider_scope($env{'request.lti.uri'},
	$cdom,$cnum);
	my $lonhost = $r->dir_config('lonHostID');
	my $internet_names = &Apache::lonnet::get_internet_names($lonhost);
	if ($env{'request.lti.rosterid'} &&
	$env{'request.lti.rosterurl'}) {
	if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') {
	if ($lti{$env{'request.lti.login'}}{'roster'}) {
	my @lcroles = ('in','ta','ep','st');
	my @possibleroles;
	foreach my $role (@lcroles) {
	if (&Apache::lonnet::allowed('c'.$role,"$cdom/$cnum")) {
	push(@possibleroles,$role);
	}
	}
	my $owner = $env{'course.'.$cdom.'_'.$cnum.'.internal.courseowner'};
	if ($owner eq $env{'user.name'}.':'.$env{'user.domain'}) {
	my $crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
	if ($crstype eq 'Community') {
	unshift(@possibleroles,'co');
	} else {
	unshift(@possibleroles,'cc');
	}
	}
	if (@possibleroles) {
	push(@{$rosterupdates},{cid => $cdom.'_'.$cnum,
	lti => $env{'request.lti.login'},
	ltiref => $lti{$env{'request.lti.login'}},
	id => $env{'request.lti.rosterid'},
	url => $env{'request.lti.rosterurl'},
	sourcecrs => $env{'request.lti.sourcecrs'},
	uriscope => $uriscope,
	possroles => \@possibleroles,
	intdoms => $internet_names,
	});
	unless ($registered_cleanup) {
	my $handlers = $r->get_handlers('PerlCleanupHandler');
	$r->set_handlers('PerlCleanupHandler' =>
	[\&ltienroll,@{$handlers}]);
	$registered_cleanup=1;
	}
	}
	}
	}
	}
	if ($env{'request.lti.passbackid'} &&
	$env{'request.lti.passbackurl'}) {
	if (ref($lti{$env{'request.lti.login'}}) eq 'HASH') {
	if ($lti{$env{'request.lti.login'}}{'passback'}) {
	my ($pbnum,$error) =
	&LONCAPA::ltiutils::store_passbackurl($env{'request.lti.login'},
	$env{'request.lti.passbackurl'},
	$cdom,$cnum);
	if ($pbnum eq '') {
	$pbnum = $env{'request.lti.passbackurl'};
	}
	&Apache::lonnet::put('nohist_'.$cdom.'_'.$cnum.'_passback',
	{"$uriscope\0$env{'request.lti.sourcecrs'}\0$env{'request.lti.login'}" =>
	"$pbnum\0$env{'request.lti.passbackid'}"});
	}
	}
	}
	return;
	}

	sub ltienroll {
	if (ref($rosterupdates) eq 'ARRAY') {
	foreach my $item (@{$rosterupdates}) {
	if (ref($item) eq 'HASH') {
	&LONCAPA::ltiutils::batchaddroster($item);
	}
	}
	}
	}

1;	1;
__END__	__END__

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

Removed from v.1.296
changed lines
	Added in v.1.344