loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreateuser.pm between versions 1.149 and 1.155

version 1.149, 2007/05/29 17:48:44	version 1.155, 2007/06/11 22:24:51
Line 751 END	Line 751 END
$row.=' ';	$row.=' ';
}	}
my $plaintext='';	my $plaintext='';
unless ($croletitle) {	if (!$croletitle) {
$plaintext=&Apache::lonnet::plaintext($role_code,$class)	$plaintext=&Apache::lonnet::plaintext($role_code,$class)
} else {	} else {
$plaintext=	$plaintext=
Line 1574 sub build_roles {	Line 1574 sub build_roles {
} else {	} else {
foreach my $sec (@secnums) {	foreach my $sec (@secnums) {
$sec =~ ~s/\W//g;	$sec =~ ~s/\W//g;
unless ($sec eq "") {	if (!($sec eq "")) {
if (exists($$sections{$sec})) {	if (exists($$sections{$sec})) {
$$sections{$sec} ++;	$$sections{$sec} ++;
} else {	} else {
Line 1607 sub custom_role_editor {	Line 1607 sub custom_role_editor {

$rolename=~s/[^A-Za-z0-9]//gs;	$rolename=~s/[^A-Za-z0-9]//gs;

unless ($rolename) {	if (!$rolename) {
&print_username_entry_form($r);	&print_username_entry_form($r);
return;	return;
}	}
	# ------------------------------------------------------- What can be assigned?
$r->print(&Apache::loncommon::start_page('Custom Role Editor'));	my %full=();
	my %courselevel=();
	my %courselevelcurrent=();
my $syspriv='';	my $syspriv='';
my $dompriv='';	my $dompriv='';
my $coursepriv='';	my $coursepriv='';
	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?
$r->print('<h2>');	$body_top .= '<h2>';
if (($rdummy ne 'con_lost') && ($roledef ne '')) {	if (($rdummy ne 'con_lost') && ($roledef ne '')) {
$r->print(&mt('Existing Role').' "');	$body_top .= &mt('Existing Role').' "';
# ------------------------------------------------- Get current role privileges	# ------------------------------------------------- Get current role privileges
($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);	($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);
} else {	} else {
$r->print(&mt('New Role').' "');	$body_top .= &mt('New Role').' "';
$roledef='';	$roledef='';
}	}
$r->print($rolename.'"</h2>');	$body_top .= $rolename.'"</h2>';
# ------------------------------------------------------- What can be assigned?
my %full=();
my %courselevel=();
my %courselevelcurrent=();
foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
my ($priv,$restrict)=split(/\&/,$item);	my ($priv,$restrict)=split(/\&/,$item);
unless ($restrict) { $restrict='F'; }	if (!$restrict) { $restrict='F'; }
$courselevel{$priv}=$restrict;	$courselevel{$priv}=$restrict;
if ($coursepriv=~/\:$priv/) {	if ($coursepriv=~/\:$priv/) {
$courselevelcurrent{$priv}=1;	$courselevelcurrent{$priv}=1;
Line 1646 sub custom_role_editor {	Line 1646 sub custom_role_editor {
my %domainlevelcurrent=();	my %domainlevelcurrent=();
foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
my ($priv,$restrict)=split(/\&/,$item);	my ($priv,$restrict)=split(/\&/,$item);
unless ($restrict) { $restrict='F'; }	if (!$restrict) { $restrict='F'; }
$domainlevel{$priv}=$restrict;	$domainlevel{$priv}=$restrict;
if ($dompriv=~/\:$priv/) {	if ($dompriv=~/\:$priv/) {
$domainlevelcurrent{$priv}=1;	$domainlevelcurrent{$priv}=1;
Line 1657 sub custom_role_editor {	Line 1657 sub custom_role_editor {
my %systemlevelcurrent=();	my %systemlevelcurrent=();
foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
my ($priv,$restrict)=split(/\&/,$item);	my ($priv,$restrict)=split(/\&/,$item);
unless ($restrict) { $restrict='F'; }	if (!$restrict) { $restrict='F'; }
$systemlevel{$priv}=$restrict;	$systemlevel{$priv}=$restrict;
if ($syspriv=~/\:$priv/) {	if ($syspriv=~/\:$priv/) {
$systemlevelcurrent{$priv}=1;	$systemlevelcurrent{$priv}=1;
}	}
$full{$priv}=1;	$full{$priv}=1;
}	}
	my $button_code = "\n";
	my $head_script = "\n";
	$head_script .= '<script type="text/javascript">'."\n";
	my @template_roles = ("cc","in","ta","ep","st");
	foreach my $role (@template_roles) {
	$head_script .= &make_script_template($role);
	$button_code .= &make_button_code($role);
	}
	$head_script .= '</script>'."\n";
	$r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));
	$r->print($body_top);
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'prv' => "Privilege",	'prv' => "Privilege",
'crl' => "Course Level",	'crl' => "Course Level",
'dml' => "Domain Level",	'dml' => "Domain Level",
'ssl' => "System Level"	'ssl' => "System Level");
);	$r->print('Select a Template<br />');
	$r->print('<form action="">');
	$r->print($button_code);
	$r->print('</form>');
$r->print(<<ENDCCF);	$r->print(<<ENDCCF);
<form method="post">	<form name=form1 method="post">
<input type="hidden" name="phase" value="set_custom_roles" />	<input type="hidden" name="phase" value="set_custom_roles" />
<input type="hidden" name="rolename" value="$rolename" />	<input type="hidden" name="rolename" value="$rolename" />
ENDCCF	ENDCCF
Line 1684 ENDCCF	Line 1698 ENDCCF
my $privtext = &Apache::lonnet::plaintext($priv);	my $privtext = &Apache::lonnet::plaintext($priv);
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
'<td>'.$privtext.'</td><td>'.	'<td>'.$privtext.'</td><td>'.
($courselevel{$priv}?'<input type="checkbox" name="'.$priv.':c" '.	($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c" '.
($courselevelcurrent{$priv}?'checked="1"':'').' />':' ').	($courselevelcurrent{$priv}?'checked="1"':'').' />':' ').
'</td><td>'.	'</td><td>'.
($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.':d" '.	($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d" '.
($domainlevelcurrent{$priv}?'checked="1"':'').' />':' ').	($domainlevelcurrent{$priv}?'checked="1"':'').' />':' ').
'</td><td>'.	'</td><td>'.
($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.':s" '.	($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s" '.
($systemlevelcurrent{$priv}?'checked="1"':'').' />':' ').	($systemlevelcurrent{$priv}?'checked="1"':'').' />':' ').
'</td>'.	'</td>'.
&Apache::loncommon::end_data_table_row());	&Apache::loncommon::end_data_table_row());
}	}
$r->print(&Apache::loncommon::end_data_table().	$r->print(&Apache::loncommon::end_data_table().
'<input type="submit" value="'.&mt('Define Role').'" /></form>'.	'<input type="reset" value="Reset" /><input type="submit" value="'.&mt('Define Role').'" /></form>'.
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
}	}
	# --------------------------------------------------------
	sub make_script_template {
	my ($role) = @_;
	my %full_c=();
	my %full_d=();
	my %full_s=();
	my $return_script;
	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
	my ($priv,$restrict)=split(/\&/,$item);
	$full_c{$priv}=1;
	}
	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
	my ($priv,$restrict)=split(/\&/,$item);
	$full_d{$priv}=1;
	}
	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
	my ($priv,$restrict)=split(/\&/,$item);
	$full_s{$priv}=1;
	}
	$return_script .= 'function set_'.$role.'() {'."\n";
	my @temp = split(/:/,$Apache::lonnet::pr{$role.':c'});
	my %role_c;
	foreach my $priv (@temp) {
	my ($priv_item, $dummy) = split(/\&/,$priv);
	$role_c{$priv_item} = 1;
	}
	foreach my $priv_item (keys(%full_c)) {
	my ($priv, $dummy) = split(/\&/,$priv_item);
	if (exists($role_c{$priv})) {
	$return_script .= "document.form1.$priv"."_c.checked = true;\n";
	} else {
	$return_script .= "document.form1.$priv"."_c.checked = false;\n";
	}
	}
	my %role_d;
	@temp = split(/:/,$Apache::lonnet::pr{$role.':d'});
	foreach my $priv(@temp) {
	my ($priv_item, $dummy) = split(/\&/,$priv);
	$role_d{$priv_item} = 1;
	}
	foreach my $priv_item (keys(%full_d)) {
	my ($priv, $dummy) = split(/\&/,$priv_item);
	if (exists($role_d{$priv})) {
	$return_script .= "document.form1.$priv"."_d.checked = true;\n";
	} else {
	$return_script .= "document.form1.$priv"."_d.checked = false;\n";
	}
	}
	my %role_s;
	@temp = split(/:/,$Apache::lonnet::pr{$role.':s'});
	foreach my $priv(@temp) {
	my ($priv_item, $dummy) = split(/\&/,$priv);
	$role_s{$priv_item} = 1;
	}
	foreach my $priv_item (keys(%full_s)) {
	my ($priv, $dummy) = split(/\&/,$priv_item);
	if (exists($role_s{$priv})) {
	$return_script .= "document.form1.$priv"."_s.checked = true;\n";
	} else {
	$return_script .= "document.form1.$priv"."_s.checked = false;\n";
	}
	}
	$return_script .= '}'."\n";
	return ($return_script);
	}
	# ----------------------------------------------------------
	sub make_button_code {
	my ($role) = @_;
	my $label = &Apache::lonnet::plaintext($role);
	my $button_code = '<input type="button" onClick="set_'.$role.'()" value="'.$label.'" />';
	return ($button_code);
	}
# ---------------------------------------------------------- Call to definerole	# ---------------------------------------------------------- Call to definerole
sub set_custom_role {	sub set_custom_role {
my ($r) = @_;	my ($r) = @_;
Line 1708 sub set_custom_role {	Line 1793 sub set_custom_role {

$rolename=~s/[^A-Za-z0-9]//gs;	$rolename=~s/[^A-Za-z0-9]//gs;

unless ($rolename) {	if (!$rolename) {
&print_username_entry_form($r);	&print_username_entry_form($r);
return;	return;
}	}
Line 1732 sub set_custom_role {	Line 1817 sub set_custom_role {

foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
my ($priv,$restrict)=split(/\&/,$item);	my ($priv,$restrict)=split(/\&/,$item);
unless ($restrict) { $restrict=''; }	if (!$restrict) { $restrict=''; }
if ($env{'form.'.$priv.':c'}) {	if ($env{'form.'.$priv.'_c'}) {
$courole.=':'.$item;	$courole.=':'.$item;
}	}
}	}

foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
my ($priv,$restrict)=split(/\&/,$item);	my ($priv,$restrict)=split(/\&/,$item);
unless ($restrict) { $restrict=''; }	if (!$restrict) { $restrict=''; }
if ($env{'form.'.$priv.':d'}) {	if ($env{'form.'.$priv.'_d'}) {
$domrole.=':'.$item;	$domrole.=':'.$item;
}	}
}	}

foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {	foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
my ($priv,$restrict)=split(/\&/,$item);	my ($priv,$restrict)=split(/\&/,$item);
unless ($restrict) { $restrict=''; }	if (!$restrict) { $restrict=''; }
if ($env{'form.'.$priv.':s'}) {	if ($env{'form.'.$priv.'_s'}) {
$sysrole.=':'.$item;	$sysrole.=':'.$item;
}	}
}	}
Line 1788 sub handler {	Line 1873 sub handler {
(&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) {	(&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
unless ($env{'form.phase'}) {	if (!$env{'form.phase'}) {
&print_username_entry_form($r);	&print_username_entry_form($r);
}	}
if ($env{'form.phase'} eq 'get_user_info') {	if ($env{'form.phase'} eq 'get_user_info') {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.149
changed lines
	Added in v.1.155