--- loncom/interface/lonconfigsettings.pm 2015/06/09 21:22:56 1.31
+++ loncom/interface/lonconfigsettings.pm 2016/07/25 19:50:30 1.32
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: lonconfigsettings.pm,v 1.31 2015/06/09 21:22:56 damieng Exp $
+# $Id: lonconfigsettings.pm,v 1.32 2016/07/25 19:50:30 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -338,7 +338,7 @@ sub display_settings {
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) {
if (@actions > 0) {
my $rowsum = 0;
- my (%output,%rowtotal,@items);
+ my (%output,%rowtotal,@items,$got_check_uncheck);
foreach my $item (@{$prefs_order}) {
if (grep(/^\Q$item\E$/,@actions)) {
push(@items,$item);
@@ -347,12 +347,15 @@ sub display_settings {
if (ref($values) eq 'HASH') {
$settings = $values->{$item};
}
- if ($item eq 'usersessions') {
- $r->print(''."\n");
+ if (($item eq 'usersessions') || ($item eq 'ssl')) {
+ unless ($got_check_uncheck) {
+ $r->print(''."\n");
+ $got_check_uncheck = 1;
+ }
} elsif ($item eq 'selfcreation') {
if (ref($values) eq 'HASH') {
$settings = $values->{'usercreation'};