version 1.356, 2011/09/01 02:32:50
|
version 1.359, 2011/12/08 22:10:18
|
Line 742 sub user_modification_js {
|
Line 742 sub user_modification_js {
|
<script type="text/javascript" language="Javascript"> |
<script type="text/javascript" language="Javascript"> |
// <![CDATA[ |
// <![CDATA[ |
|
|
function pclose() { |
|
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
|
"height=350,width=350,scrollbars=no,menubar=no"); |
|
parmwin.close(); |
|
} |
|
|
|
$pjump_def |
$pjump_def |
$dc_setcourse_code |
$dc_setcourse_code |
|
|
function dateset() { |
function dateset() { |
eval("document.cu."+document.cu.pres_marker.value+ |
eval("document.cu."+document.cu.pres_marker.value+ |
".value=document.cu.pres_value.value"); |
".value=document.cu.pres_value.value"); |
pclose(); |
modalWindow.close(); |
} |
} |
|
|
$nondc_setsection_code |
$nondc_setsection_code |
Line 1322 ENDNOTOOLSPRIV
|
Line 1316 ENDNOTOOLSPRIV
|
$addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain); |
$addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain); |
} |
} |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
my $add_domainroles = &new_domain_roles($r); |
my $add_domainroles = &new_domain_roles($r,$ccdomain); |
if (!$addrolesdisplay) { |
if (!$addrolesdisplay) { |
$addrolesdisplay = $add_domainroles; |
$addrolesdisplay = $add_domainroles; |
} |
} |
Line 1765 sub new_coauthor_roles {
|
Line 1759 sub new_coauthor_roles {
|
} |
} |
|
|
sub new_domain_roles { |
sub new_domain_roles { |
my ($r) = @_; |
my ($r,$ccdomain) = @_; |
my $addrolesdisplay = 0; |
my $addrolesdisplay = 0; |
# |
# |
# Domain level |
# Domain level |
Line 1783 sub new_domain_roles {
|
Line 1777 sub new_domain_roles {
|
foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) { |
foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) { |
foreach my $role (@allroles) { |
foreach my $role (@allroles) { |
next if ($role eq 'ad'); |
next if ($role eq 'ad'); |
|
next if (($role eq 'au') && ($ccdomain ne $thisdomain)); |
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) { |
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) { |
my $plrole=&Apache::lonnet::plaintext($role); |
my $plrole=&Apache::lonnet::plaintext($role); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
Line 4041 sub handler {
|
Line 4036 sub handler {
|
my ($permission,$allowed) = |
my ($permission,$allowed) = |
&Apache::lonuserutils::get_permission($context,$crstype); |
&Apache::lonuserutils::get_permission($context,$crstype); |
if (!$allowed) { |
if (!$allowed) { |
|
if ($context eq 'course') { |
|
$r->internal_redirect('/adm/viewclasslist'); |
|
return OK; |
|
} |
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
"/adm/createuser:cst:0:0:Cannot create/modify user data ". |
"/adm/createuser:cst:0:0:Cannot create/modify user data ". |
"or view user status."; |
"or view user status."; |