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.197 and 1.223

version 1.197, 2008/07/04 19:26:35	version 1.223, 2009/05/18 15:40:20
Line 27	Line 27
#	#
###	###

	=pod

	=head1 NAME

	Apache::lonroles - User Roles Screen

	=head1 SYNOPSIS

	Invoked by /etc/httpd/conf/srm.conf:

	<Location /adm/roles>
	PerlAccessHandler Apache::lonacc
	SetHandler perl-script
	PerlHandler Apache::lonroles
	ErrorDocument 403 /adm/login
	ErrorDocument 500 /adm/errorhandler
	</Location>

	=head1 OVERVIEW

	=head2 Choosing Roles

	C<lonroles> is a handler that allows a user to switch roles in
	mid-session. LON-CAPA attempts to work with "No Role Specified", the
	default role that a user has before selecting a role, as widely as
	possible, but certain handlers for example need specification which
	course they should act on, etc. Both in this scenario, and when the
	handler determines via C<lonnet>'s C<&allowed> function that a certain
	action is not allowed, C<lonroles> is used as error handler. This
	allows the user to select another role which may have permission to do
	what they were trying to do. C<lonroles> can also be accessed via the
	B<CRS> button in the Remote Control.

	=begin latex

	\begin{figure}
	\begin{center}
	\includegraphics[width=0.45\paperwidth,keepaspectratio]{Sample_Roles_Screen}
	\caption{\label{Sample_Roles_Screen}Sample Roles Screen}
	\end{center}
	\end{figure}

	=end latex

	=head2 Role Initialization

	The privileges for a user are established at login time and stored in the session environment. As a consequence, a new role does not become active till the next login. Handlers are able to query for privileges using C<lonnet>'s C<&allowed> function. When a user first logs in, their role is the "common" role, which means that they have the sum of all of their privileges. During a session it might become necessary to choose a particular role, which as a consequence also limits the user to only the privileges in that particular role.

	=head1 INTRODUCTION

	This module enables a user to select what role he wishes to
	operate under (instructor, student, teaching assistant, course
	coordinator, etc). These roles are pre-established by the actions
	of upper-level users.

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head1 HANDLER SUBROUTINE

	This routine is called by Apache and mod_perl.

	=over 4

	=item *

	Roles Initialization (yes/no)

	=item *

	Get Error Message from Environment

	=item *

	Who is this?

	=item *

	Generate Page Output

	=item *

	Choice or no choice

	=item *

	Table

	=item *

	Privileges

	=back

	=cut


package Apache::lonroles;	package Apache::lonroles;

use strict;	use strict;
Line 43 use Apache::lonpageflip();	Line 140 use Apache::lonpageflip();
use Apache::lonnavdisplay();	use Apache::lonnavdisplay();
use GDBM_File;	use GDBM_File;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
	use HTML::Entities;


sub redirect_user {	sub redirect_user {
Line 72 $start_page	Line 170 $start_page
$swinfo	$swinfo
</script>	</script>
$navwindow	$navwindow
<h1>$msg</h1>	<p>$msg</p>
$end_page	$end_page
ENDREDIR	ENDREDIR
return;	return;
Line 138 sub handler {	Line 236 sub handler {
if (my ($domain,$coursenum) =	if (my ($domain,$coursenum) =
($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) {	($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) {
if ($dcroles{$domain}) {	if ($dcroles{$domain}) {
&check_privs($domain,$coursenum,$then,$now,'cc');	&Apache::lonnet::check_adhoc_privs($domain,$coursenum,
	$then,$now,'cc');
}	}
last;	last;
}	}
# Is this an ad-hoc CA-role?	# Is this an ad-hoc CA-role?
if (my ($domain,$user) =	if (my ($domain,$user) =
($envkey =~ m-^form\.ca\./($match_domain)/($match_username)$-)) {	($envkey =~ m-^form\.ca\./($match_domain)/($match_username)$-)) {
# Check if author blocked ca-access	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);
	if ($server_status eq 'switchserver') {
	my $trolecode = 'au./'.$domain.'/';
	my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;
	$r->internal_redirect($switchserver);
	}
	last;
	}
	if (my ($castart,$caend) = ($env{'user.role.ca./'.$domain.'/'.$user} =~ /^(\d)\.(\d)$/)) {
	if (((($castart) && ($castart < $now)) \|\| !$castart) &&
	((!$caend) \|\| (($caend) && ($caend > $now)))) {
	my ($server_status,$home) = &check_author_homeserver($user,$domain);
	if ($server_status eq 'switchserver') {
	my $trolecode = 'ca./'.$domain.'/'.$user;
	my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;
	$r->internal_redirect($switchserver);
	}
	last;
	}
	}
	# Check if author blocked ca-access
my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],$domain,$user);	my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],$domain,$user);
if ($blocked{'domcoord.author'} eq 'blocked') {	if ($blocked{'domcoord.author'} eq 'blocked') {
delete($env{$envkey});	delete($env{$envkey});
$env{'user.error.msg'}=':::1:User '.$user.' in domain '.$domain.' blocked domain coordinator access';	$env{'user.error.msg'}=':::1:User '.$user.' in domain '.$domain.' blocked domain coordinator access';
last;	last;
}	}
if ($dcroles{$domain}) {	if ($dcroles{$domain}) {
my ($server_status,$home) = &check_author_homeserver($user,$domain);	my ($server_status,$home) = &check_author_homeserver($user,$domain);
if (($server_status eq 'ok') \|\| ($server_status eq 'switchserver')) {	if (($server_status eq 'ok') \|\| ($server_status eq 'switchserver')) {
&check_privs($domain,$user,$then,$now,'ca');	&Apache::lonnet::check_adhoc_privs($domain,$user,$then,
	$now,'ca');
if ($server_status eq 'switchserver') {	if ($server_status eq 'switchserver') {
my $trolecode = 'ca./'.$domain.'/'.$user;	my $trolecode = 'ca./'.$domain.'/'.$user;
my $switchserver = '/adm/switchserver?'	my $switchserver = '/adm/switchserver?'
Line 176 sub handler {	Line 299 sub handler {
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);
&role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);	&Apache::lonnet::role_status($envkey,$then,$now,\$role,\$where,
	\$trolecode,\$tstatus,\$tstart,\$tend);
if ($env{'form.'.$trolecode}) {	if ($env{'form.'.$trolecode}) {
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$where=~s/^\///;	$where=~s/^\///;
Line 228 sub handler {	Line 352 sub handler {
$cdom,$cnum,	$cdom,$cnum,
$env{'user.domain'},	$env{'user.domain'},
$env{'user.name'},	$env{'user.name'},
'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '.	&mt('Assigned from [_1] at [_2] for [_3]'
$trolecode);	,$ENV{'REMOTE_ADDR'}
	,&Apache::lonlocal::locallocaltime()
	,$trolecode)
	);
unless ($assignresult eq 'ok') {	unless ($assignresult eq 'ok') {
$assignresult=~s/^error\:\s*//;	$assignresult=~s/^error\:\s*//;
$message=&mt($assignresult).	$message=&mt($assignresult).
Line 245 $swinfo	Line 372 $swinfo
<form method="post">	<form method="post">
<input type="hidden" name="selectrole" value="1" />	<input type="hidden" name="selectrole" value="1" />
<input type="hidden" name="$trolecode" value="1" />	<input type="hidden" name="$trolecode" value="1" />
<font size="+2">$message</font><br />	<span class="LC_fontsize_large">$message</span><br />
<input type="submit" value="$buttontext" />	<input type="submit" value="$buttontext" />
</form>	</form>
$end_page	$end_page
Line 296 ENDENTERKEY	Line 423 ENDENTERKEY
if (($env{'form.orgurl'}) &&	if (($env{'form.orgurl'}) &&
($env{'form.orgurl'}!~/^\/adm\/flip/)) {	($env{'form.orgurl'}!~/^\/adm\/flip/)) {
my $dest=$env{'form.orgurl'};	my $dest=$env{'form.orgurl'};
	if ($env{'form.symb'}) {
	if ($dest =~ /\?/) {
	$dest .= '&';
	} else {
	$dest .= '?'
	}
	$dest .= 'symb='.$env{'form.symb'};
	}
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }	if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
&Apache::lonnet::appenv({'request.role.adv'=>$tadv});	&Apache::lonnet::appenv({'request.role.adv'=>$tadv});
if (($ferr) && ($tadv)) {	if (($ferr) && ($tadv)) {
Line 309 ENDENTERKEY	Line 444 ENDENTERKEY
&Apache::lonnet::appenv(	&Apache::lonnet::appenv(
{"request.course.id" => $cdom.'_'.$cnum});	{"request.course.id" => $cdom.'_'.$cnum});
$furl='/adm/roles?tryagain=1';	$furl='/adm/roles?tryagain=1';
$msg=	$msg='<p><span class="LC_error">'
'<h1><span class="LC_error">'.	.&mt('Could not initialize [_1] at this time.',
&mt('Could not initialize [_1] at this time.',	$env{'course.'.$cdom.'_'.$cnum.'.description'})
$env{'course.'.$cdom.'_'.$cnum.'.description'}).	.'</span></p>'
'</span></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr;	.'<p>'.&mt('Please try again.').'</p>'
	.'<p>'.$ferr.'</p>';
}	}
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }	if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
&Apache::lonnet::appenv({'request.role.adv'=>$tadv});	&Apache::lonnet::appenv({'request.role.adv'=>$tadv});
Line 335 ENDENTERKEY	Line 471 ENDENTERKEY
} elsif ($env{'request.course.id'}) {	} elsif ($env{'request.course.id'}) {
if ($env{'form.destinationurl'}) {	if ($env{'form.destinationurl'}) {
my $dest = $env{'form.destinationurl'};	my $dest = $env{'form.destinationurl'};
	if ($env{'form.destsymb'} ne '') {
	my $esc_symb = &HTML::Entities::encode($env{'form.destsymb'},'"<>&');
	$dest .= '?symb='.$esc_symb;
	}
&redirect_user($r,&mt('Entering [_1]',	&redirect_user($r,&mt('Entering [_1]',
$env{'course.'.$courseid.'.description'}),	$env{'course.'.$courseid.'.description'}),
$dest,$msg,	$dest,$msg,
Line 349 ENDENTERKEY	Line 489 ENDENTERKEY
) {	) {
my $startpage = &courseloadpage($courseid);	my $startpage = &courseloadpage($courseid);
unless ($startpage eq 'firstres') {	unless ($startpage eq 'firstres') {
$msg = &mt('Entering [_1] ....',	$msg = &mt('Entering [_1] ...',
$env{'course.'.$courseid.'.description'});	$env{'course.'.$courseid.'.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,
Line 394 ENDENTERKEY	Line 534 ENDENTERKEY
$redirect_url);	$redirect_url);
return OK;	return OK;
}	}
	if ($role eq 'sc') {
	my $redirect_url = '/adm/grades?command=scantronupload';
	&redirect_user($r,&mt('Loading Data Upload Page'),
	$redirect_url);
	return OK;
	}
}	}
}	}
}	}
Line 407 ENDENTERKEY	Line 553 ENDENTERKEY
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

	my $brcrum =[{href=>"/admm/roles",text=>"User Roles"}];
my $swinfo=&Apache::lonmenu::rawconfig();	my $swinfo=&Apache::lonmenu::rawconfig();
my $start_page=&Apache::loncommon::start_page('User Roles');	my $start_page=&Apache::loncommon::start_page('My Roles',undef,{bread_crumbs=>$brcrum});
my $standby=&mt('Role selected. Please stand by.');	my $standby=&mt('Role selected. Please stand by.');
$standby=~s/\n/\\n/g;	$standby=~s/\n/\\n/g;
my $noscript='<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='<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 />';
Line 452 ENDHEADER	Line 599 ENDHEADER
my $advanced=$env{'user.adv'};	my $advanced=$env{'user.adv'};
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['tryagain']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['tryagain']);
my $tryagain=$env{'form.tryagain'};	my $tryagain=$env{'form.tryagain'};
	my $reinit=$env{'user.reinit'};
	delete $env{'user.reinit'};

# -------------------------------------------------------- Generate Page Output	# -------------------------------------------------------- Generate Page Output
# --------------------------------------------------------------- Error Header?	# --------------------------------------------------------------- Error Header?
Line 481 ENDHEADER	Line 630 ENDHEADER
&Apache::lonenc::check_encrypt($fn));	&Apache::lonenc::check_encrypt($fn));
} else {	} else {
if ($env{'user.error.msg'}) {	if ($env{'user.error.msg'}) {
$r->print(	if ($reinit) {
	$r->print(
	'<h3><span class="LC_error">'.
	&mt('As your session file for the course has expired, you will need to re-select the course.').'</span></h3>');
	} else {
	$r->print(
'<h3><span class="LC_error">'.	'<h3><span class="LC_error">'.
&mt('You need to choose another user role or enter a specific course for this function').'</span></h3>');	&mt('You need to choose another user role or enter a specific course for this function').'</span></h3>');
}	}
	}
}	}
# -------------------------------------------------------- Choice or no choice?	# -------------------------------------------------------- Choice or no choice?
if ($nochoose) {	if ($nochoose) {
Line 509 ENDHEADER	Line 664 ENDHEADER
my $possiblerole='';	my $possiblerole='';
my %futureroles;	my %futureroles;
my %roles_nextlogin;	my %roles_nextlogin;
	my %timezones;
foreach $envkey (sort keys %env) {	foreach $envkey (sort keys %env) {
my $button = 1;	my $button = 1;
my $switchserver='';	my $switchserver='';
my $roletext;	my ($roletext,$roletext_end);
my $sortkey;	my $sortkey;
if ($envkey=~/^user\.role\./) {	if ($envkey=~/^user\.role\./) {
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);	my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend);
&role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);	&Apache::lonnet::role_status($envkey,$then,$now,\$role,\$where,
	\$trolecode,\$tstatus,\$tstart,\$tend);
next if (!defined($role) \|\| $role eq '' \|\| $role =~ /^gr/);	next if (!defined($role) \|\| $role eq '' \|\| $role =~ /^gr/);
	my $timezone = &role_timezone($where,\%timezones);
$tremark='';	$tremark='';
$tpstart=' ';	$tpstart=' ';
$tpend=' ';	$tpend=' ';
$tfont='#000000';
if ($tstart) {	if ($tstart) {
$tpstart=&Apache::lonlocal::locallocaltime($tstart);	$tpstart=&Apache::lonlocal::locallocaltime($tstart,$timezone);
}	}
if ($tend) {	if ($tend) {
$tpend=&Apache::lonlocal::locallocaltime($tend);	$tpend=&Apache::lonlocal::locallocaltime($tend,$timezone);
}	}
if ($env{'request.role'} eq $trolecode) {	if ($env{'request.role'} eq $trolecode) {
$tstatus='selected';	$tstatus='selected';
Line 538 ENDHEADER	Line 695 ENDHEADER
\|\| ($tstatus eq 'future')	\|\| ($tstatus eq 'future')
\|\| ($env{'form.showall'})) {	\|\| ($env{'form.showall'})) {
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$tbg='#77FF77';	$tbg='LC_roles_is';
$tfont='#003300';
$possiblerole=$trolecode;	$possiblerole=$trolecode;
$countactive++;	$countactive++;
} elsif ($tstatus eq 'future') {	} elsif ($tstatus eq 'future') {
$tbg='#FFFF77';	$tbg='LC_roles_future';
$button=0;	$button=0;
$futureroles{$trolecode} = $tstart.':'.$tend;	$futureroles{$trolecode} = $tstart.':'.$tend;
$countfuture ++;	$countfuture ++;
} elsif ($tstatus eq 'will') {	} elsif ($tstatus eq 'will') {
$tbg='#FFAA77';	$tbg='LC_roles_will';
$tremark.=&mt('Active at next login. ');	$tremark.=&mt('Active at next login.').' ';
$roles_nextlogin{$trolecode} = $tstart.':'.$tend;	$roles_nextlogin{$trolecode} = $tstart.':'.$tend;
$countwill ++;	$countwill ++;
} elsif ($tstatus eq 'expired') {	} elsif ($tstatus eq 'expired') {
$tbg='#FF7777';	$tbg='LC_roles_expired';
$tfont='#330000';
$button=0;	$button=0;
} elsif ($tstatus eq 'will_not') {	} elsif ($tstatus eq 'will_not') {
$tbg='#AAFF77';	$tbg='LC_roles_will_not';
$tremark.=&mt('Expired after logout. ');	$tremark.=&mt('Expired after logout.').' ';
} elsif ($tstatus eq 'selected') {	} elsif ($tstatus eq 'selected') {
$tbg='#11CC55';	$tbg='LC_roles_selected';
$tfont='#002200';
$inrole=1;	$inrole=1;
$countactive++;	$countactive++;
$tremark.=&mt('Currently selected. ');	$tremark.=&mt('Currently selected.').' ';
}	}
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 />'; }	if ($tremark) { $tremark.='<br />'; }
$tremark.=&mt('Defined by ').$rauthor.	$tremark.=&mt('Defined by [_1] at [_2].',$rauthor,$rdomain);
&mt(' at ').$rdomain.'.';
}	}
$trole=Apache::lonnet::plaintext($role);	$trole=Apache::lonnet::plaintext($role);
my $ttype;	my $ttype;
Line 624 ENDHEADER	Line 777 ENDHEADER
$twhere=$env{'course.'.$tcourseid.'.description'};	$twhere=$env{'course.'.$tcourseid.'.description'};
$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;	$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey;
unless ($twhere eq &mt('Currently not available')) {	unless ($twhere eq &mt('Currently not available')) {
$twhere.=' <font size="-2">'.	$twhere.=' <span class="LC_fontsize_small">'.
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont).	&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom).
'</font>';	'</span>';
}	}
} else {	} else {
my %newhash=&Apache::lonnet::coursedescription($tcourseid);	my %newhash=&Apache::lonnet::coursedescription($tcourseid);
Line 634 ENDHEADER	Line 787 ENDHEADER
$sortkey=$role."\0".$tdom."\0".$newhash{'description'}.	$sortkey=$role."\0".$tdom."\0".$newhash{'description'}.
"\0".$envkey;	"\0".$envkey;
$twhere=$newhash{'description'}.	$twhere=$newhash{'description'}.
' <font size="-2">'.	' <span class="LC_fontsize_small">'.
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom,$tfont).	&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom).
'</font>';	'</span>';
$ttype = $newhash{'type'};	$ttype = $newhash{'type'};
$trole = &Apache::lonnet::plaintext($role,$ttype);	$trole = &Apache::lonnet::plaintext($role,$ttype);
} else {	} else {
Line 659 ENDHEADER	Line 812 ENDHEADER
$twhere=&mt('system wide');	$twhere=&mt('system wide');
$sortkey=$role.$twhere;	$sortkey=$role.$twhere;
}	}
$roletext.=&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver);	($roletext,$roletext_end) =
$roletext{$envkey}=$roletext;	&build_roletext($trolecode,$tdom,$trest,$tstatus,$tryagain,
	$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,
	$tpend,$nochoose,$button,$switchserver,$reinit);
	$roletext{$envkey}=[$roletext,$roletext_end];
if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}	if (!$sortkey) {$sortkey=$twhere."\0".$envkey;}
$sortrole{$sortkey}=$envkey;	$sortrole{$sortkey}=$envkey;
$roleclass{$envkey}=$ttype;	$roleclass{$envkey}=$ttype;
Line 669 ENDHEADER	Line 825 ENDHEADER
}	}
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
$r->print(	$r->print(
'<br /><span class="LC_rolesinfo"><label>'.&mt('Show all roles').': <input type="checkbox" name="showall"');	'<p><label>'.&mt('Show all roles').': <input type="checkbox" name="showall"');
if ($env{'form.showall'}) { $r->print(' checked="checked" '); }	if ($env{'form.showall'}) { $r->print(' checked="checked" '); }
$r->print(' /></label><input type="submit" value="'.&mt('Display').'" /></span>');	$r->print(' /></label><input type="submit" value="'.&mt('Display').'" /></p>');
} else {	} else {
if ($countactive > 0) {	if ($countactive > 0) {
	&queued_selfenrollment($r);
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');	my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
$r->print('<p>'.&mt('[_1]Visit the [_2]Course Catalog[_3] to view all [_4] LON-CAPA courses.','<b>','<a href="/adm/coursecatalog">','</a></b>',$domdesc).'<br />'.&mt('If a course is [_1]not[_2] in your list of current courses below, you may be able to enroll if self-enrollment is permitted.','<b>','</b>').'</p>');	my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');
	$r->print('<p>'.&mt('[_1]Visit the [_2]Course Catalog[_3] to view all [_4] LON-CAPA courses.','<b>','<a href="/adm/coursecatalog?showdom='.$esc_dom.'">','</a></b>',$domdesc).'<br />'.&mt('If a course is [_1]not[_2] in your list of current courses below, you may be able to enroll if self-enrollment is permitted.','<b>','</b>').'</p>');
}	}
}	}

Line 695 ENDHEADER	Line 853 ENDHEADER
&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,	&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,
\%roletext);	\%roletext);
my $tremark='';	my $tremark='';
my $tfont='#003300';	my $tbg;
if ($env{'request.role'} eq 'cm') {	if ($env{'request.role'} eq 'cm') {
$r->print('<tr bgcolor="#11CC55">');	$tbg="LC_roles_selected";
$tremark=&mt('Currently selected. ');	$tremark=&mt('Currently selected.').' ';
$tfont='#002200';
} else {	} else {
$r->print('<tr bgcolor="#77FF77">');	$tbg="LC_roles_is";
}	}
$r->print('<td></td><td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').	$r->print(&Apache::loncommon::start_data_table_row()
'</span></font></td><td><font color="'.$tfont.'">'.$tremark.	.'<td class="'.$tbg.'"> </td>'
' </font></td></tr>'."\n");	.'<td colspan="3">'
	.&mt('No role specified')
	.'</td>'
	.'<td>'.$tremark.' </td>'
	.&Apache::loncommon::end_data_table_row()
	);

$r->print('</table>');	$r->print(&Apache::loncommon::end_data_table());
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
# Is there only one choice?
} elsif (($countactive==1) && ($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>');
$r->print("</form>\n");
$r->rflush();
$r->print('<script type="text/javascript">document.forms.rolechoice.submit();</script>');
$r->print(&Apache::loncommon::end_page());
return OK;
}	}
# More than one possible role
# ----------------------------------------------------------------------- Table	# ----------------------------------------------------------------------- Table
unless ((!&Apache::lonmenu::show_course()) \|\| ($nochoose)) {	unless ((!&Apache::lonmenu::show_course()) \|\| ($nochoose) \|\| ($countactive==1)) {
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");	$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");
}	}
my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose);	my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose);
Line 733 ENDHEADER	Line 884 ENDHEADER
&Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});	&Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});
my $output='';	my $output='';
foreach (sort(keys(%recent_roles))) {	foreach (sort(keys(%recent_roles))) {
if (defined($roletext{'user.role.'.$_})) {	if (ref($roletext{'user.role.'.$_}) eq 'ARRAY') {
$output.=$roletext{'user.role.'.$_};	$output.= &Apache::loncommon::start_data_table_row().
	$roletext{'user.role.'.$_}->[0].
	&Apache::loncommon::end_data_table_row().
	&Apache::loncommon::continue_data_table_row().
	$roletext{'user.role.'.$_}->[1].
	&Apache::loncommon::end_data_table_row();
if ($_ =~ m-dc\./($match_domain)/-	if ($_ =~ m-dc\./($match_domain)/-
&& $dcroles{$1}) {	&& $dcroles{$1}) {
$output .= &adhoc_roles_row($1,'recent');	$output .= &adhoc_roles_row($1,'recent');
Line 746 ENDHEADER	Line 902 ENDHEADER
}	}
}	}
if ($output) {	if ($output) {
$r->print("<tr><td align='center' colspan='5'><font face='arial'>".	$r->print(&Apache::loncommon::start_data_table_empty_row()
&mt('Recent Roles')."</font></td></tr>");	.'<td align="center" colspan="5">'
	.&mt('Recent Roles')
	.'</td>'
	.&Apache::loncommon::end_data_table_empty_row()
	);
$r->print($output);	$r->print($output);
$doheaders ++;	$doheaders ++;
}	}
Line 759 ENDHEADER	Line 919 ENDHEADER
&Apache::loncommon::authorbrowser_javascript());	&Apache::loncommon::authorbrowser_javascript());
}	}
&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,\%roletext);	&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,\%roletext);
my $tremark='';	if ($countactive > 1) {
my $tfont='#003300';	my $tremark='';
if ($env{'request.role'} eq 'cm') {	my $tbg;
$r->print('<tr bgcolor="#11CC55">');	if ($env{'request.role'} eq 'cm') {
$tremark=&mt('Currently selected. ');	$tbg="LC_roles_selected";
$tfont='#002200';	$tremark=&mt('Currently selected.').' ';
} else {	} else {
$r->print('<tr bgcolor="#77FF77">');	$tbg="LC_roles_is";
}	}
unless ($nochoose) {	$r->print(&Apache::loncommon::start_data_table_row());
if ($env{'request.role'} ne 'cm') {	unless ($nochoose) {
$r->print('<td><input type="submit" value="'.	if ($env{'request.role'} ne 'cm') {
&mt('Select').'" name="cm" /></td>');	$r->print('<td class="'.$tbg.'"><input type="submit" value="'.
} else {	&mt('Select').'" name="cm" /></td>');
$r->print('<td> </td>');	} else {
}	$r->print('<td class="'.$tbg.'"> </td>');
}	}
$r->print('<td colspan="3"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.&mt('No role specified').	}
'</span></font></td><td><font color="'.$tfont.'">'.$tremark.	$r->print('<td colspan="3">'
' </font></td></tr>'."\n");	.&mt('No role specified')
	.'</td>'
$r->print('</table>');	.'<td>'.$tremark.' </td>'
	.&Apache::loncommon::end_data_table_row()
	);
	}
	$r->print(&Apache::loncommon::end_data_table());
unless ($nochoose) {	unless ($nochoose) {
$r->print("</form>\n");	$r->print("</form>\n");
}	}
# ------------------------------------------------------------ Privileges Info	# ------------------------------------------------------------ Privileges Info
if (($advanced) && (($env{'user.error.msg'}) \|\| ($error))) {	if (($advanced) && (($env{'user.error.msg'}) \|\| ($error))) {
$r->print('<hr /><h2>Current Privileges</h2>');	$r->print('<hr /><h2>'.&mt('Current Privileges').'</h2>');
$r->print(&privileges_info());	$r->print(&privileges_info());
}	}
$r->print(&Apache::lonnet::getannounce());	$r->print(&Apache::lonnet::getannounce());
if ($advanced) {	if ($advanced) {
	my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&');
$r->print('<p><small><i>'	$r->print('<p><small><i>'
.&mt('This is LON-CAPA [_1]',$r->dir_config('lonVersion'))	.&mt('This is LON-CAPA [_1]',$r->dir_config('lonVersion'))
.'</i><br />'	.'</i><br />'
.'<a href="/adm/logout">'.&mt('Logout').'</a>  '	.'<a href="/adm/logout">'.&mt('Logout').'</a>  '
.'<a href="/adm/coursecatalog">'.&mt('Course Catalog')	.'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">'
	.&mt('Course Catalog')
.'</small></p>');	.'</small></p>');
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
}	}

	sub role_timezone {
	my ($where,$timezones) = @_;
	my $timezone;
	if (ref($timezones) eq 'HASH') {
	if ($where =~ m{^/($match_domain)/($match_courseid)}) {
	my $cdom = $1;
	my $cnum = $2;
	if ($cdom && $cnum) {
	if (!exists($timezones->{$cdom.'_'.$cnum})) {
	my %timehash =
	&Apache::lonnet::get('environment',['timezone'],$cdom,$cnum);
	if ($timehash{'timezone'} eq '') {
	if (!exists($timezones->{$cdom})) {
	my %domdefaults =
	&Apache::lonnet::get_domain_defaults($cdom);
	if ($domdefaults{'timezone_def'} eq '') {
	$timezones->{$cdom} = 'local';
	} else {
	$timezones->{$cdom} = $domdefaults{'timezone_def'};
	}
	}
	$timezones->{$cdom.'_'.$cnum} = $timezones->{$cdom};
	} else {
	$timezones->{$cdom.'_'.$cnum} =
	&Apache::lonlocal::gettimezone($timehash{'timezone'});
	}
	}
	$timezone = $timezones->{$cdom.'_'.$cnum};
	}
	} else {
	my ($tdom) = ($where =~ m{^/($match_domain)});
	if ($tdom) {
	if (!exists($timezones->{$tdom})) {
	my %domdefaults = &Apache::lonnet::get_domain_defaults($tdom);
	if ($domdefaults{'timezone_def'} eq '') {
	$timezones->{$tdom} = 'local';
	} else {
	$timezones->{$tdom} = $domdefaults{'timezone_def'};
	}
	}
	$timezone = $timezones->{$tdom};
	}
	}
	if ($timezone eq 'local') {
	$timezone = undef;
	}
	}
	return $timezone;
	}

sub roletable_headers {	sub roletable_headers {
my ($r,$roleclass,$sortrole,$nochoose) = @_;	my ($r,$roleclass,$sortrole,$nochoose) = @_;
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 /><table id="LC_rolesmenu"><tr>');	$r->print('<br />'
	.&Apache::loncommon::start_data_table()
	.&Apache::loncommon::start_data_table_header_row()
	);
if (!$nochoose) { $r->print('<th> </th>'); }	if (!$nochoose) { $r->print('<th> </th>'); }
$r->print('<th>'.&mt('User Role').'</th><th>'.&mt('Extent')	$r->print('<th>'.&mt('User Role').'</th>'
.'</th><th>'.&mt('Start').'</th><th>'.&mt('End')	.'<th>'.&mt('Extent').'</th>'
.'</th></tr>'."\n");	.'<th>'.&mt('Start').'</th>'
	.'<th>'.&mt('End').'</th>'
	.&Apache::loncommon::end_data_table_header_row()
	);
$doheaders=-1;	$doheaders=-1;
my @roletypes = &roletypes();	my @roletypes = &roletypes();
foreach my $type (@roletypes) {	foreach my $type (@roletypes) {
Line 840 sub print_rolerows {	Line 1062 sub print_rolerows {
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%{$sortrole}))) {	foreach my $which (sort {uc($a) cmp uc($b)} (keys(%{$sortrole}))) {
if ($roleclass->{$sortrole->{$which}} =~ /^\Q$type\E/) {	if ($roleclass->{$sortrole->{$which}} =~ /^\Q$type\E/) {
if (ref($roletext) eq 'HASH') {	if (ref($roletext) eq 'HASH') {
$output.=$roletext->{$sortrole->{$which}};	if (ref($roletext->{$sortrole->{$which}}) eq 'ARRAY') {
	$output.= &Apache::loncommon::start_data_table_row().
	$roletext->{$sortrole->{$which}}->[0].
	&Apache::loncommon::end_data_table_row().
	&Apache::loncommon::continue_data_table_row().
	$roletext->{$sortrole->{$which}}->[1].
	&Apache::loncommon::end_data_table_row();
	}
if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) {	if ($sortrole->{$which} =~ m-dc\./($match_domain)/-) {
if (ref($dcroles) eq 'HASH') {	if (ref($dcroles) eq 'HASH') {
if ($dcroles->{$1}) {	if ($dcroles->{$1}) {
Line 853 sub print_rolerows {	Line 1082 sub print_rolerows {
}	}
if ($output) {	if ($output) {
if ($doheaders > 0) {	if ($doheaders > 0) {
$r->print("<tr>".	$r->print(&Apache::loncommon::start_data_table_empty_row()
"<td align='center' colspan='5'><font face='arial'>".	.'<td align="center" colspan="5">'
&mt($type)."</font></td></tr>");	.&mt($type)
	.'</td>'
	.&Apache::loncommon::end_data_table_empty_row()
	);
}	}
$r->print($output);	$r->print($output);
}	}
Line 866 sub print_rolerows {	Line 1098 sub print_rolerows {
sub findcourse_advice {	sub findcourse_advice {
my ($r) = @_;	my ($r) = @_;
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');	my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description');
if (&check_autoenroll($env{'user.domain'})) {	my $esc_dom = &HTML::Entities::encode($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(&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>
Line 878 sub findcourse_advice {	Line 1111 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('<p>'.&mt('The [_1]Course Catalog[_2] provides information about all [_3] classes for which LON-CAPA courses have been created.','<a href="/adm/coursecatalog">','</a>',$domdesc).'<br />');	$r->print('<p>'.&mt('The [_1]Course Catalog[_2] provides information about all [_3] classes for which LON-CAPA courses have been created.','<a href="/adm/coursecatalog?showdom='.$esc_dom.'">','</a>',$domdesc).'<br />');
$r->print(&mt('You can search the course catalog for courses which permit self-enrollment, if you would like to enroll in a course.').'</p>');	$r->print(&mt('You can search the course catalog for courses which permit self-enrollment, if you would like to enroll in a course.').'</p>');
	&queued_selfenrollment($r);
	return;
	}

	sub queued_selfenrollment {
	my ($r) = @_;
	my %selfenrollrequests = &Apache::lonnet::dump('selfenrollrequests');
	my %reqs_by_date;
	foreach my $item (keys(%selfenrollrequests)) {
	if (ref($selfenrollrequests{$item}) eq 'HASH') {
	if ($selfenrollrequests{$item}{'status'} eq 'request') {
	if ($selfenrollrequests{$item}{'timestamp'}) {
	push(@{$reqs_by_date{$selfenrollrequests{$item}{'timestamp'}}},$item);
	}
	}
	}
	}
	if (keys(%reqs_by_date)) {
	my $rolename = &Apache::lonnet::plaintext('st');
	$r->print('<b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />'.
	&Apache::loncommon::start_data_table().
	&Apache::loncommon::start_data_table_header_row().
	'<th>'.&mt('Date requested').'</th><th>'.&mt('Course title').'</th>'.
	'<th>'.&mt('User role').'</th><th>'.&mt('Section').'</th>'.
	&Apache::loncommon::end_data_table_header_row());
	my @sorted = sort { $a <=> $b } (keys(%reqs_by_date));
	foreach my $item (@sorted) {
	if (ref($reqs_by_date{$item}) eq 'ARRAY') {
	foreach my $crs (@{$reqs_by_date{$item}}) {
	my %courseinfo = &Apache::lonnet::coursedescription($crs);
	my $usec = $selfenrollrequests{$crs}{'section'};
	if ($usec eq '') {
	$usec = &mt('No section');
	}
	$r->print(&Apache::loncommon::start_data_table_row().
	'<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'.
	'<td>'.$courseinfo{'description'}.'</td>'.
	'<td>'.$rolename.'</td><td>'.$usec.'</td>'.
	&Apache::loncommon::end_data_table_row());
	}
	}
	}
	$r->print(&Apache::loncommon::end_data_table());
	}
return;	return;
}	}

Line 918 sub privileges_info {	Line 1195 sub privileges_info {
$ttype='System';	$ttype='System';
$twhere='/';	$twhere='/';
}	}
$output .= "\n<h3>".$ttype.': '.$twhere.'</h3>'."\n<ul>";	$output .= "\n<h3>".&mt($ttype).': '.$twhere.'</h3>'."\n<ul>";
foreach my $priv (sort(split(/:/,$env{$envkey}))) {	foreach my $priv (sort(split(/:/,$env{$envkey}))) {
next if (!$priv);	next if (!$priv);

Line 938 sub privileges_info {	Line 1215 sub privileges_info {
return $output;	return $output;
}	}

sub role_status {
my ($rolekey,$then,$now,$role,$where,$trolecode,$tstatus,$tstart,$tend) = @_;
my @pwhere = ();
if (exists($env{$rolekey}) && $env{$rolekey} ne '') {
(undef,undef,$$role,@pwhere)=split(/\./,$rolekey);
unless (!defined($$role) \|\| $$role eq '') {
$$where=join('.',@pwhere);
$$trolecode=$$role.'.'.$$where;
($$tstart,$$tend)=split(/\./,$env{$rolekey});
$$tstatus='is';
if ($$tstart && $$tstart>$then) {
$$tstatus='future';
if ($$tstart<$now) { $$tstatus='will'; }
}
if ($$tend) {
if ($$tend<$then) {
$$tstatus='expired';
} elsif ($$tend<$now) {
$$tstatus='will_not';
}
}
}
}
}

sub build_roletext {	sub build_roletext {
my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$tfont,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver) = @_;	my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver,$reinit) = @_;
my $roletext='<tr bgcolor="'.$tbg.'" class="LC_rolesmenu_'.$tstatus.'">';	my ($roletext,$roletext_end);
my $is_dc=($trolecode =~ m/^dc\./);	my $is_dc=($trolecode =~ m/^dc\./);
my $rowspan=($is_dc) ? ''	my $rowspan=($is_dc) ? ''
: ' rowspan="2" ';	: ' rowspan="2" ';
Line 975 sub build_roletext {	Line 1227 sub build_roletext {
$buttonname=~s/\W//g;	$buttonname=~s/\W//g;
if (!$button) {	if (!$button) {
if ($switchserver) {	if ($switchserver) {
$roletext.='<td'.$rowspan.'><span class="LC_rolesinfo"><a href="/adm/switchserver?'.	$roletext.='<td'.$rowspan.' class="'.$tbg.'">'
$switchserver.'">'.&mt('Switch Server').'</a></span></td>';	.'<a href="/adm/switchserver?'.$switchserver.'">'
	.&mt('Switch Server')
	.'</a></td>';
} else {	} else {
$roletext.=('<td'.$rowspan.'> </td>');	$roletext.=('<td'.$rowspan.' class="'.$tbg.'"> </td>');
}	}
} elsif ($tstatus eq 'is') {	} elsif ($tstatus eq 'is') {
$roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.	$roletext.='<td'.$rowspan.' class="'.$tbg.'">'.
	'<input name="'.$buttonname.'" type="button" value="'.
&mt('Select').'" onClick="javascript:enterrole(this.form,\''.	&mt('Select').'" onClick="javascript:enterrole(this.form,\''.
$trolecode."','".$buttonname.'\');" /></td>';	$trolecode."','".$buttonname.'\');" /></td>';
} elsif ($tryagain) {	} elsif ($tryagain) {
$roletext.=	$roletext.=
'<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.	'<td'.$rowspan.' class="'.$tbg.'">'.
	'<input name="'.$buttonname.'" type="button" value="'.
&mt('Try Selecting Again').'" onClick="javascript:enterrole(this.form,\''.	&mt('Try Selecting Again').'" onClick="javascript:enterrole(this.form,\''.
$trolecode."','".$buttonname.'\');" /></td>';	$trolecode."','".$buttonname.'\');" /></td>';
} elsif ($advanced) {	} elsif ($advanced) {
$roletext.=	$roletext.=
'<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.	'<td'.$rowspan.' class="'.$tbg.'">'.
	'<input name="'.$buttonname.'" type="button" value="'.
&mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''.	&mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''.
$trolecode."','".$buttonname.'\');" /></td>';	$trolecode."','".$buttonname.'\');" /></td>';
	} elsif ($reinit) {
	$roletext.=
	'<td'.$rowspan.' class="'.$tbg.'">'.
	'<input name="'.$buttonname.'" type="button" value="'.
	&mt('Re-Select').'" onClick="javascript:enterrole(this.form,\''.
	$trolecode."','".$buttonname.'\');" /></td>';
} else {	} else {
$roletext.='<td'.$rowspan.'> </td>';	$roletext.=
	'<td'.$rowspan.' class="'.$tbg.'">'.
	'<input name="'.$buttonname.'" type="button" value="'.
	&mt('Re-Initialize').'" onClick="javascript:enterrole(this.form,\''.
	$trolecode."','".$buttonname.'\');" /></td>';
}	}
}	}
if ($trolecode !~ m/^(dc\|ca\|au\|aa)\./) {	if ($trolecode !~ m/^(dc\|ca\|au\|aa)\./) {
$tremark.=&Apache::lonannounce::showday(time,1,	$tremark.=&Apache::lonannounce::showday(time,1,
&Apache::lonannounce::readcalendar($tdom.'_'.$trest));	&Apache::lonannounce::readcalendar($tdom.'_'.$trest));
}	}
$roletext.='<td><font color="'.$tfont.'">'.$trole.	$roletext.='<td>'.$trole.'</td>'
'</font></td><td><font color="'.$tfont.'">'.$twhere.	.'<td>'.$twhere.'</td>'
'</font></td><td><font color="'.$tfont.'">'.$tpstart.	.'<td>'.$tpstart.'</td>'
'</font></td><td><font color="'.$tfont.'">'.$tpend.	.'<td>'.$tpend.'</td>';
'</font></td></tr>';
if (!$is_dc) {	if (!$is_dc) {
$roletext.='<tr bgcolor="'.$tbg.'"><td colspan="4"><font color="'.$tfont.'"><span class="LC_rolesinfo">'.$tremark.	$roletext_end = '<td colspan="4">'.
'</span> </font></td></tr><tr><td colspan="5" height="3"></td></tr>'."\n";	$tremark.' '.
	'</td>';
	}
	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 $roletext;	return $needs_switchserver;
}	}

sub check_author_homeserver {	sub check_author_homeserver {
Line 1031 sub check_author_homeserver {	Line 1316 sub check_author_homeserver {
}	}
}	}

sub check_privs {
my ($cdom,$cnum,$then,$now,$checkrole) = @_;
my $cckey = 'user.role.'.$checkrole.'./'.$cdom.'/'.$cnum;
if ($env{$cckey}) {
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);
&role_status($cckey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
unless (($tstatus eq 'is') \|\| ($tstatus eq 'will_not')) {
&set_privileges($cdom,$cnum,$checkrole);
}
} else {
&set_privileges($cdom,$cnum,$checkrole);
}
}

sub check_fordc {	sub check_fordc {
my ($dcroles,$then) = @_;	my ($dcroles,$then) = @_;
my $numdc = 0;	my $numdc = 0;
Line 1069 sub check_fordc {	Line 1340 sub check_fordc {
sub adhoc_course_role {	sub adhoc_course_role {
my ($then) = @_;	my ($then) = @_;
my ($cdom,$cnum);	my ($cdom,$cnum);
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
if (&check_forcc($cdom,$cnum,$then)) {	if (&check_forcc($cdom,$cnum,$then)) {
my $setprivs;	my $setprivs;
if (!defined($env{'user.role.'.$env{'form.selectrole'}})) {	if (!defined($env{'user.role.'.$env{'form.switchrole'}})) {
$setprivs = 1;	$setprivs = 1;
} else {	} else {
my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.selectrole'}});	my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.switchrole'}});
if (($start && ($start>$then \|\| $start == -1)) \|\|	if (($start && ($start>$then \|\| $start == -1)) \|\|
($end && $end<$then)) {	($end && $end<$then)) {
$setprivs = 1;	$setprivs = 1;
}	}
}	}
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)([\w/])\./\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;
if ($role eq 'cr') {	if ($role eq 'cr') {
if ($custom_role =~ m-^$match_domain/$match_courseid/\w+$-) {	if ($custom_role =~ m-^/$match_domain/$match_username/\w+$-) {
$role .= $custom_role;	$role .= $custom_role;
} else {	} else {
return;	return;
}	}
}	}
my (%userroles,%newrole,%newgroups);	my (%userroles,%newrole,%newgroups,%group_privs);
	my %cgroups =
	&Apache::lonnet::get_active_groups($env{'user.domain'},
	$env{'user.name'},$cdom,$cnum);
	foreach my $group (keys(%cgroups)) {
	$group_privs{$group} =
	$env{'user.priv.cc./'.$cdom.'/'.$cnum.'./'.$cdom.'/'.$cnum.'/'.$group};
	}
	$newgroups{'/'.$cdom.'/'.$cnum} = \%group_privs;
my $area = '/'.$cdom.'/'.$cnum;	my $area = '/'.$cdom.'/'.$cnum;
my $spec = $role.'.'.$area;	my $spec = $role.'.'.$area;
if ($usec ne '') {	if ($usec ne '') {
Line 1102 sub adhoc_course_role {	Line 1381 sub adhoc_course_role {
$area .= '/'.$usec;	$area .= '/'.$usec;
}	}
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,$area);	&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,$area);
&Apache::lonnet::set_userprivs(\%userroles,\%newrole,%newgroups);	&Apache::lonnet::set_userprivs(\%userroles,\%newrole,\%newgroups);
my $adhocstart = $then-1;	my $adhocstart = $then-1;
$userroles{'user.role.'.$spec} = $adhocstart.'.';	$userroles{'user.role.'.$spec} = $adhocstart.'.';
&Apache::lonnet::appenv(\%userroles,[$role,'cm']);	&Apache::lonnet::appenv(\%userroles,[$role,'cm']);
Line 1191 sub coauthorlink {	Line 1470 sub coauthorlink {

sub display_cc_role {	sub display_cc_role {
my $rolekey = shift;	my $rolekey = shift;
my $roletext;	my ($roletext,$roletext_end);
my $advanced = $env{'user.adv'};	my $advanced = $env{'user.adv'};
my $tryagain = $env{'form.tryagain'};	my $tryagain = $env{'form.tryagain'};
unless ($rolekey =~/^error\:/) {	unless ($rolekey =~/^error\:/) {
Line 1200 sub display_cc_role {	Line 1479 sub display_cc_role {
my $trolecode = 'cc./'.$1.'/'.$2;	my $trolecode = 'cc./'.$1.'/'.$2;
my $twhere;	my $twhere;
my $ttype;	my $ttype;
my $tbg='#77FF77';	my $tbg='LC_roles_is';
my $tfont='#003300';
my %newhash=&Apache::lonnet::coursedescription($tcourseid);	my %newhash=&Apache::lonnet::coursedescription($tcourseid);
if (%newhash) {	if (%newhash) {
$twhere=$newhash{'description'}.	$twhere=$newhash{'description'}.
' <font size="-2">'.	' <span style="LC_fontsize_small">'.
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1,$tfont).	&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1).
'</font>';	'</span>';
$ttype = $newhash{'type'};	$ttype = $newhash{'type'};
} else {	} else {
$twhere=&mt('Currently not available');	$twhere=&mt('Currently not available');
Line 1215 sub display_cc_role {	Line 1493 sub display_cc_role {
}	}
my $trole = &Apache::lonnet::plaintext('cc',$ttype);	my $trole = &Apache::lonnet::plaintext('cc',$ttype);
$twhere.="<br />".&mt('Domain').":".$1;	$twhere.="<br />".&mt('Domain').":".$1;
$roletext = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$tfont,$trole,$twhere,'','','',1,'');	($roletext,$roletext_end) = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,'');
}	}
}	}
return ($roletext);	return ($roletext,$roletext_end);
}	}

sub adhoc_roles_row {	sub adhoc_roles_row {
my ($dcdom,$rowtype) = @_;	my ($dcdom,$rowtype) = @_;
my $output = '<tr bgcolor="#77FF77">'.	my $output = &Apache::loncommon::continue_data_table_row()
' <td colspan="5"><table><tr><td><span class="LC_rolesinfo">'	.' <td colspan="5">'
.&mt('[_1]Ad hoc[_2] roles in domain [_3] --',	.'<table><tr><td>'
'<span class="LC_cusr_emph">','</span>',$dcdom).'</span></td><td>';	.&mt('[_1]Ad hoc[_2] roles in domain [_3] --'
	,'<span class="LC_cusr_emph">','</span>',$dcdom)
	.'</td>'
	.'<td>';
my $selectcclink = &courselink($dcdom,$rowtype);	my $selectcclink = &courselink($dcdom,$rowtype);
my $ccrole = &Apache::lonnet::plaintext('cc');	my $ccrole = &Apache::lonnet::plaintext('cc');
my $carole = &Apache::lonnet::plaintext('ca');	my $carole = &Apache::lonnet::plaintext('ca');
my $selectcalink = &coauthorlink($dcdom,$rowtype);	my $selectcalink = &coauthorlink($dcdom,$rowtype);
$output.= '<span class="LC_rolesinfo">'.	$output.=&mt('[_1]: [_2]',$ccrole,$selectcclink)
&mt('[_1]: [_2]',$ccrole,$selectcclink).	.'<br /></td>'
'</span><br /></td><td>  </td><td><span class="LC_rolesinfo">'.	.'<td>  </td>'
&mt('[_1]: [_2]',$carole,$selectcalink).	.'<td>'.&mt('[_1]: [_2]',$carole,$selectcalink).'<br /></td>'
'</span><br /></td></tr></table></td></tr>'.	.'</tr></table>'
'<tr><td colspan="5" height="3"></td></tr>'."\n";	.'</td>'
	.&Apache::loncommon::end_data_table_row();
return $output;	return $output;
}	}

Line 1245 sub recent_filename {	Line 1527 sub recent_filename {
return 'nohist_recent_'.&escape($area);	return 'nohist_recent_'.&escape($area);
}	}

sub set_privileges {
# role can be cc or ca
my ($dcdom,$pickedcourse,$role) = @_;
my $area = '/'.$dcdom.'/'.$pickedcourse;
my $spec = $role.'.'.$area;
my %userroles = &Apache::lonnet::set_arearole($role,$area,'','',
$env{'user.domain'},
$env{'user.name'});
my %ccrole = ();
&Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);
my ($author,$adv)= &Apache::lonnet::set_userprivs(\%userroles,\%ccrole);
&Apache::lonnet::appenv(\%userroles,[$role,'cm']);

&Apache::lonnet::log($env{'user.domain'},
$env{'user.name'},
$env{'user.home'},
"Role ".$role);
&Apache::lonnet::appenv(
{'request.role' => $spec,
'request.role.domain' => $dcdom,
'request.course.sec' => ''});
my $tadv=0;
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
&Apache::lonnet::appenv({'request.role.adv' => $tadv});
}

sub courseloadpage {	sub courseloadpage {
my ($courseid) = @_;	my ($courseid) = @_;
my $startpage;	my $startpage;
Line 1288 sub courseloadpage {	Line 1544 sub courseloadpage {
return $startpage;	return $startpage;
}	}

sub check_autoenroll {
my ($dom) = @_;
my $run_enroll = 0;
my $settings;
my %domconfig =
&Apache::lonnet::get_dom('configuration',['autoenroll'],$dom);
if (ref($domconfig{'autoenroll'}) eq 'HASH') {
$settings = $domconfig{'autoenroll'};
if ($settings->{'run'} eq '1') {
$run_enroll = 1;
}
} else {
$run_enroll = &localenroll::run($dom);
}
return $run_enroll;
}


1;	1;
__END__	__END__

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

Removed from v.1.197
changed lines
	Added in v.1.223