version 1.160.6.2, 2012/05/14 00:04:01
|
version 1.165, 2012/08/25 04:34:44
|
Line 86 $dom,$settings,$rowtotal,$action.
|
Line 86 $dom,$settings,$rowtotal,$action.
|
|
|
$dom is the domain, $settings is a reference to a hash of current settings for |
$dom is the domain, $settings is a reference to a hash of current settings for |
the current context, $rowtotal is a reference to the scalar used to record the |
the current context, $rowtotal is a reference to the scalar used to record the |
number of rows displayed on the page, and $action is the context (either quotas |
number of rows displayed on the page, and $action is the context (quotas, |
or requestcourses). |
requestcourses or requestauthor). |
|
|
The print_quotas routine was orginally created to display/store information |
The print_quotas routine was orginally created to display/store information |
about default quota sizes for portfolio spaces for the different types of |
about default quota sizes for portfolio spaces for the different types of |
Line 210 sub handler {
|
Line 210 sub handler {
|
'quotas','autoenroll','autoupdate','autocreate', |
'quotas','autoenroll','autoupdate','autocreate', |
'directorysrch','usercreation','usermodification', |
'directorysrch','usercreation','usermodification', |
'contacts','defaults','scantron','coursecategories', |
'contacts','defaults','scantron','coursecategories', |
'serverstatuses','requestcourses','usersessions', |
'serverstatuses','requestcourses','helpsettings', |
'loadbalancing'],$dom); |
'coursedefaults','usersessions','loadbalancing', |
|
'requestauthor'],$dom); |
my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll', |
my @prefs_order = ('rolecolors','login','defaults','quotas','autoenroll', |
'autoupdate','autocreate','directorysrch','contacts', |
'autoupdate','autocreate','directorysrch','contacts', |
'usercreation','usermodification','scantron', |
'usercreation','usermodification','scantron', |
'requestcourses','coursecategories','serverstatuses', |
'requestcourses','requestauthor','coursecategories', |
'usersessions'); |
'serverstatuses','helpsettings', |
|
'coursedefaults','usersessions'); |
if (keys(%servers) > 1) { |
if (keys(%servers) > 1) { |
push(@prefs_order,'loadbalancing'); |
push(@prefs_order,'loadbalancing'); |
} |
} |
Line 247 sub handler {
|
Line 249 sub handler {
|
col2 => 'Value'}], |
col2 => 'Value'}], |
}, |
}, |
'quotas' => |
'quotas' => |
{ text => 'User blogs, personal information pages, portfolios', |
{ text => 'Blogs, personal web pages, webDAV, portfolios', |
help => 'Domain_Configuration_Quotas', |
help => 'Domain_Configuration_Quotas', |
header => [{col1 => 'User affiliation', |
header => [{col1 => 'User affiliation', |
col2 => 'Available tools', |
col2 => 'Available tools', |
Line 323 sub handler {
|
Line 325 sub handler {
|
{col1 => 'Setting', |
{col1 => 'Setting', |
col2 => 'Value'}], |
col2 => 'Value'}], |
}, |
}, |
|
'requestauthor' => |
|
{text => 'Request authoring space', |
|
help => 'Domain_Configuration_Request_Author', |
|
header => [{col1 => 'User affiliation', |
|
col2 => 'Availability/Processing of requests',}, |
|
{col1 => 'Setting', |
|
col2 => 'Value'}], |
|
}, |
'coursecategories' => |
'coursecategories' => |
{ text => 'Cataloging of courses/communities', |
{ text => 'Cataloging of courses/communities', |
help => 'Domain_Configuration_Cataloging_Courses', |
help => 'Domain_Configuration_Cataloging_Courses', |
Line 340 sub handler {
|
Line 350 sub handler {
|
col3 => 'Specific IPs', |
col3 => 'Specific IPs', |
}], |
}], |
}, |
}, |
|
'helpsettings' => |
|
{text => 'Help page settings', |
|
help => 'Domain_Configuration_Help_Settings', |
|
header => [{col1 => 'Authenticated Help Settings', |
|
col2 => ''}, |
|
{col1 => 'Unauthenticated Help Settings', |
|
col2 => ''}], |
|
}, |
|
'coursedefaults' => |
|
{text => 'Course/Community defaults', |
|
help => 'Domain_Configuration_Course_Defaults', |
|
header => [{col1 => 'Defaults which can be overridden in each course by a CC', |
|
col2 => 'Value',}, |
|
{col1 => 'Defaults which can be overridden for each course by a DC', |
|
col2 => 'Value',},], |
|
}, |
|
'privacy' => |
|
{text => 'User Privacy', |
|
help => 'Domain_Configuration_User_Privacy', |
|
header => [{col1 => 'Setting', |
|
col2 => 'Value',}], |
|
}, |
'usersessions' => |
'usersessions' => |
{text => 'User session hosting/offloading', |
{text => 'User session hosting/offloading', |
help => 'Domain_Configuration_User_Sessions', |
help => 'Domain_Configuration_User_Sessions', |
Line 378 sub handler {
|
Line 410 sub handler {
|
if ($phase eq 'process') { |
if ($phase eq 'process') { |
&Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,\@roles); |
&Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,\@roles); |
} elsif ($phase eq 'display') { |
} elsif ($phase eq 'display') { |
my $js; |
my $js = &recaptcha_js(); |
if (keys(%servers) > 1) { |
if (keys(%servers) > 1) { |
my ($othertitle,$usertypes,$types) = |
my ($othertitle,$usertypes,$types) = |
&Apache::loncommon::sorted_inst_types($dom); |
&Apache::loncommon::sorted_inst_types($dom); |
Line 465 sub process_changes {
|
Line 497 sub process_changes {
|
$output = &modify_serverstatuses($dom,%domconfig); |
$output = &modify_serverstatuses($dom,%domconfig); |
} elsif ($action eq 'requestcourses') { |
} elsif ($action eq 'requestcourses') { |
$output = &modify_quotas($dom,$action,%domconfig); |
$output = &modify_quotas($dom,$action,%domconfig); |
|
} elsif ($action eq 'requestauthor') { |
|
$output = &modify_quotas($dom,$action,%domconfig); |
|
} elsif ($action eq 'helpsettings') { |
|
$output = &modify_helpsettings($r,$dom,$confname,%domconfig); |
|
} elsif ($action eq 'coursedefaults') { |
|
$output = &modify_coursedefaults($dom,%domconfig); |
} elsif ($action eq 'usersessions') { |
} elsif ($action eq 'usersessions') { |
$output = &modify_usersessions($dom,%domconfig); |
$output = &modify_usersessions($dom,%domconfig); |
} elsif ($action eq 'loadbalancing') { |
} elsif ($action eq 'loadbalancing') { |
Line 523 sub print_config_box {
|
Line 561 sub print_config_box {
|
$colspan = ' colspan="2"'; |
$colspan = ' colspan="2"'; |
} elsif ($action eq 'requestcourses') { |
} elsif ($action eq 'requestcourses') { |
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
|
} elsif ($action eq 'requestauthor') { |
|
$output .= &print_quotas($dom,$settings,\$rowtotal,$action); |
|
} elsif ($action eq 'helpsettings') { |
|
$output .= &print_helpsettings('top',$dom,$confname,$settings,\$rowtotal); |
} elsif ($action eq 'usersessions') { |
} elsif ($action eq 'usersessions') { |
$output .= &print_usersessions('top',$dom,$settings,\$rowtotal); |
$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 585 sub print_config_box {
|
Line 629 sub print_config_box {
|
} elsif ($action eq 'login') { |
} elsif ($action eq 'login') { |
$output .= &print_login('bottom',$dom,$confname,$phase,$settings,\$rowtotal); |
$output .= &print_login('bottom',$dom,$confname,$phase,$settings,\$rowtotal); |
} elsif ($action eq 'requestcourses') { |
} elsif ($action eq 'requestcourses') { |
$output .= &print_courserequestmail($dom,$settings,\$rowtotal); |
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal); |
|
} elsif ($action eq 'requestauthor') { |
|
$output .= &print_requestmail($dom,$action,$settings,\$rowtotal); |
} elsif ($action eq 'helpsettings') { |
} elsif ($action eq 'helpsettings') { |
$output .= &print_helpsettings('bottom',$dom,$confname,$settings,\$rowtotal); |
$output .= &print_helpsettings('bottom',$dom,$confname,$settings,\$rowtotal); |
} elsif ($action eq 'usersessions') { |
} elsif ($action eq 'usersessions') { |
Line 1346 sub print_quotas {
|
Line 1392 sub print_quotas {
|
@options =('norequest','approval','validate','autolimit'); |
@options =('norequest','approval','validate','autolimit'); |
%validations = &Apache::lonnet::auto_courserequest_checks($dom); |
%validations = &Apache::lonnet::auto_courserequest_checks($dom); |
%titles = &courserequest_titles(); |
%titles = &courserequest_titles(); |
|
} elsif ($context eq 'requestauthor') { |
|
@usertools = ('author'); |
|
@options = ('norequest','approval','automatic'); |
|
%titles = &authorrequest_titles(); |
} else { |
} else { |
@usertools = ('aboutme','blog','portfolio'); |
@usertools = ('aboutme','blog','webdav','portfolio'); |
%titles = &tool_titles(); |
%titles = &tool_titles(); |
} |
} |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
foreach my $type (@{$types}) { |
foreach my $type (@{$types}) { |
my $currdefquota; |
my $currdefquota; |
unless ($context eq 'requestcourses') { |
unless (($context eq 'requestcourses') || |
|
($context eq 'requestauthor')) { |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if (ref($settings->{defaultquota}) eq 'HASH') { |
if (ref($settings->{defaultquota}) eq 'HASH') { |
$currdefquota = $settings->{defaultquota}->{$type}; |
$currdefquota = $settings->{defaultquota}->{$type}; |
Line 1423 sub print_quotas {
|
Line 1474 sub print_quotas {
|
$cell{$item} .= $titles{'unlimited'}; |
$cell{$item} .= $titles{'unlimited'}; |
} |
} |
} |
} |
|
} elsif ($context eq 'requestauthor') { |
|
my $curroption; |
|
if (ref($settings) eq 'HASH') { |
|
$curroption = $settings->{$type}; |
|
} |
|
if (!$curroption) { |
|
$curroption = 'norequest'; |
|
} |
|
foreach my $option (@options) { |
|
my $val = $option; |
|
if ($option eq 'norequest') { |
|
$val = 0; |
|
} |
|
my $checked = ''; |
|
if ($option eq $curroption) { |
|
$checked = ' checked="checked"'; |
|
} |
|
$datatable .= '<span class="LC_nobreak"><label>'. |
|
'<input type="radio" name="authorreq_'.$type. |
|
'" value="'.$val.'"'.$checked.' />'. |
|
$titles{$option}.'</label></span> '; |
|
} |
} else { |
} else { |
my $checked = 'checked="checked" '; |
my $checked = 'checked="checked" '; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
Line 1448 sub print_quotas {
|
Line 1521 sub print_quotas {
|
$datatable .= '</tr></table>'; |
$datatable .= '</tr></table>'; |
} |
} |
$datatable .= '</td>'; |
$datatable .= '</td>'; |
unless ($context eq 'requestcourses') { |
unless (($context eq 'requestcourses') || |
|
($context eq 'requestauthor')) { |
$datatable .= |
$datatable .= |
'<td class="LC_right_item"><span class="LC_nobreak">'. |
'<td class="LC_right_item"><span class="LC_nobreak">'. |
'<input type="text" name="quota_'.$type. |
'<input type="text" name="quota_'.$type. |
Line 1459 sub print_quotas {
|
Line 1533 sub print_quotas {
|
} |
} |
} |
} |
} |
} |
unless ($context eq 'requestcourses') { |
unless (($context eq 'requestcourses') || ($context eq 'requestauthor')) { |
$defaultquota = '20'; |
$defaultquota = '20'; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if (ref($settings->{'defaultquota'}) eq 'HASH') { |
if (ref($settings->{'defaultquota'}) eq 'HASH') { |
Line 1529 sub print_quotas {
|
Line 1603 sub print_quotas {
|
$defcell{$item} .= $titles{'unlimited'}; |
$defcell{$item} .= $titles{'unlimited'}; |
} |
} |
} |
} |
|
} elsif ($context eq 'requestauthor') { |
|
my $curroption; |
|
if (ref($settings) eq 'HASH') { |
|
if (ref($settings->{'requestauthor'}) eq 'HASH') { |
|
$curroption = $settings->{'requestauthor'}; |
|
} |
|
} |
|
if (!$curroption) { |
|
$curroption = 'norequest'; |
|
} |
|
foreach my $option (@options) { |
|
my $val = $option; |
|
if ($option eq 'norequest') { |
|
$val = 0; |
|
} |
|
my $checked = ''; |
|
if ($option eq $curroption) { |
|
$checked = ' checked="checked"'; |
|
} |
|
$datatable .= '<span class="LC_nobreak"><label>'. |
|
'<input type="radio" name="authorreq_default"'. |
|
' value="'.$val.'"'.$checked.' />'. |
|
$titles{$option}.'</label></span> '; |
|
} |
} else { |
} else { |
my $checked = 'checked="checked" '; |
my $checked = 'checked="checked" '; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
Line 1554 sub print_quotas {
|
Line 1652 sub print_quotas {
|
$datatable .= '</tr></table>'; |
$datatable .= '</tr></table>'; |
} |
} |
$datatable .= '</td>'; |
$datatable .= '</td>'; |
unless ($context eq 'requestcourses') { |
unless (($context eq 'requestcourses') || ($context eq 'requestauthor')) { |
$datatable .= '<td class="LC_right_item"><span class="LC_nobreak">'. |
$datatable .= '<td class="LC_right_item"><span class="LC_nobreak">'. |
'<input type="text" name="defaultquota" value="'. |
'<input type="text" name="defaultquota" value="'. |
$defaultquota.'" size="5" /> Mb</span></td>'; |
$defaultquota.'" size="5" /> Mb</span></td>'; |
Line 1632 sub print_quotas {
|
Line 1730 sub print_quotas {
|
$advcell{$item} .= $titles{'unlimited'}; |
$advcell{$item} .= $titles{'unlimited'}; |
} |
} |
} |
} |
|
} elsif ($context eq 'requestauthor') { |
|
my $curroption; |
|
if (ref($settings) eq 'HASH') { |
|
$curroption = $settings->{'_LC_adv'}; |
|
} |
|
my $checked = ''; |
|
if ($curroption eq '') { |
|
$checked = ' checked="checked"'; |
|
} |
|
$datatable .= '<span class="LC_nobreak"><label>'. |
|
'<input type="radio" name="authorreq__LC_adv"'. |
|
' value=""'.$checked.' />'. |
|
&mt('No override set').'</label></span> '; |
|
foreach my $option (@options) { |
|
my $val = $option; |
|
if ($option eq 'norequest') { |
|
$val = 0; |
|
} |
|
my $checked = ''; |
|
if ($val eq $curroption) { |
|
$checked = ' checked="checked"'; |
|
} |
|
$datatable .= '<span class="LC_nobreak"><label>'. |
|
'<input type="radio" name="crsreq_'.$item. |
|
'__LC_adv" value="'.$val.'"'.$checked.' />'. |
|
$titles{$option}.'</label></span> '; |
|
} |
} else { |
} else { |
my $checked = 'checked="checked" '; |
my $checked = 'checked="checked" '; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
Line 1661 sub print_quotas {
|
Line 1786 sub print_quotas {
|
return $datatable; |
return $datatable; |
} |
} |
|
|
sub print_courserequestmail { |
sub print_requestmail { |
my ($dom,$settings,$rowtotal) = @_; |
my ($dom,$action,$settings,$rowtotal) = @_; |
my ($now,$datatable,%dompersonnel,@domcoord,@currapproval,$rows); |
my ($now,$datatable,%dompersonnel,@domcoord,@currapproval,$rows); |
$now = time; |
$now = time; |
$rows = 0; |
$rows = 0; |
Line 1693 sub print_courserequestmail {
|
Line 1818 sub print_courserequestmail {
|
my $numinrow = 4; |
my $numinrow = 4; |
my $numdc = @domcoord; |
my $numdc = @domcoord; |
my $css_class = 'class="LC_odd_row"'; |
my $css_class = 'class="LC_odd_row"'; |
$datatable = '<tr'.$css_class.'>'. |
my $text; |
' <td>'.&mt('Receive notification of course requests requiring approval.'). |
if ($action eq 'requestcourses') { |
' </td>'. |
$text = &mt('Receive notification of course requests requiring approval'); |
|
} else { |
|
$text = &mt('Receive notification of authoring space requests requiring approval') |
|
} |
|
$datatable = '<tr '.$css_class.'>'. |
|
' <td>'.$text.'</td>'. |
' <td class="LC_left_item">'; |
' <td class="LC_left_item">'; |
if (@domcoord > 0) { |
if (@domcoord > 0) { |
$datatable .= '<table>'; |
$datatable .= '<table>'; |
Line 2220 sub print_helpsettings {
|
Line 2350 sub print_helpsettings {
|
$datatable .= '</span></td></tr>'; |
$datatable .= '</span></td></tr>'; |
|
|
} |
} |
|
|
return $datatable; |
return $datatable; |
|
|
} |
} |
|
|
|
|
Line 2884 sub loadbalance_rule_row {
|
Line 3012 sub loadbalance_rule_row {
|
} else { |
} else { |
push(@rulenames,'specific'); |
push(@rulenames,'specific'); |
} |
} |
|
push(@rulenames,'none'); |
my $style = $targets_div_style; |
my $style = $targets_div_style; |
if (($type eq '_LC_external') || ($type eq '_LC_internetdom')) { |
if (($type eq '_LC_external') || ($type eq '_LC_internetdom')) { |
$style = $homedom_div_style; |
$style = $homedom_div_style; |
Line 2940 sub offloadtype_text {
|
Line 3069 sub offloadtype_text {
|
'homeserver' => "Offloads to user's home server", |
'homeserver' => "Offloads to user's home server", |
'externalbalancer' => "Offloads to Load Balancer in user's domain", |
'externalbalancer' => "Offloads to Load Balancer in user's domain", |
'specific' => 'Offloads to specific server', |
'specific' => 'Offloads to specific server', |
|
'none' => 'No offload', |
); |
); |
return %ruletitles; |
return %ruletitles; |
} |
} |
Line 2971 sub contact_titles {
|
Line 3101 sub contact_titles {
|
|
|
sub tool_titles { |
sub tool_titles { |
my %titles = &Apache::lonlocal::texthash ( |
my %titles = &Apache::lonlocal::texthash ( |
aboutme => 'Personal Information Page', |
aboutme => 'Personal web page', |
blog => 'Blog', |
blog => 'Blog', |
|
webdav => 'WebDAV', |
portfolio => 'Portfolio', |
portfolio => 'Portfolio', |
official => 'Official courses (with institutional codes)', |
official => 'Official courses (with institutional codes)', |
unofficial => 'Unofficial courses', |
unofficial => 'Unofficial courses', |
Line 2995 sub courserequest_titles {
|
Line 3126 sub courserequest_titles {
|
return %titles; |
return %titles; |
} |
} |
|
|
|
sub authorrequest_titles { |
|
my %titles = &Apache::lonlocal::texthash ( |
|
norequest => 'Not allowed', |
|
approval => 'Approval by Dom. Coord.', |
|
automatic => 'Automatic approval', |
|
); |
|
return %titles; |
|
} |
|
|
sub courserequest_conditions { |
sub courserequest_conditions { |
my %conditions = &Apache::lonlocal::texthash ( |
my %conditions = &Apache::lonlocal::texthash ( |
approval => '(Processing of request subject to approval by Domain Coordinator).', |
approval => '(Processing of request subject to approval by Domain Coordinator).', |
Line 3124 sub print_usercreation {
|
Line 3264 sub print_usercreation {
|
} |
} |
my ($othertitle,$usertypes,$types) = |
my ($othertitle,$usertypes,$types) = |
&Apache::loncommon::sorted_inst_types($dom); |
&Apache::loncommon::sorted_inst_types($dom); |
|
my $createsettings; |
|
if (ref($settings) eq 'HASH') { |
|
$createsettings = $settings->{cancreate}; |
|
} |
if (ref($usertypes) eq 'HASH') { |
if (ref($usertypes) eq 'HASH') { |
if (keys(%{$usertypes}) > 0) { |
if (keys(%{$usertypes}) > 0) { |
my $createsettings; |
|
if (ref($settings) eq 'HASH') { |
|
$createsettings = $settings->{cancreate}; |
|
} |
|
$datatable .= &insttypes_row($createsettings,$types,$usertypes, |
$datatable .= &insttypes_row($createsettings,$types,$usertypes, |
$dom,$numinrow,$othertitle, |
$dom,$numinrow,$othertitle, |
'statustocreate'); |
'statustocreate'); |
$$rowtotal ++; |
$$rowtotal ++; |
} |
} |
} |
} |
|
$datatable .= &captcha_choice('cancreate',$createsettings); |
} else { |
} else { |
my @contexts = ('author','course','domain'); |
my @contexts = ('author','course','domain'); |
my @authtypes = ('int','krb4','krb5','loc'); |
my @authtypes = ('int','krb4','krb5','loc'); |
Line 3187 sub print_usercreation {
|
Line 3328 sub print_usercreation {
|
return $datatable; |
return $datatable; |
} |
} |
|
|
|
sub captcha_choice { |
|
my ($context,$settings) = @_; |
|
my ($keyentry,$currpub,$currpriv,%checked,$rowname,$pubtext,$privtext); |
|
my %lt = &captcha_phrases(); |
|
$keyentry = 'hidden'; |
|
if ($context eq 'cancreate') { |
|
$rowname = &mt('CAPTCHA validation (e-mail as username)'); |
|
} elsif ($context eq 'help') { |
|
$rowname = &mt('CAPTCHA validation'); |
|
} |
|
if (ref($settings) eq 'HASH') { |
|
if ($settings->{'captcha'}) { |
|
$checked{$settings->{'captcha'}} = ' checked="checked"'; |
|
} else { |
|
$checked{'original'} = ' checked="checked"'; |
|
} |
|
if ($settings->{'captcha'} eq 'recaptcha') { |
|
$pubtext = $lt{'pub'}; |
|
$privtext = $lt{'priv'}; |
|
$keyentry = 'text'; |
|
} |
|
if (ref($settings->{'recaptchakeys'}) eq 'HASH') { |
|
$currpub = $settings->{'recaptchakeys'}{'public'}; |
|
$currpriv = $settings->{'recaptchakeys'}{'private'}; |
|
} |
|
} else { |
|
$checked{'original'} = ' checked="checked"'; |
|
} |
|
my $output = '<tr class="LC_odd_row">'. |
|
'<td class="LC_left_item">'.$rowname.'</td><td class="LC_right_item" colspan="2">'."\n". |
|
'<table><tr><td>'."\n"; |
|
foreach my $option ('original','recaptcha','notused') { |
|
$output .= '<span class="LC_nobreak"><label><input type="radio" name="'.$context.'_captcha" value="'. |
|
$option.'" '.$checked{$option}.' onchange="javascript:updateCaptcha('."this,'$context'".');" />'. |
|
$lt{$option}.'</label></span>'; |
|
unless ($option eq 'notused') { |
|
$output .= (' 'x2)."\n"; |
|
} |
|
} |
|
# |
|
# Note: If reCAPTCHA is to be used for LON-CAPA servers in a domain, a domain coordinator should visit: |
|
# https://www.google.com/recaptcha and generate a Public and Private key. For domains with multiple |
|
# servers a single key pair will be used for all servers, so the internet domain (e.g., yourcollege.edu) |
|
# specified for use with the key should be broad enough to accommodate all servers in the LON-CAPA domain. |
|
# |
|
$output .= '</td></tr>'."\n". |
|
'<tr><td>'."\n". |
|
'<span class="LC_nobreak"><span id="'.$context.'_recaptchapubtxt">'.$pubtext.'</span> '."\n". |
|
'<input type="'.$keyentry.'" id="'.$context.'_recaptchapub" name="'.$context.'_recaptchapub" value="'. |
|
$currpub.'" size="40" /></span><br />'."\n". |
|
'<span class="LC_nobreak"><span id="'.$context.'_recaptchaprivtxt">'.$privtext.'</span> '."\n". |
|
'<input type="'.$keyentry.'" id="'.$context.'_recaptchapriv" name="'.$context.'_recaptchapriv" value="'. |
|
$currpriv.'" size="40" /></span></td></tr></table>'."\n". |
|
'</td></tr>'; |
|
return $output; |
|
} |
|
|
sub user_formats_row { |
sub user_formats_row { |
my ($type,$settings,$rules,$ruleorder,$numinrow,$rowcount) = @_; |
my ($type,$settings,$rules,$ruleorder,$numinrow,$rowcount) = @_; |
my $output; |
my $output; |
Line 4151 sub insttypes_row {
|
Line 4349 sub insttypes_row {
|
if ($context eq 'cansearch') { |
if ($context eq 'cansearch') { |
$showdom = ' ('.$dom.')'; |
$showdom = ' ('.$dom.')'; |
} |
} |
|
my $class = 'LC_left_item'; |
|
if ($context eq 'statustocreate') { |
|
$class = 'LC_right_item'; |
|
} |
my $output = '<tr class="LC_odd_row">'. |
my $output = '<tr class="LC_odd_row">'. |
'<td>'.$lt{$context}.$showdom. |
'<td>'.$lt{$context}.$showdom. |
'</td><td class="LC_left_item" colspan="2"><table>'; |
'</td><td class="'.$class.'" colspan="2"><table>'; |
my $rem; |
my $rem; |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
for (my $i=0; $i<@{$types}; $i++) { |
for (my $i=0; $i<@{$types}; $i++) { |
Line 4905 sub publishlogo {
|
Line 5107 sub publishlogo {
|
# See if there is anything left |
# See if there is anything left |
unless ($fname) { return ('error: no uploaded file'); } |
unless ($fname) { return ('error: no uploaded file'); } |
$fname="$subdir/$fname"; |
$fname="$subdir/$fname"; |
my $filepath=$r->dir_config('lonDocRoot')."/priv/$dom/$confname"; |
my $docroot=$r->dir_config('lonDocRoot'); |
|
my $filepath="$docroot/priv"; |
|
my $relpath = "$dom/$confname"; |
my ($fnamepath,$file,$fetchthumb); |
my ($fnamepath,$file,$fetchthumb); |
$file=$fname; |
$file=$fname; |
if ($fname=~m|/|) { |
if ($fname=~m|/|) { |
($fnamepath,$file) = ($fname =~ m|^(.*)/([^/]+)$|); |
($fnamepath,$file) = ($fname =~ m|^(.*)/([^/]+)$|); |
} |
} |
my @parts=split(/\//,$filepath.'/'.$fnamepath); |
my @parts=split(/\//,"$filepath/$relpath/$fnamepath"); |
my $count; |
my $count; |
for ($count=4;$count<=$#parts;$count++) { |
for ($count=5;$count<=$#parts;$count++) { |
$filepath.="/$parts[$count]"; |
$filepath.="/$parts[$count]"; |
if ((-e $filepath)!=1) { |
if ((-e $filepath)!=1) { |
mkdir($filepath,02770); |
mkdir($filepath,02770); |
Line 4960 $env{'user.name'}.':'.$env{'user.domain'
|
Line 5164 $env{'user.name'}.':'.$env{'user.domain'
|
close(FH); |
close(FH); |
chmod(0660, $source); # Permissions to rw-rw---. |
chmod(0660, $source); # Permissions to rw-rw---. |
|
|
my $docroot=$r->dir_config('lonDocRoot'); |
|
my $targetdir=$docroot.'/res/'.$dom.'/'.$confname .'/'.$fnamepath; |
my $targetdir=$docroot.'/res/'.$dom.'/'.$confname .'/'.$fnamepath; |
my $copyfile=$targetdir.'/'.$file; |
my $copyfile=$targetdir.'/'.$file; |
|
|
Line 5178 sub modify_quotas {
|
Line 5381 sub modify_quotas {
|
%limithash,$toolregexp,%conditions,$resulttext,%changes); |
%limithash,$toolregexp,%conditions,$resulttext,%changes); |
if ($action eq 'quotas') { |
if ($action eq 'quotas') { |
$context = 'tools'; |
$context = 'tools'; |
} else { |
} else { |
$context = $action; |
$context = $action; |
} |
} |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
Line 5188 sub modify_quotas {
|
Line 5391 sub modify_quotas {
|
%titles = &courserequest_titles(); |
%titles = &courserequest_titles(); |
$toolregexp = join('|',@usertools); |
$toolregexp = join('|',@usertools); |
%conditions = &courserequest_conditions(); |
%conditions = &courserequest_conditions(); |
|
} elsif ($context eq 'requestauthor') { |
|
@usertools = ('author'); |
|
%titles = &authorrequest_titles(); |
} else { |
} else { |
@usertools = ('aboutme','blog','portfolio'); |
@usertools = ('aboutme','blog','webdav','portfolio'); |
%titles = &tool_titles(); |
%titles = &tool_titles(); |
} |
} |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
Line 5205 sub modify_quotas {
|
Line 5411 sub modify_quotas {
|
$confhash{$item}{$type} = $env{$key}; |
$confhash{$item}{$type} = $env{$key}; |
} |
} |
} |
} |
|
} elsif ($context eq 'requestauthor') { |
|
if ($key =~ /^\Qform.authorreq_\E(.+)$/) { |
|
$confhash{$1} = $env{$key}; |
|
} |
} else { |
} else { |
if ($key =~ /^form\.quota_(.+)$/) { |
if ($key =~ /^form\.quota_(.+)$/) { |
$confhash{'defaultquota'}{$1} = $env{$key}; |
$confhash{'defaultquota'}{$1} = $env{$key}; |
Line 5214 sub modify_quotas {
|
Line 5424 sub modify_quotas {
|
} |
} |
} |
} |
} |
} |
if ($context eq 'requestcourses') { |
if (($context eq 'requestcourses') || ($context eq 'requestauthor')) { |
my @approvalnotify = &Apache::loncommon::get_env_multiple('form.reqapprovalnotify'); |
my @approvalnotify = &Apache::loncommon::get_env_multiple('form.reqapprovalnotify'); |
@approvalnotify = sort(@approvalnotify); |
@approvalnotify = sort(@approvalnotify); |
$confhash{'notify'}{'approval'} = join(',',@approvalnotify); |
$confhash{'notify'}{'approval'} = join(',',@approvalnotify); |
Line 5250 sub modify_quotas {
|
Line 5460 sub modify_quotas {
|
$confhash{$item}{$type} .= $limithash{$item}{$type}; |
$confhash{$item}{$type} .= $limithash{$item}{$type}; |
} |
} |
} |
} |
|
} elsif ($context eq 'requestauthor') { |
|
$unset = '0'; |
|
if ($type eq '_LC_adv') { |
|
$unset = ''; |
|
} |
} else { |
} else { |
if (grep(/^\Q$type\E$/,@{$toolshash{$item}})) { |
if (grep(/^\Q$type\E$/,@{$toolshash{$item}})) { |
$confhash{$item}{$type} = 1; |
$confhash{$item}{$type} = 1; |
Line 5258 sub modify_quotas {
|
Line 5473 sub modify_quotas {
|
} |
} |
} |
} |
if (ref($domconfig{$action}) eq 'HASH') { |
if (ref($domconfig{$action}) eq 'HASH') { |
if (ref($domconfig{$action}{$item}) eq 'HASH') { |
if ($action eq 'requestauthor') { |
|
if ($domconfig{$action}{$type} ne $confhash{$type}) { |
|
$changes{$type} = 1; |
|
} |
|
} elsif (ref($domconfig{$action}{$item}) eq 'HASH') { |
if ($domconfig{$action}{$item}{$type} ne $confhash{$item}{$type}) { |
if ($domconfig{$action}{$item}{$type} ne $confhash{$item}{$type}) { |
$changes{$item}{$type} = 1; |
$changes{$item}{$type} = 1; |
} |
} |
Line 5278 sub modify_quotas {
|
Line 5497 sub modify_quotas {
|
if ($confhash{$item}{$type} ne $unset) { |
if ($confhash{$item}{$type} ne $unset) { |
$changes{$item}{$type} = 1; |
$changes{$item}{$type} = 1; |
} |
} |
|
} elsif ($context eq 'requestauthor') { |
|
if ($confhash{$type} ne $unset) { |
|
$changes{$type} = 1; |
|
} |
} else { |
} else { |
if (!$confhash{$item}{$type}) { |
if (!$confhash{$item}{$type}) { |
$changes{$item}{$type} = 1; |
$changes{$item}{$type} = 1; |
Line 5286 sub modify_quotas {
|
Line 5509 sub modify_quotas {
|
} |
} |
} |
} |
} |
} |
unless ($context eq 'requestcourses') { |
unless (($context eq 'requestcourses') || ($context eq 'requestauthor')) { |
if (ref($domconfig{'quotas'}) eq 'HASH') { |
if (ref($domconfig{'quotas'}) eq 'HASH') { |
if (ref($domconfig{'quotas'}{'defaultquota'}) eq 'HASH') { |
if (ref($domconfig{'quotas'}{'defaultquota'}) eq 'HASH') { |
foreach my $key (keys(%{$domconfig{'quotas'}{'defaultquota'}})) { |
foreach my $key (keys(%{$domconfig{'quotas'}{'defaultquota'}})) { |
Line 5329 sub modify_quotas {
|
Line 5552 sub modify_quotas {
|
} |
} |
} |
} |
|
|
foreach my $key (keys(%confhash)) { |
if ($context eq 'requestauthor') { |
$domdefaults{$key} = $confhash{$key}; |
$domdefaults{'requestauthor'} = \%confhash; |
|
} else { |
|
foreach my $key (keys(%confhash)) { |
|
$domdefaults{$key} = $confhash{$key}; |
|
} |
} |
} |
|
|
my %quotahash = ( |
my %quotahash = ( |
$action => { %confhash } |
$action => { %confhash } |
); |
); |
Line 5344 sub modify_quotas {
|
Line 5571 sub modify_quotas {
|
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
&Apache::lonnet::do_cache_new('domdefaults',$dom,\%domdefaults,$cachetime); |
|
|
$resulttext = &mt('Changes made:').'<ul>'; |
$resulttext = &mt('Changes made:').'<ul>'; |
unless ($context eq 'requestcourses') { |
unless (($context eq 'requestcourses') || |
|
($context eq 'requestauthor')) { |
if (ref($changes{'defaultquota'}) eq 'HASH') { |
if (ref($changes{'defaultquota'}) eq 'HASH') { |
$resulttext .= '<li>'.&mt('Portfolio default quotas').'<ul>'; |
$resulttext .= '<li>'.&mt('Portfolio default quotas').'<ul>'; |
foreach my $type (@{$types},'default') { |
foreach my $type (@{$types},'default') { |
Line 5361 sub modify_quotas {
|
Line 5589 sub modify_quotas {
|
} |
} |
my %newenv; |
my %newenv; |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
if (ref($changes{$item}) eq 'HASH') { |
my (%haschgs,%inconf); |
|
if ($context eq 'requestauthor') { |
|
%haschgs = %changes; |
|
%inconf = %confhash; |
|
} else { |
|
if (ref($changes{$item}) eq 'HASH') { |
|
%haschgs = %{$changes{$item}}; |
|
} |
|
if (ref($confhash{$item}) eq 'HASH') { |
|
%inconf = %{$confhash{$item}}; |
|
} |
|
} |
|
if (keys(%haschgs) > 0) { |
my $newacc = |
my $newacc = |
&Apache::lonnet::usertools_access($env{'user.name'}, |
&Apache::lonnet::usertools_access($env{'user.name'}, |
$env{'user.domain'}, |
$env{'user.domain'}, |
$item,'reload',$context); |
$item,'reload',$context); |
if ($context eq 'requestcourses') { |
if (($context eq 'requestcourses') || |
|
($context eq 'requestauthor')) { |
if ($env{'environment.canrequest.'.$item} ne $newacc) { |
if ($env{'environment.canrequest.'.$item} ne $newacc) { |
$newenv{'environment.canrequest.'.$item} = $newacc; |
$newenv{'environment.canrequest.'.$item} = $newacc; |
} |
} |
Line 5375 sub modify_quotas {
|
Line 5616 sub modify_quotas {
|
$newenv{'environment.availabletools.'.$item} = $newacc; |
$newenv{'environment.availabletools.'.$item} = $newacc; |
} |
} |
} |
} |
$resulttext .= '<li>'.$titles{$item}.'<ul>'; |
unless ($context eq 'requestauthor') { |
|
$resulttext .= '<li>'.$titles{$item}.'<ul>'; |
|
} |
foreach my $type (@{$types},'default','_LC_adv') { |
foreach my $type (@{$types},'default','_LC_adv') { |
if ($changes{$item}{$type}) { |
if ($haschgs{$type}) { |
my $typetitle = $usertypes->{$type}; |
my $typetitle = $usertypes->{$type}; |
if ($type eq 'default') { |
if ($type eq 'default') { |
$typetitle = $othertitle; |
$typetitle = $othertitle; |
} elsif ($type eq '_LC_adv') { |
} elsif ($type eq '_LC_adv') { |
$typetitle = 'LON-CAPA Advanced Users'; |
$typetitle = 'LON-CAPA Advanced Users'; |
} |
} |
if ($confhash{$item}{$type}) { |
if ($inconf{$type}) { |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
my $cond; |
my $cond; |
if ($confhash{$item}{$type} =~ /^autolimit=(\d*)$/) { |
if ($inconf{$type} =~ /^autolimit=(\d*)$/) { |
if ($1 eq '') { |
if ($1 eq '') { |
$cond = &mt('(Automatic processing of any request).'); |
$cond = &mt('(Automatic processing of any request).'); |
} else { |
} else { |
$cond = &mt('(Automatic processing of requests up to limit of [quant,_1,request] per user).',$1); |
$cond = &mt('(Automatic processing of requests up to limit of [quant,_1,request] per user).',$1); |
} |
} |
} else { |
} else { |
$cond = $conditions{$confhash{$item}{$type}}; |
$cond = $conditions{$inconf{$type}}; |
} |
} |
$resulttext .= '<li>'.&mt('Set to be available to [_1].',$typetitle).' '.$cond.'</li>'; |
$resulttext .= '<li>'.&mt('Set to be available to [_1].',$typetitle).' '.$cond.'</li>'; |
} else { |
} else { |
Line 5402 sub modify_quotas {
|
Line 5645 sub modify_quotas {
|
} |
} |
} else { |
} else { |
if ($type eq '_LC_adv') { |
if ($type eq '_LC_adv') { |
if ($confhash{$item}{$type} eq '0') { |
if ($inconf{$type} eq '0') { |
$resulttext .= '<li>'.&mt('Set to be unavailable to [_1]',$typetitle).'</li>'; |
$resulttext .= '<li>'.&mt('Set to be unavailable to [_1]',$typetitle).'</li>'; |
} else { |
} else { |
$resulttext .= '<li>'.&mt('No override set for [_1]',$typetitle).'</li>'; |
$resulttext .= '<li>'.&mt('No override set for [_1]',$typetitle).'</li>'; |
Line 5413 sub modify_quotas {
|
Line 5656 sub modify_quotas {
|
} |
} |
} |
} |
} |
} |
$resulttext .= '</ul></li>'; |
unless ($context eq 'requestauthor') { |
|
$resulttext .= '</ul></li>'; |
|
} |
} |
} |
} |
} |
if ($action eq 'requestcourses') { |
if (($action eq 'requestcourses') || ($action eq 'requestauthor')) { |
if (ref($changes{'notify'}) eq 'HASH') { |
if (ref($changes{'notify'}) eq 'HASH') { |
if ($changes{'notify'}{'approval'}) { |
if ($changes{'notify'}{'approval'}) { |
if (ref($confhash{'notify'}) eq 'HASH') { |
if (ref($confhash{'notify'}) eq 'HASH') { |
if ($confhash{'notify'}{'approval'}) { |
if ($confhash{'notify'}{'approval'}) { |
$resulttext .= '<li>'.&mt('Notification of requests requiring approval will be sent to: ').$confhash{'notify'}{'approval'}.'</li>'; |
$resulttext .= '<li>'.&mt('Notification of requests requiring approval will be sent to: ').$confhash{'notify'}{'approval'}.'</li>'; |
} else { |
} else { |
$resulttext .= '<li>'.&mt('No Domain Coordinators will receive notification of course requests requiring approval.').'</li>'; |
$resulttext .= '<li>'.&mt('No Domain Coordinators will receive notification of requests requiring approval.').'</li>'; |
} |
} |
} |
} |
} |
} |
Line 5436 sub modify_quotas {
|
Line 5681 sub modify_quotas {
|
} else { |
} else { |
if ($context eq 'requestcourses') { |
if ($context eq 'requestcourses') { |
$resulttext = &mt('No changes made to rights to request creation of courses.'); |
$resulttext = &mt('No changes made to rights to request creation of courses.'); |
|
} elsif ($context eq 'requestauthor') { |
|
$resulttext = &mt('No changes made to rights to request author space.'); |
} else { |
} else { |
$resulttext = &mt('No changes made to availability of personal information pages, blogs, portfolios or default quotas'); |
$resulttext = &mt('No changes made to availability of personal information pages, blogs, portfolios or default quotas'); |
} |
} |
Line 6130 sub modify_usercreation {
|
Line 6377 sub modify_usercreation {
|
} |
} |
push(@contexts,'statustocreate'); |
push(@contexts,'statustocreate'); |
} |
} |
|
&process_captcha('cancreate',\%changes,\%cancreate,\%curr_usercreation); |
if (ref($curr_usercreation{'cancreate'}) eq 'HASH') { |
if (ref($curr_usercreation{'cancreate'}) eq 'HASH') { |
foreach my $item (@contexts) { |
foreach my $item (@contexts) { |
if (($item eq 'selfcreate') || ($item eq 'statustocreate')) { |
if (($item eq 'selfcreate') || ($item eq 'statustocreate')) { |
Line 6312 sub modify_usercreation {
|
Line 6560 sub modify_usercreation {
|
my %lt = &usercreation_types(); |
my %lt = &usercreation_types(); |
foreach my $type (@{$changes{'cancreate'}}) { |
foreach my $type (@{$changes{'cancreate'}}) { |
my $chgtext; |
my $chgtext; |
unless ($type eq 'statustocreate') { |
unless (($type eq 'statustocreate') || ($type eq 'captcha') || ($type eq 'recaptchakeys')) { |
$chgtext = $lt{$type}.', '; |
$chgtext = $lt{$type}.', '; |
} |
} |
if ($type eq 'selfcreate') { |
if ($type eq 'selfcreate') { |
Line 6371 sub modify_usercreation {
|
Line 6619 sub modify_usercreation {
|
} |
} |
} |
} |
} |
} |
|
} elsif ($type eq 'captcha') { |
|
if ($cancreate{$type} eq 'notused') { |
|
$chgtext .= &mt('No CAPTCHA validation in use for self-creation screen.'); |
|
} else { |
|
my %captchas = &captcha_phrases(); |
|
if ($captchas{$cancreate{$type}}) { |
|
$chgtext .= &mt("Validation for self-creation screen set to $captchas{$cancreate{$type}}."); |
|
} else { |
|
$chgtext .= &mt('Validation for self-creation screen set to unknown type.'); |
|
} |
|
} |
|
} elsif ($type eq 'recaptchakeys') { |
|
my ($privkey,$pubkey); |
|
if (ref($cancreate{$type}) eq 'HASH') { |
|
$pubkey = $cancreate{$type}{'public'}; |
|
$privkey = $cancreate{$type}{'private'}; |
|
} |
|
$chgtext .= &mt('ReCAPTCHA keys changes').'<ul>'; |
|
if (!$pubkey) { |
|
$chgtext .= '<li>'.&mt('Public key deleted').'</li>'; |
|
} else { |
|
$chgtext .= '<li>'.&mt('Public key set to [_1]',$pubkey).'</li>'; |
|
} |
|
if (!$privkey) { |
|
$chgtext .= '<li>'.&mt('Private key deleted').'</li>'; |
|
} else { |
|
$chgtext .= '<li>'.&mt('Private key set to [_1]',$pubkey).'</li>'; |
|
} |
|
$chgtext .= '</ul>'; |
} else { |
} else { |
if ($cancreate{$type} eq 'none') { |
if ($cancreate{$type} eq 'none') { |
$chgtext .= &mt('creation of new users is not permitted, except by a Domain Coordinator.'); |
$chgtext .= &mt('creation of new users is not permitted, except by a Domain Coordinator.'); |
Line 6470 sub modify_usercreation {
|
Line 6747 sub modify_usercreation {
|
return $resulttext; |
return $resulttext; |
} |
} |
|
|
|
sub process_captcha { |
|
my ($container,$changes,$newsettings,$current) = @_; |
|
return unless ((ref($changes) eq 'HASH') && (ref($newsettings) eq 'HASH') || (ref($current) eq 'HASH')); |
|
$newsettings->{'captcha'} = $env{'form.'.$container.'_captcha'}; |
|
unless ($newsettings->{'captcha'} eq 'recaptcha' || $newsettings->{'captcha'} eq 'notused') { |
|
$newsettings->{'captcha'} = 'original'; |
|
} |
|
if ($current->{'captcha'} ne $newsettings->{'captcha'}) { |
|
if (ref($changes->{'cancreate'}) eq 'ARRAY') { |
|
push(@{$changes->{'cancreate'}},'captcha'); |
|
} elsif (!defined($changes->{'cancreate'})) { |
|
$changes->{'cancreate'} = ['captcha']; |
|
} |
|
} |
|
my ($newpub,$newpriv,$currpub,$currpriv); |
|
if ($newsettings->{'captcha'} eq 'recaptcha') { |
|
$newpub = $env{'form.'.$container.'_recaptchapub'}; |
|
$newpriv = $env{'form.'.$container.'_recaptchapriv'}; |
|
} |
|
$newsettings->{'recaptchakeys'} = { |
|
public => $newpub, |
|
private => $newpriv, |
|
}; |
|
if (ref($current->{'recaptchakeys'}) eq 'HASH') { |
|
$currpub = $current->{'recaptchakeys'}{'public'}; |
|
$currpriv = $current->{'recaptchakeys'}{'private'}; |
|
} |
|
if (($newpub ne $currpub) || ($newpriv ne $currpriv)) { |
|
if (ref($changes->{'cancreate'}) eq 'ARRAY') { |
|
push(@{$changes->{'cancreate'}},'recaptchakeys'); |
|
} elsif (!defined($changes->{'cancreate'})) { |
|
$changes->{'cancreate'} = ['recaptchakeys']; |
|
} |
|
} |
|
return; |
|
} |
|
|
sub modify_usermodification { |
sub modify_usermodification { |
my ($dom,%domconfig) = @_; |
my ($dom,%domconfig) = @_; |
my ($resulttext,%curr_usermodification,%changes); |
my ($resulttext,%curr_usermodification,%changes); |
Line 8235 END
|
Line 8549 END
|
|
|
} |
} |
|
|
|
sub recaptcha_js { |
|
my %lt = &captcha_phrases(); |
|
return <<"END"; |
|
|
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
|
|
function updateCaptcha(caller,context) { |
|
var privitem; |
|
var pubitem; |
|
var privtext; |
|
var pubtext; |
|
if (document.getElementById(context+'_recaptchapub')) { |
|
pubitem = document.getElementById(context+'_recaptchapub'); |
|
} else { |
|
return; |
|
} |
|
if (document.getElementById(context+'_recaptchapriv')) { |
|
privitem = document.getElementById(context+'_recaptchapriv'); |
|
} else { |
|
return; |
|
} |
|
if (document.getElementById(context+'_recaptchapubtxt')) { |
|
pubtext = document.getElementById(context+'_recaptchapubtxt'); |
|
} else { |
|
return; |
|
} |
|
if (document.getElementById(context+'_recaptchaprivtxt')) { |
|
privtext = document.getElementById(context+'_recaptchaprivtxt'); |
|
} else { |
|
return; |
|
} |
|
if (caller.checked) { |
|
if (caller.value == 'recaptcha') { |
|
pubitem.type = 'text'; |
|
privitem.type = 'text'; |
|
pubitem.size = '40'; |
|
privitem.size = '40'; |
|
pubtext.innerHTML = "$lt{'pub'}"; |
|
privtext.innerHTML = "$lt{'priv'}"; |
|
} else { |
|
pubitem.type = 'hidden'; |
|
privitem.type = 'hidden'; |
|
pubtext.innerHTML = ''; |
|
privtext.innerHTML = ''; |
|
} |
|
} |
|
return; |
|
} |
|
|
|
// ]]> |
|
</script> |
|
|
|
END |
|
|
|
} |
|
|
|
sub captcha_phrases { |
|
return &Apache::lonlocal::texthash ( |
|
priv => 'Private key', |
|
pub => 'Public key', |
|
original => 'original (CAPTCHA)', |
|
recaptcha => 'successor (ReCAPTCHA)', |
|
notused => 'unused', |
|
); |
|
} |
|
|
1; |
1; |