loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.290, 2013/08/10 20:28:14	version 1.293, 2014/01/08 16:59:54
Line 545 ENDENTERKEY	Line 545 ENDENTERKEY
}	}
}	}
if (($env{'form.orgurl'}) &&	if (($env{'form.orgurl'}) &&
($env{'form.orgurl'}!~/^\/adm\/flip/)) {	($env{'form.orgurl'}!~/^\/adm\/flip/) &&
	($env{'form.orgurl'} ne '/adm/roles')) {
my $dest=$env{'form.orgurl'};	my $dest=$env{'form.orgurl'};
if ($env{'form.symb'}) {	if ($env{'form.symb'}) {
if ($dest =~ /\?/) {	if ($dest =~ /\?/) {
$dest .= '&';	$dest .= '&';
} else {	} else {
$dest .= '?'	$dest .= '?';
}	}
$dest .= 'symb='.$env{'form.symb'};	$dest .= 'symb='.$env{'form.symb'};
}	}
Line 2466 sub update_session_roles {	Line 2467 sub update_session_roles {
if ($desc) {	if ($desc) {
$newmsg .= '<li>'.	$newmsg .= '<li>'.
&mt('[_1] with status: [_2].',	&mt('[_1] with status: [_2].',
$desc,$newrole{$item}).'</li>';	$desc,&mt($newrole{$item})).'</li>';
}	}
}	}
if ($newmsg) {	if ($newmsg) {
Line 2739 sub get_roles_functions {	Line 2740 sub get_roles_functions {
}	}
}	}
if (&Apache::loncommon::designparm('login.coursecatalog',$env{'user.domain'})) {	if (&Apache::loncommon::designparm('login.coursecatalog',$env{'user.domain'})) {
push(@links,['/adm/coursecatalog','ccat-22x22',&mt('Course Catalog')]);	push(@links,['/adm/coursecatalog','ccat-22x22',&mt('Course catalog')]);
}	}
my $funcs = &Apache::lonhtmlcommon::start_funclist();	my $funcs = &Apache::lonhtmlcommon::start_funclist();
foreach my $link (@links) {	foreach my $link (@links) {