--- loncom/interface/loncreateuser.pm 2010/05/22 13:30:43 1.295.2.34
+++ loncom/interface/loncreateuser.pm 2010/11/01 13:54:00 1.295.2.36
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.295.2.34 2010/05/22 13:30:43 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.295.2.36 2010/11/01 13:54:00 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1461,7 +1461,8 @@ sub display_existing_roles {
$rolesdump{$newkey} = $newvalue;
}
} else {
- %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
+ my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
+ %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname,'.',undef,$extra);
}
# Build up table of user roles to allow revocation and re-enabling of roles.
my ($tmp) = keys(%rolesdump);
@@ -1613,7 +1614,10 @@ sub display_existing_roles {
$plaintext=&Apache::lonnet::plaintext($role_code,$class)
} else {
$plaintext=
- "Customrole '$croletitle'
defined by $croleuname\@$croleudom";
+ &mt('Customrole [_1][_2]defined by [_3]',
+ '"'.$croletitle.'"',
+ '
',
+ $croleuname.':'.$croleudom);
}
$row.= '
'.&mt('Please be patient').'
'); my (%alerts,%rulematch,%inst_results,%curr_rules); my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); my @usertools = ('aboutme','blog','portfolio'); @@ -2438,6 +2443,9 @@ sub update_user_data { $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end); } } + + $r->rflush(); # Finish display of header before time consuming actions start + ## my (@userroles,%userupdate,$cnum,$cdom,%namechanged); if ($context eq 'course') {