loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.260, 2011/02/24 23:29:10	version 1.263, 2011/10/25 15:15:02
Line 601 ENDENTERKEY	Line 601 ENDENTERKEY
if ($role =~ /^(au\|ca\|aa)$/) {	if ($role =~ /^(au\|ca\|aa)$/) {
my $redirect_url = '/priv/';	my $redirect_url = '/priv/';
if ($role eq 'au') {	if ($role eq 'au') {
$redirect_url.=$env{'user.name'};	$redirect_url.=$env{'user.domain'}.'/'.$env{'user.name'};
} else {	} else {
$where =~ /\/(.*)$/;	$redirect_url .= $where;
$redirect_url .= $1;
}	}
$redirect_url .= '/';	$redirect_url .= '/';
&redirect_user($r,&mt('Entering Construction Space'),	&redirect_user($r,&mt('Entering Construction Space'),
Line 1801 sub display_cc_role {	Line 1800 sub display_cc_role {
my %newhash=&Apache::lonnet::coursedescription($tcourseid);	my %newhash=&Apache::lonnet::coursedescription($tcourseid);
if (%newhash) {	if (%newhash) {
$twhere=$newhash{'description'}.	$twhere=$newhash{'description'}.
' <span style="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'};