loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpreferences.pm between versions 1.234 and 1.248

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__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.234
changed lines
	Added in v.1.248