version 1.237, 2021/03/06 13:42:55
|
version 1.241, 2022/09/08 01:41:13
|
Line 31
|
Line 31
|
package Apache::lonpreferences; |
package Apache::lonpreferences; |
|
|
use strict; |
use strict; |
use LONCAPA; |
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File; |
use Apache::File; |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 40 use Apache::lonlocal;
|
Line 39 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use LONCAPA::lonauthcgi(); |
use LONCAPA::lonauthcgi(); |
use LONCAPA(); |
use LONCAPA(); |
|
use DateTime::TimeZone(); |
|
|
################################################################ |
################################################################ |
# Handler subroutines # |
# Handler subroutines # |
Line 638 sub icon_previews {
|
Line 638 sub icon_previews {
|
my %inlinetools = ( |
my %inlinetools = ( |
printout => "s&8&3&prt.png&$icon_text{'printout'}&printout[_1]&gopost('/adm/printout',currentURL)&".&mt('Prepare a printable document'), |
printout => "s&8&3&prt.png&$icon_text{'printout'}&printout[_1]&gopost('/adm/printout',currentURL)&".&mt('Prepare a printable document'), |
wishlist => "s&9&1&wishlist-link.png&$icon_text{'wishlist'}&wishlistlink[_2]&set_wishlistlink()&".&mt('Save a link for this resource in your personal Stored Links repository'), |
wishlist => "s&9&1&wishlist-link.png&$icon_text{'wishlist'}&wishlistlink[_2]&set_wishlistlink()&".&mt('Save a link for this resource in your personal Stored Links repository'), |
evaluate => "s&8&1&eval.png&$icon_text{'evaluate'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&".&mt(Provide my evaluation of this resource'), |
evaluate => "s&8&1&eval.png&$icon_text{'evaluate'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&".&mt('Provide my evaluation of this resource'), |
feedback => "s&8&2&fdbk.png&$icon_text{'feedback'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&".&mt('Provide feedback messages or contribute to the course discussion about this resource'), |
feedback => "s&8&2&fdbk.png&$icon_text{'feedback'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&".&mt('Provide feedback messages or contribute to the course discussion about this resource'), |
annotate => "s&9&3&anot.png&$icon_text{'annotate'}&tations[_1]&annotate()&".&mt('Make notes and annotations about this resource'), |
annotate => "s&9&3&anot.png&$icon_text{'annotate'}&tations[_1]&annotate()&".&mt('Make notes and annotations about this resource'), |
catalog => "s&6&3&catalog.png&$icon_text{'catalog'}&info[_1]&catalog_info()&".&mt('Show Metadata), |
catalog => "s&6&3&catalog.png&$icon_text{'catalog'}&info[_1]&catalog_info()&".&mt('Show Metadata'), |
); |
); |
my @toolsorder = qw(annotate wishlist evaluate feedback printout catalog); |
my @toolsorder = qw(annotate wishlist evaluate feedback printout catalog); |
return (\%inlinetools,\@toolsorder); |
return (\%inlinetools,\@toolsorder); |
Line 1265 sub passwordchanger {
|
Line 1265 sub passwordchanger {
|
# This function is a bit of a mess.... |
# This function is a bit of a mess.... |
# Passwords are encrypted using londes.js (DES encryption) |
# Passwords are encrypted using londes.js (DES encryption) |
$errormessage = ($errormessage || ''); |
$errormessage = ($errormessage || ''); |
my ($user,$domain,$currentpass); |
my ($user,$domain,$currentpass,$clientip); |
|
$clientip = &Apache::lonnet::get_requestor_ip($r); |
&Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/preferences?action=changepass', |
{ href => '/adm/preferences?action=changepass', |
text => 'Change Password'}); |
text => 'Change Password'}); |
Line 1280 sub passwordchanger {
|
Line 1281 sub passwordchanger {
|
$caller = 'preferences'; |
$caller = 'preferences'; |
} |
} |
my ($blocked,$blocktext) = |
my ($blocked,$blocktext) = |
&Apache::loncommon::blocking_status('passwd'); |
&Apache::loncommon::blocking_status('passwd',$clientip); |
if ($blocked) { |
if ($blocked) { |
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
return; |
return; |
Line 1302 sub passwordchanger {
|
Line 1303 sub passwordchanger {
|
$domain = $data{'domain'}; |
$domain = $data{'domain'}; |
$currentpass = $data{'temppasswd'}; |
$currentpass = $data{'temppasswd'}; |
my ($blocked,$blocktext) = |
my ($blocked,$blocktext) = |
&Apache::loncommon::blocking_status('passwd',$user,$domain); |
&Apache::loncommon::blocking_status('passwd',$clientip,$user,$domain); |
if ($blocked) { |
if ($blocked) { |
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
return; |
return; |
Line 1623 sub server_form {
|
Line 1624 sub server_form {
|
|
|
sub verify_and_change_password { |
sub verify_and_change_password { |
my ($r,$caller,$mailtoken,$timelimit,$extrafields,$ended) = @_; |
my ($r,$caller,$mailtoken,$timelimit,$extrafields,$ended) = @_; |
my ($user,$domain,$homeserver); |
my ($user,$domain,$homeserver,$clientip); |
if ($caller eq 'reset_by_email') { |
if ($caller eq 'reset_by_email') { |
$user = $env{'form.uname'}; |
$user = $env{'form.uname'}; |
$domain = $env{'form.udom'}; |
$domain = $env{'form.udom'}; |
Line 1646 sub verify_and_change_password {
|
Line 1647 sub verify_and_change_password {
|
$domain = $env{'user.domain'}; |
$domain = $env{'user.domain'}; |
$homeserver = $env{'user.home'}; |
$homeserver = $env{'user.home'}; |
} |
} |
|
$clientip = &Apache::lonnet::get_requestor_ip($r); |
my ($blocked,$blocktext) = |
my ($blocked,$blocktext) = |
&Apache::loncommon::blocking_status('passwd',$user,$domain); |
&Apache::loncommon::blocking_status('passwd',$clientip,$user,$domain); |
if ($blocked) { |
if ($blocked) { |
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
if ($caller eq 'reset_by_email') { |
if ($caller eq 'reset_by_email') { |
Line 2127 sub change_authoring_settings {
|
Line 2129 sub change_authoring_settings {
|
|
|
sub lockednameschanger { |
sub lockednameschanger { |
my $r = shift; |
my $r = shift; |
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{ href => '/adm/preferences?action=changelockednames', |
|
text => 'Automatic name changes'}); |
|
$r->print(Apache::loncommon::start_page('Automatic name changes')); |
|
$r->print(Apache::lonhtmlcommon::breadcrumbs('Allow/disallow name updates')); |
|
my %userenv = &Apache::lonnet::get('environment',['lockedname']); |
my %userenv = &Apache::lonnet::get('environment',['lockedname']); |
my $lockedname=''; |
my $lockedname=''; |
|
my $ended; |
if (&can_toggle_namelocking()) { |
if (&can_toggle_namelocking()) { |
if ($userenv{'lockedname'}) { |
if ($userenv{'lockedname'}) { |
$lockedname = ' checked="checked"'; |
$lockedname = ' checked="checked"'; |
Line 2151 sub lockednameschanger {
|
Line 2149 sub lockednameschanger {
|
} |
} |
} |
} |
if (keys(%updateable)) { |
if (keys(%updateable)) { |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{ href => '/adm/preferences?action=changelockednames', |
|
text => 'Automatic name changes'}); |
|
$r->print(Apache::loncommon::start_page('Automatic name changes')); |
|
$r->print(Apache::lonhtmlcommon::breadcrumbs('Allow/disallow name updates')); |
my %longnames = &Apache::lonlocal::texthash ( |
my %longnames = &Apache::lonlocal::texthash ( |
firstname => 'First Name', |
firstname => 'First Name', |
middlename => 'Middle Name', |
middlename => 'Middle Name', |
Line 2177 ENDSCREEN
|
Line 2180 ENDSCREEN
|
} else { |
} else { |
my $message = &mt('Based on your institutional affiliation no name information is automatically updated for your LON-CAPA account.'); |
my $message = &mt('Based on your institutional affiliation no name information is automatically updated for your LON-CAPA account.'); |
&print_main_menu($r,$message); |
&print_main_menu($r,$message); |
|
$ended = 1; |
} |
} |
} else { |
} else { |
my $message = &mt('You are not permitted to set a user preference for automatic name updates for your LON-CAPA account.'); |
my $message = &mt('You are not permitted to set a user preference for automatic name updates for your LON-CAPA account.'); |
&print_main_menu($r,$message); |
&print_main_menu($r,$message); |
|
$ended = 1; |
} |
} |
|
return $ended; |
} |
} |
|
|
sub verify_and_change_lockednames { |
sub verify_and_change_lockednames { |
Line 2212 sub verify_and_change_lockednames {
|
Line 2218 sub verify_and_change_lockednames {
|
&print_main_menu($r,$message); |
&print_main_menu($r,$message); |
} |
} |
|
|
|
sub timezonechanger { |
|
my $r = shift; |
|
my $uname = $env{'user.name'}; |
|
my $udom = $env{'user.domain'}; |
|
if (&Apache::lonnet::usertools_access($uname,$udom,'timezone')) { |
|
my $js = <<"ENDSCRIPT"; |
|
<script type-"text/javascript"> |
|
// <![CDATA[ |
|
function toggleTZdisplay(form) { |
|
var radioname = 'settimezone'; |
|
var divid = 'LC_timezone_selector'; |
|
var num = form.elements[radioname].length; |
|
if (num) { |
|
var setvis = ''; |
|
for (var i=0; i<num; i++) { |
|
if (form.elements[radioname][i].checked) { |
|
if (form.elements[radioname][i].value == '1') { |
|
if (document.getElementById(divid)) { |
|
document.getElementById(divid).style.display = 'inline-block'; |
|
} |
|
setvis = 1; |
|
} |
|
break; |
|
} |
|
} |
|
if (!setvis) { |
|
if (document.getElementById(divid)) { |
|
document.getElementById(divid).style.display = 'none'; |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
// ]]> |
|
</script> |
|
ENDSCRIPT |
|
my %loaditems = ( |
|
onload => 'javascript:toggleTZdisplay(document.prefs);', |
|
); |
|
my $args = { 'add_entries' => \%loaditems }; |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
|
{ href => '/adm/preferences?action=', |
|
text => 'Set Your Time Zone'}); |
|
$r->print(Apache::loncommon::start_page('Set Your Time Zone',$js,$args)); |
|
$r->print(Apache::lonhtmlcommon::breadcrumbs('Set Your Time Zone')); |
|
my %userenv = &Apache::lonnet::get('environment',['timezone']); |
|
my $timezone = $userenv{'timezone'}; |
|
my %lt = &Apache::lonlocal::texthash( |
|
lctz => 'Use Time Zone set by LON-CAPA', |
|
owntz => 'Use Time Zone set by you', |
|
save => 'Save', |
|
); |
|
my (%checked,$tzsty); |
|
if ($userenv{'timezone'} ne '') { |
|
$checked{'owntz'} = ' checked="checked"'; |
|
$tzsty = 'inline-block'; |
|
} else { |
|
$checked{'lctz'} = ' checked="checked"'; |
|
$tzsty = 'none'; |
|
} |
|
my $onclick = ' onclick="javascript:toggleTZdisplay(this.form);"'; |
|
my $selector = &Apache::loncommon::select_timezone('timezone',$timezone,undef,1); |
|
$r->print(<<"END"); |
|
<form name="prefs" action="/adm/preferences" method="post"> |
|
<input type="hidden" name="action" value="verify_and_change_timezone" /> |
|
<span class="LC_nobreak"> |
|
<label><input type="radio" name="settimezone" value="0"$checked{'lctz'}$onclick /> |
|
$lt{'lctz'}</label> |
|
<label><input type="radio" name="settimezone" value="1"$checked{'owntz'}$onclick /> |
|
$lt{'owntz'}</label><div style="display:$tzsty" id="LC_timezone_selector"> |
|
$selector |
|
</div></span><br /><br /> |
|
<input type="submit" value="$lt{'save'}" /> |
|
</form> |
|
END |
|
} |
|
return; |
|
} |
|
|
|
sub verify_and_change_timezone { |
|
my $r = shift; |
|
my $currtimezone = $env{'environment.timezone'}; |
|
my $newtimezone; |
|
if ($env{'form.settimezone'}) { |
|
$newtimezone = $env{'form.timezone'}; |
|
if (DateTime::TimeZone->is_valid_name($env{'form.timezone'})) { |
|
$newtimezone = $env{'form.timezone'}; |
|
} |
|
} |
|
my $message=''; |
|
if ($newtimezone) { |
|
if ($newtimezone eq $currtimezone) { |
|
$message = &mt('Time Zone settings unchanged'); |
|
} else { |
|
&Apache::lonnet::put('environment',{'timezone' => $newtimezone}); |
|
&Apache::lonnet::appenv({'environment.timezone' => $newtimezone}); |
|
$message=&Apache::lonhtmlcommon::confirm_success( |
|
&mt('Set [_1] to [_2]', |
|
'<i>'.&mt('Your Time Zone').'</i>', |
|
'<tt>"'.$newtimezone.'"</tt>.')). |
|
'<br />'; |
|
} |
|
} elsif ($currtimezone) { |
|
&Apache::lonnet::del('environment',['timezone']); |
|
&Apache::lonnet::delenv('environment.timezone'); |
|
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Time Zone now set by LON-CAPA')); |
|
} else { |
|
$message = &mt('Time Zone settings unchanged'); |
|
} |
|
$message=&Apache::loncommon::confirmwrapper($message); |
|
&print_main_menu($r,$message); |
|
return; |
|
} |
|
|
sub print_main_menu { |
sub print_main_menu { |
my ($r, $message) = @_; |
my ($r, $message) = @_; |
# Determine current authentication method |
# Determine current authentication method |
Line 2226 my %permissions;
|
Line 2346 my %permissions;
|
if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) { |
if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) { |
$permissions{'aboutme'} = 'F'; |
$permissions{'aboutme'} = 'F'; |
} |
} |
|
if (&Apache::lonnet::usertools_access($user,$domain,'timezone')) { |
|
$permissions{'timezone'} = 'F'; |
|
} |
my @menu= |
my @menu= |
({ categorytitle=>'Personal Data', |
({ categorytitle=>'Personal Data', |
items =>[ |
items =>[ |
Line 2268 my @menu=
|
Line 2391 my @menu=
|
icon => 'dismath.png', |
icon => 'dismath.png', |
linktitle => 'Change how math is displayed.' |
linktitle => 'Change how math is displayed.' |
}, |
}, |
|
{ |
|
linktext => 'Time Zone', |
|
url => '/adm/preferences?action=changetimezone', |
|
permission => $permissions{'timezone'}, |
|
#help => '', |
|
icon => 'timezone.png', |
|
linktitle => 'Set your time zone.', |
|
} |
] |
] |
}, |
}, |
{ categorytitle=>'Page Display Settings', |
{ categorytitle=>'Page Display Settings', |
Line 2522 sub handler {
|
Line 2653 sub handler {
|
&print_main_menu($r); |
&print_main_menu($r); |
$ended = 1; |
$ended = 1; |
} elsif ($env{'form.action'} eq 'changelockednames') { |
} elsif ($env{'form.action'} eq 'changelockednames') { |
&lockednameschanger($r); |
$ended = &lockednameschanger($r); |
} elsif ($env{'form.action'} eq 'verify_and_change_lockednames') { |
} elsif ($env{'form.action'} eq 'verify_and_change_lockednames') { |
&verify_and_change_lockednames($r); |
&verify_and_change_lockednames($r); |
$ended = 1; |
$ended = 1; |
|
} elsif ($env{'form.action'} eq 'changetimezone') { |
|
&timezonechanger($r); |
|
} elsif ($env{'form.action'} eq 'verify_and_change_timezone') { |
|
&verify_and_change_timezone($r); |
} |
} |
|
|
# Properly end the HTML page of all preference pages |
# Properly end the HTML page of all preference pages |