loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.119, 2006/05/30 20:12:15	version 1.120, 2006/06/02 13:58:31
Line 246 sub print_user_modification_page {	Line 246 sub print_user_modification_page {
my @rolevals = ('st','ta','ep','in','cc');	my @rolevals = ('st','ta','ep','in','cc');
my (@crsroles,@grproles);	my (@crsroles,@grproles);
for (my $i=0; $i<@rolevals; $i++) {	for (my $i=0; $i<@rolevals; $i++) {
$crsroles[$i]=&Apache::lonnet::plaintext($rolevals[$i]);	$crsroles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Course');
$grproles[$i]=&Apache::loncommon::convert_role($crsroles[$i],'Group');	$grproles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Group');
}	}
my $rolevalslist = join('","',@rolevals);	my $rolevalslist = join('","',@rolevals);
my $crsrolenameslist = join('","',@crsroles);	my $crsrolenameslist = join('","',@crsroles);
Line 705 END	Line 705 END
}	}
my $plaintext='';	my $plaintext='';
unless ($croletitle) {	unless ($croletitle) {
$plaintext=&Apache::lonnet::plaintext($role_code);	$plaintext=&Apache::lonnet::plaintext($role_code,$class)
if ($class eq 'Group') {
$plaintext = &Apache::loncommon::convert_role($plaintext,$class);
}
} else {	} else {
$plaintext=	$plaintext=
"Customrole '$croletitle' defined by $croleuname\@$croleudom";	"Customrole '$croletitle' defined by $croleuname\@$croleudom";