version 1.224, 2014/02/12 20:37:42
|
version 1.230, 2014/03/29 20:25:28
|
Line 239 sub handler {
|
Line 239 sub handler {
|
col2 => '',}, |
col2 => '',}, |
{col1 => 'Administrator Settings', |
{col1 => 'Administrator Settings', |
col2 => '',}], |
col2 => '',}], |
|
print => \&print_rolecolors, |
|
modify => \&modify_rolecolors, |
}, |
}, |
'login' => |
'login' => |
{ text => 'Log-in page options', |
{ text => 'Log-in page options', |
Line 247 sub handler {
|
Line 249 sub handler {
|
col2 => '',}, |
col2 => '',}, |
{col1 => 'Log-in Help', |
{col1 => 'Log-in Help', |
col2 => 'Value'}], |
col2 => 'Value'}], |
|
print => \&print_login, |
|
modify => \&modify_login, |
}, |
}, |
'defaults' => |
'defaults' => |
{ text => 'Default authentication/language/timezone/portal', |
{ text => 'Default authentication/language/timezone/portal', |
help => 'Domain_Configuration_LangTZAuth', |
help => 'Domain_Configuration_LangTZAuth', |
header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
col2 => 'Value'}], |
col2 => 'Value'}], |
|
print => \&print_defaults, |
|
modify => \&modify_defaults, |
}, |
}, |
'quotas' => |
'quotas' => |
{ text => 'Blogs, personal web pages, webDAV/quotas, portfolios', |
{ text => 'Blogs, personal web pages, webDAV/quotas, portfolios', |
Line 260 sub handler {
|
Line 266 sub handler {
|
header => [{col1 => 'User affiliation', |
header => [{col1 => 'User affiliation', |
col2 => 'Available tools', |
col2 => 'Available tools', |
col3 => 'Quotas, MB; (Authoring requires role)',}], |
col3 => 'Quotas, MB; (Authoring requires role)',}], |
|
print => \&print_quotas, |
|
modify => \&modify_quotas, |
}, |
}, |
'autoenroll' => |
'autoenroll' => |
{ text => 'Auto-enrollment settings', |
{ text => 'Auto-enrollment settings', |
help => 'Domain_Configuration_Auto_Enrollment', |
help => 'Domain_Configuration_Auto_Enrollment', |
header => [{col1 => 'Configuration setting', |
header => [{col1 => 'Configuration setting', |
col2 => 'Value(s)'}], |
col2 => 'Value(s)'}], |
|
print => \&print_autoenroll, |
|
modify => \&modify_autoenroll, |
}, |
}, |
'autoupdate' => |
'autoupdate' => |
{ text => 'Auto-update settings', |
{ text => 'Auto-update settings', |
Line 275 sub handler {
|
Line 285 sub handler {
|
{col1 => 'Setting', |
{col1 => 'Setting', |
col2 => 'Affiliation'}, |
col2 => 'Affiliation'}, |
{col1 => 'User population', |
{col1 => 'User population', |
col2 => 'Updateable user data'}], |
col2 => 'Updatable user data'}], |
|
print => \&print_autoupdate, |
|
modify => \&modify_autoupdate, |
}, |
}, |
'autocreate' => |
'autocreate' => |
{ text => 'Auto-course creation settings', |
{ text => 'Auto-course creation settings', |
help => 'Domain_Configuration_Auto_Creation', |
help => 'Domain_Configuration_Auto_Creation', |
header => [{col1 => 'Configuration Setting', |
header => [{col1 => 'Configuration Setting', |
col2 => 'Value',}], |
col2 => 'Value',}], |
|
print => \&print_autocreate, |
|
modify => \&modify_autocreate, |
}, |
}, |
'directorysrch' => |
'directorysrch' => |
{ text => 'Institutional directory searches', |
{ text => 'Institutional directory searches', |
help => 'Domain_Configuration_InstDirectory_Search', |
help => 'Domain_Configuration_InstDirectory_Search', |
header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
col2 => 'Value',}], |
col2 => 'Value',}], |
|
print => \&print_directorysrch, |
|
modify => \&modify_directorysrch, |
}, |
}, |
'contacts' => |
'contacts' => |
{ text => 'Contact Information', |
{ text => 'Contact Information', |
help => 'Domain_Configuration_Contact_Info', |
help => 'Domain_Configuration_Contact_Info', |
header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
col2 => 'Value',}], |
col2 => 'Value',}], |
|
print => \&print_contacts, |
|
modify => \&modify_contacts, |
}, |
}, |
'usercreation' => |
'usercreation' => |
{ text => 'User creation', |
{ text => 'User creation', |
Line 304 sub handler {
|
Line 322 sub handler {
|
col2 => 'Usernames which may be created',}, |
col2 => 'Usernames which may be created',}, |
{col1 => 'Context', |
{col1 => 'Context', |
col2 => 'Assignable authentication types'}], |
col2 => 'Assignable authentication types'}], |
|
print => \&print_usercreation, |
|
modify => \&modify_usercreation, |
}, |
}, |
'selfcreation' => |
'selfcreation' => |
{ text => 'Users self-creating accounts', |
{ text => 'Users self-creating accounts', |
Line 314 sub handler {
|
Line 334 sub handler {
|
col2 => 'Information user can enter'}, |
col2 => 'Information user can enter'}, |
{col1 => 'Self-creation with e-mail as username', |
{col1 => 'Self-creation with e-mail as username', |
col2 => 'Settings'}], |
col2 => 'Settings'}], |
|
print => \&print_selfcreation, |
|
modify => \&modify_selfcreation, |
}, |
}, |
'usermodification' => |
'usermodification' => |
{ text => 'User modification', |
{ text => 'User modification', |
help => 'Domain_Configuration_User_Modification', |
help => 'Domain_Configuration_User_Modification', |
header => [{col1 => 'Target user has role', |
header => [{col1 => 'Target user has role', |
col2 => 'User information updateable in author context'}, |
col2 => 'User information updatable in author context'}, |
{col1 => 'Target user has role', |
{col1 => 'Target user has role', |
col2 => 'User information updateable in course context'}], |
col2 => 'User information updatable in course context'}], |
|
print => \&print_usermodification, |
|
modify => \&modify_usermodification, |
}, |
}, |
'scantron' => |
'scantron' => |
{ text => 'Bubblesheet format file', |
{ text => 'Bubblesheet format file', |
Line 329 sub handler {
|
Line 353 sub handler {
|
header => [ {col1 => 'Item', |
header => [ {col1 => 'Item', |
col2 => '', |
col2 => '', |
}], |
}], |
|
print => \&print_scantron, |
|
modify => \&modify_scantron, |
}, |
}, |
'requestcourses' => |
'requestcourses' => |
{text => 'Request creation of courses', |
{text => 'Request creation of courses', |
Line 339 sub handler {
|
Line 365 sub handler {
|
col2 => 'Value'}, |
col2 => 'Value'}, |
{col1 => 'Available textbooks', |
{col1 => 'Available textbooks', |
col2 => ''}], |
col2 => ''}], |
|
print => \&print_quotas, |
|
modify => \&modify_quotas, |
}, |
}, |
'requestauthor' => |
'requestauthor' => |
{text => 'Request Authoring Space', |
{text => 'Request Authoring Space', |
Line 347 sub handler {
|
Line 375 sub handler {
|
col2 => 'Availability/Processing of requests',}, |
col2 => 'Availability/Processing of requests',}, |
{col1 => 'Setting', |
{col1 => 'Setting', |
col2 => 'Value'}], |
col2 => 'Value'}], |
|
print => \&print_quotas, |
|
modify => \&modify_quotas, |
}, |
}, |
'coursecategories' => |
'coursecategories' => |
{ text => 'Cataloging of courses/communities', |
{ text => 'Cataloging of courses/communities', |
Line 356 sub handler {
|
Line 386 sub handler {
|
{col1 => 'Categories', |
{col1 => 'Categories', |
col2 => '', |
col2 => '', |
}], |
}], |
|
print => \&print_coursecategories, |
|
modify => \&modify_coursecategories, |
}, |
}, |
'serverstatuses' => |
'serverstatuses' => |
{text => 'Access to server status pages', |
{text => 'Access to server status pages', |
Line 364 sub handler {
|
Line 396 sub handler {
|
col2 => 'Other named users', |
col2 => 'Other named users', |
col3 => 'Specific IPs', |
col3 => 'Specific IPs', |
}], |
}], |
|
print => \&print_serverstatuses, |
|
modify => \&modify_serverstatuses, |
}, |
}, |
'helpsettings' => |
'helpsettings' => |
{text => 'Help page settings', |
{text => 'Help page settings', |
help => 'Domain_Configuration_Help_Settings', |
help => 'Domain_Configuration_Help_Settings', |
header => [{col1 => 'Help Settings (logged-in users)', |
header => [{col1 => 'Help Settings (logged-in users)', |
col2 => 'Value'}], |
col2 => 'Value'}], |
|
print => \&print_helpsettings, |
|
modify => \&modify_helpsettings, |
}, |
}, |
'coursedefaults' => |
'coursedefaults' => |
{text => 'Course/Community defaults', |
{text => 'Course/Community defaults', |
Line 378 sub handler {
|
Line 414 sub handler {
|
col2 => 'Value',}, |
col2 => 'Value',}, |
{col1 => 'Defaults which can be overridden for each course by a DC', |
{col1 => 'Defaults which can be overridden for each course by a DC', |
col2 => 'Value',},], |
col2 => 'Value',},], |
|
print => \&print_coursedefaults, |
|
modify => \&modify_coursedefaults, |
}, |
}, |
'privacy' => |
'privacy' => |
{text => 'User Privacy', |
{text => 'User Privacy', |
help => 'Domain_Configuration_User_Privacy', |
help => 'Domain_Configuration_User_Privacy', |
header => [{col1 => 'Setting', |
header => [{col1 => 'Setting', |
col2 => 'Value',}], |
col2 => 'Value',}], |
|
print => \&print_privacy, |
|
modify => \&modify_privacy, |
}, |
}, |
'usersessions' => |
'usersessions' => |
{text => 'User session hosting/offloading', |
{text => 'User session hosting/offloading', |
Line 394 sub handler {
|
Line 434 sub handler {
|
col2 => 'Rules'}, |
col2 => 'Rules'}, |
{col1 => "Hosting domain's own users elsewhere", |
{col1 => "Hosting domain's own users elsewhere", |
col2 => 'Rules'}], |
col2 => 'Rules'}], |
|
print => \&print_usersessions, |
|
modify => \&modify_usersessions, |
}, |
}, |
'loadbalancing' => |
'loadbalancing' => |
{text => 'Dedicated Load Balancer(s)', |
{text => 'Dedicated Load Balancer(s)', |
Line 403 sub handler {
|
Line 445 sub handler {
|
col3 => 'User affiliation', |
col3 => 'User affiliation', |
col4 => 'Overrides'}, |
col4 => 'Overrides'}, |
], |
], |
|
print => \&print_loadbalancing, |
|
modify => \&modify_loadbalancing, |
}, |
}, |
); |
); |
if (keys(%servers) > 1) { |
if (keys(%servers) > 1) { |
Line 414 sub handler {
|
Line 458 sub handler {
|
col2 => ''}, |
col2 => ''}, |
{col1 => 'Log-in Help', |
{col1 => 'Log-in Help', |
col2 => 'Value'}], |
col2 => 'Value'}], |
|
print => \&print_login, |
|
modify => \&modify_login, |
}; |
}; |
} |
} |
|
|
Line 613 sub print_config_box {
|
Line 659 sub print_config_box {
|
<td class="LC_right_item"'.$rightcolspan.'>'.&mt($item->{'header'}->[0]->{'col2'}).'</td> |
<td class="LC_right_item"'.$rightcolspan.'>'.&mt($item->{'header'}->[0]->{'col2'}).'</td> |
</tr>'; |
</tr>'; |
$rowtotal ++; |
$rowtotal ++; |
if ($action eq 'autoupdate') { |
if (($action eq 'autoupdate') || ($action eq 'usercreation') || ($action eq 'selfcreation') || |
$output .= &print_autoupdate('top',$dom,$settings,\$rowtotal); |
($action eq 'usermodification') || ($action eq 'coursedefaults') || |
} elsif ($action eq 'usercreation') { |
($action eq 'selfenrollment') || ($action eq 'usersessions')) { |
$output .= &print_usercreation('top',$dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->('top',$dom,$settings,\$rowtotal); |
} elsif ($action eq 'selfcreation') { |
|
$output .= &print_selfcreation('top',$dom,$settings,\$rowtotal); |
|
} elsif ($action eq 'usermodification') { |
|
$output .= &print_usermodification('top',$dom,$settings,\$rowtotal); |
|
} elsif ($action eq 'coursecategories') { |
} elsif ($action eq 'coursecategories') { |
$output .= &print_coursecategories('top',$dom,$item,$settings,\$rowtotal); |
$output .= $item->{'print'}->('top',$dom,$item,$settings,\$rowtotal); |
} elsif ($action eq 'login') { |
} elsif ($action eq 'login') { |
if ($numheaders == 3) { |
if ($numheaders == 3) { |
$colspan = ' colspan="2"'; |
$colspan = ' colspan="2"'; |
Line 630 sub print_config_box {
|
Line 672 sub print_config_box {
|
} else { |
} else { |
$output .= &print_login('page',$dom,$confname,$phase,$settings,\$rowtotal); |
$output .= &print_login('page',$dom,$confname,$phase,$settings,\$rowtotal); |
} |
} |
} elsif ($action eq 'requestcourses') { |
} elsif (($action eq 'requestcourses') || ($action eq 'requestauthor')) { |
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
|
} elsif ($action eq 'requestauthor') { |
|
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
} elsif ($action eq 'usersessions') { |
|
$output .= &print_usersessions('top',$dom,$settings,\$rowtotal); |
|
} elsif ($action eq 'rolecolors') { |
} elsif ($action eq 'rolecolors') { |
$output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal); |
$output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal); |
} elsif ($action eq 'coursedefaults') { |
|
$output .= &print_coursedefaults('top',$dom,$settings,\$rowtotal); |
|
} |
} |
$output .= ' |
$output .= ' |
</table> |
</table> |
Line 649 sub print_config_box {
|
Line 685 sub print_config_box {
|
<td> |
<td> |
<table class="LC_nested"> |
<table class="LC_nested"> |
<tr class="LC_info_row"> |
<tr class="LC_info_row"> |
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[1]->{'col1'}).'</td>'; |
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[1]->{'col1'}).'</td> |
$output .= ' |
|
<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[1]->{'col2'}).'</td> |
<td class="LC_right_item"'.$colspan.'>'.&mt($item->{'header'}->[1]->{'col2'}).'</td> |
</tr>'; |
</tr>'; |
$rowtotal ++; |
$rowtotal ++; |
if ($action eq 'autoupdate') { |
if (($action eq 'autoupdate') || ($action eq 'usercreation') || |
$output .= &print_autoupdate('middle',$dom,$settings,\$rowtotal).' |
($action eq 'selfcreation') || ($action eq 'selfenrollment') || |
</table> |
($action eq 'usersessions')) { |
</td> |
$output .= $item->{'print'}->('middle',$dom,$settings,\$rowtotal).' |
</tr> |
|
<tr> |
|
<td> |
|
<table class="LC_nested"> |
|
<tr class="LC_info_row"> |
|
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
|
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'. |
|
&print_autoupdate('bottom',$dom,$settings,\$rowtotal); |
|
$rowtotal ++; |
|
} elsif ($action eq 'usercreation') { |
|
$output .= &print_usercreation('middle',$dom,$settings,\$rowtotal).' |
|
</table> |
|
</td> |
|
</tr> |
|
<tr> |
|
<td> |
|
<table class="LC_nested"> |
|
<tr class="LC_info_row"> |
|
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
|
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'. |
|
&print_usercreation('bottom',$dom,$settings,\$rowtotal); |
|
$rowtotal ++; |
|
} elsif ($action eq 'selfcreation') { |
|
$output .= &print_selfcreation('middle',$dom,$settings,\$rowtotal).' |
|
</table> |
</table> |
</td> |
</td> |
</tr> |
</tr> |
Line 691 sub print_config_box {
|
Line 702 sub print_config_box {
|
<tr class="LC_info_row"> |
<tr class="LC_info_row"> |
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> |
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> |
</tr>'. |
</tr>'."\n". |
&print_selfcreation('bottom',$dom,$settings,\$rowtotal); |
$item->{'print'}->('bottom',$dom,$settings,\$rowtotal); |
$rowtotal ++; |
$rowtotal ++; |
} elsif ($action eq 'usermodification') { |
} elsif (($action eq 'usermodification') || ($action eq 'coursedefaults')) { |
$output .= &print_usermodification('middle',$dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->('bottom',$dom,$settings,\$rowtotal); |
} elsif ($action eq 'coursecategories') { |
} elsif ($action eq 'coursecategories') { |
$output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal); |
$output .= &print_coursecategories('bottom',$dom,$item,$settings,\$rowtotal); |
} elsif ($action eq 'login') { |
} elsif ($action eq 'login') { |
Line 730 sub print_config_box {
|
Line 741 sub print_config_box {
|
&print_textbookcourses($dom,$settings,\$rowtotal); |
&print_textbookcourses($dom,$settings,\$rowtotal); |
} elsif ($action eq 'requestauthor') { |
} elsif ($action eq 'requestauthor') { |
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal); |
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal); |
} elsif ($action eq 'usersessions') { |
|
$output .= &print_usersessions('middle',$dom,$settings,\$rowtotal).' |
|
</table> |
|
</td> |
|
</tr> |
|
<tr> |
|
<td> |
|
<table class="LC_nested"> |
|
<tr class="LC_info_row"> |
|
<td class="LC_left_item"'.$colspan.'>'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
|
<td class="LC_right_item">'.&mt($item->{'header'}->[2]->{'col2'}).'</td> </tr>'. |
|
&print_usersessions('bottom',$dom,$settings,\$rowtotal); |
|
$rowtotal ++; |
|
} elsif ($action eq 'coursedefaults') { |
|
$output .= &print_coursedefaults('bottom',$dom,$settings,\$rowtotal); |
|
} elsif ($action eq 'rolecolors') { |
} elsif ($action eq 'rolecolors') { |
$output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).' |
$output .= &print_rolecolors($phase,'coordinator',$dom,$confname,$settings,\$rowtotal).' |
</table> |
</table> |
Line 823 sub print_config_box {
|
Line 819 sub print_config_box {
|
$rowtotal ++; |
$rowtotal ++; |
if ($action eq 'quotas') { |
if ($action eq 'quotas') { |
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
} elsif ($action eq 'autoenroll') { |
} elsif (($action eq 'autoenroll') || ($action eq 'autocreate') || ($action eq 'directorysrch') || |
$output .= &print_autoenroll($dom,$settings,\$rowtotal); |
($action eq 'contacts') || ($action eq 'defaults') || ($action eq 'serverstatuses') || |
} elsif ($action eq 'autocreate') { |
($action eq 'loadbalancing')) { |
$output .= &print_autocreate($dom,$settings,\$rowtotal); |
$output .= $item->{'print'}->($dom,$settings,\$rowtotal); |
} elsif ($action eq 'directorysrch') { |
|
$output .= &print_directorysrch($dom,$settings,\$rowtotal); |
|
} elsif ($action eq 'contacts') { |
|
$output .= &print_contacts($dom,$settings,\$rowtotal); |
|
} elsif ($action eq 'defaults') { |
|
$output .= &print_defaults($dom,$settings,\$rowtotal); |
|
} elsif ($action eq 'scantron') { |
} elsif ($action eq 'scantron') { |
$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal); |
$output .= &print_scantronformat($r,$dom,$confname,$settings,\$rowtotal); |
} elsif ($action eq 'serverstatuses') { |
|
$output .= &print_serverstatuses($dom,$settings,\$rowtotal); |
|
} elsif ($action eq 'helpsettings') { |
} elsif ($action eq 'helpsettings') { |
$output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal); |
$output .= &print_helpsettings($dom,$confname,$settings,\$rowtotal); |
} elsif ($action eq 'loadbalancing') { |
|
$output .= &print_loadbalancing($dom,$settings,\$rowtotal); |
|
} |
} |
} |
} |
$output .= ' |
$output .= ' |
Line 2782 sub print_coursedefaults {
|
Line 2768 sub print_coursedefaults {
|
'<td class="LC_right_item"><span class="LC_nobreak">'. |
'<td class="LC_right_item"><span class="LC_nobreak">'. |
'<input type="text" name="anonsurvey_threshold"'. |
'<input type="text" name="anonsurvey_threshold"'. |
' value="'.$currdefresponder.'" size="5" /></span>'. |
' value="'.$currdefresponder.'" size="5" /></span>'. |
'</td></tr>'."\n". |
'</td></tr>'."\n"; |
'<tr><td><span class="LC_nobreak">'. |
$itemcount ++; |
$choices{'uploadquota'}. |
$css_class = $itemcount%2 ? ' class="LC_odd_row"' : ''; |
'</span></td>'. |
$datatable .= '<tr'.$css_class.'><td><span class="LC_nobreak">'. |
'<td align="right" class="LC_right_item">'. |
$choices{'uploadquota'}. |
'<table><tr>'; |
'</span></td>'. |
|
'<td align="right" class="LC_right_item">'. |
|
'<table><tr>'; |
foreach my $type (@types) { |
foreach my $type (@types) { |
$datatable .= '<td align="center">'.&mt($type).'<br />'. |
$datatable .= '<td align="center">'.&mt($type).'<br />'. |
'<input type="text" name="uploadquota_'.$type.'"'. |
'<input type="text" name="uploadquota_'.$type.'"'. |
' value="'.$curruploadquota{$type}.'" size="5" /></td>'; |
' value="'.$curruploadquota{$type}.'" size="5" /></td>'; |
} |
} |
$datatable .= '</tr></table></td></tr>'."\n"; |
$datatable .= '</tr></table></td></tr>'."\n"; |
$itemcount += 2; |
$itemcount ++; |
my $onclick = 'toggleCredits(this.form);'; |
my $onclick = 'toggleCredits(this.form);'; |
my $display = 'none'; |
my $display = 'none'; |
if ($currusecredits) { |
if ($currusecredits) { |
Line 2825 sub print_coursedefaults {
|
Line 2813 sub print_coursedefaults {
|
&radiobutton_prefs($current,\@toggles,\%defaultchecked, |
&radiobutton_prefs($current,\@toggles,\%defaultchecked, |
\%choices,$itemcount,$onclick,$additional); |
\%choices,$itemcount,$onclick,$additional); |
$datatable .= $table; |
$datatable .= $table; |
|
$itemcount ++; |
} |
} |
$$rowtotal += $itemcount; |
$$rowtotal += $itemcount; |
return $datatable; |
return $datatable; |
Line 3796 sub print_selfcreation {
|
Line 3785 sub print_selfcreation {
|
} |
} |
} |
} |
my %radiohash; |
my %radiohash; |
my $rownum = 0; |
|
my $numinrow = 4; |
my $numinrow = 4; |
map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate; |
map { $radiohash{'cancreate_'.$_} = 1; } @selfcreate; |
if ($position eq 'top') { |
if ($position eq 'top') { |
Line 3809 sub print_selfcreation {
|
Line 3797 sub print_selfcreation {
|
'cancreate_login' => 'off', |
'cancreate_login' => 'off', |
'cancreate_sso' => 'off', |
'cancreate_sso' => 'off', |
); |
); |
my $itemcount = 1; |
my ($onclick,$itemcount); |
my $onclick; |
|
($datatable,$itemcount) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked, |
($datatable,$itemcount) = &radiobutton_prefs(\%radiohash,\@toggles,\%defaultchecked, |
\%choices,$itemcount,$onclick); |
\%choices,$itemcount,$onclick); |
|
$$rowtotal += $itemcount; |
|
|
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
|
|
if (ref($usertypes) eq 'HASH') { |
if (ref($usertypes) eq 'HASH') { |
if (keys(%{$usertypes}) > 0) { |
if (keys(%{$usertypes}) > 0) { |
$datatable .= &insttypes_row($createsettings,$types,$usertypes, |
$datatable .= &insttypes_row($createsettings,$types,$usertypes, |
$dom,$numinrow,$othertitle, |
$dom,$numinrow,$othertitle, |
'statustocreate',$rownum); |
'statustocreate',$$rowtotal); |
$rownum ++; |
|
$$rowtotal ++; |
$$rowtotal ++; |
} |
} |
} |
} |
Line 3832 sub print_selfcreation {
|
Line 3820 sub print_selfcreation {
|
push(@{$types},'default'); |
push(@{$types},'default'); |
$usertypes->{'default'} = $othertitle; |
$usertypes->{'default'} = $othertitle; |
foreach my $status (@{$types}) { |
foreach my $status (@{$types}) { |
$rownum ++; |
|
$datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'}, |
$datatable .= &modifiable_userdata_row('selfcreate',$status,$domconf{'usermodification'}, |
$numinrow,$rownum,$usertypes); |
$numinrow,$$rowtotal,$usertypes); |
$$rowtotal ++; |
$$rowtotal ++; |
} |
} |
} |
} |
} else { |
} else { |
my $css_class = $rownum%2?' class="LC_odd_row"':''; |
my $css_class = $$rowtotal%2?' class="LC_odd_row"':''; |
my %choices = |
my %choices = |
&Apache::lonlocal::texthash( |
&Apache::lonlocal::texthash( |
email => 'Approved automatically', |
email => 'Approved automatically', |
Line 3871 sub print_selfcreation {
|
Line 3858 sub print_selfcreation {
|
$choices{$option}.'</label> '; |
$choices{$option}.'</label> '; |
} |
} |
$$rowtotal ++; |
$$rowtotal ++; |
$rownum ++; |
|
$datatable .= '</span></td></tr>'. |
$datatable .= '</span></td></tr>'. |
&print_requestmail($dom,'selfcreation',$createsettings,$rowtotal); |
&print_requestmail($dom,'selfcreation',$createsettings,$rowtotal); |
$rownum ++; |
|
my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info(); |
|
$numinrow = 2; |
|
$datatable .= &modifiable_userdata_row('cancreate','emailusername',$settings, |
|
$numinrow,$rownum,undef,$infofields,$infotitles); |
|
$$rowtotal ++; |
$$rowtotal ++; |
$rownum ++; |
my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info(); |
|
$numinrow = 1; |
|
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
|
$usertypes->{'default'} = $othertitle; |
|
if (ref($types) eq 'ARRAY') { |
|
push(@{$types},'default'); |
|
$usertypes->{'default'} = $othertitle; |
|
foreach my $status (@{$types}) { |
|
$datatable .= &modifiable_userdata_row('cancreate','emailusername_'.$status,$settings, |
|
$numinrow,$$rowtotal,$usertypes,$infofields,$infotitles); |
|
$$rowtotal ++; |
|
} |
|
} |
my ($emailrules,$emailruleorder) = |
my ($emailrules,$emailruleorder) = |
&Apache::lonnet::inst_userrules($dom,'email'); |
&Apache::lonnet::inst_userrules($dom,'email'); |
if (ref($emailrules) eq 'HASH') { |
if (ref($emailrules) eq 'HASH') { |
if (keys(%{$emailrules}) > 0) { |
if (keys(%{$emailrules}) > 0) { |
$datatable .= &user_formats_row('email',$settings,$emailrules, |
$datatable .= &user_formats_row('email',$settings,$emailrules, |
$emailruleorder,$numinrow,$rownum); |
$emailruleorder,$numinrow,$$rowtotal); |
$rownum ++; |
|
$$rowtotal ++; |
$$rowtotal ++; |
} |
} |
} |
} |
$datatable .= &captcha_choice('cancreate',$createsettings,$rownum); |
$datatable .= &captcha_choice('cancreate',$createsettings,$$rowtotal); |
} |
} |
return $datatable; |
return $datatable; |
} |
} |
Line 4068 sub print_usermodification {
|
Line 4060 sub print_usermodification {
|
$$rowtotal ++; |
$$rowtotal ++; |
$rowcount ++; |
$rowcount ++; |
} |
} |
} elsif ($position eq 'middle') { |
} elsif ($position eq 'bottom') { |
$context = 'course'; |
$context = 'course'; |
$rowcount = 0; |
$rowcount = 0; |
foreach my $role ('st','ep','ta','in','cr') { |
foreach my $role ('st','ep','ta','in','cr') { |
Line 4626 sub serverstatus_pages {
|
Line 4618 sub serverstatus_pages {
|
return ('userstatus','lonstatus','loncron','server-status','codeversions', |
return ('userstatus','lonstatus','loncron','server-status','codeversions', |
'checksums','clusterstatus','metadata_keywords','metadata_harvest', |
'checksums','clusterstatus','metadata_keywords','metadata_harvest', |
'takeoffline','takeonline','showenv','toggledebug','ping','domconf', |
'takeoffline','takeonline','showenv','toggledebug','ping','domconf', |
'uniquecodes'); |
'uniquecodes','diskusage'); |
} |
} |
|
|
sub coursecategories_javascript { |
sub coursecategories_javascript { |
Line 4857 sub build_category_rows {
|
Line 4849 sub build_category_rows {
|
} |
} |
|
|
sub modifiable_userdata_row { |
sub modifiable_userdata_row { |
my ($context,$role,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref) = @_; |
my ($context,$item,$settings,$numinrow,$rowcount,$usertypes,$fieldsref,$titlesref) = @_; |
my $rolename; |
my ($role,$rolename,$statustype); |
|
$role = $item; |
if ($context eq 'cancreate') { |
if ($context eq 'cancreate') { |
if ($role eq 'emailusername') { |
if ($item =~ /^emailusername_(.+)$/) { |
$rolename = &mt('Data user provides'); |
$statustype = $1; |
|
$role = 'emailusername'; |
|
if (ref($usertypes) eq 'HASH') { |
|
if ($usertypes->{$statustype}) { |
|
$rolename = &mt('Data provided by [_1]',$usertypes->{$statustype}); |
|
} else { |
|
$rolename = &mt('Data provided by user'); |
|
} |
|
} |
} |
} |
} elsif ($context eq 'selfcreate') { |
} elsif ($context eq 'selfcreate') { |
if (ref($usertypes) eq 'HASH') { |
if (ref($usertypes) eq 'HASH') { |
Line 4898 sub modifiable_userdata_row {
|
Line 4899 sub modifiable_userdata_row {
|
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if (ref($settings->{$context}) eq 'HASH') { |
if (ref($settings->{$context}) eq 'HASH') { |
if (ref($settings->{$context}->{$role}) eq 'HASH') { |
if (ref($settings->{$context}->{$role}) eq 'HASH') { |
foreach my $field (@fields) { |
my $hashref = $settings->{$context}->{$role}; |
if ($settings->{$context}->{$role}->{$field}) { |
if ($role eq 'emailusername') { |
$checks{$field} = ' checked="checked" '; |
if ($statustype) { |
|
if (ref($settings->{$context}->{$role}->{$statustype}) eq 'HASH') { |
|
$hashref = $settings->{$context}->{$role}->{$statustype}; |
|
if (ref($hashref) eq 'HASH') { |
|
foreach my $field (@fields) { |
|
if ($hashref->{$field}) { |
|
$checks{$field} = $hashref->{$field}; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} else { |
|
if (ref($hashref) eq 'HASH') { |
|
foreach my $field (@fields) { |
|
if ($hashref->{$field}) { |
|
$checks{$field} = ' checked="checked" '; |
|
} |
|
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
for (my $i=0; $i<@fields; $i++) { |
for (my $i=0; $i<@fields; $i++) { |
my $rem = $i%($numinrow); |
my $rem = $i%($numinrow); |
if ($rem == 0) { |
if ($rem == 0) { |
Line 4915 sub modifiable_userdata_row {
|
Line 4935 sub modifiable_userdata_row {
|
$output .= '<tr>'; |
$output .= '<tr>'; |
} |
} |
my $check = ' '; |
my $check = ' '; |
if (exists($checks{$fields[$i]})) { |
unless ($role eq 'emailusername') { |
$check = $checks{$fields[$i]} |
if (exists($checks{$fields[$i]})) { |
} else { |
$check = $checks{$fields[$i]} |
if ($role eq 'st') { |
} else { |
if (ref($settings) ne 'HASH') { |
if ($role eq 'st') { |
$check = ' checked="checked" '; |
if (ref($settings) ne 'HASH') { |
|
$check = ' checked="checked" '; |
|
} |
} |
} |
} |
} |
} |
} |
$output .= '<td class="LC_left_item">'. |
$output .= '<td class="LC_left_item">'. |
'<span class="LC_nobreak"><label>'. |
'<span class="LC_nobreak">'; |
'<input type="checkbox" name="canmodify_'.$role.'" '. |
if ($role eq 'emailusername') { |
'value="'.$fields[$i].'"'.$check.'/>'.$fieldtitles{$fields[$i]}. |
unless ($checks{$fields[$i]} =~ /^(required|optional)$/) { |
'</label></span></td>'; |
$checks{$fields[$i]} = 'omit'; |
|
} |
|
foreach my $option ('required','optional','omit') { |
|
my $checked=''; |
|
if ($checks{$fields[$i]} eq $option) { |
|
$checked='checked="checked" '; |
|
} |
|
$output .= '<label>'. |
|
'<input type="radio" name="canmodify_'.$item.'_'.$fields[$i].'" value="'.$option.'" '.$checked.'/>'. |
|
&mt($option).'</label>'.(' ' x2); |
|
} |
|
$output .= '<i>'.$fieldtitles{$fields[$i]}.'</i>'; |
|
} else { |
|
$output .= '<label>'. |
|
'<input type="checkbox" name="canmodify_'.$role.'" '. |
|
'value="'.$fields[$i].'"'.$check.'/>'.$fieldtitles{$fields[$i]}. |
|
'</label>'; |
|
} |
|
$output .= '</span></td>'; |
$rem = @fields%($numinrow); |
$rem = @fields%($numinrow); |
} |
} |
my $colsleft = $numinrow - $rem; |
my $colsleft = $numinrow - $rem; |
Line 4961 sub insttypes_row {
|
Line 5001 sub insttypes_row {
|
if ($rownum ne '') { |
if ($rownum ne '') { |
$css_class = ($rownum%2? ' class="LC_odd_row"':''); |
$css_class = ($rownum%2? ' class="LC_odd_row"':''); |
} |
} |
print STDERR "rownum ||$rownum|| an css_class ||".$css_class."||\n"; |
|
my $output = '<tr'.$css_class.'>'. |
my $output = '<tr'.$css_class.'>'. |
'<td>'.$lt{$context}.$showdom. |
'<td>'.$lt{$context}.$showdom. |
'</td><td class="'.$class.'" colspan="2"><table>'; |
'</td><td class="'.$class.'" colspan="2"><table>'; |
Line 7662 sub modify_selfcreation {
|
Line 7701 sub modify_selfcreation {
|
my ($dom,%domconfig) = @_; |
my ($dom,%domconfig) = @_; |
my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%changes,%cancreate); |
my ($resulttext,$warningmsg,%curr_usercreation,%curr_usermodify,%changes,%cancreate); |
my (%save_usercreate,%save_usermodify); |
my (%save_usercreate,%save_usermodify); |
|
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
|
if (ref($types) eq 'ARRAY') { |
|
$usertypes->{'default'} = $othertitle; |
|
push(@{$types},'default'); |
|
} |
# |
# |
# Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}. |
# Retrieve current domain configuration for self-creation of usernames from $domconfig{'usercreation'}. |
# |
# |
Line 7713 sub modify_selfcreation {
|
Line 7757 sub modify_selfcreation {
|
# Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts |
# Populate $cancreate{'selfcreate'} array reference with types of user, for which self-creation of user accounts |
# is permitted. |
# is permitted. |
# |
# |
foreach my $item ('login','sso','email') { |
foreach my $item ('login','sso','email') { |
if ($item eq 'email') { |
if ($item eq 'email') { |
if ($env{'form.cancreate_email'} eq 'email') { |
if ($env{'form.cancreate_email'} eq 'email') { |
push(@{$cancreate{'selfcreate'}},'email'); |
push(@{$cancreate{'selfcreate'}},'email'); |
Line 7729 sub modify_selfcreation {
|
Line 7773 sub modify_selfcreation {
|
my (@email_rule,%userinfo,%savecaptcha); |
my (@email_rule,%userinfo,%savecaptcha); |
my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info(); |
my ($infofields,$infotitles) = &Apache::loncommon::emailusername_info(); |
# |
# |
# Populate $cancreate{'emailusername'} hash ref with information types (if new user will provide data |
# Populate $cancreate{'emailusername'}{$type} hash ref with information fields (if new user will provide data |
# value set to one), if self-creation with e-mail address permitted. |
# value set to one), if self-creation with e-mail address permitted, where $type is user type: faculty, staff, student etc. |
# |
# |
if (($env{'form.cancreate_email'} eq 'email') || ($env{'form.cancreate_email'} eq 'emailapproval')) { |
if (($env{'form.cancreate_email'} eq 'email') || ($env{'form.cancreate_email'} eq 'emailapproval')) { |
push(@contexts,'emailusername'); |
push(@contexts,'emailusername'); |
map { $userinfo{$_} = 1; } &Apache::loncommon::get_env_multiple('form.canmodify_emailusername'); |
if (ref($types) eq 'ARRAY') { |
if (ref($infofields) eq 'ARRAY') { |
foreach my $type (@{$types}) { |
foreach my $field (@{$infofields}) { |
if (ref($infofields) eq 'ARRAY') { |
if ($userinfo{$field}) { |
foreach my $field (@{$infofields}) { |
$cancreate{'emailusername'}{$field} = 1; |
if ($env{'form.canmodify_emailusername_'.$type.'_'.$field} =~ /^(required|optional)$/) { |
|
$cancreate{'emailusername'}{$type}{$field} = $1; |
|
} |
|
} |
} |
} |
} |
} |
} |
} |
|
|
# |
# |
# Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of |
# Populate $cancreate{'notify'} hash ref with names of Domain Coordinators who are to be notified of |
# queued requests for self-creation of account using e-mail address as username |
# queued requests for self-creation of account using e-mail address as username |
Line 7801 sub modify_selfcreation {
|
Line 7847 sub modify_selfcreation {
|
&mt('You need to set the default authentication type to Kerberos 4 or 5 (with a Kerberos domain specified), or to Local authentication, if the localauth module has been customized in your domain to authenticate institutional logins.'); |
&mt('You need to set the default authentication type to Kerberos 4 or 5 (with a Kerberos domain specified), or to Local authentication, if the localauth module has been customized in your domain to authenticate institutional logins.'); |
} |
} |
} |
} |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
|
my @fields = ('lastname','firstname','middlename','generation', |
my @fields = ('lastname','firstname','middlename','generation', |
'permanentemail','id'); |
'permanentemail','id'); |
my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles(); |
my %fieldtitles = &Apache::loncommon::personal_data_fieldtitles(); |
Line 7814 sub modify_selfcreation {
|
Line 7859 sub modify_selfcreation {
|
# |
# |
if (($env{'form.cancreate_login'}) || ($env{'form.cancreate_sso'})) { |
if (($env{'form.cancreate_login'}) || ($env{'form.cancreate_sso'})) { |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
if (@{$types} > 0) { |
if (@{$types} > 1) { |
@{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate'); |
@{$cancreate{'statustocreate'}} = &Apache::loncommon::get_env_multiple('form.statustocreate'); |
push(@contexts,'statustocreate'); |
push(@contexts,'statustocreate'); |
} else { |
} else { |
undef($cancreate{'statustocreate'}); |
undef($cancreate{'statustocreate'}); |
} |
} |
push(@{$types},'default'); |
|
$usertypes->{'default'} = $othertitle; |
|
foreach my $type (@{$types}) { |
foreach my $type (@{$types}) { |
my @modifiable = &Apache::loncommon::get_env_multiple('form.canmodify_'.$type); |
my @modifiable = &Apache::loncommon::get_env_multiple('form.canmodify_'.$type); |
foreach my $field (@fields) { |
foreach my $field (@fields) { |
Line 7874 sub modify_selfcreation {
|
Line 7917 sub modify_selfcreation {
|
} elsif (ref($curr_usercreation{'cancreate'}{$item}) eq 'HASH') { |
} elsif (ref($curr_usercreation{'cancreate'}{$item}) eq 'HASH') { |
if (ref($cancreate{$item}) eq 'HASH') { |
if (ref($cancreate{$item}) eq 'HASH') { |
foreach my $curr (keys(%{$curr_usercreation{'cancreate'}{$item}})) { |
foreach my $curr (keys(%{$curr_usercreation{'cancreate'}{$item}})) { |
if (!$cancreate{$item}{$curr}) { |
if (ref($curr_usercreation{'cancreate'}{$item}{$curr}) eq 'HASH') { |
if (!grep(/^$item$/,@{$changes{'cancreate'}})) { |
foreach my $field (keys(%{$curr_usercreation{'cancreate'}{$item}{$curr}})) { |
push(@{$changes{'cancreate'}},$item); |
unless ($curr_usercreation{'cancreate'}{$item}{$curr}{$field} eq $cancreate{$item}{$curr}{$field}) { |
|
if (!grep(/^$item$/,@{$changes{'cancreate'}})) { |
|
push(@{$changes{'cancreate'}},$item); |
|
} |
|
} |
|
} |
|
} else { |
|
if (!$cancreate{$item}{$curr}) { |
|
if (!grep(/^$item$/,@{$changes{'cancreate'}})) { |
|
push(@{$changes{'cancreate'}},$item); |
|
} |
} |
} |
} |
} |
} |
} |
foreach my $field (keys(%{$cancreate{$item}})) { |
foreach my $field (keys(%{$cancreate{$item}})) { |
if (!$curr_usercreation{'cancreate'}{$item}{$field}) { |
if (ref($cancreate{$item}{$field}) eq 'HASH') { |
print STDERR "field $field in cancreate but not in curr\n"; |
foreach my $inner (keys(%{$cancreate{$item}{$field}})) { |
if (!grep(/^$item$/,@{$changes{'cancreate'}})) { |
if (ref($curr_usercreation{'cancreate'}{$item}{$field}) eq 'HASH') { |
push(@{$changes{'cancreate'}},$item); |
unless ($curr_usercreation{'cancreate'}{$item}{$field}{$inner} eq $cancreate{$item}{$field}{$inner}) { |
|
if (!grep(/^$item$/,@{$changes{'cancreate'}})) { |
|
push(@{$changes{'cancreate'}},$item); |
|
} |
|
} |
|
} else { |
|
if (!grep(/^$item$/,@{$changes{'cancreate'}})) { |
|
push(@{$changes{'cancreate'}},$item); |
|
} |
|
} |
|
} |
|
} else { |
|
if (!$curr_usercreation{'cancreate'}{$item}{$field}) { |
|
if (!grep(/^$item$/,@{$changes{'cancreate'}})) { |
|
push(@{$changes{'cancreate'}},$item); |
|
} |
} |
} |
} |
} |
} |
} |
Line 7904 sub modify_selfcreation {
|
Line 7972 sub modify_selfcreation {
|
} |
} |
} |
} |
} elsif ($item eq 'emailusername') { |
} elsif ($item eq 'emailusername') { |
if (keys(%userinfo) > 0) { |
if (ref($cancreate{$item}) eq 'HASH') { |
push(@{$changes{'cancreate'}},$item); |
foreach my $type (keys(%{$cancreate{$item}})) { |
|
if (ref($cancreate{$item}{$type}) eq 'HASH') { |
|
foreach my $field (keys(%{$cancreate{$item}{$type}})) { |
|
if ($cancreate{$item}{$type}{$field}) { |
|
if (!grep(/^$item$/,@{$changes{'cancreate'}})) { |
|
push(@{$changes{'cancreate'}},$item); |
|
} |
|
last; |
|
} |
|
} |
|
} |
|
} |
} |
} |
} |
} |
} |
} |
Line 8035 sub modify_selfcreation {
|
Line 8114 sub modify_selfcreation {
|
$chgtext .= '</ul>'; |
$chgtext .= '</ul>'; |
} elsif ($type eq 'emailusername') { |
} elsif ($type eq 'emailusername') { |
if (ref($cancreate{'emailusername'}) eq 'HASH') { |
if (ref($cancreate{'emailusername'}) eq 'HASH') { |
if (keys(%{$cancreate{'emailusername'}}) > 0) { |
if (ref($types) eq 'ARRAY') { |
$chgtext .= &mt('When self-creating account with e-mail as username, user will provide the following information:'). |
foreach my $type (@{$types}) { |
'<ul>'; |
if (ref($cancreate{'emailusername'}{$type}) eq 'HASH') { |
foreach my $field (@{$infofields}) { |
if (keys(%{$cancreate{'emailusername'}{$type}}) > 0) { |
if ($cancreate{'emailusername'}{$field}) { |
$chgtext .= &mt('When self-creating account with e-mail as username, the following information will be provided by [_1]:',$usertypes->{$type}). |
$chgtext .= '<li>'.$infotitles->{$field}.'</li>'; |
'<ul>'; |
|
foreach my $field (@{$infofields}) { |
|
if ($cancreate{'emailusername'}{$type}{$field}) { |
|
$chgtext .= '<li>'.$infotitles->{$field}.'</li>'; |
|
} |
|
} |
|
} |
|
$chgtext .= '</ul>'; |
|
} else { |
|
$chgtext .= &mt('When self creating account with e-mail as username, no information besides e-mail address will be provided by [_1].',$usertypes->{$type}).'<br />'; |
} |
} |
} |
} |
$chgtext .= '</ul>'; |
|
} else { |
|
$chgtext .= &mt('When self creating account with e-mail as username, user will not provide any information besides e-mail address'); |
|
} |
} |
} |
} |
} elsif ($type eq 'notify') { |
} elsif ($type eq 'notify') { |
Line 8235 sub modify_usermodification {
|
Line 8320 sub modify_usermodification {
|
} |
} |
} |
} |
} |
} |
# FIXME need to ensure selfcreate stuff is preserved |
|
my %usermodification_hash = ( |
my %usermodification_hash = ( |
usermodification => \%modifyhash, |
usermodification => \%modifyhash, |
); |
); |
Line 8988 sub modify_coursedefaults {
|
Line 9072 sub modify_coursedefaults {
|
if ($putresult eq 'ok') { |
if ($putresult eq 'ok') { |
if (keys(%changes) > 0) { |
if (keys(%changes) > 0) { |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom,1); |
if (($changes{'canuse_pdfforms'}) || ($changes{'coursecredits'}) || ($changes{'uploadquota'})) { |
if (($changes{'canuse_pdfforms'}) || ($changes{'coursecredits'}) || |
|
($changes{'uploadquota'})) { |
if ($changes{'canuse_pdfforms'}) { |
if ($changes{'canuse_pdfforms'}) { |
$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'}; |
$domdefaults{'canuse_pdfforms'}=$defaultshash{'coursedefaults'}{'canuse_pdfforms'}; |
} |
} |