--- loncom/interface/domainprefs.pm 2010/08/26 08:07:42 1.138.2.2 +++ loncom/interface/domainprefs.pm 2010/10/05 18:44:08 1.138.2.4 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.138.2.2 2010/08/26 08:07:42 raeburn Exp $ +# $Id: domainprefs.pm,v 1.138.2.4 2010/10/05 18:44:08 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -341,7 +341,7 @@ sub handler { {text => 'Course/Community defaults', help => 'Domain_Configuration_Course_Defaults', header => [{col1 => 'Defaults which can be overridden for each course by a DC', - col2 => 'Value',}, + col2 => 'Value',}], }, 'privacy' => {text => 'User Privacy', @@ -512,7 +512,7 @@ sub print_config_box { } elsif ($action eq 'helpsettings') { $output .= &print_helpsettings('top',$dom,$confname,$settings,\$rowtotal); } elsif ($action eq 'usersessions') { - $output .= &print_usersessions('top',$dom,$settings,\$rowtotal); + $output .= &print_usersessions('top',$dom,$settings,\$rowtotal); } elsif ($action eq 'rolecolors') { $output .= &print_rolecolors($phase,'student',$dom,$confname,$settings,\$rowtotal); } @@ -2279,9 +2279,17 @@ sub print_coursedefaults { sub print_usersessions { my ($position,$dom,$settings,$rowtotal) = @_; my ($css_class,$datatable,%checked,%choices); + my (%by_ip,%by_location,@intdoms); + &build_location_hashes(\@intdoms,\%by_ip,\%by_location); + if (keys(%by_location) == 0) { + if ($position eq 'top') { + $datatable .= '