version 1.234, 2019/05/06 18:19:16
|
version 1.248, 2025/03/07 02:13:40
|
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 103 sub languagechanger {
|
Line 103 sub languagechanger {
|
{ href => '/adm/preferences?action=changelanguages', |
{ href => '/adm/preferences?action=changelanguages', |
text => 'Change Language'}); |
text => 'Change Language'}); |
$r->print(Apache::loncommon::start_page('Content Display Settings')); |
$r->print(Apache::loncommon::start_page('Content Display Settings')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Language')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Language'). |
|
'<div class="LC_landmark" role="main">'); |
my %userenv = &Apache::lonnet::get('environment',['languages']); |
my %userenv = &Apache::lonnet::get('environment',['languages']); |
my $language=$userenv{'languages'}; |
my $language=$userenv{'languages'}; |
|
|
$r->print( |
$r->print( |
'<form name="prefs" action="/adm/preferences" method="post">'."\n". |
'<form name="prefs" action="/adm/preferences" method="post">'."\n". |
'<input type="hidden" name="action" value="verify_and_change_languages" />'. |
'<input type="hidden" name="action" value="verify_and_change_languages" />'. |
'<br /><span class="LC_nobreak">'.&mt('Preferred language').': '. |
'<br /><span class="LC_nobreak"><label>'.&mt('Preferred language').': '. |
&Apache::loncommon::select_language('language',$language,1).'</span>'."\n". |
&Apache::loncommon::select_language('language',$language,1).'</label></span>'."\n". |
'<br /><input type="submit" value="'.&mt('Save').'" /></form>' |
'<br /><input type="submit" value="'.&mt('Save').'" /></form></div>' |
); |
); |
} |
} |
|
|
Line 192 sub texenginechanger {
|
Line 193 sub texenginechanger {
|
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_texengine" /> |
<input type="hidden" name="action" value="verify_and_change_texengine" /> |
<p> |
<p> |
$lt{'preftxt'}: $selectionbox |
<label>$lt{'preftxt'}: $selectionbox |
<br /> |
</label><br /> |
<input type="submit" value="$lt{'change'}" /> |
<input type="submit" value="$lt{'change'}" /> |
</p> |
</p> |
</form> |
</form> |
Line 275 sub rolesprefchanger {
|
Line 276 sub rolesprefchanger {
|
{ href => '/adm/preferences?action=changerolespref', |
{ href => '/adm/preferences?action=changerolespref', |
text => $brtext}); |
text => $brtext}); |
$r->print(Apache::loncommon::start_page('Content Display Settings')); |
$r->print(Apache::loncommon::start_page('Content Display Settings')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs($brtitle)); |
$r->print(Apache::lonhtmlcommon::breadcrumbs($brtitle). |
|
'<div class="LC_landmark" role="main">'); |
my $hotlist_flag=$userenv{'recentroles'}; |
my $hotlist_flag=$userenv{'recentroles'}; |
my $hotlist_n=$userenv{'recentrolesn'}; |
my $hotlist_n=$userenv{'recentrolesn'}; |
my ($checkedon,$checkedoff); |
my ($checkedon,$checkedoff); |
Line 294 sub rolesprefchanger {
|
Line 296 sub rolesprefchanger {
|
} |
} |
|
|
# Get list of recent roles and display with checkbox in front |
# Get list of recent roles and display with checkbox in front |
my $roles_check_list = ''; |
my $roles_check_list; |
my $role_key=''; |
|
if ($env{'environment.recentroles'}) { |
if ($env{'environment.recentroles'}) { |
my %recent_roles = |
my %recent_roles = |
&Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'}); |
&Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'}); |
my %frozen_roles = |
my %frozen_roles = |
&Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'}); |
&Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'}); |
|
|
my %role_text = &rolespref_get_role_text([keys(%recent_roles)]); |
my %role_text = &rolespref_get_role_text([keys(%recent_roles)]); |
my @sorted_roles = sort {$role_text{$a} cmp $role_text{$b}} keys(%role_text); |
my @sorted_roles = sort {$role_text{$a} cmp $role_text{$b}} keys(%role_text); |
|
|
$roles_check_list .= |
if (@sorted_roles) { |
&Apache::loncommon::start_data_table(). |
$roles_check_list = |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table(). |
"<th>".&mt('Freeze '.$role)."</th>". |
&Apache::loncommon::start_data_table_header_row(). |
"<th>".&mt($role)."</th>". |
"<th>".&mt('Freeze '.$role)."</th>". |
&Apache::loncommon::end_data_table_header_row(). |
"<th>".&mt($role)."</th>". |
"\n"; |
&Apache::loncommon::end_data_table_header_row()."\n"; |
my $count; |
my $count = 0; |
foreach $role_key (@sorted_roles) { |
foreach my $role_key (@sorted_roles) { |
my $checked = ""; |
my $checked = ""; |
my $value = $recent_roles{$role_key}; |
my $value = $recent_roles{$role_key}; |
if ($frozen_roles{$role_key}) { |
if ($frozen_roles{$role_key}) { |
$checked = ' checked="checked"'; |
$checked = ' checked="checked"'; |
} |
} |
$count++; |
$count++; |
$roles_check_list .= |
$roles_check_list .= |
&Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::start_data_table_row(). |
'<td class="LC_table_cell_checkbox">'. |
'<td class="LC_table_cell_checkbox">'. |
"<input type=\"checkbox\"$checked name=\"freezeroles\"". |
"<input type=\"checkbox\"$checked name=\"freezeroles\"". |
" id=\"freezeroles$count\" value=\"$role_key\" /></td>". |
" id=\"freezeroles$count\" value=\"$role_key\" /></td>". |
"<td><label for=\"freezeroles$count\">". |
"<td><label for=\"freezeroles$count\">". |
"$role_text{$role_key}</label></td>". |
"$role_text{$role_key}</label></td>". |
&Apache::loncommon::end_data_table_row(). "\n"; |
&Apache::loncommon::end_data_table_row(). "\n"; |
|
} |
|
$roles_check_list .= &Apache::loncommon::end_data_table."\n"; |
} |
} |
$roles_check_list .= "</table>\n"; |
|
} |
} |
|
|
my $actionurl = '/adm/preferences'; |
my $actionurl = '/adm/preferences'; |
if ($env{'form.returnurl'} eq '/adm/roles') { |
if ($env{'form.returnurl'} eq '/adm/roles') { |
$actionurl = '/adm/roles'; |
$actionurl = '/adm/roles'; |
} |
} |
$r->print('<h3>'.&mt('Recent Roles Hotlist').'</h3>'); |
$r->print('<h2 class="LC_heading_2">'.&mt('Recent Roles Hotlist').'</h2>'); |
unless ($checkedon) { |
unless ($checkedon) { |
$r->print(&mt('LON-CAPA users with several '.$lc_role.'s may wish to enable the Hotlist.').'<br />'); |
$r->print(&mt('LON-CAPA users with several '.$lc_role.'s may wish to enable the Hotlist.').'<br />'); |
} |
} |
Line 344 sub rolesprefchanger {
|
Line 346 sub rolesprefchanger {
|
<form name="prefs" action="'.$actionurl.'" method="post"> |
<form name="prefs" action="'.$actionurl.'" method="post"> |
<input type="hidden" name="action" value="verify_and_change_rolespref" /> |
<input type="hidden" name="action" value="verify_and_change_rolespref" /> |
<input type="hidden" name="returnurl" value="'.$env{'form.returnurl'}.'" /> |
<input type="hidden" name="returnurl" value="'.$env{'form.returnurl'}.'" /> |
<div class="LC_left_float"><h4>'.&mt('Hotlist options').'</h4> |
<div class="LC_left_float"><h3 class="LC_heading_3">'.&mt('Hotlist options').'</h3> |
<p>'. |
<p>'. |
&mt('When enabled, the Hotlist keeps track of the last N '.$lc_role.'s visited.').'<br />'. |
&mt('When enabled, the Hotlist keeps track of the last N '.$lc_role.'s visited.').'<br />'. |
&mt('Those N '.$lc_role.'s are then shown in a table at the top of the '.$lc_role.'s page.').'</p>'. |
&mt('Those N '.$lc_role.'s are then shown in a table at the top of the '.$lc_role.'s page.').'</p>'. |
Line 363 $options.'
|
Line 365 $options.'
|
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::end_pick_box().' |
&Apache::lonhtmlcommon::end_pick_box().' |
</div>'); |
</div>'); |
if ($roles_check_list) { |
if ($roles_check_list) { |
$r->print('<div class="LC_left_float"> |
$r->print('<div class="LC_left_float"> |
<h4>'.&mt('Freeze Roles').'</h4> |
<h3 class="LC_heading_3">'.&mt('Freeze Roles').'</h3> |
<p>'.&mt('The table below can be used to [_1]freeze[_2] '.$lc_role.'s in the Hotlist.','<q>','</q>').'<br />'. |
<p>'.&mt('The table below can be used to [_1]freeze[_2] '.$lc_role.'s in the Hotlist.','<q>','</q>').'<br />'. |
&mt('Those '.$lc_role.'s marked frozen will not be removed from the list, even if not recently used.').' |
&mt('Those '.$lc_role.'s marked frozen will not be removed from the list, even if not recently used.').' |
</p> |
</p> |
Line 378 $options.'
|
Line 380 $options.'
|
$r->print(' |
$r->print(' |
<br clear="all" /> |
<br clear="all" /> |
<input type="submit" value="'.&mt('Save').'" /> |
<input type="submit" value="'.&mt('Save').'" /> |
</form>'); |
</form></div>'); |
} |
} |
|
|
sub rolespref_get_role_text { |
sub rolespref_get_role_text { |
Line 491 sub screennamechanger {
|
Line 493 sub screennamechanger {
|
text => 'Change Screen Name'}); |
text => 'Change Screen Name'}); |
$r->print(Apache::loncommon::start_page('Personal Data')); |
$r->print(Apache::loncommon::start_page('Personal Data')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Screen Name')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Screen Name')); |
$r->print('<p>' |
$r->print('<div class="LC_landmark" role="main">'); |
.&mt('Change the name that is displayed in your posts.') |
my $caption = &mt('Name displayed in posts you make').':'; |
.'</p>' |
|
); |
|
$r->print('<form name="prefs" action="/adm/preferences" method="post">' |
$r->print('<form name="prefs" action="/adm/preferences" method="post">' |
.'<input type="hidden" name="action" value="verify_and_change_screenname" />' |
.'<p><input type="hidden" name="action" value="verify_and_change_screenname" />' |
.&Apache::lonhtmlcommon::start_pick_box() |
.&Apache::lonhtmlcommon::start_pick_box(undef,undef,$caption,'LC_caption_prefs') |
.&Apache::lonhtmlcommon::row_title(&mt('Screenname').' '.&mt('(shown if you post anonymously)')) |
.&Apache::lonhtmlcommon::row_title('<label for="screenname">'.&mt('Screenname').'</label> '.&mt('(shown if you post anonymously)')) |
.'<input type="text" size="20" value="'.$screenname.'" name="screenname" />' |
.'<input type="text" size="20" value="'.$screenname.'" name="screenname" id="screenname" />' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_title(&mt('Nickname').' '.&mt('(shown if you post non-anonymously)')) |
.&Apache::lonhtmlcommon::row_title('<label for="nickname">'.&mt('Nickname').'</label> '.&mt('(shown if you post non-anonymously)')) |
.'<input type="text" size="20" value="'.$nickname.'" name="nickname" />' |
.'<input type="text" size="20" value="'.$nickname.'" name="nickname" id="nickname" />' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_title() |
.&Apache::lonhtmlcommon::row_title('<span class="LC_visually_hidden">'.&mt('Submit').':</span>','','','',1) |
.'<input type="submit" value="'.&mt('Save').'" />' |
.'<input type="submit" value="'.&mt('Save').'" />' |
.&Apache::lonhtmlcommon::row_closure(1) |
.&Apache::lonhtmlcommon::row_closure(1) |
.&Apache::lonhtmlcommon::end_pick_box() |
.&Apache::lonhtmlcommon::end_pick_box() |
.'</form>' |
.'</p></form></div>' |
); |
); |
} |
} |
|
|
Line 556 sub iconchanger {
|
Line 556 sub iconchanger {
|
{ href => '/adm/preferences?action=changeicons', |
{ href => '/adm/preferences?action=changeicons', |
text => 'Change Menu Display'}); |
text => 'Change Menu Display'}); |
$r->print(Apache::loncommon::start_page('Page Display Settings')); |
$r->print(Apache::loncommon::start_page('Page Display Settings')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Menu Display')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Menu Display'). |
|
'<div class="LC_landmark" role="main">'); |
|
|
my $user = $env{'user.name'}; |
my $user = $env{'user.name'}; |
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
Line 591 sub iconchanger {
|
Line 592 sub iconchanger {
|
'<ul>'. |
'<ul>'. |
$iconic_preview. |
$iconic_preview. |
'</ul></li></ul>'; |
'</ul></li></ul>'; |
|
my $title = &mt('Use of icons and text'); |
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
$classic |
$classic |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_icons" /> |
<input type="hidden" name="action" value="verify_and_change_icons" /> |
|
<fieldset style="display:inline;"><legend>$title</legend> |
<label><input type="radio" name="menumode" value="iconic" $iconic /> $lt{'iconic'}</label>$iconic_preview<br /> |
<label><input type="radio" name="menumode" value="iconic" $iconic /> $lt{'iconic'}</label>$iconic_preview<br /> |
<label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $lt{'iconsonly'}</label>$iconsonly_preview<br /> |
<label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $lt{'iconsonly'}</label>$iconsonly_preview<br /> |
|
</fieldset> |
|
<p> |
<input type="submit" value="$change" /> |
<input type="submit" value="$change" /> |
</form> |
</p> |
|
</form></div> |
ENDSCREEN |
ENDSCREEN |
} |
} |
|
|
Line 627 sub icon_options {
|
Line 633 sub icon_options {
|
} |
} |
|
|
sub icon_previews { |
sub icon_previews { |
my %icon_text = ( |
my %icon_text = &Apache::lonlocal::texthash ( |
annotate => 'Notes', |
annotate => 'Notes', |
wishlist => 'Stored Links', |
wishlist => 'Stored Links', |
catalog => 'Info', |
catalog => 'Info', |
Line 636 sub icon_previews {
|
Line 642 sub icon_previews {
|
printout => 'Print', |
printout => 'Print', |
); |
); |
my %inlinetools = ( |
my %inlinetools = ( |
printout => "s&8&3&prt.png&$icon_text{'printout'}&printout[_1]&gopost('/adm/printout',currentURL)&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()&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)&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)&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()&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()&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 657 sub clickerchanger {
|
Line 663 sub clickerchanger {
|
{ href => '/adm/preferences?action=changeclicker', |
{ href => '/adm/preferences?action=changeclicker', |
text => 'Register Clicker'}); |
text => 'Register Clicker'}); |
$r->print(Apache::loncommon::start_page('Other')); |
$r->print(Apache::loncommon::start_page('Other')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Register Clicker')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Register Clicker'). |
|
'<div class="LC_landmark" role="main">'); |
my $user = $env{'user.name'}; |
my $user = $env{'user.name'}; |
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
my %userenv = &Apache::lonnet::get |
my %userenv = &Apache::lonnet::get |
Line 668 sub clickerchanger {
|
Line 675 sub clickerchanger {
|
my $change=&mt('Save'); |
my $change=&mt('Save'); |
my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('Locating your clicker ID')); |
my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('Locating your clicker ID')); |
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
|
<br /> |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_clicker" /> |
<input type="hidden" name="action" value="verify_and_change_clicker" /> |
<label>$helplink<br /><br />$text<br /> |
<label>$helplink<br /><br />$text<br /> |
<textarea name="clickers" rows="5" cols="20">$clickers</textarea> |
<textarea name="clickers" rows="5" cols="20">$clickers</textarea> |
</label> |
</label> |
<br /> |
<p> |
<input type="submit" value="$change" /> |
<input type="submit" value="$change" /> |
|
</p> |
</form> |
</form> |
|
</div> |
ENDSCREEN |
ENDSCREEN |
} |
} |
|
|
Line 848 sub msgforwardchanger {
|
Line 858 sub msgforwardchanger {
|
notv => 'is not a valid e-mail address', |
notv => 'is not a valid e-mail address', |
toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", |
toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", |
prme => 'Back', |
prme => 'Back', |
|
acti => 'Action', |
|
type => 'Types of message for which notification is sent', |
|
nota => 'Notification address', |
|
exce => 'Excerpt retains HTML tags in message', |
|
modi => 'Modify', |
|
dele => 'Delete', |
|
addn => 'Add new address', |
|
yes => 'Yes', |
|
no => 'No', |
); |
); |
$lt{'foad_exmpl'} = &mt('e.g. [_1]userA:domain1,userB:domain2,...[_2]','<tt>','</tt>'); |
$lt{'foad_exmpl'} = &mt('e.g. [_1]userA:domain1,userB:domain2,...[_2]','<tt>','</tt>'); |
$lt{'mnot_exmpl'} = &mt('e.g. [_1]joe@doe.com[_2]','<tt>','</tt>'); |
$lt{'mnot_exmpl'} = &mt('e.g. [_1]joe@doe.com[_2]','<tt>','</tt>'); |
Apache::lonhtmlcommon::add_breadcrumb( |
Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/preferences?action=changemsgforward', |
{ href => '/adm/preferences?action=changemsgforward', |
text => 'Messages & Notifications'}); |
text => 'Messages & Notifications'}); |
$r->print(Apache::loncommon::start_page('Messages & Notifications')); |
$r->print(Apache::loncommon::start_page('Messages & Notifications')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Messages & Notifications')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Messages & Notifications'). |
|
'<div class="LC_landmark" role="main">'); |
my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding"); |
my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding"); |
my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification"); |
my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification"); |
my $criticalMessageHelp = &Apache::loncommon::help_open_topic("Course_Critical_Message"); |
my $criticalMessageHelp = &Apache::loncommon::help_open_topic("Course_Critical_Message"); |
Line 864 sub msgforwardchanger {
|
Line 884 sub msgforwardchanger {
|
my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email(); |
my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email(); |
my $jscript = qq| |
my $jscript = qq| |
<script type="text/javascript" language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |
|
// <![CDATA[ |
function validate() { |
function validate() { |
for (var i=0; i<document.prefs.numnotify.value; i++) { |
for (var i=0; i<document.prefs.numnotify.value; i++) { |
var checkaddress = 0; |
var checkaddress = 0; |
Line 916 function modify_address(adnum) {
|
Line 937 function modify_address(adnum) {
|
} |
} |
|
|
$validatescript |
$validatescript |
|
|
|
// ]]> |
</script> |
</script> |
|; |
|; |
$r->print(<<ENDMSG); |
$r->print(<<ENDMSG); |
$jscript |
$jscript |
$message |
$message |
<h3>$lt{'fwdm'} $forwardingHelp</h3> |
<h2 class="LC_heading_2">$lt{'fwdm'} $forwardingHelp</h2> |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_msgforward" /> |
<input type="hidden" name="action" value="verify_and_change_msgforward" /> |
$lt{'foad'} ($lt{'foad_exmpl'}): |
<label for="msgforward">$lt{'foad'}</label> ($lt{'foad_exmpl'}): |
<input type="text" size="40" value="$msgforward" name="msgforward" /> |
<input type="text" size="40" value="$msgforward" name="msgforward" id="msgforward" /> |
<br /><br /> |
<p /> |
<h3>$lt{'noti'} $notificationHelp</h3> |
<h2 class="LC_heading_2">$lt{'noti'} $notificationHelp</h2> |
$lt{'mnot'} ($lt{'mnot_exmpl'}):<br /> |
<span id="LC_email_notify">$lt{'mnot'}</span> ($lt{'mnot_exmpl'}):<br /> |
ENDMSG |
ENDMSG |
my @sortforwards = sort (keys(%allnot)); |
my @sortnotify = sort (keys(%allnot)); |
my $output = &Apache::loncommon::start_data_table(). |
my $output = &Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
'<th> </th>'. |
'<th>#</th>'. |
'<th>'.&mt('Action').'</th>'. |
'<th>'.$lt{'acti'}.'</th>'. |
'<th>'.&mt('Notification address').'</th><th>'. |
'<th>'.$lt{'nota'}.'</th><th>'. |
&mt('Types of message for which notification is sent'). |
$lt{'type'}. |
$criticalMessageHelp.'</th><th>'. |
$criticalMessageHelp.'</th><th>'. |
&mt('Excerpt retains HTML tags in message').'</th>'. |
$lt{'exce'}.'</th>'. |
&Apache::loncommon::end_data_table_header_row(); |
&Apache::loncommon::end_data_table_header_row(); |
my $num = 0; |
my $num = 0; |
my $counter = 1; |
my $counter = 1; |
foreach my $item (@sortforwards) { |
foreach my $item (@sortnotify) { |
$output .= &Apache::loncommon::start_data_table_row(). |
$output .= &Apache::loncommon::start_data_table_row('LC_prefs_row'). |
'<td><b>'.$counter.'</b></td>'. |
'<td><b>'.$counter.'</b></td>'. |
'<td><span class="LC_nobreak"><label>'. |
'<td><span class="LC_nobreak"><label>'. |
'<input type="checkbox" name="modify_notify_'. |
'<input type="checkbox" name="modify_notify_'. |
$num.'" onclick="javscript:modify_address('."'$num'".')" />'. |
$num.'" onclick="javscript:modify_address('."'$num'".')" />'. |
&mt('Modify').'</label></span> '. |
$lt{'modi'}.'</label></span> '.(' ' x2). |
'<span class="LC_nobreak"><label>'. |
'<span class="LC_nobreak"><label>'. |
'<input type="checkbox" name="del_notify_'.$num. |
'<input type="checkbox" name="del_notify_'.$num. |
'" onclick="javscript:delete_address('."'$num'".')" />'. |
'" onclick="javscript:delete_address('."'$num'".')" />'. |
&mt('Delete').'</label></span></td>'. |
$lt{'dele'}.'</label></span></td>'. |
'<td><input type="text" value="'.$item.'" name="address_'. |
'<td><span style="padding: 10px;"><input type="text" value="'.$item.'" name="address_'. |
$num.'" onfocus="javascript:address_changes('."'$num'". |
$num.'" onfocus="javascript:address_changes('."'$num'". |
')" /></td><td>'; |
')" aria-labelledby="LC_email_notify" /></span></td><td>'; |
my %chk; |
my %chk; |
if (defined($allnot{$item}{'crit'})) { |
if (defined($allnot{$item}{'crit'})) { |
if (defined($allnot{$item}{'reg'})) { |
if (defined($allnot{$item}{'reg'})) { |
Line 966 ENDMSG
|
Line 989 ENDMSG
|
} else { |
} else { |
$chk{'reg'} = 'checked="checked" '; |
$chk{'reg'} = 'checked="checked" '; |
} |
} |
|
$output .= '<fieldset class="LC_landmark" style="display:inline"><legend class="LC_visually_hidden">'.$lt{'type'}.'</legend>'; |
foreach my $type ('all','crit','reg') { |
foreach my $type ('all','crit','reg') { |
$output .= '<span class="LC_nobreak"><label>'. |
$output .= '<span class="LC_nobreak"><label>'. |
'<input type="radio" name="notify_type_'.$num. |
'<input type="radio" name="notify_type_'.$num. |
'" value="'.$type.'" '.$chk{$type}. |
'" value="'.$type.'" '.$chk{$type}. |
' onchange="javascript:address_changes('."'$num'".')" />'. |
' onchange="javascript:address_changes('."'$num'".')" />'. |
$lt{$type}.'</label></span>'.(' ' x4); |
$lt{$type}.'</label></span> '.(' ' x2); |
} |
} |
|
$output .= '</fieldset>'; |
my $htmlon = ''; |
my $htmlon = ''; |
my $htmloff = ''; |
my $htmloff = ''; |
if (grep/^\Q$item\E/,@allow_html) { |
if (grep/^\Q$item\E/,@allow_html) { |
Line 980 ENDMSG
|
Line 1005 ENDMSG
|
} else { |
} else { |
$htmloff = 'checked="checked" '; |
$htmloff = 'checked="checked" '; |
} |
} |
$output .= '</td><td><label><input type="radio" name="html_'.$num. |
$output .= '</td><td>'. |
|
'<fieldset class="LC_landmark" style="display:inline"><legend class="LC_visually_hidden">'.$lt{'exce'}.'</legend>'. |
|
'<label><input type="radio" name="html_'.$num. |
'" value="1" '.$htmlon. |
'" value="1" '.$htmlon. |
' onchange="javascript:address_changes('."'$num'".')" />'. |
' onchange="javascript:address_changes('."'$num'".')" />'. |
&mt('Yes').'</label>'.(' ' x3). |
$lt{'yes'}.'</label> '.(' ' x2). |
'<label><input type="radio" name="html_'.$num.'" value="0" '. |
'<label><input type="radio" name="html_'.$num.'" value="0" '. |
$htmloff. ' onchange="javascript:address_changes('."'$num'". |
$htmloff. ' onchange="javascript:address_changes('."'$num'". |
')" />'. |
')" />'. |
&mt('No').'</label></td>'. |
$lt{'no'}.'</label></fieldset></td>'. |
&Apache::loncommon::end_data_table_row(); |
&Apache::loncommon::end_data_table_row(); |
$num ++; |
$num ++; |
$counter ++; |
$counter ++; |
Line 997 ENDMSG
|
Line 1024 ENDMSG
|
crit => '', |
crit => '', |
reg => '', |
reg => '', |
); |
); |
$output .= &Apache::loncommon::start_data_table_row(). |
$output .= &Apache::loncommon::start_data_table_row('LC_prefs_row'). |
'<td><b>'.$counter.'</b></td>'. |
'<td><b>'.$counter.'</b></td>'. |
'<td><span class="LC_nobreak"><label>'. |
'<td><span class="LC_nobreak"><label>'. |
'<input type="checkbox" name="add_notify_'.$num. |
'<input type="checkbox" name="add_notify_'.$num. |
'" value="1" />'.&mt('Add new address').'</label></span></td>'. |
'" value="1" />'.$lt{'addn'}.'</label></span></td>'. |
'<td><input type="text" value="" name="address_'.$num. |
'<td><span style="padding: 10px;"><input type="text" value="" name="address_'.$num. |
'" onfocus="javascript:new_address('."'$num'".')" /></td><td>'; |
'" onfocus="javascript:new_address('."'$num'".')" aria-labelledby="LC_email_notify" /></span></td><td>'; |
|
$output .= '<fieldset class="LC_landmark" style="display:inline"><legend class="LC_visually_hidden">'.$lt{'type'}.'</legend>'; |
foreach my $type ('all','crit','reg') { |
foreach my $type ('all','crit','reg') { |
$output .= '<span class="LC_nobreak"><label>'. |
$output .= '<span class="LC_nobreak"><label>'. |
'<input type="radio" name="notify_type_'.$num. |
'<input type="radio" name="notify_type_'.$num. |
'" value="'.$type.'" '.$defchk{$type}.'/>'. |
'" value="'.$type.'" '.$defchk{$type}.'/>'. |
$lt{$type}.'</label></span>'.(' ' x4); |
$lt{$type}.'</label></span> '.(' ' x2); |
} |
} |
$output .= '</td><td><label><input type="radio" name="html_'.$num. |
$output .= '</fieldset></td><td>'. |
'" value="1" />'.&mt('Yes').'</label>'.(' ' x3). |
'<fieldset class="LC_landmark" style="display:inline"><legend class="LC_visually_hidden">'.$lt{'exce'}.'</legend>'. |
|
'<label><input type="radio" name="html_'.$num. |
|
'" value="1" />'.$lt{'yes'}.'</label> '.(' ' x2). |
'<label><input type="radio" name="html_'.$num.'" value="0" '. |
'<label><input type="radio" name="html_'.$num.'" value="0" '. |
' checked="checked" />'. |
' checked="checked" />'. |
&mt('No').'</label></td>'. |
$lt{'no'}.'</label></fieldset></td>'. |
&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table(); |
&Apache::loncommon::end_data_table(); |
$num ++; |
$num ++; |
Line 1024 ENDMSG
|
Line 1054 ENDMSG
|
<input type="hidden" name="numnotify" value="$num" /> |
<input type="hidden" name="numnotify" value="$num" /> |
<input type="button" value="$lt{'prme'}" onclick="location.href='/adm/preferences'" /> |
<input type="button" value="$lt{'prme'}" onclick="location.href='/adm/preferences'" /> |
<input type="button" value="$lt{'chg'}" onclick="javascript:validate()" /> |
<input type="button" value="$lt{'chg'}" onclick="javascript:validate()" /> |
</form> |
</form></div> |
|); |
|); |
|
|
} |
} |
Line 1158 sub colorschanger {
|
Line 1188 sub colorschanger {
|
{ href => '/adm/preferences?action=changecolors', |
{ href => '/adm/preferences?action=changecolors', |
text => 'Change Colors'}); |
text => 'Change Colors'}); |
$r->print(Apache::loncommon::start_page('Page Display Settings')); |
$r->print(Apache::loncommon::start_page('Page Display Settings')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Colors')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Colors'). |
|
'<div class="LC_landmark" role="main">'); |
# figure out colors |
# figure out colors |
my $function=&Apache::loncommon::get_users_function(); |
my $function=&Apache::loncommon::get_users_function(); |
my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
Line 1172 sub colorschanger {
|
Line 1203 sub colorschanger {
|
'vlink' => 'Visited Link Color', |
'vlink' => 'Visited Link Color', |
'alink' => 'Active Link Color', |
'alink' => 'Active Link Color', |
); |
); |
my $start_data_table = &Apache::loncommon::start_data_table(); |
my $start_data_table = &Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::data_table_caption(&mt('Colors for LON-CAPA pages')). |
|
&Apache::loncommon::start_data_table_header_row(). |
|
'<th>'.&mt('Page Element').'</th><th>'.&mt('Color').'</th>'. |
|
&Apache::loncommon::end_data_table_header_row(); |
my $chtable=''; |
my $chtable=''; |
foreach my $item (sort(keys(%colortypes))) { |
foreach my $item (sort(keys(%colortypes))) { |
my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain); |
my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain); |
$chtable.=&Apache::loncommon::start_data_table_row(). |
$chtable.=&Apache::loncommon::start_data_table_row(). |
'<td>'.$colortypes{$item}.'<td><input name="'.$item. |
'<td><label for="'.$item.'">'.$colortypes{$item}.'</label></td>'. |
'" class="colorchooser" size="10" value="'.$curcol. |
'<td><input name="'.$item. |
|
'" class="colorchooser" id="'.$item.'" size="10" value="'.$curcol. |
'" /></td>'. |
'" /></td>'. |
&Apache::loncommon::end_data_table_row()."\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
} |
} |
Line 1189 sub colorschanger {
|
Line 1225 sub colorschanger {
|
my $resetbuttondesc = &mt('Reset All Colors to Default'); |
my $resetbuttondesc = &mt('Reset All Colors to Default'); |
my $colorchooser=&Apache::lonhtmlcommon::color_picker(); |
my $colorchooser=&Apache::lonhtmlcommon::color_picker(); |
$r->print('<script type="text/javascript" language="JavaScript"> |
$r->print('<script type="text/javascript" language="JavaScript"> |
' . $colorchooser . ' |
// <![CDATA[' ."\n". $colorchooser . "\n". ' |
|
// ]]> |
</script> |
</script> |
'); |
'); |
$r->print(<<ENDCOL); |
$r->print(<<ENDCOL); |
Line 1199 sub colorschanger {
|
Line 1236 sub colorschanger {
|
<input type="hidden" name="pres_type" /> |
<input type="hidden" name="pres_type" /> |
<input type="hidden" name="pres_value" /> |
<input type="hidden" name="pres_value" /> |
</form> |
</form> |
|
<br /> |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="verify_and_change_colors" /> |
<input type="hidden" name="action" value="verify_and_change_colors" /> |
$start_data_table |
$start_data_table |
Line 1209 $end_data_table
|
Line 1247 $end_data_table
|
<input type="submit" value="$savebutton" /> |
<input type="submit" value="$savebutton" /> |
<input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" /> |
<input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" /> |
</p> |
</p> |
</form> |
</form></div> |
ENDCOL |
ENDCOL |
} |
} |
|
|
Line 1265 sub passwordchanger {
|
Line 1303 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'}); |
unless ($caller eq 'reset_by_email') { |
unless ($caller eq 'reset_by_email') { |
$r->print(Apache::loncommon::start_page('Personal Data')); |
$r->print(Apache::loncommon::start_page('Personal Data')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password'). |
} |
'<div class="LC_landmark" role="main">'); |
my ($blocked,$blocktext) = |
|
&Apache::loncommon::blocking_status('passwd'); |
|
if ($blocked) { |
|
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
|
return; |
|
} |
} |
if ((!defined($caller)) || ($caller eq 'preferences')) { |
if ((!defined($caller)) || ($caller eq 'preferences')) { |
$user = $env{'user.name'}; |
$user = $env{'user.name'}; |
Line 1285 sub passwordchanger {
|
Line 1319 sub passwordchanger {
|
if (!defined($caller)) { |
if (!defined($caller)) { |
$caller = 'preferences'; |
$caller = 'preferences'; |
} |
} |
|
my ($blocked,$blocktext) = |
|
&Apache::loncommon::blocking_status('passwd',$clientip); |
|
if ($blocked) { |
|
$r->print('<p class="LC_warning">'.$blocktext.'</p></div>'); |
|
return; |
|
} |
} elsif ($caller eq 'reset_by_email') { |
} elsif ($caller eq 'reset_by_email') { |
my %data = &Apache::lonnet::tmpget($mailtoken); |
my %data = &Apache::lonnet::tmpget($mailtoken); |
if (keys(%data) == 0) { |
if (keys(%data) == 0) { |
Line 1301 sub passwordchanger {
|
Line 1341 sub passwordchanger {
|
$user = $data{'username'}; |
$user = $data{'username'}; |
$domain = $data{'domain'}; |
$domain = $data{'domain'}; |
$currentpass = $data{'temppasswd'}; |
$currentpass = $data{'temppasswd'}; |
|
my ($blocked,$blocktext) = |
|
&Apache::loncommon::blocking_status('passwd',$clientip,$user,$domain); |
|
if ($blocked) { |
|
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
|
return; |
|
} |
} else { |
} else { |
$r->print( |
$r->print( |
'<p class="LC_warning">' |
'<p class="LC_warning">' |
Line 1326 sub passwordchanger {
|
Line 1372 sub passwordchanger {
|
$r->print( |
$r->print( |
'<p class="LC_error">' |
'<p class="LC_error">' |
.&mt('Page requested in unexpected context') |
.&mt('Page requested in unexpected context') |
.'</p>' |
.'</p></div>' |
); |
); |
return; |
return; |
} |
} |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
# Check for authentication types that allow changing of the password. |
# Check for authentication types that allow changing of the password. |
return if ($currentauth !~ /^(unix|internal):/); |
if ($currentauth !~ /^(unix|internal):/) { |
|
unless ($caller eq 'reset_by_email') { |
|
$r->print('</div>'); |
|
} |
|
return; |
|
} |
# |
# |
# Generate keys |
# Generate keys |
my ($lkey_cpass ,$ukey_cpass ) = &Apache::loncommon::des_keys(); |
my ($lkey_cpass ,$ukey_cpass ) = &Apache::loncommon::des_keys(); |
Line 1360 sub passwordchanger {
|
Line 1411 sub passwordchanger {
|
my $jsh=Apache::File->new($include."/londes.js"); |
my $jsh=Apache::File->new($include."/londes.js"); |
$r->print(<$jsh>); |
$r->print(<$jsh>); |
} |
} |
$r->print(&jscript_send($caller,$extrafields)); |
$r->print(&jscript_send($caller,$domain,$currentauth,$extrafields)); |
$r->print(<<ENDFORM); |
$r->print(<<ENDFORM); |
$errormessage |
$errormessage |
|
|
<p> |
<p></p> |
<!-- We separate the forms into 'server' and 'client' in order to |
<!-- We separate the forms into 'server' and 'client' in order to |
ensure that unencrypted passwords will not be sent out by a |
ensure that unencrypted passwords will not be sent out by a |
crappy browser --> |
crappy browser --> |
ENDFORM |
ENDFORM |
$r->print(&server_form($logtoken,$caller,$mailtoken,$extrafields)); |
$r->print(&server_form($logtoken,$caller,$mailtoken,$extrafields)); |
$r->print(&client_form($caller,\%hexkey,$currentpass,$domain,$extrafields)); |
$r->print(&client_form($caller,\%hexkey,$currentpass,$domain,$extrafields)); |
|
unless ($caller eq 'reset_by_email') { |
|
$r->print('</div>'); |
|
} |
# |
# |
return; |
return; |
} |
} |
|
|
sub jscript_send { |
sub jscript_send { |
my ($caller,$extrafields) = @_; |
my ($caller,$domain,$currentauth,$extrafields) = @_; |
|
my ($min,$max,$rulestr,$numrules); |
|
$min = $Apache::lonnet::passwdmin; |
|
my %js_lt = &Apache::lonlocal::texthash( |
|
uc => 'New password needs at least one upper case letter', |
|
lc => 'New password needs at least one lower case letter', |
|
num => 'New password needs at least one number', |
|
spec => 'New password needs at least one non-alphanumeric', |
|
blank1 => 'Empty Password field', |
|
blank2 => 'Empty Confirm Password field', |
|
mismatch => 'Contents of Password and Confirm Password fields must match', |
|
fail => 'Please fix the following:', |
|
); |
|
&js_escape(\%js_lt); |
|
if ($currentauth eq 'internal:') { |
|
if ($domain ne '') { |
|
my %passwdconf = &Apache::lonnet::get_passwdconf($domain); |
|
if (keys(%passwdconf)) { |
|
if ($passwdconf{min}) { |
|
$min = $passwdconf{min}; |
|
} |
|
if ($passwdconf{max}) { |
|
$max = $passwdconf{max}; |
|
$js_lt{'long'} = &js_escape(&mt('Maximum password length: [_1]',$max)); |
|
} |
|
if (ref($passwdconf{chars}) eq 'ARRAY') { |
|
if (@{$passwdconf{chars}}) { |
|
$rulestr = join('","',@{$passwdconf{chars}}); |
|
$numrules = scalar(@{$passwdconf{chars}}); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
$js_lt{'short'} = &js_escape(&mt('Minimum password length: [_1]',$min)); |
|
|
|
my $passwdcheck = <<"ENDJS"; |
|
var errors = new Array(); |
|
var min = parseInt("$min") || 0; |
|
var currauth = "$currentauth"; |
|
if (this.document.client.elements.newpass_1.value == '') { |
|
errors.push("$js_lt{'blank1'}"); |
|
} |
|
if (this.document.client.elements.newpass_2.value == '') { |
|
errors.push("$js_lt{'blank2'}"); |
|
} |
|
if (errors.length == 0) { |
|
if (this.document.client.elements.newpass_1.value != this.document.client.elements.newpass_2.value) { |
|
errors.push("$js_lt{'mismatch'}"); |
|
} |
|
var posspass = this.document.client.elements.newpass_1.value; |
|
if (min > 0) { |
|
if (posspass.length < min) { |
|
errors.push("$js_lt{'short'}"); |
|
} |
|
} |
|
if (currauth == 'internal:') { |
|
var max = parseInt("$max") || 0; |
|
if (max > 0) { |
|
if (posspass.length > max) { |
|
errors.push("$js_lt{'long'}"); |
|
} |
|
} |
|
var numrules = parseInt("$numrules") || 0; |
|
if (numrules > 0) { |
|
var rules = new Array("$rulestr"); |
|
for (var i=0; i<rules.length; i++) { |
|
if (rules[i] == 'uc') { |
|
if (!posspass.match(/[A-Z]/)) { |
|
errors.push("$js_lt{'uc'}"); |
|
} |
|
} else if (rules[i] == 'lc') { |
|
if (!posspass.match(/[a-z]/)) { |
|
errors.push("$js_lt{'lc'}"); |
|
} |
|
} else if (rules[i] == 'num') { |
|
if (!posspass.match(/\\d/)) { |
|
errors.push("$js_lt{'num'}"); |
|
} |
|
} else if (rules[i] == 'spec') { |
|
var pattern = /^[!@#$%^&*()_+\\-=\\[\\]{};':"\\\|,.<a>\\/?]/; |
|
if (!posspass.match(pattern)) { |
|
errors.push("$js_lt{'spec'}"); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
if (errors.length > 0) { |
|
alert("$js_lt{'fail'}"+"\\n\\n"+errors.join("\\n")); |
|
return; |
|
} |
|
ENDJS |
my $output = qq| |
my $output = qq| |
<script type="text/javascript" language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |
|
// <![CDATA[ |
function send() { |
function send() { |
|
$passwdcheck |
uextkey=this.document.client.elements.ukey_cpass.value; |
uextkey=this.document.client.elements.ukey_cpass.value; |
lextkey=this.document.client.elements.lkey_cpass.value; |
lextkey=this.document.client.elements.lkey_cpass.value; |
initkeys(); |
initkeys(); |
Line 1408 sub jscript_send {
|
Line 1555 sub jscript_send {
|
|; |
|; |
} |
} |
if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) { |
if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) { |
$output .= qq| |
$output .= qq| |
this.document.pserver.elements.email.value = |
this.document.pserver.elements.email.value = |
this.document.client.elements.email.value; |
this.document.client.elements.email.value; |
|; |
|; |
Line 1418 sub jscript_send {
|
Line 1565 sub jscript_send {
|
this.document.pserver.submit(); |
this.document.pserver.submit(); |
} |
} |
|
|
|
// ]]> |
</script> |
</script> |
|; |
|; |
} |
} |
Line 1444 sub client_form {
|
Line 1592 sub client_form {
|
.&Apache::lonhtmlcommon::row_closure(); |
.&Apache::lonhtmlcommon::row_closure(); |
} |
} |
if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) { |
if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) { |
$output .= &Apache::lonhtmlcommon::row_title( |
$output .= &Apache::lonhtmlcommon::row_title( |
'<label for="uname">'.$lt{'username'}.'</label>') |
'<label for="uname">'.$lt{'username'}.'</label>') |
.'<input type="text" name="uname" size="20" autocapitalize="off" autocorrect="off" />' |
.'<input type="text" name="uname" size="20" autocapitalize="off" autocorrect="off" />' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
Line 1456 sub client_form {
|
Line 1604 sub client_form {
|
} else { |
} else { |
$output .= &Apache::lonhtmlcommon::row_title( |
$output .= &Apache::lonhtmlcommon::row_title( |
'<label for="currentpass">'.$lt{'currentpass'}.'</label>') |
'<label for="currentpass">'.$lt{'currentpass'}.'</label>') |
.'<input type="password" name="currentpass" size="20"/>' |
.'<input type="password" name="currentpass" id="currentpass" size="20" />' |
.&Apache::lonhtmlcommon::row_closure(); |
.&Apache::lonhtmlcommon::row_closure(); |
} |
} |
$output .= &Apache::lonhtmlcommon::row_title( |
$output .= &Apache::lonhtmlcommon::row_title( |
'<label for="newpass_1">'.$lt{'newpass'}.'</label>') |
'<label for="newpass_1">'.$lt{'newpass'}.'</label>') |
.'<input type="password" name="newpass_1" size="20" />' |
.'<input type="password" name="newpass_1" id="newpass_1" size="20" />' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_title( |
.&Apache::lonhtmlcommon::row_title( |
'<label for="newpass_2">'.$lt{'confirmpass'}.'</label>') |
'<label for="newpass_2">'.$lt{'confirmpass'}.'</label>') |
.'<input type="password" name="newpass_2" size="20" />' |
.'<input type="password" name="newpass_2" id="newpass_2" size="20" />' |
.&Apache::lonhtmlcommon::row_closure(1) |
.&Apache::lonhtmlcommon::row_closure(1) |
.&Apache::lonhtmlcommon::end_pick_box(); |
.&Apache::lonhtmlcommon::end_pick_box(); |
if ($caller eq 'reset_by_email') { |
if ($caller eq 'reset_by_email') { |
Line 1480 sub client_form {
|
Line 1628 sub client_form {
|
<input type="hidden" name="ukey_npass2" value="$hexkey->{'ukey_npass2'}" /> |
<input type="hidden" name="ukey_npass2" value="$hexkey->{'ukey_npass2'}" /> |
<input type="hidden" name="lkey_npass2" value="$hexkey->{'lkey_npass2'}" /> |
<input type="hidden" name="lkey_npass2" value="$hexkey->{'lkey_npass2'}" /> |
</form> |
</form> |
</p> |
|
|; |
|; |
return $output; |
return $output; |
} |
} |
Line 1522 sub server_form {
|
Line 1669 sub server_form {
|
} |
} |
|
|
sub verify_and_change_password { |
sub verify_and_change_password { |
my ($r,$caller,$mailtoken,$ended) = @_; |
my ($r,$caller,$mailtoken,$timelimit,$extrafields,$ended) = @_; |
my ($user,$domain,$homeserver); |
my ($user,$domain,$homeserver,$clientip); |
my ($blocked,$blocktext) = |
|
&Apache::loncommon::blocking_status('passwd'); |
|
if ($blocked) { |
|
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
|
return; |
|
} |
|
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 1538 sub verify_and_change_password {
|
Line 1679 sub verify_and_change_password {
|
if ($homeserver eq 'no_host') { |
if ($homeserver eq 'no_host') { |
&passwordchanger($r,"<p>\n<span class='LC_error'>". |
&passwordchanger($r,"<p>\n<span class='LC_error'>". |
&mt("Invalid username and/or domain")."</span>\n</p>", |
&mt("Invalid username and/or domain")."</span>\n</p>", |
$caller,$mailtoken); |
$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
return 'no_host'; |
} |
} |
} else { |
} else { |
&passwordchanger($r,"<p>\n<span class='LC_error'>". |
&passwordchanger($r,"<p>\n<span class='LC_error'>". |
&mt("Username and domain were blank")."</span>\n</p>", |
&mt("Username and domain were blank")."</span>\n</p>", |
$caller,$mailtoken); |
$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
return 'missingdata'; |
} |
} |
} else { |
} else { |
$user = $env{'user.name'}; |
$user = $env{'user.name'}; |
$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) = |
|
&Apache::loncommon::blocking_status('passwd',$clientip,$user,$domain); |
|
if ($blocked) { |
|
$r->print('<p class="LC_warning">'.$blocktext.'</p>'); |
|
if ($caller eq 'reset_by_email') { |
|
return 'blocked'; |
|
} else { |
|
return; |
|
} |
|
} |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); |
# Check for authentication types that allow changing of the password. |
# Check for authentication types that allow changing of the password. |
if ($currentauth !~ /^(unix|internal):/) { |
if ($currentauth !~ /^(unix|internal):/) { |
Line 1559 sub verify_and_change_password {
|
Line 1711 sub verify_and_change_password {
|
&passwordchanger($r,"<p>\n<span class='LC_error'>". |
&passwordchanger($r,"<p>\n<span class='LC_error'>". |
&mt("Authentication type for this user can not be changed by this mechanism"). |
&mt("Authentication type for this user can not be changed by this mechanism"). |
"</span>\n</p>", |
"</span>\n</p>", |
$caller,$mailtoken); |
$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
return 'otherauth'; |
} else { |
} else { |
return; |
return; |
} |
} |
Line 1576 sub verify_and_change_password {
|
Line 1728 sub verify_and_change_password {
|
defined($newpass2) ){ |
defined($newpass2) ){ |
&passwordchanger($r,"<p>\n<span class='LC_error'>". |
&passwordchanger($r,"<p>\n<span class='LC_error'>". |
&mt("One or more password fields were blank"). |
&mt("One or more password fields were blank"). |
"</span>\n</p>",$caller,$mailtoken); |
"</span>\n</p>",$caller,$mailtoken,$timelimit,$extrafields); |
return; |
if ($caller eq 'reset_by_email') { |
|
return 'missingdata'; |
|
} else { |
|
return; |
|
} |
} |
} |
# Get the keys |
# Get the keys |
my $lonhost = $r->dir_config('lonHostID'); |
my $lonhost = $r->dir_config('lonHostID'); |
Line 1595 sub verify_and_change_password {
|
Line 1751 sub verify_and_change_password {
|
</p> |
</p> |
ENDERROR |
ENDERROR |
# Probably should log an error here |
# Probably should log an error here |
return 1; |
if ($caller eq 'reset_by_email') { |
|
return 'internalerror'; |
|
} else { |
|
return; |
|
} |
} |
} |
my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo); |
my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo); |
# |
# |
Line 1609 ENDERROR
|
Line 1769 ENDERROR
|
&passwordchanger($r, |
&passwordchanger($r, |
'<span class="LC_error">'. |
'<span class="LC_error">'. |
&mt('Could not verify current authentication.').' '. |
&mt('Could not verify current authentication.').' '. |
&mt('Please try again.').'</span>',$caller,$mailtoken); |
&mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
return 'emptydata'; |
} |
} |
if ($currentpass ne $data{'temppasswd'}) { |
if ($currentpass ne $data{'temppasswd'}) { |
&passwordchanger($r, |
&passwordchanger($r, |
'<span class="LC_error">'. |
'<span class="LC_error">'. |
&mt('Could not verify current authentication.').' '. |
&mt('Could not verify current authentication.').' '. |
&mt('Please try again.').'</span>',$caller,$mailtoken); |
&mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
return 'missingtemp'; |
} |
} |
} |
} |
if ($newpass1 ne $newpass2) { |
if ($newpass1 ne $newpass2) { |
&passwordchanger($r, |
&passwordchanger($r, |
'<span class="LC_warning">'. |
'<span class="LC_warning">'. |
&mt('The new passwords you entered do not match.').' '. |
&mt('The new passwords you entered do not match.').' '. |
&mt('Please try again.').'</span>',$caller,$mailtoken); |
&mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
if ($caller eq 'reset_by_email') { |
|
return 'mismatch'; |
|
} else { |
|
return; |
|
} |
} |
} |
if ($currentauth eq 'unix:') { |
if ($currentauth eq 'unix:') { |
if (length($newpass1) < 7) { |
if (length($newpass1) < 7) { |
&passwordchanger($r, |
&passwordchanger($r, |
'<span class="LC_warning">'. |
'<span class="LC_warning">'. |
&mt('Passwords must be a minimum of 7 characters long.').' '. |
&mt('Passwords must be a minimum of 7 characters long.').' '. |
&mt('Please try again.').'</span>',$caller,$mailtoken); |
&mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
if ($caller eq 'reset_by_email') { |
|
return 'length'; |
|
} else { |
|
return; |
|
} |
} |
} |
} else { |
} else { |
my $warning = &Apache::loncommon::check_passwd_rules($domain,$newpass1); |
my $warning = &Apache::loncommon::check_passwd_rules($domain,$newpass1); |
Line 1641 ENDERROR
|
Line 1809 ENDERROR
|
&passwordchanger($r,'<span class="LC_warning">'. |
&passwordchanger($r,'<span class="LC_warning">'. |
$warning. |
$warning. |
&mt('Please try again.').'</span>', |
&mt('Please try again.').'</span>', |
$caller,$mailtoken); |
$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
if ($caller eq 'reset_by_email') { |
|
return 'rules'; |
|
} else { |
|
return; |
|
} |
} |
} |
} |
} |
# |
# |
Line 1662 ENDERROR
|
Line 1834 ENDERROR
|
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_\`abcdefghijklmnopqrstuvwxyz{|}~ |
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_\`abcdefghijklmnopqrstuvwxyz{|}~ |
</pre></span> |
</pre></span> |
ENDERROR |
ENDERROR |
&passwordchanger($r,$errormessage,$caller,$mailtoken); |
&passwordchanger($r,$errormessage,$caller,$mailtoken,$timelimit,$extrafields); |
return 1; |
if ($caller eq 'reset_by_email') { |
|
return 'badchars'; |
|
} else { |
|
return; |
|
} |
} |
} |
# |
# |
# Change the password (finally) |
# Change the password (finally) |
Line 1686 ENDERROR
|
Line 1862 ENDERROR
|
# error error: run in circles, scream and shout |
# error error: run in circles, scream and shout |
if ($caller eq 'reset_by_email') { |
if ($caller eq 'reset_by_email') { |
if (!$result) { |
if (!$result) { |
return 1; |
return 'error'; |
} else { |
} else { |
return $result; |
return $result; |
} |
} |
Line 1718 sub discussionchanger {
|
Line 1894 sub discussionchanger {
|
{ href => '/adm/preferences?action=changediscussions', |
{ href => '/adm/preferences?action=changediscussions', |
text => 'Change Discussion Preferences'}); |
text => 'Change Discussion Preferences'}); |
$r->print(Apache::loncommon::start_page('Change Discussion Preferences')); |
$r->print(Apache::loncommon::start_page('Change Discussion Preferences')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Discussion Preferences')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Discussion Preferences'). |
|
'<div class="LC_landmark" role="main">'); |
my $user = $env{'user.name'}; |
my $user = $env{'user.name'}; |
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
my %userenv = &Apache::lonnet::get |
my %userenv = &Apache::lonnet::get |
Line 1786 END
|
Line 1963 END
|
|
|
$r->print('<p class="LC_info">'.$lt{'thde'}.'</p>'); |
$r->print('<p class="LC_info">'.$lt{'thde'}.'</p>'); |
|
|
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(&Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::start_data_table_header_row()); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<tr> |
|
<th>$lt{'pref'}</th> |
<th>$lt{'pref'}</th> |
<th>$lt{'curr'}</th> |
<th>$lt{'curr'}</th> |
<th>$lt{'actn'}?</th> |
<th>$lt{'actn'}?</th> |
</tr> |
|
END |
END |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(&Apache::loncommon::end_data_table_header_row(). |
|
&Apache::loncommon::start_data_table_row()); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<td>$lt{'disa'}</td> |
<td>$lt{'disa'}</td> |
<td>$lt{$discdisp}</td> |
<td>$lt{$discdisp}</td> |
Line 1806 END
|
Line 1983 END
|
<td>$lt{'npmr'}</td> |
<td>$lt{'npmr'}</td> |
<td>$lt{$discmark}</td> |
<td>$lt{$discmark}</td> |
<td><label><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" /> $lt{'chgt'} "$markchange"</label></td> |
<td><label><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" /> $lt{'chgt'} "$markchange"</label></td> |
</tr> |
|
END |
END |
$r->print(&Apache::loncommon::end_data_table_row(). |
$r->print(&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table()); |
&Apache::loncommon::end_data_table()); |
|
|
$r->print('<br />' |
$r->print('<br />' |
.'<input type="submit" name="sub" value="'.&mt('Save').'" />' |
.'<input type="submit" name="sub" value="'.&mt('Save').'" />' |
.'</form>' |
.'</form></div>' |
); |
); |
} |
} |
|
|
Line 1948 sub author_space_settings {
|
Line 2124 sub author_space_settings {
|
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']); |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']); |
if (keys(%author_roles) > 0) { |
if (keys(%author_roles) > 0) { |
$r->print(Apache::loncommon::start_page('Authoring Space Settings')); |
my ($showdomdefs,$js,$args,@items); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Authoring Space Settings')); |
my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\''); |
my %userenv = &Apache::lonnet::get('environment',['nocodemirror']); |
if (&expanded_authoring_settings()) { |
|
@items = ('nocodemirror'); |
|
if (&daxe_permitted(\%author_roles)) { |
|
push(@items,'daxecollapse'); |
|
} |
|
push(@items,('copyright','sourceavail')); |
|
$showdomdefs = 1; |
|
$js = &toggle_options_js(); |
|
my $onload; |
|
foreach my $item (@items) { |
|
$onload .= "javascript:toggleOptions(document.prefs,'$item','user_$item');" |
|
} |
|
$args = { 'add_entries' => { 'onload' => $onload } }; |
|
} |
|
$r->print(Apache::loncommon::start_page('Authoring Space Settings',$js,$args)); |
|
$r->print(Apache::lonhtmlcommon::breadcrumbs('Authoring Space Settings')); |
|
if ($showdomdefs) { |
|
my %userenv = &Apache::lonnet::get('environment',\@items); |
|
my %domdefs = &Apache::lonnet::get_domain_defaults($domain); |
|
my %staticdefaults = ( |
|
'nocodemirror' => '0', |
|
'daxecollapse' => '0', |
|
'copyright' => 'default', |
|
'sourceavail' => 'closed', |
|
); |
|
my %lt = &authoring_settings_text(); |
|
my %titles = &authoring_settings_titles(); |
|
$r->print("<h3>$lt{'auss'}</h3>". |
|
'<form name="prefs" action="/adm/preferences" method="post">'."\n". |
|
'<input type="submit" value="'.$lt{'save'}.'" /><br /><hr />'."\n". |
|
'<input type="hidden" name="returnurl" value="'.$returnurl.'" />'."\n". |
|
'<input type="hidden" name="action" value="change_authoring_settings" />'."\n"); |
|
foreach my $item (@items) { |
|
my ($domdef,$checkeddom,$checkeduser,$domdefdisplay,$divsty,$userelem); |
|
$checkeddom = ' checked="checked"'; |
|
$divsty = 'display:none'; |
|
if (exists($domdefs{$item})) { |
|
$domdef = $domdefs{$item}; |
|
} else { |
|
$domdef = $staticdefaults{$item}; |
|
} |
|
if ($item eq 'copyright') { |
|
$domdefdisplay = &Apache::loncommon::copyrightdescription($domdef); |
|
$userelem = &selectbox('userchoice_'.$item,$userenv{$item},'', |
|
\&Apache::loncommon::copyrightdescription, |
|
(grep !/^priv|custom$/,(&Apache::loncommon::copyrightids))); |
|
} elsif ($item eq 'sourceavail') { |
|
$domdefdisplay = &Apache::loncommon::source_copyrightdescription($domdef); |
|
$userelem = &selectbox('userchoice_'.$item,$userenv{$item},'', |
|
\&Apache::loncommon::source_copyrightdescription, |
|
(&Apache::loncommon::source_copyrightids)); |
|
} elsif (($item eq 'nocodemirror') || ($item eq 'daxecollapse')) { |
|
if ($domdef) { |
|
if ($item eq 'daxecollapse') { |
|
$domdefdisplay = $lt{'coll'}; |
|
} else { |
|
$domdefdisplay = $lt{'yes'}; |
|
} |
|
} else { |
|
if ($item eq 'daxecollapse') { |
|
$domdefdisplay = $lt{'expa'}; |
|
} else { |
|
$domdefdisplay = $lt{'no'}; |
|
} |
|
} |
|
my (%checked,%text); |
|
$checked{'no'} = ' checked="checked"'; |
|
if ($userenv{$item} eq 'yes') { |
|
$checked{'yes'} = $checked{'no'}; |
|
$checked{'no'} = ''; |
|
} |
|
if ($item eq 'daxecollapse') { |
|
%text = ( |
|
yes => $lt{'coll'}, |
|
no => $lt{'expa'}, |
|
); |
|
} else { |
|
%text = ( |
|
yes => $lt{'yes'}, |
|
no => $lt{'no'}, |
|
); |
|
} |
|
$userelem = '<span class="LC_nobreak">'; |
|
foreach my $choice ('yes','no') { |
|
$userelem .= '<label><input type="radio" name="userchoice_'.$item.'" value="'.$choice.'"'. |
|
$checked{$choice}.' />'.$text{$choice}.'</label> '; |
|
} |
|
$userelem .= '</span>'; |
|
} |
|
if ($userenv{$item} ne '') { |
|
$checkeduser = $checkeddom; |
|
$checkeddom = ''; |
|
$divsty = 'display:inline-block'; |
|
} |
|
$r->print(<<"END"); |
|
<h3 class="LC_heading_3"><span class="LC_nobreak">$titles{$item}</span></h3> |
|
<p class="LC_nobreak">$lt{'curd'}: <span style="font-style:italic">$domdefdisplay</span></p> |
|
<p class="LC_nobreak"> |
|
<label><input type="radio" name="$item" value="dom" onclick="toggleOptions(this.form,'$item','user_$item');"$checkeddom />$lt{'used'}</label> |
|
<label><input type="radio" name="$item" value="user" onclick="toggleOptions(this.form,'$item','user_$item');"$checkeduser />$lt{'usyo'}</label></p> |
|
<fieldset id="user_$item" style="$divsty"> |
|
<legend style="font-weight:normal;font-style:italic;">$lt{'ousv'}</legend> |
|
$userelem |
|
</fieldset><br /><hr /> |
|
END |
|
} |
|
$r->print('<input type="submit" value="'.$lt{'save'}.'" />'. |
|
'</form>'."\n"); |
|
} else { |
my $constchecked=''; |
my $constchecked=''; |
if ($env{'environment.nocodemirror'}) { |
if ($env{'environment.nocodemirror'}) { |
$constchecked=' checked="checked"'; |
$constchecked=' checked="checked"'; |
Line 1958 sub author_space_settings {
|
Line 2242 sub author_space_settings {
|
my $text=&mt('By default, CodeMirror an editor with advanced functionality for editing code is activated for authors.'); |
my $text=&mt('By default, CodeMirror an editor with advanced functionality for editing code is activated for authors.'); |
my $cmoff=&mt('Deactivate CodeMirror. This can improve performance on slow computers and accessibility.'); |
my $cmoff=&mt('Deactivate CodeMirror. This can improve performance on slow computers and accessibility.'); |
my $change=&mt('Save'); |
my $change=&mt('Save'); |
my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\''); |
|
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="returnurl" value="$returnurl" /> |
<input type="hidden" name="returnurl" value="$returnurl" /> |
Line 1968 sub author_space_settings {
|
Line 2251 sub author_space_settings {
|
<input type="submit" value="$change" /> |
<input type="submit" value="$change" /> |
</form> |
</form> |
ENDSCREEN |
ENDSCREEN |
|
} |
} |
} |
} |
} |
|
|
Line 1977 sub change_authoring_settings {
|
Line 2261 sub change_authoring_settings {
|
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']); |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']); |
if (keys(%author_roles) > 0) { |
if (keys(%author_roles) > 0) { |
|
my $message; |
|
if (!&expanded_authoring_settings()) { |
my %ausettings=('environment.nocodemirror' => ''); |
my %ausettings=('environment.nocodemirror' => ''); |
if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; } |
if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; } |
&Apache::lonnet::put('environment',\%ausettings); |
&Apache::lonnet::put('environment',\%ausettings); |
Line 1987 sub change_authoring_settings {
|
Line 2273 sub change_authoring_settings {
|
} else { |
} else { |
$status=&mt('off'); |
$status=&mt('off'); |
} |
} |
my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Deactivate CodeMirror in Authoring Space').'</i>','<tt>'.$status.'</tt>')); |
$message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Deactivate CodeMirror in Authoring Space').'</i>','<tt>'.$status.'</tt>')); |
$message=&Apache::loncommon::confirmwrapper($message); |
$message=&Apache::loncommon::confirmwrapper($message); |
if ($env{'form.returnurl'}) { |
} else { |
&do_redirect($r,$env{'form.returnurl'},$message); |
my @items = ('nocodemirror'); |
|
if (&daxe_permitted(\%author_roles)) { |
|
push(@items,'daxecollapse'); |
|
} |
|
push(@items,('copyright','sourceavail')); |
|
my %oldsettings = &Apache::lonnet::get('environment',\@items); |
|
my %domdefs = &Apache::lonnet::get_domain_defaults($domain); |
|
my %lt = &authoring_settings_text(); |
|
my %titles = &authoring_settings_titles(); |
|
my ($result,%newsettings,%changes,@delete,@unchanged,@delerrors,@adderrors); |
|
foreach my $item (@items) { |
|
if ($env{'form.'.$item} eq 'dom') { |
|
if ($oldsettings{$item} eq '') { |
|
push(@unchanged,$item); |
|
} else { |
|
push(@delete,$item); |
|
} |
|
} elsif ($env{'form.'.$item} eq 'user') { |
|
my $newval = $env{'form.userchoice_'.$item}; |
|
my @possibles; |
|
if (($item eq 'nocodemirror') || ($item eq 'daxecollapse')) { |
|
if ($newval =~ /^yes|no$/) { |
|
$newsettings{$item} = $newval; |
|
} |
|
} elsif ($item eq 'copyright') { |
|
@possibles = (grep !/^priv|custom$/,(&Apache::loncommon::copyrightids)); |
|
if (grep(/^\Q$newval\E$/,@possibles)) { |
|
$newsettings{$item} = $newval; |
|
} |
|
} elsif ($item eq 'sourceavail') { |
|
@possibles = (&Apache::loncommon::source_copyrightids); |
|
if (grep(/^\Q$newval\E$/,@possibles)) { |
|
$newsettings{$item} = $newval; |
|
} |
|
} |
|
if ($oldsettings{$item} eq $newsettings{$item}) { |
|
push(@unchanged,$item); |
|
} else { |
|
$changes{$item} = $newsettings{$item}; |
|
} |
|
} |
|
} |
|
if (@delete) { |
|
if (&Apache::lonnet::del('environment',\@delete) eq 'ok') { |
|
foreach my $key (@delete) { |
|
&Apache::lonnet::delenv('environment.'.$key); |
|
} |
|
} else { |
|
@delerrors = @delete; |
|
} |
|
} |
|
if (keys(%changes)) { |
|
if (&Apache::lonnet::put('environment',\%changes) eq 'ok') { |
|
my %newenvhash; |
|
map {$newenvhash{'environment.'.$_} = $changes{$_}; } (keys(%changes)); |
|
&Apache::lonnet::appenv(\%newenvhash); |
|
} else { |
|
foreach my $item (@items) { |
|
if (exists($changes{$item})) { |
|
push(@adderrors,$item); |
|
} |
|
} |
|
} |
|
} |
|
if (@adderrors) { |
|
$result = &mt('An error occurred when saving user-specific settings for').': '. |
|
join(', ', map { $titles{$_} } @adderrors); |
|
$message = &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result,1)); |
|
} elsif (keys(%changes)) { |
|
$result = &mt('User-specific settings saved:').'<ul>'; |
|
foreach my $item (@items) { |
|
next unless (exists($changes{$item})); |
|
my $value = $changes{$item}; |
|
if ($item eq 'nocodemirror') { |
|
$value = $lt{$changes{$item}}; |
|
} elsif ($item eq 'daxecollapse') { |
|
if ($value eq 'yes') { |
|
$value = $lt{'coll'}; |
|
} else { |
|
$value = $lt{'expa'}; |
|
} |
|
} elsif ($item eq 'copyright') { |
|
$value = &Apache::loncommon::copyrightdescription($changes{$item}); |
|
} elsif ($item eq 'sourceavail') { |
|
$value = &Apache::loncommon::source_copyrightdescription($changes{$item}); |
|
} |
|
$result .= '<li>'. |
|
&mt('[_1] set to [_2]', |
|
$titles{$item}, |
|
'<span style="font-style:italic">'.$value.'</span>'). |
|
'</li>'; |
|
} |
|
$result .= '</ul>'; |
|
$message = &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result)); |
|
} |
|
if (@delerrors) { |
|
$result = &mt('An error occurred when deleting user-specific settings for').':<ul><li>'. |
|
join('</li><li>', map { $titles{$_} } @delerrors).'</li></ul>'; |
|
$message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result,1)); |
|
} elsif (@delete) { |
|
$result = &mt('Set use of domain default for').':<ul><li>'. |
|
join('</li><li>', map { $titles{$_} } @delete).'</li></ul>'; |
|
$message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result)); |
|
} |
|
if (@unchanged) { |
|
$result = &mt('No changes made for').':<ul><li>'. |
|
join('</li><li>', map { $titles{$_} } @unchanged).'</li></ul>'; |
|
$message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result)); |
|
} |
|
} |
|
if ($env{'form.returnurl'}) { |
|
&do_redirect($r,$env{'form.returnurl'},$message); |
|
} else { |
|
&print_main_menu($r,$message); |
|
} |
|
} |
|
} |
|
|
|
sub authoring_settings_text { |
|
return &Apache::lonlocal::texthash( |
|
'auss' => 'Authoring Space Settings', |
|
'used' => 'Use domain default', |
|
'usyo' => 'Use your own user-specific setting', |
|
'curd' => 'Current domain default is', |
|
'ousv' => 'Own user-specific value', |
|
'save' => 'Save', |
|
'yes' => 'Deactivated', |
|
'no' => 'Activated', |
|
'expa' => 'Start Expanded', |
|
'coll' => 'Start Collapsed', |
|
); |
|
} |
|
|
|
sub authoring_settings_titles { |
|
return &Apache::lonlocal::texthash( |
|
'nocodemirror' => 'CodeMirror for EditXML editor', |
|
'daxecollapse' => 'Daxe editor: collapsible standard LON-CAPA menus', |
|
'copyright' => 'Default Copyright/Distribution in new metadata file', |
|
'sourceavail' => 'Default Source Available in new metadata file', |
|
); |
|
} |
|
|
|
sub expanded_authoring_settings { |
|
my $reqdmajor = 2; |
|
my $reqdminor = 12; |
|
my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'}); |
|
my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/); |
|
unless (($major eq '' && $minor eq '') || |
|
($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor))) { |
|
return 1; |
|
} |
|
return; |
|
} |
|
|
|
sub daxe_permitted { |
|
my ($aurolesref) = @_; |
|
my $hasdaxe; |
|
if (ref($aurolesref) eq 'HASH') { |
|
my %editors; |
|
foreach my $key (keys(%{$aurolesref})) { |
|
if ($key =~ /^:$LONCAPA::match_domain:au$/) { |
|
if (exists($env{'environment.editors'})) { |
|
if (grep(/^daxe$/,split(/,/,$env{'environment.editors'}))) { |
|
$hasdaxe = 1; |
|
last; |
|
} |
|
} |
} else { |
} else { |
&print_main_menu($r,$message); |
my ($auname,$audom) = ($key =~ /^($LONCAPA::match_username):($LONCAPA::match_domain):(ca|aa)$/); |
|
if (exists($env{"environment.internal.editors./$audom/$auname"})) { |
|
if (grep(/^daxe$/,split(/,/,$env{"environment.internal.editors./$audom/$auname"}))) { |
|
$hasdaxe = 1; |
|
last; |
|
} |
|
} |
} |
} |
|
} |
} |
} |
|
return $hasdaxe; |
} |
} |
|
|
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 2023 sub lockednameschanger {
|
Line 2479 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 2049 ENDSCREEN
|
Line 2510 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 2084 sub verify_and_change_lockednames {
|
Line 2548 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 = &toggle_options_js(); |
|
my %loaditems = ( |
|
onload => "javascript:toggleOptions(document.prefs,'settimezone','LC_timezone_selector');", |
|
); |
|
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'). |
|
'<div class="LC_landmark" role="main">'); |
|
my %userenv = &Apache::lonnet::get('environment',['timezone']); |
|
my $timezone = $userenv{'timezone'}; |
|
my %lt = &Apache::lonlocal::texthash( |
|
tztu => 'Time Zone in use', |
|
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:toggleOptions(this.form,'."'settimezone','LC_timezone_selector'".');"'; |
|
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" /> |
|
<fieldset style="display:inline; padding: 5px;"><legend>$lt{'tztu'}</legend> |
|
<span class="LC_nobreak"> |
|
<label><input type="radio" name="settimezone" value="0"$checked{'lctz'}$onclick /> |
|
$lt{'lctz'}</label></span><br /> |
|
<span class="LC_nobreak"> |
|
<label><input type="radio" name="settimezone" value="1"$checked{'owntz'}$onclick /> |
|
$lt{'owntz'}</label></span><div style="display:$tzsty" id="LC_timezone_selector"> |
|
$selector |
|
</div></fieldset><p> |
|
<input type="submit" value="$lt{'save'}" /> |
|
</p></form></div> |
|
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 2098 my %permissions;
|
Line 2650 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 %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']); |
|
my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']); |
my @menu= |
my @menu= |
({ categorytitle=>'Personal Data', |
({ categorytitle=>'Personal Data', |
items =>[ |
items =>[ |
Line 2106 my @menu=
|
Line 2663 my @menu=
|
permission => $permissions{'aboutme'}, |
permission => $permissions{'aboutme'}, |
#help => 'Prefs_About_Me', |
#help => 'Prefs_About_Me', |
icon => 'system-users.png', |
icon => 'system-users.png', |
|
alttext => 'About Me Icon', |
linktitle => 'Edit information about yourself that should be displayed on your public profile.' |
linktitle => 'Edit information about yourself that should be displayed on your public profile.' |
}, |
}, |
{ linktext => 'Screen Name', |
{ linktext => 'Screen Name', |
Line 2113 my @menu=
|
Line 2671 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => 'Prefs_Screen_Name_Nickname', |
#help => 'Prefs_Screen_Name_Nickname', |
icon => 'preferences-desktop-font.png', |
icon => 'preferences-desktop-font.png', |
|
alttext => 'Nickname Icon', |
linktitle => 'Change the name that is displayed in your posts.' |
linktitle => 'Change the name that is displayed in your posts.' |
}, |
}, |
] |
] |
Line 2124 my @menu=
|
Line 2683 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => 'Prefs_Language', |
#help => 'Prefs_Language', |
icon => 'preferences-desktop-locale.png', |
icon => 'preferences-desktop-locale.png', |
|
alttext => 'Language Icon', |
linktitle => 'Choose the default language for this user.' |
linktitle => 'Choose the default language for this user.' |
}, |
}, |
{ linktext => $role.' Page', |
{ linktext => $role.' Page', |
Line 2131 my @menu=
|
Line 2691 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'role_hotlist.png', |
icon => 'role_hotlist.png', |
|
alttext => 'Switch Role Icon', |
linktitle => 'Configure the roles hotlist.' |
linktitle => 'Configure the roles hotlist.' |
}, |
}, |
{ linktext => 'Math display settings', |
{ linktext => 'Math display settings', |
Line 2138 my @menu=
|
Line 2699 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'dismath.png', |
icon => 'dismath.png', |
|
alttext => 'Math Icon', |
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', |
|
alttext => 'Clock Icon', |
|
linktitle => 'Set your time zone.', |
|
} |
] |
] |
}, |
}, |
{ categorytitle=>'Page Display Settings', |
{ categorytitle=>'Page Display Settings', |
Line 2149 my @menu=
|
Line 2720 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => 'Change_Colors', |
#help => 'Change_Colors', |
icon => 'preferences-desktop-theme.png', |
icon => 'preferences-desktop-theme.png', |
|
alttext => 'Colors Icon', |
linktitle => 'Change LON-CAPA default colors.' |
linktitle => 'Change LON-CAPA default colors.' |
}, |
}, |
{ linktext => 'Menu Display', |
{ linktext => 'Menu Display', |
Line 2156 my @menu=
|
Line 2728 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'preferences-system-windows.png', |
icon => 'preferences-system-windows.png', |
|
alttext => 'Menus Icon', |
linktitle => 'Change whether the menus are displayed with icons or icons and text.' |
linktitle => 'Change whether the menus are displayed with icons or icons and text.' |
} |
} |
] |
] |
Line 2167 my @menu=
|
Line 2740 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => 'Prefs_Messages', |
#help => 'Prefs_Messages', |
icon => 'mail-reply-all.png', |
icon => 'mail-reply-all.png', |
|
alttext => 'Notifications Icon', |
linktitle => 'Change messageforwarding or notifications settings.' |
linktitle => 'Change messageforwarding or notifications settings.' |
}, |
}, |
{ linktext => 'Discussion Display', |
{ linktext => 'Discussion Display', |
Line 2174 my @menu=
|
Line 2748 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => 'Change_Discussion_Display', |
#help => 'Change_Discussion_Display', |
icon => 'chat.png', |
icon => 'chat.png', |
|
alttext => 'Discussions Icon', |
linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.' |
linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.' |
}, |
}, |
] |
] |
}, |
}, |
|
); |
|
if (keys(%author_coauthor_roles) > 0) { |
|
push(@menu, |
|
{ categorytitle=>'Authoring Settings', |
|
items => [ |
|
{ |
|
linktext => 'Authoring Space Configuration', |
|
url => '/adm/preferences?action=authorsettings', |
|
permission => 'F', |
|
icon => 'codemirror.png', |
|
alttext => 'Coding Icon', |
|
linktitle => 'Settings for your authoring space.', |
|
}, |
|
] |
|
}, |
|
); |
|
if (keys(%author_roles) > 0) { |
|
push(@{ $menu[4]->{items} }, { |
|
linktext => 'Restrict Domain Coordinator Access', |
|
url => '/adm/preferences?action=changedomcoord', |
|
permission => 'F', |
|
#help => '', |
|
icon => 'system-lock-screen.png', |
|
alttext => 'Lock Icon', |
|
linktitle => 'Restrict domain coordinator access.', |
|
}); |
|
} |
|
} |
|
push(@menu, |
{ categorytitle=>'Other', |
{ categorytitle=>'Other', |
items =>[ |
items =>[ |
{ linktext => 'Register Response Devices ("Clickers")', |
{ linktext => 'Register Response Devices ("Clickers")', |
Line 2185 my @menu=
|
Line 2789 my @menu=
|
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'network-workgroup.png', |
icon => 'network-workgroup.png', |
|
alttext => 'Clicker Icon', |
linktitle => 'Register your clicker.' |
linktitle => 'Register your clicker.' |
}, |
}, |
] |
] |
}, |
}, |
); |
); |
|
|
if ($currentauth =~ /^(unix|internal):/) { |
if ($currentauth =~ /^(unix|internal):/) { |
push(@{ $menu[0]->{items} }, { |
push(@{ $menu[0]->{items} }, { |
linktext => 'Password', |
linktext => 'Password', |
url => '/adm/preferences?action=changepass', |
url => '/adm/preferences?action=changepass', |
permission => 'F', |
permission => 'F', |
#help => 'Change_Password', |
#help => 'Change_Password', |
icon => 'emblem-readonly.png', |
icon => 'emblem-readonly.png', |
|
alttext => 'Secure Icon', |
linktitle => 'Change your password.', |
linktitle => 'Change your password.', |
}); |
}); |
} |
} |
Line 2209 push(@{ $menu[0]->{items} }, {
|
Line 2815 push(@{ $menu[0]->{items} }, {
|
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'system-lock-screen.png', |
icon => 'system-lock-screen.png', |
|
alttext => 'Screen Lock Icon', |
linktitle => 'Allow/disallow propagation of name changes from institutional directory service', |
linktitle => 'Allow/disallow propagation of name changes from institutional directory service', |
}); |
}); |
} |
} |
|
|
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']); |
|
if (keys(%author_roles) > 0) { |
|
push(@{ $menu[4]->{items} }, { |
|
linktext => 'Restrict Domain Coordinator Access', |
|
url => '/adm/preferences?action=changedomcoord', |
|
permission => 'F', |
|
#help => '', |
|
icon => 'system-lock-screen.png', |
|
linktitle => 'Restrict domain coordinator access.', |
|
}); |
|
} |
|
|
|
if (&Apache::lonnet::allowed('whn',$env{'request.course.id'}) |
if (&Apache::lonnet::allowed('whn',$env{'request.course.id'}) |
|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/' |
|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/' |
.$env{'request.course.sec'})) { |
.$env{'request.course.sec'})) { |
push(@{ $menu[4]->{items} }, { |
push(@{ $menu[-1]->{items} }, { |
linktext => 'Course Initialization', |
linktext => 'Course Initialization', |
url => '/adm/preferences?action=changecourseinit', |
url => '/adm/preferences?action=changecourseinit', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'course_ini.png', |
icon => 'course_ini.png', |
|
alttext => 'Course Launch Icon', |
linktitle => 'Set the default page to be displayed when you select a course role.', |
linktitle => 'Set the default page to be displayed when you select a course role.', |
}); |
}); |
|
|
} |
} |
|
|
my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']); |
|
if (keys(%author_coauthor_roles) > 0) { |
|
push(@{ $menu[4]->{items} }, { |
|
linktext => 'Authoring Space Configuration', |
|
url => '/adm/preferences?action=authorsettings', |
|
permission => 'F', |
|
icon => 'codemirror.png', |
|
linktitle => 'Settings for your authoring space.', |
|
}); |
|
} |
|
|
|
if (&can_toggle_debug()) { |
if (&can_toggle_debug()) { |
push(@{ $menu[4]->{items} }, { |
push(@{ $menu[-1]->{items} }, { |
linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'), |
linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'), |
url => '/adm/preferences?action=debugtoggle', |
url => '/adm/preferences?action=debugtoggle', |
permission => 'F', |
permission => 'F', |
#help => '', |
#help => '', |
icon => 'blog.png', |
icon => 'blog.png', |
|
alttext => 'Debugging Icon', |
linktitle => 'Toggle Debug Messages.', |
linktitle => 'Toggle Debug Messages.', |
}); |
}); |
} |
} |
|
|
$r->print(&Apache::loncommon::start_page('My Space')); |
$r->print(&Apache::loncommon::start_page('My Space')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences')); |
$r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences')); |
$r->print($message); |
$r->print('<div class="LC_landmark" role="main">'."\n".$message); |
$r->print(Apache::lonhtmlcommon::generate_menu(@menu)); |
$r->print(Apache::lonhtmlcommon::generate_menu(@menu)."\n".'</div>'); |
$r->print(Apache::loncommon::end_page()); |
$r->print(Apache::loncommon::end_page()); |
} |
} |
|
|
Line 2306 sub handler {
|
Line 2892 sub handler {
|
} else { |
} else { |
$brlink ='/adm/preferences'; |
$brlink ='/adm/preferences'; |
$brtxt = 'Set User Preferences'; |
$brtxt = 'Set User Preferences'; |
$brhelp = 'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display'; |
$brhelp = 'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display'; |
} |
} |
Apache::lonhtmlcommon::add_breadcrumb |
Apache::lonhtmlcommon::add_breadcrumb |
({href => $brlink, |
({href => $brlink, |
Line 2318 sub handler {
|
Line 2904 sub handler {
|
}elsif($env{'form.action'} eq 'changepass'){ |
}elsif($env{'form.action'} eq 'changepass'){ |
&passwordchanger($r); |
&passwordchanger($r); |
}elsif($env{'form.action'} eq 'verify_and_change_pass'){ |
}elsif($env{'form.action'} eq 'verify_and_change_pass'){ |
&verify_and_change_password($r,'preferences','',\$ended); |
&verify_and_change_password($r,'preferences','','','',\$ended); |
}elsif($env{'form.action'} eq 'changescreenname'){ |
}elsif($env{'form.action'} eq 'changescreenname'){ |
&screennamechanger($r); |
&screennamechanger($r); |
}elsif($env{'form.action'} eq 'verify_and_change_screenname'){ |
}elsif($env{'form.action'} eq 'verify_and_change_screenname'){ |
Line 2394 sub handler {
|
Line 2980 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 |
Line 2479 sub updateable_userinfo {
|
Line 3069 sub updateable_userinfo {
|
sub do_redirect { |
sub do_redirect { |
my ($r,$url,$msg) = @_; |
my ($r,$url,$msg) = @_; |
$r->print( |
$r->print( |
&Apache::loncommon::start_page('Switching Server ...',undef, |
&Apache::loncommon::start_page('Loading ...',undef, |
{'redirect' => [0.5,$url]}). |
{'redirect' => [2,$url]}). |
'<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n". |
'<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n". |
"$msg\n". |
"$msg\n". |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
return; |
return; |
} |
} |
|
|
|
sub toggle_options_js { |
|
return <<"ENDSCRIPT"; |
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
function toggleOptions(form,radioname,divid) { |
|
var num = form.elements[radioname].length; |
|
if (num) { |
|
var setvis = ''; |
|
var onvalue = 'user'; |
|
if (radioname == 'settimezone') { |
|
onvalue = '1'; |
|
} |
|
for (var i=0; i<num; i++) { |
|
if (form.elements[radioname][i].checked) { |
|
if (form.elements[radioname][i].value == onvalue) { |
|
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 |
|
} |
|
|
|
sub selectbox { |
|
my ($name,$value,$readonly,$functionref,@idlist)=@_; |
|
my $selout = '<select name="'.$name.'">'; |
|
foreach my $id (@idlist) { |
|
$selout.='<option value="'.$id.'"'; |
|
if ($id eq $value) { |
|
$selout.=' selected="selected"'; |
|
} |
|
if ($readonly) { |
|
$selout .= ' disabled="disabled"'; |
|
} |
|
$selout.='>'.&{$functionref}($id).'</option>'; |
|
} |
|
$selout.='</select>'; |
|
return $selout; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |