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.240.2.8 and 1.257

version 1.240.2.8, 2010/01/06 22:40:26	version 1.257, 2010/08/17 20:06:30
Line 57 course they should act on, etc. Both in	Line 57 course they should act on, etc. Both in
handler determines via C<lonnet>'s C<&allowed> function that a certain	handler determines via C<lonnet>'s C<&allowed> function that a certain
action is not allowed, C<lonroles> is used as error handler. This	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	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	what they were trying to do.
B<CRS> button in the Remote Control.

=begin latex	=begin latex

Line 138 use Apache::lonannounce;	Line 137 use Apache::lonannounce;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonpageflip();	use Apache::lonpageflip();
use Apache::lonnavdisplay();	use Apache::lonnavdisplay();
use Apache::lonmainmenu();	use Apache::loncoursequeueadmin;
use GDBM_File;	use GDBM_File;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use HTML::Entities;	use HTML::Entities;


sub redirect_user {	sub redirect_user {
my ($r,$title,$url,$msg,$launch_nav) = @_;	my ($r,$title,$url,$msg) = @_;
$msg = $title if (! defined($msg));	$msg = $title if (! defined($msg));
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig();
my $navwindow;
if ($launch_nav eq 'on') {
$navwindow.=&Apache::lonnavdisplay::launch_win('now',undef,undef,
($url =~ m-^/adm/whatsnew-));
} else {
$navwindow.=&Apache::lonnavmaps::close();
}

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => $url,	my $brcrum = [{'href' => $url,
Line 165 sub redirect_user {	Line 156 sub redirect_user {
my $start_page = &Apache::loncommon::start_page('Switching Role',undef,	my $start_page = &Apache::loncommon::start_page('Switching Role',undef,
{'redirect' => [1,$url],	{'redirect' => [1,$url],
'bread_crumbs' => $brcrum,});	'bread_crumbs' => $brcrum,});
&Apache::lonhtmlcommon::clear_breadcrumbs();
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();

# Note to style police:	# Note to style police:
Line 173 sub redirect_user {	Line 163 sub redirect_user {
$url=~s/ /\%20/g;	$url=~s/ /\%20/g;
$r->print(<<ENDREDIR);	$r->print(<<ENDREDIR);
$start_page	$start_page
<script type="text/javascript">
// <![CDATA[
$swinfo
// ]]>
</script>
$navwindow
<p>$msg</p>	<p>$msg</p>
$end_page	$end_page
ENDREDIR	ENDREDIR
Line 226 sub handler {	Line 210 sub handler {
my %dcroles = ();	my %dcroles = ();
my $numdc = &check_fordc(\%dcroles,$then);	my $numdc = &check_fordc(\%dcroles,$then);
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
my $custommenu = &Apache::loncommon::needs_gci_custom();	my $loncaparev = $Apache::lonnet::perlvar{'lonVersion'};

# ================================================================== Roles Init	# ================================================================== Roles Init
if ($env{'form.selectrole'}) {	if ($env{'form.selectrole'}) {
Line 240 sub handler {	Line 224 sub handler {
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
if ($env{'form.switchrole'}) {	if ($env{'form.switchrole'}) {
if (!defined($env{'user.role.'.$env{'form.switchrole'}})) {	my $switch_is_active;
	if (defined($env{'user.role.'.$env{'form.switchrole'}})) {
	my ($start,$end) = split(/\./,$env{'user.role.'.$env{'form.switchrole'}});
	if (!$end \|\| $end > $now) {
	if (!$start \|\| $start < $refresh) {
	$switch_is_active = 1;
	}
	}
	}
	unless ($switch_is_active) {
&adhoc_course_role($refresh,$then);	&adhoc_course_role($refresh,$then);
}	}
}	}
Line 276 sub handler {	Line 269 sub handler {
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 = 'au./'.$domain.'/';	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);
}	}
last;	last;
Line 287 sub handler {	Line 280 sub handler {
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 = 'ca./'.$domain.'/'.$user;
my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;	my $switchserver = '/adm/switchserver?otherserver='.$home.'&role='.$trolecode;
$r->internal_redirect($switchserver);	$r->internal_redirect($switchserver);
}	}
last;	last;
Line 308 sub handler {	Line 301 sub handler {
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?'
.'otherserver='.$home.'&role='.$trolecode;	.'otherserver='.$home.'&role='.$trolecode;
$r->internal_redirect($switchserver);	$r->internal_redirect($switchserver);
}	}
} else {	} else {
Line 321 sub handler {	Line 314 sub handler {
}	}
}	}
}	}
if (($env{'form.cm'}) && ($env{'form.orgurl'})) {
$r->internal_redirect($env{'form.orgurl'});
}
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 333 sub handler {	Line 324 sub handler {
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$where=~s/^\///;	$where=~s/^\///;
my ($cdom,$cnum,$csec)=split(/\//,$where);	my ($cdom,$cnum,$csec)=split(/\//,$where);
	if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {
	my $home = $env{'course.'.$cdom.'_'.$cnum.'.home'};
	my @ids = &Apache::lonnet::current_machine_ids();
	unless ($loncaparev eq '' && $home && grep(/^\Q$home\E$/,@ids)) {
	my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired');
	if ($curr_reqd_hash{'internal.releaserequired'} ne '') {
	my ($switchserver,$switchwarning) =
	&check_release_required($loncaparev,$cdom.'_'.$cnum,$trolecode,$curr_reqd_hash{'internal.releaserequired'});
	if ($switchwarning ne '' \|\| $switchserver ne '') {
	&Apache::loncommon::content_type($r,'text/html');
	&Apache::loncommon::no_cache($r);
	$r->send_http_header;
	my $end_page=&Apache::loncommon::end_page();
	$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;
	}
	}
	}
	}
# check for course groups	# check for course groups
my %coursegroups = &Apache::lonnet::get_active_groups(	my %coursegroups = &Apache::lonnet::get_active_groups(
$env{'user.domain'},$env{'user.name'},$cdom, $cnum);	$env{'user.domain'},$env{'user.name'},$cdom, $cnum);
Line 450 ENDENTERKEY	Line 477 ENDENTERKEY

if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {	if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) {
my $msg;	my $msg;
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
&Apache::lonnet::appenv({'request.role.adv'=>$tadv});
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
if (($env{'form.orgurl'}) &&	if (($env{'form.orgurl'}) &&
Line 465 ENDENTERKEY	Line 490 ENDENTERKEY
}	}
$dest .= 'symb='.$env{'form.symb'};	$dest .= 'symb='.$env{'form.symb'};
}	}
	if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
	&Apache::lonnet::appenv({'request.role.adv'=>$tadv});
if (($ferr) && ($tadv)) {	if (($ferr) && ($tadv)) {
&error_page($r,$ferr,$dest);	&error_page($r,$ferr,$dest);
} else {	} else {
	if ($dest =~ m{^/adm/coursedocs\?folderpath}) {
	if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
	my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
	&update_content_constraints($cdom,$cnum,$chome,$cdom.'_'.$cnum);
	}
	}
$r->internal_redirect($dest);	$r->internal_redirect($dest);
}	}
return OK;	return OK;
Line 483 ENDENTERKEY	Line 516 ENDENTERKEY
.'<p>'.&mt('Please try again.').'</p>'	.'<p>'.&mt('Please try again.').'</p>'
.'<p>'.$ferr.'</p>';	.'<p>'.$ferr.'</p>';
}	}
	if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
	&Apache::lonnet::appenv({'request.role.adv'=>$tadv});

if (($ferr) && ($tadv)) {	if (($ferr) && ($tadv)) {
&error_page($r,$ferr,$furl);	&error_page($r,$ferr,$furl);
Line 494 ENDENTERKEY	Line 529 ENDENTERKEY
$courseid = substr($courseid, 1);	$courseid = substr($courseid, 1);
}	}
$courseid =~ s/\//_/;	$courseid =~ s/\//_/;
if (($cdom ne 'gcitest') && (($role eq 'cc') \|\| ($role eq 'co'))	if ((($role eq 'cc') \|\| ($role eq 'co'))
&& ($env{'course.' . $courseid .'.course.helper.not.run'})) {	&& ($env{'course.' . $courseid .'.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
Line 505 ENDENTERKEY	Line 540 ENDENTERKEY
my $esc_symb = &HTML::Entities::encode($env{'form.destsymb'},'"<>&');	my $esc_symb = &HTML::Entities::encode($env{'form.destsymb'},'"<>&');
$dest .= '?symb='.$esc_symb;	$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);
$env{'environment.remotenavmap'});
return OK;	return OK;
}	}
if (&Apache::lonnet::allowed('whn',	if (&Apache::lonnet::allowed('whn',
Line 518 ENDENTERKEY	Line 552 ENDENTERKEY
.$env{'request.course.sec'})	.$env{'request.course.sec'})
) {	) {
my $startpage = &courseloadpage($courseid);	my $startpage = &courseloadpage($courseid);
unless (($startpage eq 'firstres') \|\| ($cdom eq 'gcitest')) {	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);
$env{'environment.remotenavmap'});
return OK;	return OK;
}	}
}	}
Line 533 ENDENTERKEY	Line 566 ENDENTERKEY
# Guess not ...	# Guess not ...
$furl=&Apache::lonpageflip::first_accessible_resource();	$furl=&Apache::lonpageflip::first_accessible_resource();
}	}
if (($cdom eq 'gcitest') && ($custommenu)) {
$furl = '/adm/navmaps';
}
$msg = &mt('Entering [_1] ...',	$msg = &mt('Entering [_1] ...',
$env{'course.'.$courseid.'.description'});	$env{'course.'.$courseid.'.description'});
&redirect_user($r,&mt('Entering [_1]',	&redirect_user($r, &mt('Entering [_1]',
$env{'course.'.$courseid.'.description'}),	$env{'course.'.$courseid.'.description'}),
$furl,$msg,	$furl, $msg);
$env{'environment.remotenavmap'});
}	}
return OK;	return OK;
}	}
Line 578 ENDENTERKEY	Line 607 ENDENTERKEY
}	}
}	}


# =============================================================== No Roles Init	# =============================================================== No Roles Init

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
Line 585 ENDENTERKEY	Line 615 ENDENTERKEY
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

my ($crumbtext,$pagetitle,$recent,$show_course);	my $crumbtext = 'User Roles';
	my $pagetitle = 'My Roles';
	my $recent = &mt('Recent Roles');
	my $show_course=&Apache::loncommon::show_course();
	if ($show_course) {
	$crumbtext = 'Courses';
	$pagetitle = 'My Courses';
	$recent = &mt('Recent Courses');
	}
	my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}];
	my $swinfo=&Apache::lonmenu::rawconfig();
	my $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum});
	my $standby=&mt('Role selected. Please stand by.');
	$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 />';
if ($custommenu) {
my $start_page = &Apache::loncommon::start_page('Main Menu',undef,	$r->print(<<ENDHEADER);
{'bread_crumbs' => 1});
$r->print(<<"ENDCUSTOM");
$start_page
<br />
<noscript>
$noscript
</noscript>
ENDCUSTOM
} else {
$crumbtext = 'User Roles';
$pagetitle = 'My Roles';
$recent = &mt('Recent Roles');
$show_course=&Apache::loncommon::show_course();
if ($show_course) {
$crumbtext = 'Courses';
$pagetitle = 'My Courses';
$recent = &mt('Recent Courses');
}
my $brcrum =[{href=>"/adm/roles",text=>$crumbtext}];
my $swinfo=&Apache::lonmenu::rawconfig();
my $start_page=&Apache::loncommon::start_page($pagetitle,undef,{bread_crumbs=>$brcrum});
my $standby=&mt('Role selected. Please stand by.');
$standby=~s/\n/\\n/g;
$r->print(<<ENDHEADER);
$start_page	$start_page
<br />	<br />
<noscript>	<noscript>
Line 639 function enterrole (thisform,rolecode,bu	Line 658 function enterrole (thisform,rolecode,bu
// ]]>	// ]]>
</script>	</script>
ENDHEADER	ENDHEADER
}

# ------------------------------------------ Get Error Message from Environment	# ------------------------------------------ Get Error Message from Environment

Line 707 ENDHEADER	Line 725 ENDHEADER
if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) {	if (($ENV{'REDIRECT_QUERY_STRING'}) && ($fn)) {
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'};	$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'};
}	}
unless ($custommenu) {	$r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">');
$r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">');	$r->print('<input type="hidden" name="orgurl" value="'.$fn.'" />');
$r->print('<input type="hidden" name="orgurl" value="'.$fn.'" />');	$r->print('<input type="hidden" name="selectrole" value="1" />');
$r->print('<input type="hidden" name="selectrole" value="1" />');	$r->print('<input type="hidden" name="newrole" value="" />');
$r->print('<input type="hidden" name="newrole" value="" />');
}
}	}

my (%roletext,%sortrole,%roleclass,%futureroles,%timezones);	my (%roletext,%sortrole,%roleclass,%futureroles,%timezones);
my ($countactive,$countfuture,$inrole,$possiblerole) =	my ($countactive,$countfuture,$inrole,$possiblerole) =
&gather_roles($then,$refresh,$now,$reinit,$nochoose,\%roletext,\%sortrole,\%roleclass,	&gather_roles($then,$refresh,$now,$reinit,$nochoose,\%roletext,\%sortrole,\%roleclass,
\%futureroles,\%timezones);	\%futureroles,\%timezones,$loncaparev);

$refresh = $now;	$refresh = $now;
&Apache::lonnet::appenv({'user.refresh.time' => $refresh});	&Apache::lonnet::appenv({'user.refresh.time' => $refresh});
if ($custommenu) {
if ($env{'form.destinationurl'} eq '/adm/gci_info') {
$r->print(&gci_info_page()).
&Apache::loncommon::end_page();
return OK;
}
my %courses = &Apache::loncommon::existing_gcitest_courses('cc');
$env{'browser.interface'}='faketextual';
$env{'environment.remote'}='off';
my $numcourses = keys(%courses);
my $switcher;
if ($numcourses > 0) {
$switcher = &Apache::lonmainmenu::gcitest_switcher(%courses);
my $current;
if ($env{'request.course.id'}) {
$current = 'cc./'.$env{'course.'.$env{'request.course.id'}.'.domain'}.
'/'.$env{'course.'.$env{'request.course.id'}.'.num'};
}
my $switcher_js = &Apache::lonmainmenu::gcitest_switcher_js($current,$numcourses);
$r->print(<<"ENDSCRIPT");
<script type="text/javascript">
// <![CDATA[
$switcher_js
// ]]>
</script>
ENDSCRIPT
}
$r->print(&Apache::lonmenu::inlinemenu('gcicustom',$switcher).
&Apache::loncommon::end_page());
return OK;
} else {
if ($env{'form.destinationurl'} eq '/adm/gci_info') {
delete($env{'form.destinationurl'});
}
}
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
$r->print('<p><label><input type="checkbox" name="showall"');	$r->print('<p><label><input type="checkbox" name="showall"');
if ($env{'form.showall'}) { $r->print(' checked="checked" '); }	if ($env{'form.showall'}) { $r->print(' checked="checked" '); }
Line 765 ENDSCRIPT	Line 746 ENDSCRIPT
.'</p>');	.'</p>');
} else {	} else {
if ($countactive > 0) {	if ($countactive > 0) {
&queued_selfenrollment($r);	$r->print(&Apache::loncoursequeueadmin::queued_selfenrollment());
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'},'"<>&');
unless ($env{'user.domain'} eq 'gcitest') {	$r->print(
$r->print(	'<p>'
'<p>'	.&mt('[_1]Visit the [_2]Course/Community Catalog[_3]'
.&mt('[_1]Visit the [_2]Course/Community Catalog[_3]'	.' to view all [_4] LON-CAPA courses and communities.'
.' to view all [_4] LON-CAPA courses and communities.'	,'<b>'
,'<b>'	,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">'
,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">'	,'</a></b>',$domdesc)
,'</a></b>',$domdesc)	.'<br />'
.'<br />'	.&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,'
.&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,'
.' you may be able to enroll if self-enrollment is permitted.'	.' you may be able to enroll if self-enrollment is permitted.'
,'<b>','</b>')	,'<b>','</b>')
.'</p>'	.'</p>'
);	);
}
}	}
}	}

Line 793 ENDSCRIPT	Line 772 ENDSCRIPT
} else {	} else {
$r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>');	$r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>');
}	}
unless ($env{'user.domain'} eq 'gcitest') {	&findcourse_advice($r);
&findcourse_advice($r);	&requestcourse_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));
Line 825 ENDSCRIPT	Line 802 ENDSCRIPT
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
} elsif ($countactive==1) { # Is there only one choice?
my $needs_switchserver;
if ($env{'user.author'}) {
$needs_switchserver = &check_needs_switchserver($possiblerole);
}
if ((!$needs_switchserver) && ($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;
}
if ($needs_switchserver) {
$r->print("<h2>".&mt('Server Switch Required')."</h2>\n".
&mt('Construction Space access is only available from '.
'the home server of the corresponding Author.').'<br />'.
&mt("Click the 'Switch Server' link to go there.").'<br />');
}
}	}
# ----------------------------------------------------------------------- Table	# ----------------------------------------------------------------------- Table

	if ($numdc > 0) {
	$r->print(&coursepick_jscript());
	$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)) {
$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");	$r->print("<h2>".&mt('Select a Course to Enter')."</h2>\n");
}	}
Line 859 ENDSCRIPT	Line 822 ENDSCRIPT
$env{'form.destsymb'}.'" />');	$env{'form.destsymb'}.'" />');
}	}
}	}

my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose);	my $doheaders = &roletable_headers($r,\%roleclass,\%sortrole,$nochoose);
if ($env{'environment.recentroles'}) {	if ($env{'environment.recentroles'}) {
my %recent_roles =	my %recent_roles =
&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 my $role (sort(keys(%recent_roles))) {
if (ref($roletext{'user.role.'.$_}) eq 'ARRAY') {	if (ref($roletext{'user.role.'.$role}) eq 'ARRAY') {
$output.= &Apache::loncommon::start_data_table_row().	$output.= &Apache::loncommon::start_data_table_row().
$roletext{'user.role.'.$_}->[0].	$roletext{'user.role.'.$role}->[0].
&Apache::loncommon::end_data_table_row().
&Apache::loncommon::continue_data_table_row().
$roletext{'user.role.'.$_}->[1].
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row();
if ($_ =~ m-dc\./($match_domain)/-	if ($roletext{'user.role.'.$role}->[1] ne '') {
	$output .= &Apache::loncommon::continue_data_table_row().
	$roletext{'user.role.'.$role}->[1].
	&Apache::loncommon::end_data_table_row();
	}
	if ($role =~ m{dc\./($match_domain)/}
&& $dcroles{$1}) {	&& $dcroles{$1}) {
$output .= &adhoc_roles_row($1,'recent');	$output .= &adhoc_roles_row($1,'recent');
}	}
} elsif ($numdc > 0) {	} elsif ($numdc > 0) {
unless ($_ =~/^error\:/) {	unless ($role =~/^error\:/) {
$output.=&display_cc_role('user.role.'.$_);	my ($roletext,$role_text_end) = &display_cc_role('user.role.'.$role);
	$output.= &Apache::loncommon::start_data_table_row().
	$roletext.
	&Apache::loncommon::end_data_table_row().
	&Apache::loncommon::continue_data_table_row().
	$role_text_end.
	&Apache::loncommon::end_data_table_row();
}	}
}	}
}	}
if ($output) {	if ($output) {
$r->print(&Apache::loncommon::start_data_table_empty_row()	$r->print(&Apache::loncommon::start_data_table_empty_row()
Line 893 ENDSCRIPT	Line 865 ENDSCRIPT
$doheaders ++;	$doheaders ++;
}	}
}	}

if ($numdc > 0) {
$r->print(&coursepick_jscript());
$r->print(&Apache::loncommon::coursebrowser_javascript().
&Apache::loncommon::authorbrowser_javascript());
}
&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,\%roletext);	&print_rolerows($r,$doheaders,\%roleclass,\%sortrole,\%dcroles,\%roletext);
if ($countactive > 1) {	if ($countactive > 1) {
my $tremark='';	my $tremark='';
Line 949 ENDSCRIPT	Line 915 ENDSCRIPT
return OK;	return OK;
}	}

sub gci_info_page {
return <<"END";
<h2>Welcome to the Geoscience Concept Inventory WebCenter</h2>
<p>
Use the tabs to navigate the WebCenter and...
<ul>
<li>Review and comment on existing GCI questions</li>
<li>Submit a GCI question of your own</li>
<li>Create an online test for your students</li>
</ul>
</p>
<p>For more information about writing and reviewing Concept Inventory questions
please refer to the <a href="/res/gci/gci/internal/pdfs/GCIWorkbook.pdf">GCI Workbook</a>.

END
}

sub gather_roles {	sub gather_roles {
my ($then,$refresh,$now,$reinit,$nochoose,$roletext,$sortrole,$roleclass,$futureroles,$timezones) = @_;	my ($then,$refresh,$now,$reinit,$nochoose,$roletext,$sortrole,$roleclass,$futureroles,$timezones,$loncaparev) = @_;
my ($countactive,$countfuture,$inrole,$possiblerole) = (0,0,0,'');	my ($countactive,$countfuture,$inrole,$possiblerole) = (0,0,0,'');
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();
foreach my $envkey (sort(keys(%env))) {	foreach my $envkey (sort(keys(%env))) {
my $button = 1;	my $button = 1;
my $switchserver='';	my $switchserver='';
	my $switchwarning;
my ($role_text,$role_text_end,$sortkey);	my ($role_text,$role_text_end,$sortkey);
if ($envkey=~/^user\.role\./) {	if ($envkey=~/^user\.role\./) {
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend);	my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend);
Line 1023 sub gather_roles {	Line 974 sub gather_roles {
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 [_1] at [_2].',$rauthor,$rdomain);	$tremark.=&mt('Customrole defined by [_1].',$rauthor.':'.$rdomain);
}	}
$trole=Apache::lonnet::plaintext($role);	$trole=Apache::lonnet::plaintext($role);
my $ttype;	my $ttype;
Line 1034 sub gather_roles {	Line 985 sub gather_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 @ids=&Apache::lonnet::current_machine_ids();
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;	$switchserver='otherserver='.$home.'&role='.$trolecode;
}	}
#next if ($home eq 'no_host');	#next if ($home eq 'no_host');
$home = &Apache::lonnet::hostname($home);	$home = &Apache::lonnet::hostname($home);
Line 1054 sub gather_roles {	Line 1004 sub gather_roles {
my $home = &Apache::lonnet::homeserver	my $home = &Apache::lonnet::homeserver
($env{'user.name'},$env{'user.domain'});	($env{'user.name'},$env{'user.domain'});
my $allowed=0;	my $allowed=0;
my @ids=&Apache::lonnet::current_machine_ids();
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;	$switchserver='otherserver='.$home.'&role='.$trolecode;
}	}
#next if ($home eq 'no_host');	#next if ($home eq 'no_host');
$home = &Apache::lonnet::hostname($home);	$home = &Apache::lonnet::hostname($home);
Line 1071 sub gather_roles {	Line 1020 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);	$trole = &Apache::lonnet::plaintext($role,$ttype,$tcourseid);
if ($env{'course.'.$tcourseid.'.description'}) {	if ($env{'course.'.$tcourseid.'.description'}) {
	my $home=$env{'course.'.$tcourseid.'.home'};
$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;
	$twhere = &HTML::Entities::encode($twhere,'"<>&');
unless ($twhere eq &mt('Currently not available')) {	unless ($twhere eq &mt('Currently not available')) {
$twhere.=' <span class="LC_fontsize_small">'.	$twhere.=' <span class="LC_fontsize_small">'.
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom).	&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom).
'</span>';	'</span>';
	unless ($home && grep(/^\Q$home\E$/,@ids) && $loncaparev eq '') {
	my $required = $env{'course.'.$tcourseid.'.internal.releaserequired'};
	($switchserver,$switchwarning) =
	&check_release_required($loncaparev,$tcourseid,$trolecode,$required);
	if ($switchserver \|\| $switchwarning) {
	$button = 0;
	}
	}
}	}
} else {	} else {
my %newhash=&Apache::lonnet::coursedescription($tcourseid);	my %newhash=&Apache::lonnet::coursedescription($tcourseid);
if (%newhash) {	if (%newhash) {
$sortkey=$role."\0".$tdom."\0".$newhash{'description'}.	$sortkey=$role."\0".$tdom."\0".$newhash{'description'}.
"\0".$envkey;	"\0".$envkey;
$twhere=$newhash{'description'}.	$twhere=&HTML::Entities::encode($newhash{'description'},'"<>&').
' <span class="LC_fontsize_small">'.	' <span class="LC_fontsize_small">'.
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom).	&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom).
'</span>';	'</span>';
$ttype = $newhash{'type'};	$ttype = $newhash{'type'};
$trole = &Apache::lonnet::plaintext($role,$ttype);	$trole = &Apache::lonnet::plaintext($role,$ttype,$tcourseid);
	my $home = $newhash{'home'};
	unless ($home && grep(/^\Q$home\E$/,@ids) && $loncaparev eq '') {
	my $required = $newhash{'internal.releaserequired'};
	($switchserver,$switchwarning) =
	&check_release_required($loncaparev,$tcourseid,$trolecode,$required);
	if ($switchserver \|\| $switchwarning) {
	$button = 0;
	}
	}
} else {	} else {
$twhere=&mt('Currently not available');	$twhere=&mt('Currently not available');
$env{'course.'.$tcourseid.'.description'}=$twhere;	$env{'course.'.$tcourseid.'.description'}=$twhere;
Line 1114 sub gather_roles {	Line 1082 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);	$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning);
$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 1222 sub print_rolerows {	Line 1190 sub print_rolerows {
if (ref($roletext->{$sortrole->{$which}}) eq 'ARRAY') {	if (ref($roletext->{$sortrole->{$which}}) eq 'ARRAY') {
$output.= &Apache::loncommon::start_data_table_row().	$output.= &Apache::loncommon::start_data_table_row().
$roletext->{$sortrole->{$which}}->[0].	$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();	&Apache::loncommon::end_data_table_row();
	if ($roletext->{$sortrole->{$which}}->[1] ne '') {
	$output .= &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') {
Line 1270 sub findcourse_advice {	Line 1240 sub findcourse_advice {
}	}
$r->print('<h3>'.&mt('Self-Enrollment').'</h3>'.	$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 />');	'<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>');	$r->print(&mt('You can search for courses and communities which permit self-enrollment, if you would like to enroll in one.').'</p>'.
&queued_selfenrollment($r);	&Apache::loncoursequeueadmin::queued_selfenrollment());
return;	return;
}	}

Line 1328 sub requestcourse_advice {	Line 1298 sub requestcourse_advice {
return;	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;
}

sub privileges_info {	sub privileges_info {
my ($which) = @_;	my ($which) = @_;
my $output;	my $output;
Line 1427 sub privileges_info {	Line 1354 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) = @_;	my ($trolecode,$tdom,$trest,$tstatus,$tryagain,$advanced,$tremark,$tbg,$trole,$twhere,$tpstart,$tpend,$nochoose,$button,$switchserver,$reinit,$switchwarning) = @_;
my ($roletext,$roletext_end);	my ($roletext,$roletext_end);
my $is_dc=($trolecode =~ m/^dc\./);	my $is_dc=($trolecode =~ m/^dc\./);
my $rowspan=($is_dc) ? ''	my $rowspan=($is_dc) ? ''
Line 1445 sub build_roletext {	Line 1372 sub build_roletext {
} else {	} else {
$roletext.=('<td'.$rowspan.' class="'.$tbg.'"> </td>');	$roletext.=('<td'.$rowspan.' class="'.$tbg.'"> </td>');
}	}
	if ($switchwarning) {
	if ($tremark eq '') {
	$tremark = $switchwarning;
	} else {
	$tremark .= '<br />'.$switchwarning;
	}
	}
} elsif ($tstatus eq 'is') {	} elsif ($tstatus eq 'is') {
$roletext.='<td'.$rowspan.' class="'.$tbg.'">'.	$roletext.='<td'.$rowspan.' class="'.$tbg.'">'.
'<input name="'.$buttonname.'" type="button" value="'.	'<input name="'.$buttonname.'" type="button" value="'.
Line 1625 sub check_forcc {	Line 1559 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 update_content_constraints {
	my ($cdom,$cnum,$chome,$cid) = @_;
	my %curr_reqd_hash = &Apache::lonnet::userenvironment($cdom,$cnum,'internal.releaserequired');
	my ($reqdmajor,$reqdminor) = split(/\./,$curr_reqd_hash{'internal.releaserequired'});
	my %checkresponsetypes;
	foreach my $key (keys(%Apache::lonnet::needsrelease)) {
	my ($item,$name,$value) = split(/:/,$key);
	if ($item eq 'resourcetag') {
	if ($name eq 'responsetype') {
	$checkresponsetypes{$value} = $Apache::lonnet::needsrelease{$key}
	}
	}
	}
	my $navmap = Apache::lonnavmaps::navmap->new();
	if (defined($navmap)) {
	my %allresponses;
	foreach my $res ($navmap->retrieveResources(undef,sub { $_[0]->is_problem() },1,0)) {
	my %responses = $res->responseTypes();
	foreach my $key (keys(%responses)) {
	next unless(exists($checkresponsetypes{$key}));
	$allresponses{$key} += $responses{$key};
	}
	}
	foreach my $key (keys(%allresponses)) {
	my ($major,$minor) = split(/\./,$checkresponsetypes{$key});
	if (($major > $reqdmajor) \|\| ($major == $reqdmajor && $minor > $reqdminor)) {
	($reqdmajor,$reqdminor) = ($major,$minor);
	}
	}
	undef($navmap);
	}
	unless (($reqdmajor eq '') && ($reqdminor eq '')) {
	&Apache::lonnet::update_released_required($reqdmajor.'.'.$reqdminor,$cdom,$cnum,$chome,$cid);
	}
	return;
	}

sub courselink {	sub courselink {
my ($dcdom,$rowtype) = @_;	my ($dcdom,$rowtype) = @_;
my $courseform=&Apache::loncommon::selectcourse_link	my $courseform=&Apache::loncommon::selectcourse_link
Line 1695 sub display_cc_role {	Line 1718 sub display_cc_role {
unless ($rolekey =~/^error\:/) {	unless ($rolekey =~/^error\:/) {
if ($rolekey =~ m{^user\.role\.(cc\|co)\./($match_domain)/($match_courseid)$}) {	if ($rolekey =~ m{^user\.role\.(cc\|co)\./($match_domain)/($match_courseid)$}) {
my $ccrole = $1;	my $ccrole = $1;
my $tcourseid = $2.'_'.$3;	my $tdom = $2;
my $trolecode = $1.'./'.$2.'/'.$3;	my $trest = $3;
	my $tcourseid = $tdom.'_'.$trest;
	my $trolecode = $ccrole.'./'.$tdom.'/'.$trest;
my $twhere;	my $twhere;
my $ttype;	my $ttype;
my $tbg='LC_roles_is';	my $tbg='LC_roles_is';
Line 1704 sub display_cc_role {	Line 1729 sub display_cc_role {
if (%newhash) {	if (%newhash) {
$twhere=$newhash{'description'}.	$twhere=$newhash{'description'}.
' <span style="LC_fontsize_small">'.	' <span style="LC_fontsize_small">'.
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$2,$1).	&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom).
'</span>';	'</span>';
$ttype = $newhash{'type'};	$ttype = $newhash{'type'};
} else {	} else {
$twhere=&mt('Currently not available');	$twhere=&mt('Currently not available');
$env{'course.'.$tcourseid.'.description'}=$twhere;	$env{'course.'.$tcourseid.'.description'}=$twhere;
}	}
my $trole = &Apache::lonnet::plaintext($ccrole,$ttype);	my $trole = &Apache::lonnet::plaintext($ccrole,$ttype,$tcourseid);
$twhere.="<br />".&mt('Domain').":".$1;	$twhere.="<br />".&mt('Domain').":".$1;
($roletext,$roletext_end) = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,'');	($roletext,$roletext_end) = &build_roletext($trolecode,$tdom,$trest,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,'');
}	}
}	}
return ($roletext,$roletext_end);	return ($roletext,$roletext_end);
Line 1731 sub adhoc_roles_row {	Line 1756 sub adhoc_roles_row {
my $carole = &Apache::lonnet::plaintext('ca');	my $carole = &Apache::lonnet::plaintext('ca');
my $selectcalink = &coauthorlink($dcdom,$rowtype);	my $selectcalink = &coauthorlink($dcdom,$rowtype);
$output.=$ccrole.': '.$selectcclink	$output.=$ccrole.': '.$selectcclink
.' \| '.$carole.': '.$selectcalink	.' \| '.$carole.': '.$selectcalink.'</td>'
.&Apache::loncommon::end_data_table_row();	.&Apache::loncommon::end_data_table_row();
return $output;	return $output;
}	}
Line 1789 course they should act on, etc. Both in	Line 1814 course they should act on, etc. Both in
handler determines via C<lonnet>'s C<&allowed> function that a certain	handler determines via C<lonnet>'s C<&allowed> function that a certain
action is not allowed, C<lonroles> is used as error handler. This	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	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	what they were trying to do.
B<CRS> button in the Remote Control.

=begin latex	=begin latex

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

Removed from v.1.240.2.8
changed lines
	Added in v.1.257