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.148 and 1.157

version 1.148, 2007/03/12 17:06:59	version 1.157, 2007/07/20 23:52:55
Line 122 sub portfolio_quota {	Line 122 sub portfolio_quota {
my ($ccuname,$ccdomain) = @_;	my ($ccuname,$ccdomain) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'disk' => "Disk space allocated to user's portfolio files",	'disk' => "Disk space allocated to user's portfolio files",
	'cuqu' => "Current quota",
	'cust' => "Custom quota",
	'defa' => "Default",
	'chqu' => "Change quota",
);	);
my $output = '<h3>'.$lt{'disk'}.'</h3>'.	my ($currquota,$quotatype,$inststatus,$defquota) =
	&Apache::loncommon::get_user_quota($ccuname,$ccdomain);
	my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain);
	my ($longinsttype,$showquota,$custom_on,$custom_off,$defaultinfo);
	if ($inststatus ne '') {
	if ($usertypes->{$inststatus} ne '') {
	$longinsttype = $usertypes->{$inststatus};
	}
	}
	$custom_on = ' ';
	$custom_off = ' checked="checked" ';
	my $quota_javascript = <<"END_SCRIPT";
	<script type="text/javascript">
	function quota_changes(caller) {
	if (caller == "custom") {
	if (document.cu.customquota[0].checked) {
	document.cu.portfolioquota.value = "";
	}
	}
	if (caller == "quota") {
	document.cu.customquota[1].checked = true;
	}
	}
	</script>
	END_SCRIPT
	if ($quotatype eq 'custom') {
	$custom_on = $custom_off;
	$custom_off = ' ';
	$showquota = $currquota;
	if ($longinsttype eq '') {
	$defaultinfo = &mt('For this user, the default quota would be [_1]
	Mb.',$defquota);
	} else {
	$defaultinfo = &mt("For this user, the default quota would be [_1]
	Mb, as determined by the user's institutional
	affiliation ([_2]).",$defquota,$longinsttype);
	}
	} else {
	if ($longinsttype eq '') {
	$defaultinfo = &mt('For this user, the default quota is [_1]
	Mb.',$defquota);
	} else {
	$defaultinfo = &mt("For this user, the default quota of [_1]
	Mb, is determined by the user's institutional
	affiliation ([_2]).",$defquota,$longinsttype);
	}
	}
	my $output = $quota_javascript.
	'<h3>'.$lt{'disk'}.'</h3>'.
	$lt{'cuqu'}.': '.$currquota.' Mb.  '.
	$defaultinfo.'<br /><span class="LC_nobreak">'.$lt{'chqu'}.
	': <label>'.
	'<input type="radio" name="customquota" value="0" '.
	$custom_off.' onchange="javascript:quota_changes('."'custom'".')"
	/>'.$lt{'defa'}.' ('.$defquota.' Mb).</label> '.
	' <label><input type="radio" name="customquota" value="1" '.
	$custom_on.' onchange="javascript:quota_changes('."'custom'".')" />'.
	$lt{'cust'}.':</label> '.
'<input type="text" name="portfolioquota" size ="5" value="'.	'<input type="text" name="portfolioquota" size ="5" value="'.
&Apache::loncommon::get_user_quota($ccuname,$ccdomain).	$showquota.'" onfocus="javascript:quota_changes('."'quota'".')" '.
'" /> Mb';	'/> Mb';
return $output;	return $output;
}	}

Line 161 sub print_username_entry_form {	Line 222 sub print_username_entry_form {
$r->print(<<"ENDDOCUMENT");	$r->print(<<"ENDDOCUMENT");
$start_page	$start_page
<form action="/adm/createuser" method="post" name="crtuser">	<form action="/adm/createuser" method="post" name="crtuser">
<input type="hidden" name="phase" value="get_user_info">	<input type="hidden" name="phase" value="get_user_info" />
<h2>$lt{siur}$helpsiur</h2>	<h2>$lt{siur}$helpsiur</h2>
<table>	<table>
<tr><td>$lt{usr}:</td><td><input type="text" size="15" name="ccuname">	<tr><td>$lt{usr}:</td><td><input type="text" size="15" name="ccuname" />
</td><td rowspan="2">$sellink</td></tr><tr><td>	</td><td rowspan="2">$sellink</td></tr><tr><td>
$lt{'dom'}:</td><td>$domform</td></tr>	$lt{'dom'}:</td><td>$domform</td></tr>
</table>	</table>
Line 174 ENDDOCUMENT	Line 235 ENDDOCUMENT
if (&Apache::lonnet::allowed('mcr','/')) {	if (&Apache::lonnet::allowed('mcr','/')) {
$r->print(<<ENDCUSTOM);	$r->print(<<ENDCUSTOM);
<form action="/adm/createuser" method="post" name="docustom">	<form action="/adm/createuser" method="post" name="docustom">
<input type="hidden" name="phase" value="selected_custom_edit">	<input type="hidden" name="phase" value="selected_custom_edit" />
<h2>$lt{'ecrp'}$helpecpr</h2>	<h2>$lt{'ecrp'}$helpecpr</h2>
$lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />	$lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
<input name="customeditor" type="submit" value="$lt{'cre'}" />	<input name="customeditor" type="submit" value="$lt{'cre'}" />
Line 234 sub print_user_modification_page {	Line 295 sub print_user_modification_page {
);	);
$loginscript = &Apache::loncommon::authform_header(%param);	$loginscript = &Apache::loncommon::authform_header(%param);
$authformkrb = &Apache::loncommon::authform_kerberos(%param);	$authformkrb = &Apache::loncommon::authform_kerberos(%param);

$ccuname =&LONCAPA::clean_username($ccuname);	$ccuname =&LONCAPA::clean_username($ccuname);
$ccdomain=&LONCAPA::clean_domain($ccdomain);	$ccdomain=&LONCAPA::clean_domain($ccdomain);
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();	my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
Line 445 ENDSECCODE	Line 506 ENDSECCODE

my $forminfo =<<"ENDFORMINFO";	my $forminfo =<<"ENDFORMINFO";
<form action="/adm/createuser" method="post" name="cu">	<form action="/adm/createuser" method="post" name="cu">
<input type="hidden" name="phase" value="update_user_data">	<input type="hidden" name="phase" value="update_user_data" />
<input type="hidden" name="ccuname" value="$ccuname">	<input type="hidden" name="ccuname" value="$ccuname" />
<input type="hidden" name="ccdomain" value="$ccdomain">	<input type="hidden" name="ccdomain" value="$ccdomain" />
<input type="hidden" name="pres_value" value="" >	<input type="hidden" name="pres_value" value="" />
<input type="hidden" name="pres_type" value="" >	<input type="hidden" name="pres_type" value="" />
<input type="hidden" name="pres_marker" value="" >	<input type="hidden" name="pres_marker" value="" />
ENDFORMINFO	ENDFORMINFO
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);	my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
my %inccourses;	my %inccourses;
Line 669 END	Line 730 END
my $active=1;	my $active=1;
$active=0 if (($role_end_time) && ($now>$role_end_time));	$active=0 if (($role_end_time) && ($now>$role_end_time));
if (($active) && ($allowed)) {	if (($active) && ($allowed)) {
$row.= '<input type="checkbox" name="rev:'.$thisrole.'">';	$row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';
} else {	} else {
if ($active) {	if ($active) {
$row.=' ';	$row.=' ';
Line 679 END	Line 740 END
}	}
$row.='</td><td>';	$row.='</td><td>';
if ($allowed && !$active) {	if ($allowed && !$active) {
$row.= '<input type="checkbox" name="ren:'.$thisrole.'">';	$row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';
} else {	} else {
$row.=' ';	$row.=' ';
}	}
$row.='</td><td>';	$row.='</td><td>';
if ($delallowed) {	if ($delallowed) {
$row.= '<input type="checkbox" name="del:'.$thisrole.'">';	$row.= '<input type="checkbox" name="del:'.$thisrole.'" />';
} else {	} else {
$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 938 ENDNOPRIV	Line 999 ENDNOPRIV
$num_domain_level ++;	$num_domain_level ++;
$domaintext .=	$domaintext .=
&Apache::loncommon::start_data_table_row().	&Apache::loncommon::start_data_table_row().
'<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'"></td>	'<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'" /></td>
<td>'.$plrole.'</td>	<td>'.$plrole.'</td>
<td>'.$thisdomain.'</td>	<td>'.$thisdomain.'</td>
<td><input type=hidden name="start_'.$thisdomain.'_'.$role.'" value="">	<td><input type=hidden name="start_'.$thisdomain.'_'.$role.'" value="" />
<a href=	<a href=
"javascript:pjump('."'date_start','Start Date $plrole',document.cu.start_$thisdomain\_$role.value,'start_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>	"javascript:pjump('."'date_start','Start Date $plrole',document.cu.start_$thisdomain\_$role.value,'start_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
<td><input type=hidden name="end_'.$thisdomain.'_'.$role.'" value="">	<td><input type=hidden name="end_'.$thisdomain.'_'.$role.'" value="" />
<a href=	<a href=
"javascript:pjump('."'date_end','End Date $plrole',document.cu.end_$thisdomain\_$role.value,'end_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'.	"javascript:pjump('."'date_end','End Date $plrole',document.cu.end_$thisdomain\_$role.value,'end_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'.
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row();
Line 961 ENDNOPRIV	Line 1022 ENDNOPRIV

if ($env{'request.role'} =~ m{^dc\./($match_domain)/$}) {	if ($env{'request.role'} =~ m{^dc\./($match_domain)/$}) {
$r->print(&course_level_dc($1,'Course'));	$r->print(&course_level_dc($1,'Course'));
$r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()">'."\n");	$r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()" />'."\n");
} else {	} else {
$r->print(&course_level_table(%inccourses));	$r->print(&course_level_table(%inccourses));
$r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setSections()">'."\n");	$r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setSections()" />'."\n");
}	}
$r->print("</form>".&Apache::loncommon::end_page());	$r->print("</form>".&Apache::loncommon::end_page());
}	}
Line 1115 ENDMODIFYUSERHEAD	Line 1176 ENDMODIFYUSERHEAD
# Check for need to change	# Check for need to change
my %userenv = &Apache::lonnet::get	my %userenv = &Apache::lonnet::get
('environment',['firstname','middlename','lastname','generation',	('environment',['firstname','middlename','lastname','generation',
'portfolioquota'],$env{'form.ccdomain'},$env{'form.ccuname'});	'portfolioquota','inststatus'],$env{'form.ccdomain'},
	$env{'form.ccuname'});
my ($tmp) = keys(%userenv);	my ($tmp) = keys(%userenv);
if ($tmp =~ /^(con_lost\|error)/i) {	if ($tmp =~ /^(con_lost\|error)/i) {
%userenv = ();	%userenv = ();
Line 1125 ENDMODIFYUSERHEAD	Line 1187 ENDMODIFYUSERHEAD
# Strip leading and trailing whitespace	# Strip leading and trailing whitespace
$env{'form.c'.$item} =~ s/(\s+$\|^\s+)//g;	$env{'form.c'.$item} =~ s/(\s+$\|^\s+)//g;
}	}
my ($quotachanged,$namechanged,$oldportfolioquota);	my ($quotachanged,$namechanged,$oldportfolioquota,$newportfolioquota,
	$inststatus,$isdefault,$defquotatext);
	my ($defquota,$settingstatus) =
	&Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);
my %changeHash;	my %changeHash;
if (exists($userenv{'portfolioquota'})) {	if ($userenv{'portfolioquota'} ne '') {
$oldportfolioquota = $userenv{'portfolioquota'};	$oldportfolioquota = $userenv{'portfolioquota'};
if (exists($env{'form.portfolioquota'})) {	if ($env{'form.customquota'} == 1) {
if ($env{'form.portfolioquota'} ne $userenv{'portfolioquota'}) {	if ($env{'form.portfolioquota'} eq '') {
if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {	$newportfolioquota = 0;
# Current user has quota modification privileges	} else {
$quotachanged = 1;	$newportfolioquota = $env{'form.portfolioquota'};
$changeHash{'portfolioquota'} = $env{'form.portfolioquota'};	$newportfolioquota =~ s/[^\d\.]//g;
}
}	}
	if ($newportfolioquota != $userenv{'portfolioquota'}) {
	$quotachanged = &quota_admin($newportfolioquota,\%changeHash);
	}
	} else {
	$quotachanged = &quota_admin('',\%changeHash);
	$newportfolioquota = $defquota;
	$isdefault = 1;
}	}
} else {	} else {
$oldportfolioquota =	$oldportfolioquota = $defquota;
&Apache::loncommon::default_quota($env{'form.ccdomain'});	if ($env{'form.customquota'} == 1) {
	if ($env{'form.portfolioquota'} eq '') {
	$newportfolioquota = 0;
	} else {
	$newportfolioquota = $env{'form.portfolioquota'};
	$newportfolioquota =~ s/[^\d\.]//g;
	}
	$quotachanged = &quota_admin($newportfolioquota,\%changeHash);
	} else {
	$newportfolioquota = $defquota;
	$isdefault = 1;
	}
	}
	if ($isdefault) {
	if ($settingstatus eq '') {
	$defquotatext = &mt('(default)');
	} else {
	my ($usertypes,$order) =
	&Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});
	if ($usertypes->{$settingstatus} eq '') {
	$defquotatext = &mt('(default)');
	} else {
	$defquotatext = &mt('(default for [_1])',$usertypes->{$settingstatus});
	}
	}
}	}
if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) &&	if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) &&
($env{'form.cfirstname'} ne $userenv{'firstname'} \|\|	($env{'form.cfirstname'} ne $userenv{'firstname'} \|\|
Line 1184 ENDMODIFYUSERHEAD	Line 1279 ENDMODIFYUSERHEAD
<td>$userenv{'middlename'} </td>	<td>$userenv{'middlename'} </td>
<td>$userenv{'lastname'} </td>	<td>$userenv{'lastname'} </td>
<td>$userenv{'generation'} </td>	<td>$userenv{'generation'} </td>
<td>$oldportfolioquota</td>	<td>$oldportfolioquota Mb</td>
</tr>	</tr>
<tr><td>$lt{'chto'}</td>	<tr><td>$lt{'chto'}</td>
<td>$env{'form.cfirstname'} </td>	<td>$env{'form.cfirstname'} </td>
<td>$env{'form.cmiddlename'} </td>	<td>$env{'form.cmiddlename'} </td>
<td>$env{'form.clastname'} </td>	<td>$env{'form.clastname'} </td>
<td>$env{'form.cgeneration'} </td>	<td>$env{'form.cgeneration'} </td>
<td>$env{'form.portfolioquota'} Mb</td></tr>	<td>$newportfolioquota Mb $defquotatext </td></tr>
</table>	</table>
END	END
	if (($env{'form.ccdomain'} eq $env{'user.domain'}) &&
	($env{'form.ccuname'} eq $env{'user.name'})) {
	my %newenvhash;
	foreach my $key (keys(%changeHash)) {
	$newenvhash{'environment.'.$key} = $changeHash{$key};
	}
	&Apache::lonnet::appenv(%newenvhash);
	}
} else { # error occurred	} else { # error occurred
$r->print("<h2>".&mt('Unable to successfully change environment for')." ".	$r->print("<h2>".&mt('Unable to successfully change environment for')." ".
$env{'form.ccuname'}." ".&mt('in domain')." ".	$env{'form.ccuname'}." ".&mt('in domain')." ".
Line 1220 END	Line 1323 END
<h4>$lt{'gen'}: $userenv{'generation'}</h4>	<h4>$lt{'gen'}: $userenv{'generation'}</h4>
END	END
if ($putresult eq 'ok') {	if ($putresult eq 'ok') {
if ($oldportfolioquota ne $env{'form.portfolioquota'}) {	if ($oldportfolioquota != $newportfolioquota) {
$r->print('<h4>'.$lt{'disk'}.': '.$env{'form.portfolioquota'}.' Mb</h4>');	$r->print('<h4>'.$lt{'disk'}.': '.$newportfolioquota.' Mb '.
	$defquotatext.'</h4>');
	&Apache::lonnet::appenv('environment.portfolioquota' => $changeHash{'portfolioquota'});
}	}
}	}
}	}
Line 1446 END	Line 1551 END
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

	sub quota_admin {
	my ($setquota,$changeHash) = @_;
	my $quotachanged;
	if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
	# Current user has quota modification privileges
	$quotachanged = 1;
	$changeHash->{'portfolioquota'} = $setquota;
	}
	return $quotachanged;
	}

sub build_roles {	sub build_roles {
my ($sectionstr,$sections,$role) = @_;	my ($sectionstr,$sections,$role) = @_;
my $num_sections = 0;	my $num_sections = 0;
Line 1458 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 1491 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 1530 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 1541 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 1568 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="'.&mt("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 1592 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 1616 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 1672 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') {
Line 1732 sub course_level_table {	Line 1933 sub course_level_table {
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {	if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
my $plrole=&Apache::lonnet::plaintext($role);	my $plrole=&Apache::lonnet::plaintext($role);
$table .= &Apache::loncommon::start_data_table_row().	$table .= &Apache::loncommon::start_data_table_row().
'<td><input type="checkbox" name="act_'.$protectedcourse.'_'.$role.'"></td>	'<td><input type="checkbox" name="act_'.$protectedcourse.'_'.$role.'" /></td>
<td>'.$plrole.'</td>	<td>'.$plrole.'</td>
<td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";	<td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
if ($role ne 'cc') {	if ($role ne 'cc') {
Line 1745 sub course_level_table {	Line 1946 sub course_level_table {
$currsec.'</td>'.	$currsec.'</td>'.
'<td>  </td>'.	'<td>  </td>'.
'<td valign="top"> '.$lt{'new'}.'<br />'.	'<td valign="top"> '.$lt{'new'}.'<br />'.
'<input type="text" name="newsec_'.$protectedcourse.'_'.$role.'" value="" /></td>'.	'<input type="text" name="newsec_'.$protectedcourse.'_'.$role.'" value="" />'.
'<input type="hidden" '.	'<input type="hidden" '.
'name="sec_'.$protectedcourse.'_'.$role.'"></td>'.	'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'.
'</tr></table></td>';	'</tr></table></td>';
} else {	} else {
$table .= '<td><input type="text" size="10" '.	$table .= '<td><input type="text" size="10" '.
'name="sec_'.$protectedcourse.'_'.$role.'"></td>';	'name="sec_'.$protectedcourse.'_'.$role.'" /></td>';
}	}
} else {	} else {
$table .= '<td>&nbsp</td>';	$table .= '<td>&nbsp</td>';
}	}
$table .= <<ENDTIMEENTRY;	$table .= <<ENDTIMEENTRY;
<td><input type=hidden name="start_$protectedcourse\_$role" value=''>	<td><input type=hidden name="start_$protectedcourse\_$role" value='' />
<a href=	<a href=
"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$role.value,'start_$protectedcourse\_$role','cu.pres','dateset')">$lt{'ssd'}</a></td>	"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$role.value,'start_$protectedcourse\_$role','cu.pres','dateset')">$lt{'ssd'}</a></td>
<td><input type=hidden name="end_$protectedcourse\_$role" value=''>	<td><input type=hidden name="end_$protectedcourse\_$role" value='' />
<a href=	<a href=
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td>	"javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td>
ENDTIMEENTRY	ENDTIMEENTRY
Line 1773 ENDTIMEENTRY	Line 1974 ENDTIMEENTRY
my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.	my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.
'_'.$env{'user.name'}.'_'.$plrole;	'_'.$env{'user.name'}.'_'.$plrole;
$table .= &Apache::loncommon::start_data_table_row().	$table .= &Apache::loncommon::start_data_table_row().
'<td><input type="checkbox" name="act_'.$customrole.'"></td>	'<td><input type="checkbox" name="act_'.$customrole.'" /></td>
<td>'.$plrole.'</td>	<td>'.$plrole.'</td>
<td>'.$area.'</td>'."\n";	<td>'.$area.'</td>'."\n";
if (%sections_count) {	if (%sections_count) {
Line 1786 ENDTIMEENTRY	Line 1987 ENDTIMEENTRY
'<td valign="top"> '.$lt{'new'}.'<br />'.	'<td valign="top"> '.$lt{'new'}.'<br />'.
'<input type="text" name="newsec_'.$customrole.'" value="" /></td>'.	'<input type="text" name="newsec_'.$customrole.'" value="" /></td>'.
'<input type="hidden" '.	'<input type="hidden" '.
'name="sec_'.$customrole.'"></td>'.	'name="sec_'.$customrole.'" /></td>'.
'</tr></table></td>';	'</tr></table></td>';
} else {	} else {
$table .= '<td><input type="text" size="10" '.	$table .= '<td><input type="text" size="10" '.
'name="sec_'.$customrole.'"></td>';	'name="sec_'.$customrole.'" /></td>';
}	}
$table .= <<ENDENTRY;	$table .= <<ENDENTRY;
<td><input type=hidden name="start_$customrole" value=''>	<td><input type=hidden name="start_$customrole" value='' />
<a href=	<a href=
"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>	"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>
<td><input type=hidden name="end_$customrole" value=''>	<td><input type=hidden name="end_$customrole" value='' />
<a href=	<a href=
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td>	"javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td>
ENDENTRY	ENDENTRY
Line 1813 ENDENTRY	Line 2014 ENDENTRY
'<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>	'<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>
<th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.	<th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
&Apache::loncommon::end_data_table_header_row().	&Apache::loncommon::end_data_table_header_row().
&Apache::loncommon::start_data_table_row().
$table.	$table.
&Apache::loncommon::end_data_table_row().
&Apache::loncommon::end_data_table();	&Apache::loncommon::end_data_table();
return $result;	return $result;
}	}
Line 1890 sub course_level_dc {	Line 2089 sub course_level_dc {
'<input type="hidden" name="groups" value="" /></td>'.	'<input type="hidden" name="groups" value="" /></td>'.
'</tr></table></td>';	'</tr></table></td>';
$otheritems .= <<ENDTIMEENTRY;	$otheritems .= <<ENDTIMEENTRY;
<td><input type=hidden name="start" value=''>	<td><input type=hidden name="start" value='' />
<a href=	<a href=
"javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>	"javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>
<td><input type=hidden name="end" value=''>	<td><input type=hidden name="end" value='' />
<a href=	<a href=
"javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>	"javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>
ENDTIMEENTRY	ENDTIMEENTRY

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

Removed from v.1.148
changed lines
	Added in v.1.157