loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.324, 2009/11/12 15:58:22	version 1.326, 2009/11/18 20:01:36
Line 552 sub print_username_entry_form {	Line 552 sub print_username_entry_form {
&mt('View/Modify existing role:').'</b></label></td>'.	&mt('View/Modify existing role:').'</b></label></td>'.
'<td align="center"><br />'.	'<td align="center"><br />'.
'<select name="rolename" onchange="setCustomAction('."'edit'".');">'.	'<select name="rolename" onchange="setCustomAction('."'edit'".');">'.
'<option value="" selected="selected" onchange="">'.	'<option value="" selected="selected">'.
&mt('Select'));	&mt('Select'));
foreach my $role (sort(keys(%existingroles))) {	foreach my $role (sort(keys(%existingroles))) {
$r->print('<option value="$role">'.$role.'</option>');	$r->print('<option value="'.$role.'">'.$role.'</option>');
}	}
$r->print('</select>'.	$r->print('</select>'.
'</td>'.	'</td>'.
Line 3572 sub custom_role_editor {	Line 3572 sub custom_role_editor {
my $dompriv='';	my $dompriv='';
my $coursepriv='';	my $coursepriv='';
my $body_top;	my $body_top;
my ($disp_dummy,$disp_roles) = &Apache::lonnet::get('roles',["st"]);
my ($rdummy,$roledef)=	my ($rdummy,$roledef)=
&Apache::lonnet::get('roles',["rolesdef_$rolename"]);	&Apache::lonnet::get('roles',["rolesdef_$rolename"]);
# ------------------------------------------------------- Does this role exist?	# ------------------------------------------------------- Does this role exist?