loncom/interface/lonconfigsettings.pm - diff

Return to lonconfigsettings.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2015/06/09 21:22:56	version 1.32, 2016/07/25 19:50:30
Line 338 sub display_settings {	Line 338 sub display_settings {
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) {	if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) {
if (@actions > 0) {	if (@actions > 0) {
my $rowsum = 0;	my $rowsum = 0;
my (%output,%rowtotal,@items);	my (%output,%rowtotal,@items,$got_check_uncheck);
foreach my $item (@{$prefs_order}) {	foreach my $item (@{$prefs_order}) {
if (grep(/^\Q$item\E$/,@actions)) {	if (grep(/^\Q$item\E$/,@actions)) {
push(@items,$item);	push(@items,$item);
Line 347 sub display_settings {	Line 347 sub display_settings {
if (ref($values) eq 'HASH') {	if (ref($values) eq 'HASH') {
$settings = $values->{$item};	$settings = $values->{$item};
}	}
if ($item eq 'usersessions') {	if (($item eq 'usersessions') \|\| ($item eq 'ssl')) {
$r->print('<script type="text/javascript">'."\n".	unless ($got_check_uncheck) {
'// <![CDATA['."\n".	$r->print('<script type="text/javascript">'."\n".
&Apache::loncommon::check_uncheck_jscript()."\n".	'// <![CDATA['."\n".
'// ]]>'."\n".	&Apache::loncommon::check_uncheck_jscript()."\n".
'</script>'."\n");	'// ]]>'."\n".
	'</script>'."\n");
	$got_check_uncheck = 1;
	}
} elsif ($item eq 'selfcreation') {	} elsif ($item eq 'selfcreation') {
if (ref($values) eq 'HASH') {	if (ref($values) eq 'HASH') {
$settings = $values->{'usercreation'};	$settings = $values->{'usercreation'};