version 1.406.2.20.2.5, 2024/02/29 21:43:33
|
version 1.467, 2023/03/29 16:01:13
|
Line 79 my $authformkrb;
|
Line 79 my $authformkrb;
|
my $authformint; |
my $authformint; |
my $authformfsys; |
my $authformfsys; |
my $authformloc; |
my $authformloc; |
|
my $authformlti; |
|
|
sub initialize_authen_forms { |
sub initialize_authen_forms { |
my ($dom,$formname,$curr_authtype,$mode,$readonly) = @_; |
my ($dom,$formname,$curr_authtype,$mode) = @_; |
my ($krbdef,$krbdefdom) = &Apache::loncommon::get_kerberos_defaults($dom); |
my ($krbdef,$krbdefdom) = &Apache::loncommon::get_kerberos_defaults($dom); |
my %param = ( formname => $formname, |
my %param = ( formname => $formname, |
kerb_def_dom => $krbdefdom, |
kerb_def_dom => $krbdefdom, |
Line 89 sub initialize_authen_forms {
|
Line 90 sub initialize_authen_forms {
|
domain => $dom, |
domain => $dom, |
); |
); |
my %abv_auth = &auth_abbrev(); |
my %abv_auth = &auth_abbrev(); |
if ($curr_authtype =~ /^(krb4|krb5|internal|localauth|unix):(.*)$/) { |
if ($curr_authtype =~ /^(krb4|krb5|internal|localauth|unix|lti):(.*)$/) { |
my $long_auth = $1; |
my $long_auth = $1; |
my $curr_autharg = $2; |
my $curr_autharg = $2; |
my %abv_auth = &auth_abbrev(); |
my %abv_auth = &auth_abbrev(); |
Line 102 sub initialize_authen_forms {
|
Line 103 sub initialize_authen_forms {
|
$param{'mode'} = $mode; |
$param{'mode'} = $mode; |
} |
} |
} |
} |
if ($readonly) { |
|
$param{'readonly'} = 1; |
|
} |
|
$loginscript = &Apache::loncommon::authform_header(%param); |
$loginscript = &Apache::loncommon::authform_header(%param); |
$authformkrb = &Apache::loncommon::authform_kerberos(%param); |
$authformkrb = &Apache::loncommon::authform_kerberos(%param); |
$authformnop = &Apache::loncommon::authform_nochange(%param); |
$authformnop = &Apache::loncommon::authform_nochange(%param); |
$authformint = &Apache::loncommon::authform_internal(%param); |
$authformint = &Apache::loncommon::authform_internal(%param); |
$authformfsys = &Apache::loncommon::authform_filesystem(%param); |
$authformfsys = &Apache::loncommon::authform_filesystem(%param); |
$authformloc = &Apache::loncommon::authform_local(%param); |
$authformloc = &Apache::loncommon::authform_local(%param); |
|
$authformlti = &Apache::loncommon::authform_lti(%param); |
} |
} |
|
|
sub auth_abbrev { |
sub auth_abbrev { |
Line 120 sub auth_abbrev {
|
Line 119 sub auth_abbrev {
|
internal => 'int', |
internal => 'int', |
localauth => 'loc', |
localauth => 'loc', |
unix => 'fsys', |
unix => 'fsys', |
|
lti => 'lti', |
); |
); |
return %abv_auth; |
return %abv_auth; |
} |
} |
Line 127 sub auth_abbrev {
|
Line 127 sub auth_abbrev {
|
# ==================================================== |
# ==================================================== |
|
|
sub user_quotas { |
sub user_quotas { |
my ($ccuname,$ccdomain,$name) = @_; |
my ($ccuname,$ccdomain) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
|
'usrt' => "User Tools", |
'cust' => "Custom quota", |
'cust' => "Custom quota", |
'chqu' => "Change quota", |
'chqu' => "Change quota", |
); |
); |
my ($output,$longinsttype); |
|
my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain); |
my $quota_javascript = <<"END_SCRIPT"; |
my %titles = &Apache::lonlocal::texthash ( |
|
portfolio => "Disk space allocated to user's portfolio files", |
|
author => "Disk space allocated to user's Authoring Space", |
|
); |
|
my ($currquota,$quotatype,$inststatus,$defquota) = |
|
&Apache::loncommon::get_user_quota($ccuname,$ccdomain,$name); |
|
if ($longinsttype eq '') { |
|
if ($inststatus ne '') { |
|
if ($usertypes->{$inststatus} ne '') { |
|
$longinsttype = $usertypes->{$inststatus}; |
|
} |
|
} |
|
} |
|
my ($showquota,$custom_on,$custom_off,$defaultinfo,$colspan); |
|
$custom_on = ' '; |
|
$custom_off = ' checked="checked" '; |
|
$colspan = ' colspan="2"'; |
|
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,[_2]as determined by the user's institutional". |
|
" affiliation ([_3]).",$defquota,'<br />',$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,[_2]is determined by the user's institutional". |
|
" affiliation ([_3]).",$defquota,'<br />',$longinsttype); |
|
} |
|
} |
|
|
|
if (&Apache::lonnet::allowed('mpq',$ccdomain)) { |
|
$output .= '<tr class="LC_info_row">'."\n". |
|
' <td'.$colspan.'>'.$titles{$name}.'</td>'."\n". |
|
' </tr>'."\n". |
|
&Apache::loncommon::start_data_table_row()."\n". |
|
' <td'.$colspan.'><span class="LC_nobreak">'. |
|
&mt('Current quota: [_1] MB',$currquota).'</span> '. |
|
$defaultinfo.'</td>'."\n". |
|
&Apache::loncommon::end_data_table_row()."\n". |
|
&Apache::loncommon::start_data_table_row()."\n". |
|
'<td'.$colspan.'><span class="LC_nobreak">'.$lt{'chqu'}. |
|
': <label>'. |
|
'<input type="radio" name="custom_'.$name.'quota" id="custom_'.$name.'quota_off" '. |
|
'value="0" '.$custom_off.' onchange="javascript:quota_changes('."'custom','$name'".');"'. |
|
' /><span class="LC_nobreak">'. |
|
&mt('Default ([_1] MB)',$defquota).'</span></label> '. |
|
' <label><input type="radio" name="custom_'.$name.'quota" id="custom_'.$name.'quota_on" '. |
|
'value="1" '.$custom_on.' onchange="javascript:quota_changes('."'custom','$name'".');"'. |
|
' />'.$lt{'cust'}.':</label> '. |
|
'<input type="text" name="'.$name.'quota" id="'.$name.'quota" size ="5" '. |
|
'value="'.$showquota.'" onfocus="javascript:quota_changes('."'quota','$name'".');"'. |
|
' /> '.&mt('MB').'</span></td>'."\n". |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
|
return $output; |
|
} |
|
|
|
sub user_quota_js { |
|
return <<"END_SCRIPT"; |
|
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
function quota_changes(caller,context) { |
function quota_changes(caller,context) { |
Line 226 function quota_changes(caller,context) {
|
Line 158 function quota_changes(caller,context) {
|
// ]]> |
// ]]> |
</script> |
</script> |
END_SCRIPT |
END_SCRIPT |
|
my $longinsttype; |
|
my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain); |
|
my $output = $quota_javascript."\n". |
|
'<h3>'.$lt{'usrt'}.'</h3>'."\n". |
|
&Apache::loncommon::start_data_table(); |
|
|
|
if ((&Apache::lonnet::allowed('mut',$ccdomain)) || |
|
(&Apache::lonnet::allowed('udp',$ccdomain))) { |
|
$output .= &build_tools_display($ccuname,$ccdomain,'tools'); |
|
} |
|
|
} |
my %titles = &Apache::lonlocal::texthash ( |
|
portfolio => "Disk space allocated to user's portfolio files", |
sub set_custom_js { |
author => "Disk space allocated to user's Authoring Space (if role assigned)", |
return <<"END_SCRIPT"; |
); |
|
foreach my $name ('portfolio','author') { |
<script type="text/javascript"> |
my ($currquota,$quotatype,$inststatus,$defquota) = |
// <![CDATA[ |
&Apache::loncommon::get_user_quota($ccuname,$ccdomain,$name); |
function toggleCustom(form,item,name) { |
if ($longinsttype eq '') { |
if (document.getElementById(item)) { |
if ($inststatus ne '') { |
var divid = document.getElementById(item); |
if ($usertypes->{$inststatus} ne '') { |
var radioname = form.elements[name]; |
$longinsttype = $usertypes->{$inststatus}; |
if (radioname) { |
|
if (radioname.length > 0) { |
|
var setvis; |
|
var RegExp = /^customtext_(aboutme|blog|portfolio|timezone|webdav)\$/; |
|
for (var i=0; i<radioname.length; i++) { |
|
if (radioname[i].checked == true) { |
|
if (radioname[i].value == 1) { |
|
if (RegExp.test(item)) { |
|
divid.style.display = 'inline'; |
|
} else { |
|
divid.style.display = 'block'; |
|
} |
|
setvis = 1; |
|
} |
|
break; |
|
} |
|
} |
|
if (!setvis) { |
|
divid.style.display = 'none'; |
|
} |
} |
} |
} |
} |
} |
} |
my ($showquota,$custom_on,$custom_off,$defaultinfo); |
return; |
$custom_on = ' '; |
} |
$custom_off = ' checked="checked" '; |
// ]]> |
if ($quotatype eq 'custom') { |
</script> |
$custom_on = $custom_off; |
|
$custom_off = ' '; |
END_SCRIPT |
$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); |
|
} |
|
} |
|
|
|
if (&Apache::lonnet::allowed('mpq',$ccdomain)) { |
|
$output .= '<tr class="LC_info_row">'."\n". |
|
' <td>'.$titles{$name}.'</td>'."\n". |
|
' </tr>'."\n". |
|
&Apache::loncommon::start_data_table_row()."\n". |
|
' <td><span class="LC_nobreak">'. |
|
&mt('Current quota: [_1] MB',$currquota).'</span> '. |
|
$defaultinfo.'</td>'."\n". |
|
&Apache::loncommon::end_data_table_row()."\n". |
|
&Apache::loncommon::start_data_table_row()."\n". |
|
' <td><span class="LC_nobreak">'.$lt{'chqu'}. |
|
': <label>'. |
|
'<input type="radio" name="custom_'.$name.'quota" id="custom_'.$name.'quota_off" '. |
|
'value="0" '.$custom_off.' onchange="javascript:quota_changes('."'custom','$name'".');"'. |
|
' /><span class="LC_nobreak">'. |
|
&mt('Default ([_1] MB)',$defquota).'</span></label> '. |
|
' <label><input type="radio" name="custom_'.$name.'quota" id="custom_'.$name.'quota_on" '. |
|
'value="1" '.$custom_on.' onchange="javascript:quota_changes('."'custom','$name'".');"'. |
|
' />'.$lt{'cust'}.':</label> '. |
|
'<input type="text" name="'.$name.'quota" id="'.$name.'quota" size ="5" '. |
|
'value="'.$showquota.'" onfocus="javascript:quota_changes('."'quota','$name'".');"'. |
|
' /> '.&mt('MB').'</span></td>'."\n". |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
|
} |
|
$output .= &Apache::loncommon::end_data_table(); |
|
return $output; |
} |
} |
|
|
sub build_tools_display { |
sub build_tools_display { |
my ($ccuname,$ccdomain,$context) = @_; |
my ($ccuname,$ccdomain,$context) = @_; |
my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay, |
my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay, |
$colspan,$isadv,%domconfig,@defaulteditors,@customeditors); |
$colspan,$isadv,%domconfig); |
my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
'blog' => "Personal User Blog", |
'blog' => "Personal User Blog", |
'aboutme' => "Personal Information Page", |
'aboutme' => "Personal Information Page", |
'webdav' => "WebDAV access to Authoring Spaces (https)", |
'webdav' => "WebDAV access to Authoring Spaces (if SSL and author/co-author)", |
'editors' => "Available Editors", |
|
'portfolio' => "Personal User Portfolio", |
'portfolio' => "Personal User Portfolio", |
'timezone' => "Can set Time Zone", |
'timezone' => "Can set Time Zone", |
'avai' => "Available", |
'avai' => "Available", |
Line 290 sub build_tools_display {
|
Line 257 sub build_tools_display {
|
'unofficial' => 'Can request creation of unofficial courses', |
'unofficial' => 'Can request creation of unofficial courses', |
'community' => 'Can request creation of communities', |
'community' => 'Can request creation of communities', |
'textbook' => 'Can request creation of textbook courses', |
'textbook' => 'Can request creation of textbook courses', |
|
'placement' => 'Can request creation of placement tests', |
|
'lti' => 'Can request creation of LTI courses', |
'requestauthor' => 'Can request author space', |
'requestauthor' => 'Can request author space', |
'edit' => 'Standard editor (Edit)', |
|
'xml' => 'Text editor (EditXML)', |
|
'daxe' => 'Daxe editor (Daxe)', |
|
); |
); |
$isadv = &Apache::lonnet::is_advanced_user($ccdomain,$ccuname); |
$isadv = &Apache::lonnet::is_advanced_user($ccdomain,$ccuname); |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
'requestcourses.official','requestcourses.unofficial', |
'requestcourses.official','requestcourses.unofficial', |
'requestcourses.community','requestcourses.textbook'); |
'requestcourses.community','requestcourses.textbook', |
@usertools = ('official','unofficial','community','textbook'); |
'requestcourses.placement','requestcourses.lti'); |
|
@usertools = ('official','unofficial','community','textbook','placement','lti'); |
@options =('norequest','approval','autolimit','validate'); |
@options =('norequest','approval','autolimit','validate'); |
%validations = &Apache::lonnet::auto_courserequest_checks($ccdomain); |
%validations = &Apache::lonnet::auto_courserequest_checks($ccdomain); |
%reqtitles = &courserequest_titles(); |
%reqtitles = &courserequest_titles(); |
%reqdisplay = &courserequest_display(); |
%reqdisplay = &courserequest_display(); |
|
$colspan = ' colspan="2"'; |
%domconfig = |
%domconfig = |
&Apache::lonnet::get_dom('configuration',['requestcourses'],$ccdomain); |
&Apache::lonnet::get_dom('configuration',['requestcourses'],$ccdomain); |
} elsif ($context eq 'requestauthor') { |
} elsif ($context eq 'requestauthor') { |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,'requestauthor'); |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
|
'requestauthor'); |
@usertools = ('requestauthor'); |
@usertools = ('requestauthor'); |
@options =('norequest','approval','automatic'); |
@options =('norequest','approval','automatic'); |
%reqtitles = &requestauthor_titles(); |
%reqtitles = &requestauthor_titles(); |
%reqdisplay = &requestauthor_display(); |
%reqdisplay = &requestauthor_display(); |
|
$colspan = ' colspan="2"'; |
%domconfig = |
%domconfig = |
&Apache::lonnet::get_dom('configuration',['requestauthor'],$ccdomain); |
&Apache::lonnet::get_dom('configuration',['requestauthor'],$ccdomain); |
} elsif ($context eq 'authordefaults') { |
|
%domconfig = |
|
&Apache::lonnet::get_dom('configuration',['quotas','authordefaults'],$ccdomain); |
|
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,'tools.webdav', |
|
'authoreditors'); |
|
@usertools = ('webdav','editors'); |
|
$colspan = ' colspan="2"'; |
|
} else { |
} else { |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
'tools.aboutme','tools.portfolio','tools.blog', |
'tools.aboutme','tools.portfolio','tools.blog', |
'tools.timezone'); |
'tools.webdav','tools.timezone'); |
@usertools = ('aboutme','blog','portfolio','timezone'); |
@usertools = ('aboutme','blog','webdav','portfolio','timezone'); |
$colspan = ' colspan="2"'; |
|
} |
} |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off, |
my ($custom_access,$curr_access,$cust_on,$cust_off,$tool_on,$tool_off, |
$currdisp,$custdisp,$custradio,$onclick,$customsty,$editorsty); |
$currdisp,$custdisp,$custradio); |
$cust_off = 'checked="checked" '; |
$cust_off = 'checked="checked" '; |
$tool_on = 'checked="checked" '; |
$tool_on = 'checked="checked" '; |
unless (($context eq 'authordefaults') && ($item ne 'webdav')) { |
$curr_access = |
$curr_access = |
&Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef, |
&Apache::lonnet::usertools_access($ccuname,$ccdomain,$item,undef, |
$context,\%userenv,'', |
$context,\%userenv,'', |
{'is_adv' => $isadv}); |
{'is_adv' => $isadv}); |
|
} |
|
if ($context eq 'requestauthor') { |
if ($context eq 'requestauthor') { |
if ($userenv{$context} ne '') { |
if ($userenv{$context} ne '') { |
$cust_on = ' checked="checked" '; |
$cust_on = ' checked="checked" '; |
$cust_off = ''; |
$cust_off = ''; |
} |
} |
} elsif ($context eq 'authordefaults') { |
|
if ($item eq 'editors') { |
|
if ($userenv{'author'.$item} ne '') { |
|
$cust_on = ' checked="checked" '; |
|
$cust_off = ''; |
|
} |
|
} elsif ($item eq 'webdav') { |
|
if ($userenv{'tools.'.$item} ne '') { |
|
$cust_on = ' checked="checked" '; |
|
$cust_off = ''; |
|
} |
|
} |
|
} elsif ($userenv{$context.'.'.$item} ne '') { |
} elsif ($userenv{$context.'.'.$item} ne '') { |
$cust_on = ' checked="checked" '; |
$cust_on = ' checked="checked" '; |
$cust_off = ''; |
$cust_off = ''; |
Line 364 sub build_tools_display {
|
Line 312 sub build_tools_display {
|
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
if ($userenv{$context.'.'.$item} eq '') { |
if ($userenv{$context.'.'.$item} eq '') { |
$custom_access = &mt('Currently from default setting.'); |
$custom_access = &mt('Currently from default setting.'); |
$customsty = ' style="display:none;"'; |
|
} else { |
} else { |
$custom_access = &mt('Currently from custom setting.'); |
$custom_access = &mt('Currently from custom setting.'); |
$customsty = ' style="display:block;"'; |
|
} |
} |
} elsif ($context eq 'requestauthor') { |
} elsif ($context eq 'requestauthor') { |
if ($userenv{$context} eq '') { |
if ($userenv{$context} eq '') { |
$custom_access = &mt('Currently from default setting.'); |
$custom_access = &mt('Currently from default setting.'); |
$customsty = ' style="display:none;"'; |
|
} else { |
} else { |
$custom_access = &mt('Currently from custom setting.'); |
$custom_access = &mt('Currently from custom setting.'); |
$customsty = ' style="display:block;"'; |
|
} |
|
} elsif ($item eq 'editors') { |
|
if ($userenv{'author'.$item} eq '') { |
|
if (ref($domconfig{'authordefaults'}{'editors'}) eq 'ARRAY') { |
|
@defaulteditors = @{$domconfig{'authordefaults'}{'editors'}}; |
|
} else { |
|
@defaulteditors = ('edit','xml'); |
|
} |
|
$custom_access = &mt('Can use: [_1]', |
|
join(', ', map { $lt{$_} } @defaulteditors)); |
|
$editorsty = ' style="display:none;"'; |
|
} else { |
|
$custom_access = &mt('Currently from custom setting.'); |
|
foreach my $editor (split(/,/,$userenv{'author'.$item})) { |
|
if ($editor =~ /^(edit|daxe|xml)$/) { |
|
push(@customeditors,$editor); |
|
} |
|
} |
|
if (@customeditors) { |
|
if (@customeditors > 1) { |
|
$custom_access .= '<br /><span>'; |
|
} else { |
|
$custom_access .= ' <span class="LC_nobreak">'; |
|
} |
|
$custom_access .= &mt('Can use: [_1]', |
|
join(', ', map { $lt{$_} } @customeditors)). |
|
'</span>'; |
|
} else { |
|
$custom_access .= ' '.&mt('No available editors'); |
|
} |
|
$editorsty = ' style="display:block;"'; |
|
} |
} |
} else { |
} else { |
my $current = $userenv{$context.'.'.$item}; |
if ($userenv{$context.'.'.$item} eq '') { |
if ($item eq 'webdav') { |
|
$current = $userenv{'tools.webdav'}; |
|
} |
|
if ($current eq '') { |
|
$custom_access = |
$custom_access = |
&mt('Availability determined currently from default setting.'); |
&mt('Availability determined currently from default setting.'); |
if (!$curr_access) { |
if (!$curr_access) { |
$tool_off = 'checked="checked" '; |
$tool_off = 'checked="checked" '; |
$tool_on = ''; |
$tool_on = ''; |
} |
} |
$customsty = ' style="display:none;"'; |
|
} else { |
} else { |
$custom_access = |
$custom_access = |
&mt('Availability determined currently from custom setting.'); |
&mt('Availability determined currently from custom setting.'); |
if ($current == 0) { |
if ($userenv{$context.'.'.$item} == 0) { |
$tool_off = 'checked="checked" '; |
$tool_off = 'checked="checked" '; |
$tool_on = ''; |
$tool_on = ''; |
} |
} |
$customsty = ' style="display:inline;"'; |
|
} |
} |
} |
} |
$output .= ' <tr class="LC_info_row">'."\n". |
$output .= ' <tr class="LC_info_row">'."\n". |
' <td'.$colspan.'>'.$lt{$item}.'</td>'."\n". |
' <td'.$colspan.'>'.$lt{$item}.'</td>'."\n". |
' </tr>'."\n". |
' </tr>'."\n". |
&Apache::loncommon::start_data_table_row()."\n"; |
&Apache::loncommon::start_data_table_row()."\n"; |
|
|
if (($context eq 'requestcourses') || ($context eq 'requestauthor')) { |
if (($context eq 'requestcourses') || ($context eq 'requestauthor')) { |
my ($curroption,$currlimit); |
my ($curroption,$currlimit); |
my $envkey = $context.'.'.$item; |
my $envkey = $context.'.'.$item; |
Line 460 sub build_tools_display {
|
Line 368 sub build_tools_display {
|
if (!$curroption) { |
if (!$curroption) { |
$curroption = 'norequest'; |
$curroption = 'norequest'; |
} |
} |
my $name = 'crsreq_'.$item; |
|
if ($context eq 'requestauthor') { |
|
$name = $item; |
|
} |
|
$onclick = ' onclick="javascript:toggleCustom(this.form,'."'customtext_$item','custom$item'".');"'; |
|
if ($curroption =~ /^autolimit=(\d*)$/) { |
if ($curroption =~ /^autolimit=(\d*)$/) { |
$currlimit = $1; |
$currlimit = $1; |
if ($currlimit eq '') { |
if ($currlimit eq '') { |
Line 475 sub build_tools_display {
|
Line 378 sub build_tools_display {
|
} else { |
} else { |
$currdisp = $reqdisplay{$curroption}; |
$currdisp = $reqdisplay{$curroption}; |
} |
} |
$custdisp = '<fieldset id="customtext_'.$item.'"'.$customsty.'>'; |
$custdisp = '<table>'; |
foreach my $option (@options) { |
foreach my $option (@options) { |
my $val = $option; |
my $val = $option; |
if ($option eq 'norequest') { |
if ($option eq 'norequest') { |
Line 498 sub build_tools_display {
|
Line 401 sub build_tools_display {
|
$checked = ' checked="checked"'; |
$checked = ' checked="checked"'; |
} |
} |
} |
} |
if ($option eq 'autolimit') { |
my $name = 'crsreq_'.$item; |
$custdisp .= '<br />'; |
if ($context eq 'requestauthor') { |
|
$name = $item; |
} |
} |
$custdisp .= '<span class="LC_nobreak"><label>'. |
$custdisp .= '<tr><td><span class="LC_nobreak"><label>'. |
'<input type="radio" name="'.$name.'" '. |
'<input type="radio" name="'.$name.'" '. |
'value="'.$val.'"'.$checked.' />'. |
'value="'.$val.'"'.$checked.' />'. |
$reqtitles{$option}.'</label> '; |
$reqtitles{$option}.'</label> '; |
if ($option eq 'autolimit') { |
if ($option eq 'autolimit') { |
$custdisp .= '<input type="text" name="'.$name. |
$custdisp .= '<input type="text" name="'.$name. |
'_limit" size="1" '. |
'_limit" size="1" '. |
'value="'.$currlimit.'" /> '. |
'value="'.$currlimit.'" /></span><br />'. |
$reqtitles{'unlimited'}.'</span>'; |
$reqtitles{'unlimited'}; |
} else { |
} else { |
$custdisp .= '</span>'; |
$custdisp .= '</span>'; |
} |
} |
$custdisp .= ' '; |
$custdisp .= '</td></tr>'; |
} |
|
$custdisp .= '</fieldset>'; |
|
$custradio = '<br />'.$custdisp; |
|
} elsif ($item eq 'editors') { |
|
$output .= '<td'.$colspan.'>'.$custom_access.'</td>'."\n". |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
unless (&Apache::lonnet::allowed('udp',$ccdomain)) { |
|
$output .= &Apache::loncommon::start_data_table_row()."\n". |
|
'<td'.$colspan.'><span class="LC_nobreak">'. |
|
$lt{'chse'}.': <label>'. |
|
'<input type="radio" name="custom'.$item.'" value="0" '. |
|
$cust_off.' onclick="toggleCustom(this.form,'."'customtext_$item','custom$item'".');" />'. |
|
$lt{'usde'}.'</label>'.(' ' x3). |
|
'<label><input type="radio" name="custom'.$item.'" value="1" '. |
|
$cust_on.' onclick="toggleCustom(this.form,'."'customtext_$item','custom$item'".');" />'. |
|
$lt{'uscu'}.'</label></span><br />'. |
|
'<fieldset id="customtext_'.$item.'"'.$editorsty.'>'; |
|
foreach my $editor ('edit','xml','daxe') { |
|
my $checked; |
|
if ($userenv{'author'.$item} eq '') { |
|
if (grep(/^\Q$editor\E$/,@defaulteditors)) { |
|
$checked = ' checked="checked"'; |
|
} |
|
} elsif (grep(/^\Q$editor\E$/,@customeditors)) { |
|
$checked = ' checked="checked"'; |
|
} |
|
$output .= '<span style="LC_nobreak"><label>'. |
|
'<input type="checkbox" name="custom_editor" '. |
|
'value="'.$editor.'"'.$checked.' />'. |
|
$lt{$editor}.'</label></span> '; |
|
} |
|
$output .= '</fieldset></td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
} |
|
$custdisp .= '</table>'; |
|
$custradio = '</span></td><td>'.&mt('Custom setting').'<br />'.$custdisp; |
} else { |
} else { |
$currdisp = ($curr_access?&mt('Yes'):&mt('No')); |
$currdisp = ($curr_access?&mt('Yes'):&mt('No')); |
my $name = $context.'_'.$item; |
my $name = $context.'_'.$item; |
$onclick = 'onclick="javascript:toggleCustom(this.form,'."'customtext_$item','custom$item'".');" '; |
if ($context eq 'requestauthor') { |
|
$name = $context; |
|
} |
$custdisp = '<span class="LC_nobreak"><label>'. |
$custdisp = '<span class="LC_nobreak"><label>'. |
'<input type="radio" name="'.$name.'"'. |
'<input type="radio" name="'.$name.'"'. |
' value="1" '.$tool_on.$onclick.'/>'.&mt('On').'</label> <label>'. |
' value="1" '.$tool_on.'/>'.&mt('On').'</label> <label>'. |
'<input type="radio" name="'.$name.'" value="0" '. |
'<input type="radio" name="'.$name.'" value="0" '. |
$tool_off.$onclick.'/>'.&mt('Off').'</label></span>'; |
$tool_off.'/>'.&mt('Off').'</label></span>'; |
$custradio = '<span id="customtext_'.$item.'"'.$customsty.' class="LC_nobreak">'. |
$custradio = (' 'x2).'--'.$lt{'cusa'}.': '.$custdisp. |
'--'.$lt{'cusa'}.': '.$custdisp.'</span>'; |
'</span>'; |
} |
} |
unless ($item eq 'editors') { |
$output .= ' <td'.$colspan.'>'.$custom_access.(' 'x4). |
$output .= ' <td'.$colspan.'>'.$custom_access.(' 'x4). |
$lt{'avai'}.': '.$currdisp.'</td>'."\n". |
$lt{'avai'}.': '.$currdisp.'</td>'."\n". |
&Apache::loncommon::end_data_table_row()."\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
unless (&Apache::lonnet::allowed('udp',$ccdomain)) { |
unless (&Apache::lonnet::allowed('udp',$ccdomain)) { |
$output .= |
$output .= |
|
&Apache::loncommon::start_data_table_row()."\n". |
&Apache::loncommon::start_data_table_row()."\n". |
'<td><span class="LC_nobreak">'. |
' <td style="vertical-align:top;"><span class="LC_nobreak">'. |
$lt{'chse'}.': <label>'. |
$lt{'chse'}.': <label>'. |
'<input type="radio" name="custom'.$item.'" value="0" '. |
'<input type="radio" name="custom'.$item.'" value="0" '. |
$cust_off.$onclick.'/>'.$lt{'usde'}.'</label>'.(' ' x3). |
$cust_off.'/>'.$lt{'usde'}.'</label>'.(' ' x3). |
'<label><input type="radio" name="custom'.$item.'" value="1" '. |
'<label><input type="radio" name="custom'.$item.'" value="1" '. |
$cust_on.$onclick.'/>'.$lt{'uscu'}.'</label></span>'; |
$cust_on.'/>'.$lt{'uscu'}.'</label>'.$custradio.'</td>'. |
if ($colspan) { |
&Apache::loncommon::end_data_table_row()."\n"; |
$output .= '</td><td>'; |
|
} |
|
$output .= $custradio.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
|
} |
|
} |
} |
} |
} |
return $output; |
return $output; |
Line 592 sub coursereq_externaluser {
|
Line 461 sub coursereq_externaluser {
|
'unofficial' => 'Can request creation of unofficial courses', |
'unofficial' => 'Can request creation of unofficial courses', |
'community' => 'Can request creation of communities', |
'community' => 'Can request creation of communities', |
'textbook' => 'Can request creation of textbook courses', |
'textbook' => 'Can request creation of textbook courses', |
|
'placement' => 'Can request creation of placement tests', |
); |
); |
|
|
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
%userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname, |
'reqcrsotherdom.official','reqcrsotherdom.unofficial', |
'reqcrsotherdom.official','reqcrsotherdom.unofficial', |
'reqcrsotherdom.community','reqcrsotherdom.textbook'); |
'reqcrsotherdom.community','reqcrsotherdom.textbook', |
@usertools = ('official','unofficial','community','textbook'); |
'reqcrsotherdom.placement'); |
|
@usertools = ('official','unofficial','community','textbook','placement'); |
@options = ('approval','validate','autolimit'); |
@options = ('approval','validate','autolimit'); |
%validations = &Apache::lonnet::auto_courserequest_checks($cdom); |
%validations = &Apache::lonnet::auto_courserequest_checks($cdom); |
my $optregex = join('|',@options); |
my $optregex = join('|',@options); |
Line 664 sub coursereq_externaluser {
|
Line 535 sub coursereq_externaluser {
|
sub domainrole_req { |
sub domainrole_req { |
my ($ccuname,$ccdomain) = @_; |
my ($ccuname,$ccdomain) = @_; |
return '<br /><h3>'. |
return '<br /><h3>'. |
&mt('Can Request Assignment of Domain Roles?'). |
&mt('User Can Request Assignment of Domain Roles?'). |
'</h3>'."\n". |
'</h3>'."\n". |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
&build_tools_display($ccuname,$ccdomain, |
&build_tools_display($ccuname,$ccdomain, |
Line 672 sub domainrole_req {
|
Line 543 sub domainrole_req {
|
&Apache::loncommon::end_data_table(); |
&Apache::loncommon::end_data_table(); |
} |
} |
|
|
sub authoring_defaults { |
|
my ($ccuname,$ccdomain) = @_; |
|
return '<br /><h3>'. |
|
&mt('Authoring Space defaults (if role assigned)'). |
|
'</h3>'."\n". |
|
&Apache::loncommon::start_data_table(). |
|
&build_tools_display($ccuname,$ccdomain, |
|
'authordefaults'). |
|
&user_quotas($ccuname,$ccdomain,'author'). |
|
&Apache::loncommon::end_data_table(); |
|
} |
|
|
|
sub courserequest_titles { |
sub courserequest_titles { |
my %titles = &Apache::lonlocal::texthash ( |
my %titles = &Apache::lonlocal::texthash ( |
official => 'Official', |
official => 'Official', |
unofficial => 'Unofficial', |
unofficial => 'Unofficial', |
community => 'Communities', |
community => 'Communities', |
textbook => 'Textbook', |
textbook => 'Textbook', |
|
placement => 'Placement Tests', |
|
lti => 'LTI Provider', |
norequest => 'Not allowed', |
norequest => 'Not allowed', |
approval => 'Approval by Dom. Coord.', |
approval => 'Approval by Dom. Coord.', |
validate => 'With validation', |
validate => 'With validation', |
Line 1033 ENDBLOCK
|
Line 894 ENDBLOCK
|
(!(($env{'form.action'} eq 'singleuser') && ($context eq 'domain') && |
(!(($env{'form.action'} eq 'singleuser') && ($context eq 'domain') && |
(!&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))))) { |
(!&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))))) { |
my $defdom=$env{'request.role.domain'}; |
my $defdom=$env{'request.role.domain'}; |
my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain'); |
my ($trusted,$untrusted); |
|
if ($context eq 'course') { |
|
($trusted,$untrusted) = &Apache::lonnet::trusted_domains('enroll',$defdom); |
|
} elsif ($context eq 'author') { |
|
($trusted,$untrusted) = &Apache::lonnet::trusted_domains('othcoau',$defdom); |
|
} elsif ($context eq 'domain') { |
|
($trusted,$untrusted) = &Apache::lonnet::trusted_domains('domroles',$defdom); |
|
} |
|
my $domform = &Apache::loncommon::select_dom_form($defdom,'srchdomain',undef,undef,undef,$trusted,$untrusted); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'enro' => 'Enroll one student', |
'enro' => 'Enroll one student', |
'enrm' => 'Enroll one member', |
'enrm' => 'Enroll one member', |
Line 1394 sub print_user_modification_page {
|
Line 1263 sub print_user_modification_page {
|
|
|
my $groupslist = &Apache::lonuserutils::get_groupslist(); |
my $groupslist = &Apache::lonuserutils::get_groupslist(); |
|
|
my $js = &validation_javascript($context,$ccdomain,$pjump_def, |
my $js = &validation_javascript($context,$ccdomain,$pjump_def,$crstype, |
$crstype,$groupslist,$newuser, |
$groupslist,$newuser,$formname,\%loaditem); |
$formname,\%loaditem,$permission); |
|
my %breadcrumb_text = &singleuser_breadcrumb($crstype,$context,$ccdomain); |
my %breadcrumb_text = &singleuser_breadcrumb($crstype,$context,$ccdomain); |
my $helpitem = 'Course_Change_Privileges'; |
my $helpitem = 'Course_Change_Privileges'; |
if ($env{'form.action'} eq 'singlestudent') { |
if ($env{'form.action'} eq 'singlestudent') { |
Line 1405 sub print_user_modification_page {
|
Line 1273 sub print_user_modification_page {
|
$helpitem = 'Author_Change_Privileges'; |
$helpitem = 'Author_Change_Privileges'; |
} elsif ($context eq 'domain') { |
} elsif ($context eq 'domain') { |
$helpitem = 'Domain_Change_Privileges'; |
$helpitem = 'Domain_Change_Privileges'; |
$js .= &set_custom_js(); |
|
} |
} |
push (@{$brcrum}, |
push (@{$brcrum}, |
{href => "javascript:backPage($form)", |
{href => "javascript:backPage($form)", |
Line 1431 sub print_user_modification_page {
|
Line 1298 sub print_user_modification_page {
|
if ($env{'form.popup'}) { |
if ($env{'form.popup'}) { |
$args->{'no_nav_bar'} = 1; |
$args->{'no_nav_bar'} = 1; |
} |
} |
if (($context eq 'domain') && ($env{'request.role.domain'} eq $ccdomain)) { |
|
my @toggles; |
|
if (&Apache::lonnet::allowed('cau',$ccdomain)) { |
|
my ($isadv,$isauthor) = |
|
&Apache::lonnet::is_advanced_user($ccdomain,$ccuname); |
|
unless ($isauthor) { |
|
push(@toggles,'requestauthor'); |
|
} |
|
push(@toggles,('webdav','editors')); |
|
} |
|
if (&Apache::lonnet::allowed('mut',$ccdomain)) { |
|
push(@toggles,('aboutme','blog','portfolio','timezone')); |
|
} |
|
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) { |
|
push(@toggles,('official','unofficial','community','textbook')); |
|
} |
|
if (@toggles) { |
|
my $onload; |
|
foreach my $item (@toggles) { |
|
$onload .= "toggleCustom(document.cu,'customtext_$item','custom$item');"; |
|
} |
|
$args->{'add_entries'} = { |
|
'onload' => $onload, |
|
}; |
|
} |
|
} |
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('User Management',$js,$args); |
&Apache::loncommon::start_page('User Management',$js,$args); |
|
|
Line 1493 ENDFORMINFO
|
Line 1334 ENDFORMINFO
|
} |
} |
} |
} |
my $title = ''; |
my $title = ''; |
my $need_quota_js; |
|
if ($newuser) { |
if ($newuser) { |
my ($portfolioform,$domroleform); |
my ($portfolioform,$domroleform); |
if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) || |
if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) || |
(&Apache::lonnet::allowed('mut',$env{'request.role.domain'}))) { |
(&Apache::lonnet::allowed('mut',$env{'request.role.domain'}))) { |
# Current user has quota or user tools modification privileges |
# Current user has quota or user tools modification privileges |
$portfolioform = '<br /><h3>'. |
$portfolioform = '<br />'.&user_quotas($ccuname,$ccdomain); |
&mt('User Tools'). |
|
'</h3>'."\n". |
|
&Apache::loncommon::start_data_table(); |
|
if (&Apache::lonnet::allowed('mut',$ccdomain)) { |
|
$portfolioform .= &build_tools_display($ccuname,$ccdomain,'tools'); |
|
} |
|
if (&Apache::lonnet::allowed('mpq',$ccdomain)) { |
|
$portfolioform .= &user_quotas($ccuname,$ccdomain,'portfolio'); |
|
$need_quota_js = 1; |
|
} |
|
$portfolioform .= &Apache::loncommon::end_data_table(); |
|
} |
} |
if ((&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) && |
if ((&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) && |
($ccdomain eq $env{'request.role.domain'})) { |
($ccdomain eq $env{'request.role.domain'})) { |
$domroleform = &domainrole_req($ccuname,$ccdomain). |
$domroleform = '<br />'.&domainrole_req($ccuname,$ccdomain); |
&authoring_defaults($ccuname,$ccdomain); |
|
$need_quota_js = 1; |
|
} |
|
my $readonly; |
|
unless ($permission->{'cusr'}) { |
|
$readonly = 1; |
|
} |
} |
&initialize_authen_forms($ccdomain,$formname,'','',$readonly); |
&initialize_authen_forms($ccdomain,$formname); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'lg' => 'Login Data', |
'lg' => 'Login Data', |
'hs' => "Home Server", |
'hs' => "Home Server", |
Line 1553 ENDTITLE
|
Line 1376 ENDTITLE
|
$r->print('<h2>'.$title.'</h2>'."\n"); |
$r->print('<h2>'.$title.'</h2>'."\n"); |
$r->print('<div class="LC_left_float">'); |
$r->print('<div class="LC_left_float">'); |
$r->print(&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$r->print(&personal_data_display($ccuname,$ccdomain,$newuser,$context, |
$inst_results{$ccuname.':'.$ccdomain},$readonly)); |
$inst_results{$ccuname.':'.$ccdomain})); |
# Option to disable student/employee ID conflict checking not offerred for new users. |
# Option to disable student/employee ID conflict checking not offerred for new users. |
my ($home_server_pick,$numlib) = |
my ($home_server_pick,$numlib) = |
&Apache::loncommon::home_server_form_item($ccdomain,'hserver', |
&Apache::loncommon::home_server_form_item($ccdomain,'hserver', |
Line 1568 $lt{'hs'}: $home_server_pick
|
Line 1391 $lt{'hs'}: $home_server_pick
|
} |
} |
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) { |
$r->print('<br /><h3>'. |
$r->print('<br /><h3>'. |
&mt('Can Request Creation of Courses/Communities in this Domain?').'</h3>'. |
&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'. |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
&build_tools_display($ccuname,$ccdomain, |
&build_tools_display($ccuname,$ccdomain, |
'requestcourses'). |
'requestcourses'). |
Line 1664 ENDAUTH
|
Line 1487 ENDAUTH
|
$inst_results{$ccuname.':'.$ccdomain})); |
$inst_results{$ccuname.':'.$ccdomain})); |
if ((&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) || |
if ((&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) || |
(&Apache::lonnet::allowed('udp',$env{'request.role.domain'}))) { |
(&Apache::lonnet::allowed('udp',$env{'request.role.domain'}))) { |
$r->print('<br /><h3>'.&mt('Can Request Creation of Courses/Communities in this Domain?').'</h3>'."\n". |
$r->print('<br /><h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'."\n"); |
&Apache::loncommon::start_data_table()); |
if (($env{'request.role.domain'} eq $ccdomain) || |
if ($env{'request.role.domain'} eq $ccdomain) { |
(&Apache::lonnet::will_trust('reqcrs',$ccdomain,$env{'request.role.domain'}))) { |
$r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses')); |
$r->print(&Apache::loncommon::start_data_table()); |
|
if ($env{'request.role.domain'} eq $ccdomain) { |
|
$r->print(&build_tools_display($ccuname,$ccdomain,'requestcourses')); |
|
} else { |
|
$r->print(&coursereq_externaluser($ccuname,$ccdomain, |
|
$env{'request.role.domain'})); |
|
} |
|
$r->print(&Apache::loncommon::end_data_table()); |
} else { |
} else { |
$r->print(&coursereq_externaluser($ccuname,$ccdomain, |
$r->print(&mt('Domain configuration for this domain prohibits course creation by users from domain: "[_1]"', |
$env{'request.role.domain'})); |
&Apache::lonnet::domain($ccdomain,'description'))); |
} |
} |
$r->print(&Apache::loncommon::end_data_table()); |
|
} |
} |
$r->print('</div>'); |
$r->print('</div>'); |
my @order = ('auth','quota','tools','requestauthor','authordefaults'); |
my @order = ('auth','quota','tools','requestauthor'); |
my %user_text; |
my %user_text; |
my ($isadv,$isauthor) = |
my ($isadv,$isauthor) = |
&Apache::lonnet::is_advanced_user($ccdomain,$ccuname); |
&Apache::lonnet::is_advanced_user($ccdomain,$ccuname); |
if (((&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) || |
if ((!$isauthor) && |
|
((&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) || |
(&Apache::lonnet::allowed('udp',$env{'request.role.domain'}))) && |
(&Apache::lonnet::allowed('udp',$env{'request.role.domain'}))) && |
($env{'request.role.domain'} eq $ccdomain)) { |
($env{'request.role.domain'} eq $ccdomain)) { |
if (!$isauthor) { |
$user_text{'requestauthor'} = &domainrole_req($ccuname,$ccdomain); |
$user_text{'requestauthor'} = &domainrole_req($ccuname,$ccdomain); |
|
} |
|
$user_text{'authordefaults'} = &authoring_defaults($ccuname,$ccdomain); |
|
if (&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) { |
|
$need_quota_js = 1; |
|
} |
|
} |
} |
$user_text{'auth'} = &user_authentication($ccuname,$ccdomain,$formname,$crstype,$permission); |
$user_text{'auth'} = &user_authentication($ccuname,$ccdomain,$formname,$crstype,$permission); |
if ((&Apache::lonnet::allowed('mpq',$ccdomain)) || |
if ((&Apache::lonnet::allowed('mpq',$ccdomain)) || |
(&Apache::lonnet::allowed('mut',$ccdomain)) || |
(&Apache::lonnet::allowed('mut',$ccdomain)) || |
(&Apache::lonnet::allowed('udp',$ccdomain))) { |
(&Apache::lonnet::allowed('udp',$ccdomain))) { |
$user_text{'quota'} = '<br /><h3>'.&mt('User Tools').'</h3>'."\n". |
|
&Apache::loncommon::start_data_table(); |
|
if ((&Apache::lonnet::allowed('mut',$ccdomain)) || |
|
(&Apache::lonnet::allowed('udp',$ccdomain))) { |
|
$user_text{'quota'} .= &build_tools_display($ccuname,$ccdomain,'tools'); |
|
} |
|
# Current user has quota modification privileges |
# Current user has quota modification privileges |
if ((&Apache::lonnet::allowed('mpq',$ccdomain)) || |
$user_text{'quota'} = &user_quotas($ccuname,$ccdomain); |
(&Apache::lonnet::allowed('udp',$ccdomain))) { |
|
$user_text{'quota'} .= &user_quotas($ccuname,$ccdomain,'portfolio'); |
|
$need_quota_js = 1; |
|
} |
|
$user_text{'quota'} .= &Apache::loncommon::end_data_table(); |
|
} |
} |
if (!&Apache::lonnet::allowed('mpq',$ccdomain)) { |
if (!&Apache::lonnet::allowed('mpq',$ccdomain)) { |
if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'dska' => "Disk quotas for user's portfolio", |
'dska' => "Disk quotas for user's portfolio and Authoring Space", |
'youd' => "You do not have privileges to modify the portfolio quota for this user.", |
'youd' => "You do not have privileges to modify the portfolio and/or Authoring Space quotas for this user.", |
'ichr' => "If a change is required, contact a domain coordinator for the domain", |
'ichr' => "If a change is required, contact a domain coordinator for the domain", |
); |
); |
$user_text{'quota'} = <<ENDNOPORTPRIV; |
$user_text{'quota'} = <<ENDNOPORTPRIV; |
Line 1725 ENDNOPORTPRIV
|
Line 1538 ENDNOPORTPRIV
|
if (&Apache::lonnet::allowed('mut',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('mut',$env{'request.role.domain'})) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'utav' => "User Tools Availability", |
'utav' => "User Tools Availability", |
'yodo' => "You do not have privileges to modify Portfolio, Blog, Personal Information Page, or Time Zone settings for this user.", |
'yodo' => "You do not have privileges to modify Portfolio, Blog, WebDAV, or Personal Information Page settings for this user.", |
'ifch' => "If a change is required, contact a domain coordinator for the domain", |
'ifch' => "If a change is required, contact a domain coordinator for the domain", |
); |
); |
$user_text{'tools'} = <<ENDNOTOOLSPRIV; |
$user_text{'tools'} = <<ENDNOTOOLSPRIV; |
Line 1823 ENDNOTOOLSPRIV
|
Line 1636 ENDNOTOOLSPRIV
|
$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain'])); |
$r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain'])); |
$r->print('<input type="hidden" name="currstate" value="" />'); |
$r->print('<input type="hidden" name="currstate" value="" />'); |
$r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" /></form><br /><br />'); |
$r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" /></form><br /><br />'); |
if ($need_quota_js) { |
|
$r->print(&user_quota_js()); |
|
} |
|
return; |
return; |
} |
} |
|
|
Line 1884 sub date_sections_select {
|
Line 1694 sub date_sections_select {
|
|
|
sub validation_javascript { |
sub validation_javascript { |
my ($context,$ccdomain,$pjump_def,$crstype,$groupslist,$newuser,$formname, |
my ($context,$ccdomain,$pjump_def,$crstype,$groupslist,$newuser,$formname, |
$loaditem,$permission) = @_; |
$loaditem) = @_; |
my $dc_setcourse_code = ''; |
my $dc_setcourse_code = ''; |
my $nondc_setsection_code = ''; |
my $nondc_setsection_code = ''; |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
if ((ref($permission) eq 'HASH') && ($permission->{'cusr'})) { |
my $dcdom = $env{'request.role.domain'}; |
my $dcdom = $env{'request.role.domain'}; |
$loaditem->{'onload'} = "document.cu.coursedesc.value='';"; |
$loaditem->{'onload'} = "document.cu.coursedesc.value='';"; |
$dc_setcourse_code = |
$dc_setcourse_code = |
&Apache::lonuserutils::dc_setcourse_js('cu','singleuser',$context); |
&Apache::lonuserutils::dc_setcourse_js('cu','singleuser',$context); |
|
} |
|
} else { |
} else { |
my $checkauth; |
my $checkauth; |
if (($newuser) || (&Apache::lonnet::allowed('mau',$ccdomain))) { |
if (($newuser) || (&Apache::lonnet::allowed('mau',$ccdomain))) { |
Line 2349 sub new_domain_roles {
|
Line 2157 sub new_domain_roles {
|
'<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'. |
'<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'. |
&Apache::loncommon::end_data_table_header_row(); |
&Apache::loncommon::end_data_table_header_row(); |
my @allroles = &Apache::lonuserutils::roles_by_context('domain'); |
my @allroles = &Apache::lonuserutils::roles_by_context('domain'); |
|
my $uprimary = &Apache::lonnet::domain($env{'request.role.domain'},'primary'); |
|
my $uintdom = &Apache::lonnet::internet_dom($uprimary); |
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)); |
next if (($role eq 'au') && ($ccdomain ne $thisdomain)); |
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) { |
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) { |
|
if ($role eq 'dc') { |
|
unless ($thisdomain eq $env{'request.role.domain'}) { |
|
my $domprim = &Apache::lonnet::domain($thisdomain,'primary'); |
|
my $intdom = &Apache::lonnet::internet_dom($domprim); |
|
next unless ($uintdom eq $intdom); |
|
} |
|
} |
my $plrole=&Apache::lonnet::plaintext($role); |
my $plrole=&Apache::lonnet::plaintext($role); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'ssd' => "Set Start Date", |
'ssd' => "Set Start Date", |
Line 2395 sub user_authentication {
|
Line 2212 sub user_authentication {
|
'ld' => "Login Data" |
'ld' => "Login Data" |
); |
); |
# Check for a bad authentication type |
# Check for a bad authentication type |
if ($currentauth !~ /^(krb4|krb5|unix|internal|localauth):/) { |
if ($currentauth !~ /^(krb4|krb5|unix|internal|localauth|lti):/) { |
# bad authentication scheme |
# bad authentication scheme |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
&initialize_authen_forms($ccdomain,$formname); |
&initialize_authen_forms($ccdomain,$formname); |
Line 2422 $lt{'uuas'} ($currentauth). $lt{'adcs'}.
|
Line 2239 $lt{'uuas'} ($currentauth). $lt{'adcs'}.
|
ENDBADAUTH |
ENDBADAUTH |
} |
} |
} else { # Authentication type is valid |
} else { # Authentication type is valid |
|
|
&initialize_authen_forms($ccdomain,$formname,$currentauth,'modifyuser'); |
&initialize_authen_forms($ccdomain,$formname,$currentauth,'modifyuser'); |
my ($authformcurrent,$can_modify,@authform_others) = |
my ($authformcurrent,$can_modify,@authform_others) = |
&modify_login_block($ccdomain,$currentauth); |
&modify_login_block($ccdomain,$currentauth); |
Line 2510 ENDJS
|
Line 2328 ENDJS
|
$result = &mt('Currently using local (institutional) authentication.'); |
$result = &mt('Currently using local (institutional) authentication.'); |
} elsif ($currentauth =~ /^unix:/) { |
} elsif ($currentauth =~ /^unix:/) { |
$result = &mt('Currently Filesystem Authenticated.'); |
$result = &mt('Currently Filesystem Authenticated.'); |
|
} elsif ($currentauth =~ /^lti:/) { |
|
$result = &mt('Currently LTI authenticated.'); |
} |
} |
$outcome = '<h3>'.$lt{'ld'}.'</h3>'. |
$outcome = '<h3>'.$lt{'ld'}.'</h3>'. |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
Line 2548 sub modify_login_block {
|
Line 2368 sub modify_login_block {
|
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
push(@authform_others,$authformloc); |
push(@authform_others,$authformloc); |
} |
} |
|
if ($can_assign{'lti'}) { |
|
push(@authform_others,$authformlti); |
|
} |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
$show_override_msg = 1; |
$show_override_msg = 1; |
} |
} |
Line 2559 sub modify_login_block {
|
Line 2382 sub modify_login_block {
|
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
push(@authform_others,$authformloc); |
push(@authform_others,$authformloc); |
} |
} |
|
if ($can_assign{'lti'}) { |
|
push(@authform_others,$authformlti); |
|
} |
if ($can_assign{'int'}) { |
if ($can_assign{'int'}) { |
$show_override_msg = 1; |
$show_override_msg = 1; |
} |
} |
Line 2573 sub modify_login_block {
|
Line 2399 sub modify_login_block {
|
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
push(@authform_others,$authformloc); |
push(@authform_others,$authformloc); |
} |
} |
|
if ($can_assign{'lti'}) { |
|
push(@authform_others,$authformlti); |
|
} |
if ($can_assign{'fsys'}) { |
if ($can_assign{'fsys'}) { |
$show_override_msg = 1; |
$show_override_msg = 1; |
} |
} |
Line 2584 sub modify_login_block {
|
Line 2413 sub modify_login_block {
|
if ($can_assign{'int'}) { |
if ($can_assign{'int'}) { |
push(@authform_others,$authformint); |
push(@authform_others,$authformint); |
} |
} |
|
if ($can_assign{'lti'}) { |
|
push(@authform_others,$authformlti); |
|
} |
if ($can_assign{'loc'}) { |
if ($can_assign{'loc'}) { |
$show_override_msg = 1; |
$show_override_msg = 1; |
} |
} |
|
} elsif ($currentauth=~/^lti:/) { |
|
$authformcurrent=$authformlti; |
|
if (($can_assign{'krb4'}) || ($can_assign{'krb5'})) { |
|
push(@authform_others,$authformkrb); |
|
} |
|
if ($can_assign{'int'}) { |
|
push(@authform_others,$authformint); |
|
} |
|
if ($can_assign{'loc'}) { |
|
push(@authform_others,$authformloc); |
|
} |
} |
} |
if ($show_override_msg) { |
if ($show_override_msg) { |
$authformcurrent = '<table><tr><td colspan="3">'.$authformcurrent. |
$authformcurrent = '<table><tr><td colspan="3">'.$authformcurrent. |
Line 2685 sub personal_data_display {
|
Line 2528 sub personal_data_display {
|
} else { |
} else { |
undef($condition); |
undef($condition); |
} |
} |
} |
} |
if ($excluded) { |
if ($excluded) { |
unless ($excluded =~ /^\@[^\@]+$/) { |
unless ($excluded =~ /^\@[^\@]+$/) { |
undef($condition); |
undef($condition); |
Line 2725 sub personal_data_display {
|
Line 2568 sub personal_data_display {
|
$upasstwo. |
$upasstwo. |
&Apache::lonhtmlcommon::row_closure()."\n"; |
&Apache::lonhtmlcommon::row_closure()."\n"; |
if ($usernameset eq 'free') { |
if ($usernameset eq 'free') { |
my $onclick = "toggleUsernameDisp(this,'selfcreateusername');"; |
my $onclick = "toggleUsernameDisp(this,'selfcreateusername');"; |
$output .= &Apache::lonhtmlcommon::row_title($lt{'username'},undef,'LC_oddrow_value')."\n". |
$output .= &Apache::lonhtmlcommon::row_title($lt{'username'},undef,'LC_oddrow_value')."\n". |
'<span class="LC_nobreak">'.&mt('Use e-mail address: '). |
'<span class="LC_nobreak">'.&mt('Use e-mail address: '). |
'<label><input type="radio" name="emailused" value="1" checked="checked" onclick="'.$onclick.'" />'. |
'<label><input type="radio" name="emailused" value="1" checked="checked" onclick="'.$onclick.'" />'. |
Line 3051 sub update_user_data {
|
Line 2894 sub update_user_data {
|
$amode='localauth'; |
$amode='localauth'; |
$genpwd=$env{'form.locarg'}; |
$genpwd=$env{'form.locarg'}; |
$genpwd=" " if (!$genpwd); |
$genpwd=" " if (!$genpwd); |
|
} elsif ($env{'form.login'} eq 'lti') { |
|
$amode='lti'; |
|
$genpwd=" "; |
} elsif (($env{'form.login'} eq 'nochange') || |
} elsif (($env{'form.login'} eq 'nochange') || |
($env{'form.login'} eq '' )) { |
($env{'form.login'} eq '' )) { |
# There is no need to tell the user we did not change what they |
# There is no need to tell the user we did not change what they |
Line 3069 sub update_user_data {
|
Line 2915 sub update_user_data {
|
|
|
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); |
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); |
my @usertools = ('aboutme','blog','portfolio','timezone'); |
my @usertools = ('aboutme','blog','webdav','portfolio','timezone'); |
my @requestcourses = ('official','unofficial','community','textbook'); |
my @requestcourses = ('official','unofficial','community','textbook','placement','lti'); |
my @requestauthor = ('requestauthor'); |
my @requestauthor = ('requestauthor'); |
my @authordefaults = ('webdav','editors'); |
|
my ($othertitle,$usertypes,$types) = |
my ($othertitle,$usertypes,$types) = |
&Apache::loncommon::sorted_inst_types($env{'form.ccdomain'}); |
&Apache::loncommon::sorted_inst_types($env{'form.ccdomain'}); |
my %canmodify_status = |
my %canmodify_status = |
Line 3181 sub update_user_data {
|
Line 3026 sub update_user_data {
|
$newcustom{'requestauthor'}, |
$newcustom{'requestauthor'}, |
\%changeHash,'requestauthor'); |
\%changeHash,'requestauthor'); |
} |
} |
if ($env{'form.customeditors'} == 1) { |
|
my @editors; |
|
my @posseditors = &Apache::loncommon::get_env_multiple('form.custom_editor'); |
|
if (@posseditors) { |
|
foreach my $editor (@posseditors) { |
|
if (grep(/^\Q$editor\E$/,@posseditors)) { |
|
unless (grep(/^\Q$editor\E$/,@editors)) { |
|
push(@editors,$editor); |
|
} |
|
} |
|
} |
|
} |
|
if (@editors) { |
|
@editors = sort(@editors); |
|
$changed{'editors'} = &tool_admin('editors',join(',',@editors), |
|
\%changeHash,'authordefaults'); |
|
} |
|
} |
|
if ($env{'form.customwebdav'} == 1) { |
|
$newcustom{'webdav'} = $env{'form.authordefaults_webdav'}; |
|
$changed{'webdav'} = &tool_admin('webdav',$newcustom{'webdav'}, |
|
\%changeHash,'authordefaults'); |
|
} |
|
} |
} |
if ($canmodify_status{'inststatus'}) { |
if ($canmodify_status{'inststatus'}) { |
if (exists($env{'form.inststatus'})) { |
if (exists($env{'form.inststatus'})) { |
Line 3242 sub update_user_data {
|
Line 3064 sub update_user_data {
|
($env{'form.ccuname'},$env{'form.ccdomain'})); |
($env{'form.ccuname'},$env{'form.ccdomain'})); |
} else { |
} else { |
# Okay, this is a non-fatal error. |
# Okay, this is a non-fatal error. |
$r->print($error.&mt('You do not have privileges to modify the authentication configuration for this user.').$end); |
$r->print($error.&mt('You do not have privileges to modify the authentication configuration for this user.').$end); |
} |
} |
} elsif (($env{'form.intarg'} ne '') && |
} elsif (($env{'form.intarg'} ne '') && |
(&Apache::lonnet::queryauthenticate($env{'form.ccuname'},$env{'form.ccdomain'}) =~ /^internal:/) && |
(&Apache::lonnet::queryauthenticate($env{'form.ccuname'},$env{'form.ccdomain'}) =~ /^internal:/) && |
Line 3271 sub update_user_data {
|
Line 3093 sub update_user_data {
|
'id','permanentemail','portfolioquota','authorquota','inststatus', |
'id','permanentemail','portfolioquota','authorquota','inststatus', |
'tools.aboutme','tools.blog','tools.webdav', |
'tools.aboutme','tools.blog','tools.webdav', |
'tools.portfolio','tools.timezone', |
'tools.portfolio','tools.timezone', |
'authoreditors','requestauthor', |
|
'requestcourses.official','requestcourses.unofficial', |
'requestcourses.official','requestcourses.unofficial', |
'requestcourses.community','requestcourses.textbook', |
'requestcourses.community','requestcourses.textbook', |
|
'requestcourses.lti','requestauthor', |
'reqcrsotherdom.official','reqcrsotherdom.unofficial', |
'reqcrsotherdom.official','reqcrsotherdom.unofficial', |
'reqcrsotherdom.community','reqcrsotherdom.textbook'], |
'reqcrsotherdom.community','reqcrsotherdom.textbook', |
|
'reqcrsotherdom.placement'], |
$env{'form.ccdomain'},$env{'form.ccuname'}); |
$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) { |
Line 3305 sub update_user_data {
|
Line 3128 sub update_user_data {
|
} |
} |
} elsif ($context eq 'author') { |
} elsif ($context eq 'author') { |
if ($rolenum eq $auname && $roledom eq $audom) { |
if ($rolenum eq $auname && $roledom eq $audom) { |
if (!grep(/^\Q$role\E$/,@userroles)) { |
if (!grep(/^\Q$role\E$/,@userroles)) { |
push(@userroles,$role); |
push(@userroles,$role); |
} |
} |
} |
} |
Line 3403 sub update_user_data {
|
Line 3226 sub update_user_data {
|
%oldsettingstatus,%newsettingstatus); |
%oldsettingstatus,%newsettingstatus); |
@disporder = ('inststatus'); |
@disporder = ('inststatus'); |
if ($env{'request.role.domain'} eq $env{'form.ccdomain'}) { |
if ($env{'request.role.domain'} eq $env{'form.ccdomain'}) { |
push(@disporder,('requestcourses','requestauthor','authordefaults')); |
push(@disporder,'requestcourses','requestauthor'); |
} else { |
} else { |
push(@disporder,'reqcrsotherdom'); |
push(@disporder,'reqcrsotherdom'); |
} |
} |
Line 3431 sub update_user_data {
|
Line 3254 sub update_user_data {
|
} |
} |
if (&Apache::lonnet::allowed('cau',$env{'form.ccdomain'})) { |
if (&Apache::lonnet::allowed('cau',$env{'form.ccdomain'})) { |
$canshow{'requestauthor'} = 1; |
$canshow{'requestauthor'} = 1; |
$canshow{'authordefaults'} = 1; |
|
} |
} |
my (%changeHash,%changed); |
my (%changeHash,%changed); |
if ($oldinststatus eq '') { |
if ($oldinststatus eq '') { |
Line 3540 sub update_user_data {
|
Line 3362 sub update_user_data {
|
if ($env{'form.ccdomain'} eq $env{'request.role.domain'}) { |
if ($env{'form.ccdomain'} eq $env{'request.role.domain'}) { |
&tool_changes('requestcourses',\@requestcourses,\%oldsettings,\%oldsettingstext, |
&tool_changes('requestcourses',\@requestcourses,\%oldsettings,\%oldsettingstext, |
\%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
\%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
my ($isadv,$isauthor) = |
&tool_changes('requestauthor',\@requestauthor,\%oldsettings,\%oldsettingstext, |
&Apache::lonnet::is_advanced_user($env{'form.ccdomain'},$env{'form.ccuname'}); |
\%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
unless ($isauthor) { |
|
&tool_changes('requestauthor',\@requestauthor,\%oldsettings,\%oldsettingstext, |
|
\%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
|
} |
|
&tool_changes('authordefaults',\@authordefaults,\%oldsettings,\%oldsettingstext, |
|
\%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
|
} else { |
} else { |
&tool_changes('reqcrsotherdom',\@requestcourses,\%oldsettings,\%oldsettingstext, |
&tool_changes('reqcrsotherdom',\@requestcourses,\%oldsettings,\%oldsettingstext, |
\%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
\%userenv,\%changeHash,\%changed,\%newsettings,\%newsettingstext); |
Line 3571 sub update_user_data {
|
Line 3387 sub update_user_data {
|
if ($chgresult eq 'ok') { |
if ($chgresult eq 'ok') { |
if (($env{'user.name'} eq $env{'form.ccuname'}) && |
if (($env{'user.name'} eq $env{'form.ccuname'}) && |
($env{'user.domain'} eq $env{'form.ccdomain'})) { |
($env{'user.domain'} eq $env{'form.ccdomain'})) { |
my (%newenvhash,$got_domdefs,%domdefaults,$got_userenv, |
my %newenvhash; |
%userenv); |
|
my @fromenv = keys(%changed); |
|
push(@fromenv,'inststatus'); |
|
foreach my $key (keys(%changed)) { |
foreach my $key (keys(%changed)) { |
if (($key eq 'official') || ($key eq 'unofficial') |
if (($key eq 'official') || ($key eq 'unofficial') || |
|| ($key eq 'community') || ($key eq 'textbook')) { |
($key eq 'community') || ($key eq 'textbook') || |
|
($key eq 'placement') || ($key eq 'lti')) { |
$newenvhash{'environment.requestcourses.'.$key} = |
$newenvhash{'environment.requestcourses.'.$key} = |
$changeHash{'requestcourses.'.$key}; |
$changeHash{'requestcourses.'.$key}; |
if ($changeHash{'requestcourses.'.$key}) { |
if ($changeHash{'requestcourses.'.$key}) { |
$newenvhash{'environment.canrequest.'.$key} = 1; |
$newenvhash{'environment.canrequest.'.$key} = 1; |
} else { |
} else { |
unless ($got_domdefs) { |
|
%domdefaults = |
|
&Apache::lonnet::get_domain_defaults($env{'user.domain'}); |
|
$got_domdefs = 1; |
|
} |
|
unless ($got_userenv) { |
|
%userenv = |
|
&Apache::lonnet::userenvironment($env{'user.domain'}, |
|
$env{'user.name'},@fromenv); |
|
$got_userenv = 1; |
|
} |
|
$newenvhash{'environment.canrequest.'.$key} = |
$newenvhash{'environment.canrequest.'.$key} = |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
$key,'reload','requestcourses',\%userenv,\%domdefaults); |
$key,'reload','requestcourses'); |
} |
} |
} elsif ($key eq 'requestauthor') { |
} elsif ($key eq 'requestauthor') { |
$newenvhash{'environment.'.$key} = $changeHash{$key}; |
$newenvhash{'environment.'.$key} = $changeHash{$key}; |
if ($changeHash{$key}) { |
if ($changeHash{$key}) { |
$newenvhash{'environment.canrequest.author'} = 1; |
$newenvhash{'environment.canrequest.author'} = 1; |
} else { |
} else { |
unless ($got_domdefs) { |
|
%domdefaults = |
|
&Apache::lonnet::get_domain_defaults($env{'user.domain'}); |
|
$got_domdefs = 1; |
|
} |
|
unless ($got_userenv) { |
|
%userenv = |
|
&Apache::lonnet::userenvironment($env{'user.domain'}, |
|
$env{'user.name'},@fromenv); |
|
$got_userenv = 1; |
|
} |
|
$newenvhash{'environment.canrequest.author'} = |
$newenvhash{'environment.canrequest.author'} = |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
$key,'reload','requestauthor',\%userenv,\%domdefaults); |
$key,'reload','requestauthor'); |
} |
|
} elsif ($key eq 'editors') { |
|
$newenvhash{'environment.author'.$key} = $changeHash{'author'.$key}; |
|
if ($env{'form.customeditors'}) { |
|
$newenvhash{'environment.editors'} = $changeHash{'author'.$key}; |
|
} else { |
|
unless ($got_domdefs) { |
|
%domdefaults = |
|
&Apache::lonnet::get_domain_defaults($env{'user.domain'}); |
|
$got_domdefs = 1; |
|
} |
|
if ($domdefaults{'editors'} ne '') { |
|
$newenvhash{'environment.editors'} = $domdefaults{'editors'}; |
|
} else { |
|
$newenvhash{'environment.editors'} = 'edit,xml'; |
|
} |
|
} |
} |
} elsif ($key ne 'quota') { |
} elsif ($key ne 'quota') { |
$newenvhash{'environment.tools.'.$key} = |
$newenvhash{'environment.tools.'.$key} = |
Line 3641 sub update_user_data {
|
Line 3417 sub update_user_data {
|
$newenvhash{'environment.availabletools.'.$key} = |
$newenvhash{'environment.availabletools.'.$key} = |
$changeHash{'tools.'.$key}; |
$changeHash{'tools.'.$key}; |
} else { |
} else { |
unless ($got_domdefs) { |
|
%domdefaults = |
|
&Apache::lonnet::get_domain_defaults($env{'user.domain'}); |
|
$got_domdefs = 1; |
|
} |
|
unless ($got_userenv) { |
|
%userenv = |
|
&Apache::lonnet::userenvironment($env{'user.domain'}, |
|
$env{'user.name'},@fromenv); |
|
$got_userenv = 1; |
|
} |
|
$newenvhash{'environment.availabletools.'.$key} = |
$newenvhash{'environment.availabletools.'.$key} = |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'}, |
$key,'reload','tools',\%userenv,\%domdefaults); |
$key,'reload','tools'); |
} |
} |
} |
} |
} |
} |
Line 3696 sub update_user_data {
|
Line 3461 sub update_user_data {
|
\%newsettingstext); |
\%newsettingstext); |
if ($env{'form.cid'} ne $userenv{'id'}) { |
if ($env{'form.cid'} ne $userenv{'id'}) { |
&Apache::lonnet::idput($env{'form.ccdomain'}, |
&Apache::lonnet::idput($env{'form.ccdomain'}, |
{$env{'form.ccuname'} => $env{'form.cid'}}); |
{$env{'form.ccuname'} => $env{'form.cid'}},$uhome,'ids'); |
if (($recurseid) && |
if (($recurseid) && |
(&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) { |
(&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}))) { |
my $idresult = |
my $idresult = |
Line 3840 sub display_userinfo {
|
Line 3605 sub display_userinfo {
|
'unofficial' => 'Can Request Unofficial Courses', |
'unofficial' => 'Can Request Unofficial Courses', |
'community' => 'Can Request Communities', |
'community' => 'Can Request Communities', |
'textbook' => 'Can Request Textbook Courses', |
'textbook' => 'Can Request Textbook Courses', |
|
'placement' => 'Can Request Placement Tests', |
|
'lti' => 'Can Request LTI Courses', |
'requestauthor' => 'Can Request Author Role', |
'requestauthor' => 'Can Request Author Role', |
'inststatus' => "Affiliation", |
'inststatus' => "Affiliation", |
'prvs' => 'Previous Value:', |
'prvs' => 'Previous Value:', |
'chto' => 'Changed To:', |
'chto' => 'Changed To:' |
'editors' => "Available Editors in Authoring Space", |
|
'edit' => 'Standard editor (Edit)', |
|
'xml' => 'Text editor (EditXML)', |
|
'daxe' => 'Daxe editor (Daxe)', |
|
); |
); |
if ($changed) { |
if ($changed) { |
$r->print('<h3>'.$lt{'uic'}.'</h3>'. |
$r->print('<h3>'.$lt{'uic'}.'</h3>'. |
Line 3872 sub display_userinfo {
|
Line 3635 sub display_userinfo {
|
} |
} |
foreach my $entry (@{$order}) { |
foreach my $entry (@{$order}) { |
if ($canshow->{$entry}) { |
if ($canshow->{$entry}) { |
if (($entry eq 'requestcourses') || ($entry eq 'reqcrsotherdom') || |
if (($entry eq 'requestcourses') || ($entry eq 'reqcrsotherdom') || ($entry eq 'requestauthor')) { |
($entry eq 'requestauthor') || ($entry eq 'authordefaults')) { |
|
my @items; |
my @items; |
if ($entry eq 'requestauthor') { |
if ($entry eq 'requestauthor') { |
@items = ($entry); |
@items = ($entry); |
} elsif ($entry eq 'authordefaults') { |
|
@items = ('webdav','editors'); |
|
} else { |
} else { |
@items = @{$requestcourses}; |
@items = @{$requestcourses}; |
} |
} |
Line 4059 sub tool_changes {
|
Line 3819 sub tool_changes {
|
} |
} |
return; |
return; |
} |
} |
my %tooldesc = &Apache::lonlocal::texthash( |
|
'edit' => 'Standard editor (Edit)', |
|
'xml' => 'Text editor (EditXML)', |
|
'daxe' => 'Daxe editor (Daxe)', |
|
); |
|
foreach my $tool (@{$usertools}) { |
foreach my $tool (@{$usertools}) { |
my ($newval,$limit,$envkey); |
my ($newval,$limit,$envkey); |
$envkey = $context.'.'.$tool; |
$envkey = $context.'.'.$tool; |
Line 4077 sub tool_changes {
|
Line 3832 sub tool_changes {
|
} elsif ($context eq 'requestauthor') { |
} elsif ($context eq 'requestauthor') { |
$newval = $env{'form.'.$context}; |
$newval = $env{'form.'.$context}; |
$envkey = $context; |
$envkey = $context; |
} elsif ($context eq 'authordefaults') { |
|
if ($tool eq 'editors') { |
|
$envkey = 'authoreditors'; |
|
if ($env{'form.customeditors'} == 1) { |
|
my @editors; |
|
my @posseditors = &Apache::loncommon::get_env_multiple('form.custom_editor'); |
|
if (@posseditors) { |
|
foreach my $editor (@posseditors) { |
|
if (grep(/^\Q$editor\E$/,@posseditors)) { |
|
unless (grep(/^\Q$editor\E$/,@editors)) { |
|
push(@editors,$editor); |
|
} |
|
} |
|
} |
|
} |
|
if (@editors) { |
|
$newval = join(',',(sort(@editors))); |
|
} |
|
} |
|
} elsif ($tool eq 'webdav') { |
|
$envkey = 'tools.webdav'; |
|
$newval = $env{'form.'.$context.'_'.$tool}; |
|
} |
|
} else { |
} else { |
$newval = $env{'form.'.$context.'_'.$tool}; |
$newval = $env{'form.'.$context.'_'.$tool}; |
} |
} |
Line 4118 sub tool_changes {
|
Line 3850 sub tool_changes {
|
} else { |
} else { |
$oldaccesstext->{$tool} = &mt("availability set to 'off'"); |
$oldaccesstext->{$tool} = &mt("availability set to 'off'"); |
} |
} |
} elsif ($context eq 'authordefaults') { |
|
if ($tool eq 'editors') { |
|
$oldaccesstext->{$tool} = &mt('can use: [_1]', |
|
join(', ', map { $tooldesc{$_} } split(/,/,$userenv->{$envkey}))); |
|
} elsif ($tool eq 'webdav') { |
|
if ($userenv->{$envkey}) { |
|
$oldaccesstext->{$tool} = &mt("availability set to 'on'"); |
|
} else { |
|
$oldaccesstext->{$tool} = &mt("availability set to 'off'"); |
|
} |
|
} |
|
} else { |
} else { |
if ($userenv->{$envkey}) { |
if ($userenv->{$envkey}) { |
$oldaccesstext->{$tool} = &mt("availability set to 'on'"); |
$oldaccesstext->{$tool} = &mt("availability set to 'on'"); |
Line 4155 sub tool_changes {
|
Line 3876 sub tool_changes {
|
} else { |
} else { |
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
} |
} |
} elsif ($context eq 'authordefaults') { |
|
if ($tool eq 'editors') { |
|
$newaccesstext->{$tool} = &mt('can use: [_1]', |
|
join(', ', map { $tooldesc{$_} } split(/,/,$changeHash->{$envkey}))); |
|
} elsif ($tool eq 'webdav') { |
|
if ($newval) { |
|
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
|
} else { |
|
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
|
} |
|
} |
|
} else { |
} else { |
if ($newval) { |
if ($newval) { |
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
Line 4176 sub tool_changes {
|
Line 3886 sub tool_changes {
|
} else { |
} else { |
$newaccess->{$tool} = $oldaccess->{$tool}; |
$newaccess->{$tool} = $oldaccess->{$tool}; |
if (($context eq 'requestcourses') || ($context eq 'requestauthor')) { |
if (($context eq 'requestcourses') || ($context eq 'requestauthor')) { |
if ($userenv->{$envkey} =~ /^autolimit/) { |
if ($newval =~ /^autolimit/) { |
if ($limit) { |
if ($limit) { |
$newaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$limit); |
$newaccesstext->{$tool} = &mt('available with automatic approval, up to limit of [quant,_1,request] per user',$limit); |
} else { |
} else { |
$newaccesstext->{$tool} = &mt('available with automatic approval (unlimited)'); |
$newaccesstext->{$tool} = &mt('available with automatic approval (unlimited)'); |
} |
} |
} elsif ($userenv->{$envkey}) { |
} elsif ($newval) { |
$newaccesstext->{$tool} = $reqdisplay{$userenv->{$envkey}}; |
$newaccesstext->{$tool} = $reqdisplay{$newval}; |
} else { |
} else { |
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
} |
} |
} elsif ($context eq 'authordefaults') { |
|
if ($tool eq 'editors') { |
|
$newaccesstext->{$tool} = &mt('can use: [_1]', |
|
join(', ', map { $tooldesc{$_} } split(/,/,$userenv->{$envkey}))); |
|
} elsif ($tool eq 'webdav') { |
|
if ($userenv->{$envkey}) { |
|
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
|
} else { |
|
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
|
} |
|
} |
|
} else { |
} else { |
if ($userenv->{$context.'.'.$tool}) { |
if ($userenv->{$context.'.'.$tool}) { |
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
Line 4228 sub tool_changes {
|
Line 3927 sub tool_changes {
|
} else { |
} else { |
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
} |
} |
} elsif ($context eq 'authordefaults') { |
|
if ($tool eq 'editors') { |
|
$newaccesstext->{$tool} = &mt('can use: [_1]', |
|
join(', ', map { $tooldesc{$_} } split(/,/,$newval))); |
|
} elsif ($tool eq 'webdav') { |
|
if ($userenv->{$envkey}) { |
|
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
|
} else { |
|
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
|
} |
|
} |
|
} else { |
} else { |
if ($userenv->{$context.'.'.$tool}) { |
if ($userenv->{$context.'.'.$tool}) { |
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
Line 4267 sub tool_changes {
|
Line 3955 sub tool_changes {
|
} else { |
} else { |
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
} |
} |
} elsif ($context eq 'authordefaults') { |
|
if ($tool eq 'editors') { |
|
$newaccesstext->{$tool} = &mt('can use: [_1]', |
|
join(', ', map { $tooldesc{$_} } split(/,/,$newval))); |
|
} elsif ($tool eq 'webdav') { |
|
if ($newval) { |
|
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
|
} else { |
|
$newaccesstext->{$tool} = &mt("availability set to 'off'"); |
|
} |
|
} |
|
} else { |
} else { |
if ($newval) { |
if ($newval) { |
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
$newaccesstext->{$tool} = &mt("availability set to 'on'"); |
Line 4300 sub update_roles {
|
Line 3977 sub update_roles {
|
my ($r,$context,$showcredits) = @_; |
my ($r,$context,$showcredits) = @_; |
my $now=time; |
my $now=time; |
my @rolechanges; |
my @rolechanges; |
my %disallowed; |
my (%disallowed,%got_role_approvals,%got_instdoms,%process_by,%instdoms, |
|
%pending,%reject,%notifydc,%status,%unauthorized,%currqueued); |
|
$got_role_approvals{$context} = ''; |
|
$process_by{$context} = {}; |
|
my @domroles = &Apache::lonuserutils::domain_roles(); |
|
my @cstrroles = &Apache::lonuserutils::construction_space_roles(); |
|
my @courseroles = &Apache::lonuserutils::roles_by_context('course',1); |
$r->print('<h3>'.&mt('Modifying Roles').'</h3>'); |
$r->print('<h3>'.&mt('Modifying Roles').'</h3>'); |
foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
next if (! $env{$key}); |
next if (! $env{$key}); |
Line 4402 sub update_roles {
|
Line 4085 sub update_roles {
|
if ($key=~/^form\.ren\:([^\_]+)\_([^\_\.]+)$/) { |
if ($key=~/^form\.ren\:([^\_]+)\_([^\_\.]+)$/) { |
my $url = $1; |
my $url = $1; |
my $role = $2; |
my $role = $2; |
|
my $id = $url.'_'.$role; |
my $logmsg; |
my $logmsg; |
my $output; |
my $output; |
if ($role eq 'st') { |
if ($role eq 'st') { |
Line 4409 sub update_roles {
|
Line 4093 sub update_roles {
|
my ($cdom,$cnum,$csec) = ($1,$2,$3); |
my ($cdom,$cnum,$csec) = ($1,$2,$3); |
my $credits; |
my $credits; |
if ($showcredits) { |
if ($showcredits) { |
my $defaultcredits = |
my $defaultcredits = |
&Apache::lonuserutils::get_defaultcredits($cdom,$cnum); |
&Apache::lonuserutils::get_defaultcredits($cdom,$cnum); |
$credits = &get_user_credits($defaultcredits,$cdom,$cnum); |
$credits = &get_user_credits($defaultcredits,$cdom,$cnum); |
} |
} |
|
unless ($udom eq $cdom) { |
|
next if (&Apache::lonuserutils::restricted_dom($context,$id,$udom, |
|
$uname,$role,$now,0,$cdom,$cnum,$csec,$credits, |
|
\%process_by,\%instdoms,\%got_role_approvals, |
|
\%got_instdoms,\%reject,\%pending,\%notifydc, |
|
\%status,\%unauthorized,\%currqueued)); |
|
} |
my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$cdom,$cnum,$csec,$context,$credits); |
my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$cdom,$cnum,$csec,$context,$credits); |
if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) { |
if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) { |
if ($result eq 'refused' && $logmsg) { |
if ($result eq 'refused' && $logmsg) { |
Line 4428 sub update_roles {
|
Line 4119 sub update_roles {
|
} |
} |
} |
} |
} else { |
} else { |
|
my ($cdom,$cnum,$csec); |
|
if (grep(/^\Q$role\E$/,@cstrroles)) { |
|
($cdom,$cnum) = ($url =~ m{^/($match_domain)/($match_username)$}); |
|
} elsif (grep(/^\Q$role\E$/,@domroles)) { |
|
($cdom) = ($url =~ m{^/($match_domain)/$}); |
|
} elsif ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) { |
|
($cdom,$cnum,$csec) = ($1,$2,$3); |
|
} |
|
if ($cdom ne '') { |
|
unless ($udom eq $cdom) { |
|
next if (&Apache::lonuserutils::restricted_dom($context,$id,$udom, |
|
$uname,$role,$now,0,$cdom,$cnum,$csec,'',\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued)); |
|
} |
|
} |
my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'}, |
my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'}, |
$env{'form.ccuname'},$url,$role,0,$now,'','', |
$env{'form.ccuname'},$url,$role,0,$now,'','', |
$context); |
$context); |
$output = &Apache::lonhtmlcommon::confirm_success(&mt('Re-enabling [_1] in [_2]', |
$output = &Apache::lonhtmlcommon::confirm_success(&mt('Re-enabling [_1] in [_2]', |
&Apache::lonnet::plaintext($role), |
&Apache::lonnet::plaintext($role), |
&Apache::loncommon::show_role_extent($url,$context,$role)),$result ne "ok").'<br />'; |
&Apache::loncommon::show_role_extent($url,$context,$role)),$result ne "ok").'<br />'; |
if ($result ne "ok") { |
if ($result ne "ok") { |
$output .= &mt('Error: [_1]',$result).'<br />'; |
$output .= &mt('Error: [_1]',$result).'<br />'; |
} |
} |
Line 4446 sub update_roles {
|
Line 4153 sub update_roles {
|
# Re-enable custom role |
# Re-enable custom role |
if ($key=~m{^form\.ren\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) { |
if ($key=~m{^form\.ren\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) { |
my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4); |
my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4); |
|
my $id = $url.'_cr'."/$rdom/$rnam/$rolename"; |
|
my $role = "cr/$rdom/$rnam/$rolename"; |
|
if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) { |
|
my ($cdom,$cnum,$csec) = ($1,$2,$3); |
|
unless ($udom eq $cdom) { |
|
next if (&Apache::lonuserutils::restricted_dom($context,$id,$udom, |
|
$uname,$role,$now,0,$cdom,$cnum,$csec,'',\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued)); |
|
} |
|
} |
my $result = &Apache::lonnet::assigncustomrole( |
my $result = &Apache::lonnet::assigncustomrole( |
$env{'form.ccdomain'}, $env{'form.ccuname'}, |
$env{'form.ccdomain'}, $env{'form.ccuname'}, |
$url,$rdom,$rnam,$rolename,0,$now,undef,$context); |
$url,$rdom,$rnam,$rolename,0,$now,undef,$context); |
Line 4467 sub update_roles {
|
Line 4185 sub update_roles {
|
# Activate a custom role |
# Activate a custom role |
my ($one,$two,$three,$four,$five)=($1,$2,$3,$4,$5); |
my ($one,$two,$three,$four,$five)=($1,$2,$3,$4,$5); |
my $url='/'.$one.'/'.$two; |
my $url='/'.$one.'/'.$two; |
|
my $id = $url.'_cr/'."$three/$four/$five"; |
|
my $role = "cr/$three/$four/$five"; |
my $full=$one.'_'.$two.'_cr_cr_'.$three.'_'.$four.'_'.$five; |
my $full=$one.'_'.$two.'_cr_cr_'.$three.'_'.$four.'_'.$five; |
|
|
my $start = ( $env{'form.start_'.$full} ? |
my $start = ( $env{'form.start_'.$full} ? |
Line 4475 sub update_roles {
|
Line 4195 sub update_roles {
|
my $end = ( $env{'form.end_'.$full} ? |
my $end = ( $env{'form.end_'.$full} ? |
$env{'form.end_'.$full} : |
$env{'form.end_'.$full} : |
0 ); |
0 ); |
|
|
# split multiple sections |
# split multiple sections |
my %sections = (); |
my %sections = (); |
my $num_sections = &build_roles($env{'form.sec_'.$full},\%sections,$5); |
my $num_sections = &build_roles($env{'form.sec_'.$full},\%sections,$five); |
if ($num_sections == 0) { |
if ($num_sections == 0) { |
|
unless ($udom eq $one) { |
|
next if (&Apache::lonuserutils::restricted_dom($context,$id,$udom, |
|
$uname,$role,$start,$end,$one,$two,'','',\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued)); |
|
} |
$r->print(&Apache::loncommon::commit_customrole($udom,$uname,$url,$three,$four,$five,$start,$end,$context)); |
$r->print(&Apache::loncommon::commit_customrole($udom,$uname,$url,$three,$four,$five,$start,$end,$context)); |
} else { |
} else { |
my %curr_groups = |
my %curr_groups = |
&Apache::longroup::coursegroups($one,$two); |
&Apache::longroup::coursegroups($one,$two); |
|
my ($restricted,$numchanges); |
foreach my $sec (sort {$a cmp $b} keys(%sections)) { |
foreach my $sec (sort {$a cmp $b} keys(%sections)) { |
if (($sec eq 'none') || ($sec eq 'all') || |
if (($sec eq 'none') || ($sec eq 'all') || |
exists($curr_groups{$sec})) { |
exists($curr_groups{$sec})) { |
Line 4491 sub update_roles {
|
Line 4218 sub update_roles {
|
next; |
next; |
} |
} |
my $securl = $url.'/'.$sec; |
my $securl = $url.'/'.$sec; |
|
my $secid = $securl.'_cr'."/$three/$four/$five"; |
|
undef($restricted); |
|
unless ($udom eq $one) { |
|
next if (&Apache::lonuserutils::restricted_dom($context,$secid,$udom, |
|
$uname,$role,$start,$end,$one,$two,$sec,'',\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued)); |
|
} |
|
$numchanges ++; |
$r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end,$context)); |
$r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end,$context)); |
} |
} |
|
next unless ($numchanges); |
} |
} |
if (!grep(/^cr$/,@rolechanges)) { |
if (!grep(/^cr$/,@rolechanges)) { |
push(@rolechanges,'cr'); |
push(@rolechanges,'cr'); |
Line 4501 sub update_roles {
|
Line 4238 sub update_roles {
|
# Activate roles for sections with 3 id numbers |
# Activate roles for sections with 3 id numbers |
# set start, end times, and the url for the class |
# set start, end times, and the url for the class |
my ($one,$two,$three)=($1,$2,$3); |
my ($one,$two,$three)=($1,$2,$3); |
my $start = ( $env{'form.start_'.$one.'_'.$two.'_'.$three} ? |
my $start = ( $env{'form.start_'.$one.'_'.$two.'_'.$three} ? |
$env{'form.start_'.$one.'_'.$two.'_'.$three} : |
$env{'form.start_'.$one.'_'.$two.'_'.$three} : |
$now ); |
$now ); |
my $end = ( $env{'form.end_'.$one.'_'.$two.'_'.$three} ? |
my $end = ( $env{'form.end_'.$one.'_'.$two.'_'.$three} ? |
$env{'form.end_'.$one.'_'.$two.'_'.$three} : |
$env{'form.end_'.$one.'_'.$two.'_'.$three} : |
0 ); |
0 ); |
my $url='/'.$one.'/'.$two; |
my $url='/'.$one.'/'.$two; |
|
my $id = $url.'_'.$three; |
my $type = 'three'; |
my $type = 'three'; |
# split multiple sections |
# split multiple sections |
my %sections = (); |
my %sections = (); |
my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two.'_'.$three},\%sections,$three); |
my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two.'_'.$three},\%sections,$three); |
my $credits; |
my ($credits,$numchanges); |
if ($three eq 'st') { |
if ($three eq 'st') { |
if ($showcredits) { |
if ($showcredits) { |
my $defaultcredits = |
my $defaultcredits = |
&Apache::lonuserutils::get_defaultcredits($one,$two); |
&Apache::lonuserutils::get_defaultcredits($one,$two); |
$credits = $env{'form.credits_'.$one.'_'.$two.'_'.$three}; |
$credits = $env{'form.credits_'.$one.'_'.$two.'_'.$three}; |
Line 4525 sub update_roles {
|
Line 4263 sub update_roles {
|
} |
} |
} |
} |
if ($num_sections == 0) { |
if ($num_sections == 0) { |
|
unless ($udom eq $one) { |
|
next if (&Apache::lonuserutils::restricted_dom($context,$id,$udom, |
|
$uname,$three,$start,$end,$one,$two,'',$credits,\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued)); |
|
} |
|
$numchanges ++; |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,'',$context,$credits)); |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,'',$context,$credits)); |
} else { |
} else { |
my %curr_groups = |
my %curr_groups = |
&Apache::longroup::coursegroups($one,$two); |
&Apache::longroup::coursegroups($one,$two); |
my $emptysec = 0; |
my $emptysec = 0; |
|
my $restricted; |
foreach my $sec (sort {$a cmp $b} keys(%sections)) { |
foreach my $sec (sort {$a cmp $b} keys(%sections)) { |
$sec =~ s/\W//g; |
$sec =~ s/\W//g; |
if ($sec ne '') { |
if ($sec ne '') { |
Line 4539 sub update_roles {
|
Line 4285 sub update_roles {
|
next; |
next; |
} |
} |
my $securl = $url.'/'.$sec; |
my $securl = $url.'/'.$sec; |
|
my $secid = $securl.'_'.$three; |
|
unless ($udom eq $one) { |
|
undef($restricted); |
|
$restricted = &Apache::lonuserutils::restricted_dom($context,$secid,$udom, |
|
$uname,$three,$start,$end,$one,$two,$sec,$credits,\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued); |
|
next if ($restricted); |
|
} |
|
$numchanges ++; |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$three,$start,$end,$one,$two,$sec,$context,$credits)); |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$three,$start,$end,$one,$two,$sec,$context,$credits)); |
} else { |
} else { |
$emptysec = 1; |
$emptysec = 1; |
} |
} |
} |
} |
if ($emptysec) { |
if ($emptysec) { |
|
unless ($udom eq $one) { |
|
undef($restricted); |
|
$restricted = &Apache::lonuserutils::restricted_dom($context,$id,$udom, |
|
$uname,$three,$start,$end,$one,$two,'',$credits,\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued); |
|
next if ($restricted); |
|
} |
|
$numchanges ++; |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,'',$context,$credits)); |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,'',$context,$credits)); |
} |
} |
|
next unless ($numchanges); |
} |
} |
if (!grep(/^\Q$three\E$/,@rolechanges)) { |
if (!grep(/^\Q$three\E$/,@rolechanges)) { |
push(@rolechanges,$three); |
push(@rolechanges,$three); |
Line 4554 sub update_roles {
|
Line 4320 sub update_roles {
|
} elsif ($key=~/^form\.act\_([^\_]+)\_([^\_]+)$/) { |
} elsif ($key=~/^form\.act\_([^\_]+)\_([^\_]+)$/) { |
# Activate roles for sections with two id numbers |
# Activate roles for sections with two id numbers |
# set start, end times, and the url for the class |
# set start, end times, and the url for the class |
my $start = ( $env{'form.start_'.$1.'_'.$2} ? |
my $start = ( $env{'form.start_'.$1.'_'.$2} ? |
$env{'form.start_'.$1.'_'.$2} : |
$env{'form.start_'.$1.'_'.$2} : |
$now ); |
$now ); |
my $end = ( $env{'form.end_'.$1.'_'.$2} ? |
my $end = ( $env{'form.end_'.$1.'_'.$2} ? |
$env{'form.end_'.$1.'_'.$2} : |
$env{'form.end_'.$1.'_'.$2} : |
0 ); |
0 ); |
my $one = $1; |
my $one = $1; |
my $two = $2; |
my $two = $2; |
my $url='/'.$one.'/'; |
my $url='/'.$one.'/'; |
|
my $id = $url.'_'.$two; |
# split multiple sections |
# split multiple sections |
my %sections = (); |
my %sections = (); |
|
my ($restricted,$numchanges); |
my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two},\%sections,$two); |
my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two},\%sections,$two); |
if ($num_sections == 0) { |
if ($num_sections == 0) { |
|
unless ($udom eq $one) { |
|
$restricted = &Apache::lonuserutils::restricted_dom($context,$id,$udom, |
|
$uname,$two,$start,$end,$one,$two,'','',\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued); |
|
next if ($restricted); |
|
} |
|
$numchanges ++; |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$two,$start,$end,$one,undef,'',$context)); |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$two,$start,$end,$one,undef,'',$context)); |
} else { |
} else { |
my $emptysec = 0; |
my $emptysec = 0; |
foreach my $sec (sort {$a cmp $b} keys(%sections)) { |
foreach my $sec (sort {$a cmp $b} keys(%sections)) { |
if ($sec ne '') { |
if ($sec ne '') { |
my $securl = $url.'/'.$sec; |
my $securl = $url.'/'.$sec; |
|
my $secid = $securl.'_'.$two; |
|
unless ($udom eq $one) { |
|
undef($restricted); |
|
$restricted = &Apache::lonuserutils::restricted_dom($context,$secid,$udom, |
|
$uname,$two,$start,$end,$one,$two,$sec,'',\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued); |
|
next if ($restricted); |
|
} |
|
$numchanges ++; |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$two,$start,$end,$one,undef,$sec,$context)); |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$two,$start,$end,$one,undef,$sec,$context)); |
} else { |
} else { |
$emptysec = 1; |
$emptysec = 1; |
} |
} |
} |
} |
if ($emptysec) { |
if ($emptysec) { |
|
unless ($udom eq $one) { |
|
undef($restricted); |
|
$restricted = &Apache::lonuserutils::restricted_dom($context,$id,$udom, |
|
$uname,$two,$start,$end,$one,$two,'','',\%process_by, |
|
\%instdoms,\%got_role_approvals,\%got_instdoms,\%reject, |
|
\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued); |
|
next if ($restricted); |
|
} |
|
$numchanges ++; |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$two,$start,$end,$one,undef,'',$context)); |
$r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$two,$start,$end,$one,undef,'',$context)); |
} |
} |
|
next unless ($numchanges); |
} |
} |
if (!grep(/^\Q$two\E$/,@rolechanges)) { |
if (!grep(/^\Q$two\E$/,@rolechanges)) { |
push(@rolechanges,$two); |
push(@rolechanges,$two); |
Line 4604 sub update_roles {
|
Line 4400 sub update_roles {
|
} |
} |
} |
} |
} # End of foreach (keys(%env)) |
} # End of foreach (keys(%env)) |
|
if ((keys(%reject)) || (keys(%unauthorized))) { |
|
$r->print(&Apache::lonuserutils::print_roles_rejected($context,\%reject,\%unauthorized)); |
|
} |
|
if ((keys(%pending)) || (keys(%currqueued))) { |
|
$r->print(&Apache::lonuserutils::print_roles_queued($context,\%pending,\%notifydc,\%currqueued)); |
|
} |
# Flush the course logs so reverse user roles immediately updated |
# Flush the course logs so reverse user roles immediately updated |
$r->register_cleanup(\&Apache::lonnet::flushcourselogs); |
$r->register_cleanup(\&Apache::lonnet::flushcourselogs); |
if (@rolechanges == 0) { |
if (@rolechanges == 0) { |
Line 4658 sub enroll_single_student {
|
Line 4460 sub enroll_single_student {
|
} |
} |
} |
} |
} |
} |
|
my ($startdate,$enddate) = &Apache::lonuserutils::get_dates_from_form(); |
|
my (%got_role_approvals,%got_instdoms,%process_by,%instdoms,%pending,%reject,%notifydc, |
|
%status,%unauthorized,%currqueued); |
|
unless ($env{'form.ccdomain'} eq $env{'course.'.$env{'request.course.id'}.'.domain'}) { |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $csec = $env{'form.sections'}; |
|
my $id = "/$cdom/$cnum"; |
|
if ($csec ne '') { |
|
$id .= "/$csec"; |
|
} |
|
$id .= '_st'; |
|
if (&Apache::lonuserutils::restricted_dom($context,$id,$env{'form.ccdomain'},$env{'form.ccuname'}, |
|
'st',$startdate,$enddate,$cdom,$cnum,$csec,$credits, |
|
\%process_by,\%instdoms,\%got_role_approvals,\%got_instdoms, |
|
\%reject,\%pending,\%notifydc,\%status,\%unauthorized,\%currqueued)) { |
|
if ((keys(%reject)) || (keys(%unauthorized))) { |
|
$r->print(&Apache::lonuserutils::print_roles_rejected($context,\%reject,\%unauthorized)); |
|
} |
|
if ((keys(%pending)) || (keys(%currqueued))) { |
|
$r->print(&Apache::lonuserutils::print_roles_queued($context,\%pending,\%notifydc,\%currqueued)); |
|
} |
|
return; |
|
} |
|
} |
|
|
# Clean out any old student roles the user has in this class. |
# Clean out any old student roles the user has in this class. |
&Apache::lonuserutils::modifystudent($env{'form.ccdomain'}, |
&Apache::lonuserutils::modifystudent($env{'form.ccdomain'}, |
$env{'form.ccuname'},$env{'request.course.id'},undef,$uhome); |
$env{'form.ccuname'},$env{'request.course.id'},undef,$uhome); |
my ($startdate,$enddate) = &Apache::lonuserutils::get_dates_from_form(); |
|
my $enroll_result = |
my $enroll_result = |
&Apache::lonnet::modify_student_enrollment($env{'form.ccdomain'}, |
&Apache::lonnet::modify_student_enrollment($env{'form.ccdomain'}, |
$env{'form.ccuname'},$env{'form.cid'},$env{'form.cfirstname'}, |
$env{'form.ccuname'},$env{'form.cid'},$env{'form.cfirstname'}, |
Line 4772 sub tool_admin {
|
Line 4598 sub tool_admin {
|
if (&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) { |
$canchange = 1; |
$canchange = 1; |
} |
} |
} elsif ($context eq 'authordefaults') { |
|
if (&Apache::lonnet::allowed('cau',$env{'request.role.domain'})) { |
|
$canchange = 1; |
|
} |
|
} elsif (&Apache::lonnet::allowed('mut',$env{'form.ccdomain'})) { |
} elsif (&Apache::lonnet::allowed('mut',$env{'form.ccdomain'})) { |
# Current user has quota modification privileges |
# Current user has quota modification privileges |
$canchange = 1; |
$canchange = 1; |
Line 4786 sub tool_admin {
|
Line 4608 sub tool_admin {
|
$toolchanged = 1; |
$toolchanged = 1; |
if ($tool eq 'requestauthor') { |
if ($tool eq 'requestauthor') { |
$changeHash->{$context} = $settool; |
$changeHash->{$context} = $settool; |
} elsif ($tool eq 'editors') { |
|
$changeHash->{'author'.$tool} = $settool; |
|
} elsif ($tool eq 'webdav') { |
|
$changeHash->{'tools.'.$tool} = $settool; |
|
} else { |
} else { |
$changeHash->{$context.'.'.$tool} = $settool; |
$changeHash->{$context.'.'.$tool} = $settool; |
} |
} |
Line 5032 sub set_custom_role {
|
Line 4850 sub set_custom_role {
|
); |
); |
} |
} |
|
|
|
sub show_role_requests { |
|
my ($caller,$dom) = @_; |
|
my $showrolereqs; |
|
my %domconfig = &Apache::lonnet::get_dom('configuration',['privacy'],$dom); |
|
if (ref($domconfig{'privacy'}) eq 'HASH') { |
|
if (ref($domconfig{'privacy'}{'approval'}) eq 'HASH') { |
|
my %approvalconf = %{$domconfig{'privacy'}{'approval'}}; |
|
foreach my $key ('instdom','extdom') { |
|
if (ref($approvalconf{$key}) eq 'HASH') { |
|
if (keys(%{$approvalconf{$key}})) { |
|
foreach my $context ('domain','author','course','community') { |
|
if ($approvalconf{$key}{$context} eq $caller) { |
|
$showrolereqs = 1; |
|
last if ($showrolereqs); |
|
} |
|
} |
|
} |
|
} |
|
last if ($showrolereqs); |
|
} |
|
} |
|
} |
|
return $showrolereqs; |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 5077 sub handler {
|
Line 4920 sub handler {
|
if (&Apache::lonnet::auto_run($cnum,$cdom) && (($permission->{'cusr'}) || ($permission->{'view'}))) { |
if (&Apache::lonnet::auto_run($cnum,$cdom) && (($permission->{'cusr'}) || ($permission->{'view'}))) { |
push(@allhelp,'Course_Automated_Enrollment'); |
push(@allhelp,'Course_Automated_Enrollment'); |
} |
} |
if (($permission->{'selfenrolladmin'}) || ($permission->{'selfenrollview'})) { |
if ($permission->{'selfenrolladmin'}) { |
push(@allhelp,'Course_Approve_Selfenroll'); |
push(@allhelp,'Course_Approve_Selfenroll'); |
} |
} |
} |
} |
Line 5179 sub handler {
|
Line 5022 sub handler {
|
if (! exists($env{'form.state'})) { |
if (! exists($env{'form.state'})) { |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
} elsif ($env{'form.state'} eq 'got_file') { |
} elsif ($env{'form.state'} eq 'got_file') { |
my $result = |
my $result = |
&Apache::lonuserutils::print_upload_manager_form($r,$context, |
&Apache::lonuserutils::print_upload_manager_form($r,$context, |
$permission, |
$permission, |
$crstype,$showcredits); |
$crstype,$showcredits); |
Line 5493 sub handler {
|
Line 5336 sub handler {
|
&Apache::lonhtmlcommon::row_closure(1)); |
&Apache::lonhtmlcommon::row_closure(1)); |
} |
} |
} |
} |
if ($pickstart) { |
if ($pickstart) { |
$r->print(&Apache::lonhtmlcommon::end_pick_box().'</div>'); |
$r->print(&Apache::lonhtmlcommon::end_pick_box().'</div>'); |
} else { |
} else { |
$r->print('<div>'.&mt('No information to display for this account request.').'</div>'); |
$r->print('<div>'.&mt('No information to display for this account request.').'</div>'); |
Line 5617 sub handler {
|
Line 5460 sub handler {
|
'<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'); |
'<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'); |
} |
} |
} elsif ($env{'form.action'} eq 'selfenroll') { |
} elsif ($env{'form.action'} eq 'selfenroll') { |
my %currsettings; |
if ($permission->{selfenrolladmin}) { |
if ($permission->{selfenrolladmin} || $permission->{selfenrollview}) { |
my %currsettings = ( |
%currsettings = ( |
|
selfenroll_types => $env{'course.'.$cid.'.internal.selfenroll_types'}, |
selfenroll_types => $env{'course.'.$cid.'.internal.selfenroll_types'}, |
selfenroll_registered => $env{'course.'.$cid.'.internal.selfenroll_registered'}, |
selfenroll_registered => $env{'course.'.$cid.'.internal.selfenroll_registered'}, |
selfenroll_section => $env{'course.'.$cid.'.internal.selfenroll_section'}, |
selfenroll_section => $env{'course.'.$cid.'.internal.selfenroll_section'}, |
Line 5635 sub handler {
|
Line 5477 sub handler {
|
default_enrollment_end_date => $env{'course.'.$cid.'.default_enrollment_end_date'}, |
default_enrollment_end_date => $env{'course.'.$cid.'.default_enrollment_end_date'}, |
uniquecode => $env{'course.'.$cid.'.internal.uniquecode'}, |
uniquecode => $env{'course.'.$cid.'.internal.uniquecode'}, |
); |
); |
} |
|
if ($permission->{selfenrolladmin}) { |
|
push(@{$brcrum}, |
push(@{$brcrum}, |
{href => '/adm/createuser?action=selfenroll', |
{href => '/adm/createuser?action=selfenroll', |
text => "Configure Self-enrollment", |
text => "Configure Self-enrollment", |
Line 5657 sub handler {
|
Line 5497 sub handler {
|
$r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n"); |
$r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n"); |
&update_selfenroll_config($r,$cid,$cdom,$cnum,$context,$crstype,\%currsettings); |
&update_selfenroll_config($r,$cid,$cdom,$cnum,$context,$crstype,\%currsettings); |
} |
} |
} elsif ($permission->{selfenrollview}) { |
|
push(@{$brcrum}, |
|
{href => '/adm/createuser?action=selfenroll', |
|
text => "View Self-enrollment configuration", |
|
help => 'Course_Self_Enrollment'}); |
|
$args = { bread_crumbs => $brcrum, |
|
bread_crumbs_component => 'Self-enrollment Settings'}; |
|
$r->print(&header(undef,$args)); |
|
$r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n"); |
|
&print_selfenroll_menu($r,'course',$cid,$cdom,$cnum,\%currsettings,'',1); |
|
} else { |
} else { |
$r->print(&header(undef,{'no_nav_bar' => 1}). |
$r->print(&header(undef,{'no_nav_bar' => 1}). |
'<span class="LC_error">'.&mt('You do not have permission to configure self-enrollment').'</span>'); |
'<span class="LC_error">'.&mt('You do not have permission to configure self-enrollment').'</span>'); |
Line 5725 sub handler {
|
Line 5555 sub handler {
|
$r->print(&header(undef,{'no_nav_bar' => 1}). |
$r->print(&header(undef,{'no_nav_bar' => 1}). |
'<span class="LC_error">'.&mt('You do not have permission to view helpdesk access').'</span>'); |
'<span class="LC_error">'.&mt('You do not have permission to view helpdesk access').'</span>'); |
} |
} |
|
} elsif ($env{'form.action'} eq 'rolerequests') { |
|
if ($permission->{cusr} || $permission->{view}) { |
|
&print_queued_roles($r,$context,$permission,$brcrum); |
|
} |
|
} elsif ($env{'form.action'} eq 'queuedroles') { |
|
if (($permission->{cusr}) && ($context eq 'domain')) { |
|
if (&show_role_requests($context,$env{'request.role.domain'})) { |
|
if ($env{'form.state'} eq 'done') { |
|
&process_pendingroles($r,$context,$permission,$brcrum); |
|
} else { |
|
&print_pendingroles($r,$context,$permission,$brcrum); |
|
} |
|
} else { |
|
$r->print(&header(undef,{'no_nav_bar' => 1}). |
|
'<span class="LC_info">'.&mt('Domain coordinator approval of requests from other domains for assignment of roles to users from this domain not in use.').'</span>'); |
|
} |
|
} else { |
|
$r->print(&header(undef,{'no_nav_bar' => 1}). |
|
'<span class="LC_error">'.&mt('You do not have permission to view queued requests from other domains for assignment of roles to users from this domain.').'</span>'); |
|
} |
} else { |
} else { |
$bread_crumbs_component = 'User Management'; |
$bread_crumbs_component = 'User Management'; |
$args = { bread_crumbs => $brcrum, |
$args = { bread_crumbs => $brcrum, |
Line 5976 sub print_main_menu {
|
Line 5826 sub print_main_menu {
|
listusers => 'Show and manage users in this community.', |
listusers => 'Show and manage users in this community.', |
}, |
}, |
); |
); |
|
|
if ($linkcontext eq 'domain') { |
if ($linkcontext eq 'domain') { |
unless ($permission->{'cusr'}) { |
unless ($permission->{'cusr'}) { |
$links{'domain'}{'singleuser'} = 'View a User'; |
$links{'domain'}{'singleuser'} = 'View a User'; |
Line 6097 sub print_main_menu {
|
Line 5948 sub print_main_menu {
|
groups => 'Community Groups', |
groups => 'Community Groups', |
}, |
}, |
); |
); |
|
$linktext{'Placement'} = $linktext{'Course'}; |
|
|
my %linktitle = ( |
my %linktitle = ( |
'Course' => { |
'Course' => { |
Line 6111 sub print_main_menu {
|
Line 5963 sub print_main_menu {
|
}, |
}, |
); |
); |
|
|
|
$linktitle{'Placement'} = $linktitle{'Course'}; |
|
|
push(@{ $menu[0]->{items} }, #Category: Single Users |
push(@{ $menu[0]->{items} }, #Category: Single Users |
{ |
{ |
linktext => $linktext{$crstype}{'single'}, |
linktext => $linktext{$crstype}{'single'}, |
Line 6174 sub print_main_menu {
|
Line 6028 sub print_main_menu {
|
icon => 'selfenrl-queue.png', |
icon => 'selfenrl-queue.png', |
#help => 'Course_Approve_Selfenroll', |
#help => 'Course_Approve_Selfenroll', |
url => '/adm/createuser?action=selfenrollqueue', |
url => '/adm/createuser?action=selfenrollqueue', |
permission => $permission->{'selfenrolladmin'} || $permission->{'selfenrollview'}, |
permission => $permission->{'selfenrolladmin'}, |
linktitle =>'Approve or reject enrollment requests.', |
linktitle =>'Approve or reject enrollment requests.', |
}, |
}, |
); |
); |
Line 6201 sub print_main_menu {
|
Line 6055 sub print_main_menu {
|
icon => 'self_enroll.png', |
icon => 'self_enroll.png', |
#help => 'Course_Self_Enrollment', |
#help => 'Course_Self_Enrollment', |
url => '/adm/createuser?action=selfenroll', |
url => '/adm/createuser?action=selfenroll', |
permission => $permission->{'selfenrolladmin'} || $permission->{'selfenrollview'}, |
permission => $permission->{'selfenrolladmin'}, |
linktitle => 'Configure user self-enrollment.', |
linktitle => 'Configure user self-enrollment.', |
}, |
}, |
); |
); |
Line 6218 sub print_main_menu {
|
Line 6072 sub print_main_menu {
|
}, |
}, |
); |
); |
} |
} |
|
push(@{ $menu[2]->{items} }, |
|
{ |
|
linktext => 'Role Requests (other domains)', |
|
icon => 'edit-find.png', |
|
#help => 'Role_Requests', |
|
url => '/adm/createuser?action=rolerequests', |
|
permission => $permission->{'cusr'}, |
|
linktitle => 'Role requests for users in other domains', |
|
}, |
|
); |
|
if (&show_role_requests($context,$env{'request.role.domain'})) { |
|
push(@{ $menu[2]->{items} }, |
|
{ |
|
linktext => 'Queued Role Assignments (this domain)', |
|
icon => 'edit-find.png', |
|
#help => 'Role_Approvals', |
|
url => '/adm/createuser?action=queuedroles', |
|
permission => $permission->{'cusr'}, |
|
linktitle => "Role requests for this domain's users", |
|
}, |
|
); |
|
} |
return Apache::lonhtmlcommon::generate_menu(@menu); |
return Apache::lonhtmlcommon::generate_menu(@menu); |
# { text => 'View Log-in History', |
# { text => 'View Log-in History', |
# help => 'Course_User_Logins', |
# help => 'Course_User_Logins', |
Line 6450 ENDSCRIPT
|
Line 6326 ENDSCRIPT
|
'// ]]>'."\n". |
'// ]]>'."\n". |
'</script>'."\n". |
'</script>'."\n". |
'<h3>'.$lt->{'selfenroll'}.'</h3>'."\n"; |
'<h3>'.$lt->{'selfenroll'}.'</h3>'."\n"; |
my $visactions = &cat_visibility($cdom); |
|
|
my $visactions = &cat_visibility(); |
my ($cathash,%cattype); |
my ($cathash,%cattype); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); |
if (ref($domconfig{'coursecategories'}) eq 'HASH') { |
if (ref($domconfig{'coursecategories'}) eq 'HASH') { |
Line 6613 ENDSCRIPT
|
Line 6490 ENDSCRIPT
|
} elsif ($curr_types eq '') { |
} elsif ($curr_types eq '') { |
$add_domtitle = &mt('Users in other domain:'); |
$add_domtitle = &mt('Users in other domain:'); |
} |
} |
|
my ($trusted,$untrusted) = &Apache::lonnet::trusted_domains('enroll',$cdom); |
$output .= &Apache::loncommon::start_data_table_row() |
$output .= &Apache::loncommon::start_data_table_row() |
.'<td colspan="2"><span class="LC_nobreak">'.$add_domtitle.'</span><br />' |
.'<td colspan="2"><span class="LC_nobreak">'.$add_domtitle.'</span><br />' |
.&Apache::loncommon::select_dom_form('','selfenroll_newdom', |
.&Apache::loncommon::select_dom_form('','selfenroll_newdom', |
$includeempty,$showdomdesc,'','','',$readonly) |
$includeempty,$showdomdesc,'',$trusted,$untrusted,$readonly) |
.'<input type="hidden" name="selfenroll_types_total" value="'.$num.'" />' |
.'<input type="hidden" name="selfenroll_types_total" value="'.$num.'" />' |
.'</td>'.&Apache::loncommon::end_data_table_row() |
.'</td>'.&Apache::loncommon::end_data_table_row() |
.&Apache::loncommon::end_data_table(); |
.&Apache::loncommon::end_data_table(); |
Line 6995 sub visible_in_stdcat {
|
Line 6873 sub visible_in_stdcat {
|
} |
} |
|
|
sub cat_visibility { |
sub cat_visibility { |
my ($cdom) = @_; |
|
my %visactions = &Apache::lonlocal::texthash( |
my %visactions = &Apache::lonlocal::texthash( |
vis => 'This course/community currently appears in the Course/Community Catalog for this domain.', |
vis => 'This course/community currently appears in the Course/Community Catalog for this domain.', |
gen => 'Courses can be both self-cataloging, based on an institutional code (e.g., fs08phy231), or can be assigned categories from a hierarchy defined for the domain.', |
gen => 'Courses can be both self-cataloging, based on an institutional code (e.g., fs08phy231), or can be assigned categories from a hierarchy defined for the domain.', |
Line 7008 sub cat_visibility {
|
Line 6885 sub cat_visibility {
|
dc_chgconf => 'Ask a domain coordinator to change the Catalog type for this domain.', |
dc_chgconf => 'Ask a domain coordinator to change the Catalog type for this domain.', |
dc_setcode => 'Ask a domain coordinator to assign a six character code to the course', |
dc_setcode => 'Ask a domain coordinator to assign a six character code to the course', |
dc_unhide => 'Ask a domain coordinator to change the "Exclude from course catalog" setting.', |
dc_unhide => 'Ask a domain coordinator to change the "Exclude from course catalog" setting.', |
dc_addinst => 'Ask a domain coordinator to enable catalog display of "Official courses (with institutional codes)".', |
dc_addinst => 'Ask a domain coordinator to enable display the catalog of "Official courses (with institutional codes)".', |
dc_instcode => 'Ask a domain coordinator to assign an institutional code (if this is an official course).', |
dc_instcode => 'Ask a domain coordinator to assign an institutional code (if this is an official course).', |
dc_catalog => 'Ask a domain coordinator to enable or create at least one course category in the domain.', |
dc_catalog => 'Ask a domain coordinator to enable or create at least one course category in the domain.', |
dc_categories => 'Ask a domain coordinator to create a hierarchy of categories and sub categories for courses in the domain.', |
dc_categories => 'Ask a domain coordinator to create a hierarchy of categories and sub categories for courses in the domain.', |
dc_chgcat => 'Ask a domain coordinator to change the category assigned to the course, as the one currently assigned is no longer used in the domain', |
dc_chgcat => 'Ask a domain coordinator to change the category assigned to the course, as the one currently assigned is no longer used in the domain', |
dc_addcat => 'Ask a domain coordinator to assign a category to the course.', |
dc_addcat => 'Ask a domain coordinator to assign a category to the course.', |
); |
); |
if ($env{'request.role'} eq "dc./$cdom/") { |
|
$visactions{'dc_chgconf'} = &mt('Use: "Main menu" [_1] "Set domain configuration" [_1] "Cataloging of courses/communities" to change the Catalog type for this domain.','»'); |
|
$visactions{'dc_setcode'} = &mt('Use: "Main menu" [_1] "Set domain configuration" [_1] "Cataloging of courses/communities" to assign a six character code to the course.','»'); |
|
$visactions{'dc_unhide'} = &mt('Use: "Main menu" [_1] "Set domain configuration" [_1] "Cataloging of courses/communities" to change the "Exclude from course catalog" setting.','»'); |
|
$visactions{'dc_addinst'} = &mt('Use: "Main menu" [_1] "Set domain configuration" [_1] "Cataloging of courses/communities" to enable catalog display of "Official courses (with institutional codes)".','»'); |
|
$visactions{'dc_instcode'} = &mt('Use: "Main menu" [_1] "View or modify a course or community" [_1] "View/Modify course owner, institutional code ... " to assign an institutional code (if this is an official course).','»'); |
|
$visactions{'dc_catalog'} = &mt('Use: "Main menu" [_1] "Set domain configuration" [_1] "Cataloging of courses/communities" to enable or create at least one course category in the domain.','»'); |
|
$visactions{'dc_categories'} = &mt('Use: "Main menu" [_1] "Set domain configuration" [_1] "Cataloging of courses/communities" to create a hierarchy of categories and sub categories for courses in the domain.','»'); |
|
$visactions{'dc_chgcat'} = &mt('Use: "Main menu" [_1] "View or modify a course or community" [_1] "View/Modify catalog settings for course" to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','»'); |
|
$visactions{'dc_addcat'} = &mt('Use: "Main menu" [_1] "View or modify a course or community" [_1] "View/Modify catalog settings for course" to assign a category to the course.','»'); |
|
} |
|
$visactions{'unhide'} = &mt('Use [_1]Categorize course[_2] to change the "Exclude from course catalog" setting.','<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
$visactions{'unhide'} = &mt('Use [_1]Categorize course[_2] to change the "Exclude from course catalog" setting.','<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
$visactions{'chgcat'} = &mt('Use [_1]Categorize course[_2] to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','"<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
$visactions{'chgcat'} = &mt('Use [_1]Categorize course[_2] to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','"<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
$visactions{'addcat'} = &mt('Use [_1]Categorize course[_2] to assign a category to the course.','"<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
$visactions{'addcat'} = &mt('Use [_1]Categorize course[_2] to assign a category to the course.','"<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
Line 7687 sub activity_display_filter {
|
Line 7553 sub activity_display_filter {
|
my $nolink = 1; |
my $nolink = 1; |
my $output = '<table><tr><td valign="top">'. |
my $output = '<table><tr><td valign="top">'. |
'<span class="LC_nobreak"><b>'.&mt('Actions/page:').'</b></span><br />'. |
'<span class="LC_nobreak"><b>'.&mt('Actions/page:').'</b></span><br />'. |
&Apache::lonmeta::selectbox('show',$curr->{'show'},undef, |
&Apache::lonmeta::selectbox('show',$curr->{'show'},'',undef, |
(&mt('all'),5,10,20,50,100,1000,10000)). |
(&mt('all'),5,10,20,50,100,1000,10000)). |
'</td><td> </td>'; |
'</td><td> </td>'; |
my $startform = |
my $startform = |
Line 7774 sub userlogdisplay_navlinks {
|
Line 7640 sub userlogdisplay_navlinks {
|
|
|
sub role_display_filter { |
sub role_display_filter { |
my ($context,$formname,$cdom,$cnum,$curr,$version,$crstype) = @_; |
my ($context,$formname,$cdom,$cnum,$curr,$version,$crstype) = @_; |
my $lctype; |
|
if ($context eq 'course') { |
|
$lctype = lc($crstype); |
|
} |
|
my $nolink = 1; |
my $nolink = 1; |
my $output = '<table><tr><td valign="top">'. |
my $output = '<table><tr><td valign="top">'. |
'<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b></span><br />'. |
'<span class="LC_nobreak"><b>'.&mt('Changes/page:').'</b></span><br />'. |
&Apache::lonmeta::selectbox('show',$curr->{'show'},undef, |
&Apache::lonmeta::selectbox('show',$curr->{'show'},'',undef, |
(&mt('all'),5,10,20,50,100,1000,10000)). |
(&mt('all'),5,10,20,50,100,1000,10000)). |
'</td><td> </td>'; |
'</td><td> </td>'; |
my $startform = |
my $startform = |
Line 7805 sub role_display_filter {
|
Line 7667 sub role_display_filter {
|
if ($curr->{'role'} eq 'any') { |
if ($curr->{'role'} eq 'any') { |
$output .= ' selected="selected"'; |
$output .= ' selected="selected"'; |
} |
} |
$output .= '>'.&mt('Any').'</option>'."\n"; |
$output .= '>'.&mt('Any').'</option>'."\n"; |
my @roles = &Apache::lonuserutils::roles_by_context($context,1,$crstype); |
my @roles = &Apache::lonuserutils::roles_by_context($context,1,$crstype); |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
my $plrole; |
my $plrole; |
Line 8312 ENDJS
|
Line 8174 ENDJS
|
return; |
return; |
} |
} |
|
|
|
sub print_queued_roles { |
|
my ($r,$context,$permission,$brcrum) = @_; |
|
push (@{$brcrum}, |
|
{href => '/adm/createuser?action=rolerequests', |
|
text => 'Role Requests (other domains)', |
|
help => ''}); |
|
my $bread_crumbs_component = 'Role Requests'; |
|
my $args = { bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
|
# print page header |
|
$r->print(&header('',$args)); |
|
my ($dom,$cnum); |
|
$dom = $env{'request.role.domain'}; |
|
if ($context eq 'course') { |
|
if ($env{'request.course.id'}) { |
|
if (&Apache::loncommon::course_type() eq 'Community') { |
|
$context = 'community'; |
|
} |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
} |
|
} elsif ($context eq 'author') { |
|
$cnum = $env{'user.name'}; |
|
} |
|
$r->print(&Apache::loncoursequeueadmin::display_queued_requests('othdomqueue',$dom,$cnum,$context)); |
|
return; |
|
} |
|
|
|
sub print_pendingroles { |
|
my ($r,$context,$permission,$brcrum) = @_; |
|
push (@{$brcrum}, |
|
{href => '/adm/createuser?action=queuedroles', |
|
text => 'Queued Role Assignments (users in this domain)', |
|
help => ''}); |
|
my $bread_crumbs_component = 'Queued Role Assignments'; |
|
my $args = { bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
|
# print page header |
|
$r->print(&header('',$args)); |
|
$r->print(&Apache::loncoursequeueadmin::display_queued_requests('othdomaction',$env{'request.role.domain'},'','domain')); |
|
return; |
|
} |
|
|
|
sub process_pendingroles { |
|
my ($r,$context,$permission,$brcrum) = @_; |
|
push (@{$brcrum}, |
|
{href => '/adm/createuser?action=queuedroles', |
|
text => 'Queued Role Assignments (users in this domain)', |
|
help => ''}, |
|
{href => '/adm/createuser?action=processrolereq', |
|
text => 'Process Queue', |
|
help => ''}); |
|
my $bread_crumbs_component = 'Queued Role Assignments'; |
|
my $args = { bread_crumbs => $brcrum, |
|
bread_crumbs_component => $bread_crumbs_component}; |
|
# print page header |
|
$r->print(&header('',$args)); |
|
$r->print(&Apache::loncoursequeueadmin::update_request_queue('othdombydc', |
|
$env{'request.role.domain'})); |
|
return; |
|
} |
|
|
sub domain_adhoc_access { |
sub domain_adhoc_access { |
my ($roles,$domcurrent,$accesstypes,$usertypes,$othertitle) = @_; |
my ($roles,$domcurrent,$accesstypes,$usertypes,$othertitle) = @_; |
my %domusage; |
my %domusage; |
Line 8940 sub user_search_result {
|
Line 8863 sub user_search_result {
|
my $domd_chk = &domdirectorysrch_check($srch); |
my $domd_chk = &domdirectorysrch_check($srch); |
$response .= '<span class="LC_warning">'.$instd_chk.'</span><br />'; |
$response .= '<span class="LC_warning">'.$instd_chk.'</span><br />'; |
if ($domd_chk eq 'ok') { |
if ($domd_chk eq 'ok') { |
$response .= &mt('You may want to search in the LON-CAPA domain instead of the institutional directory.'); |
$response .= &mt('You may want to search in the LON-CAPA domain instead of in the institutional directory.'); |
} |
} |
$response .= '<br />'; |
$response .= '<br />'; |
} |
} |
Line 8951 sub user_search_result {
|
Line 8874 sub user_search_result {
|
my $instd_chk = &instdirectorysrch_check($srch); |
my $instd_chk = &instdirectorysrch_check($srch); |
$response .= '<span class="LC_warning">'.$domd_chk.'</span><br />'; |
$response .= '<span class="LC_warning">'.$domd_chk.'</span><br />'; |
if ($instd_chk eq 'ok') { |
if ($instd_chk eq 'ok') { |
$response .= &mt('You may want to search in the institutional directory instead of the LON-CAPA domain.'); |
$response .= &mt('You may want to search in the institutional directory instead of in the LON-CAPA domain.'); |
} |
} |
$response .= '<br />'; |
$response .= '<br />'; |
} |
} |
Line 9052 sub user_search_result {
|
Line 8975 sub user_search_result {
|
$response = '<span class="LC_warning">'. |
$response = '<span class="LC_warning">'. |
&mt('Institutional directory search is not available in domain: [_1]',$showdom). |
&mt('Institutional directory search is not available in domain: [_1]',$showdom). |
'</span><br />'. |
'</span><br />'. |
&mt('You may want to search in the LON-CAPA domain instead of the institutional directory.'). |
&mt('You may want to search in the LON-CAPA domain instead of in the institutional directory.'). |
'<br />'; |
'<br />'; |
} |
} |
} |
} |
Line 9125 sub user_search_result {
|
Line 9048 sub user_search_result {
|
$response = '<span class="LC_warning">'. |
$response = '<span class="LC_warning">'. |
&mt('Institutional directory search is not available in domain: [_1]',$showdom). |
&mt('Institutional directory search is not available in domain: [_1]',$showdom). |
'</span><br />'. |
'</span><br />'. |
&mt('You may want to search in the LON-CAPA domain instead of the institutional directory.'). |
&mt('You may want to search in the LON-CAPA domain instead of in the institutional directory.'). |
'<br />'; |
'<br />'; |
} |
} |
} |
} |
Line 9645 sub course_level_dc {
|
Line 9568 sub course_level_dc {
|
ENDTIMEENTRY |
ENDTIMEENTRY |
$otheritems .= &Apache::loncommon::end_data_table_row(). |
$otheritems .= &Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table()."\n"; |
&Apache::loncommon::end_data_table()."\n"; |
return $cb_jscript.$hiddenitems.$header.$otheritems; |
return $cb_jscript.$header.$hiddenitems.$otheritems; |
} |
} |
|
|
sub update_selfenroll_config { |
sub update_selfenroll_config { |
Line 9981 sub update_selfenroll_config {
|
Line 9904 sub update_selfenroll_config {
|
} else { |
} else { |
$r->print(&mt('No changes were made to the existing self-enrollment settings in this course.')); |
$r->print(&mt('No changes were made to the existing self-enrollment settings in this course.')); |
} |
} |
my $visactions = &cat_visibility($cdom); |
my $visactions = &cat_visibility(); |
my ($cathash,%cattype); |
my ($cathash,%cattype); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); |
my %domconfig = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom); |
if (ref($domconfig{'coursecategories'}) eq 'HASH') { |
if (ref($domconfig{'coursecategories'}) eq 'HASH') { |