--- loncom/interface/domainprefs.pm 2007/12/21 04:47:24 1.37 +++ loncom/interface/domainprefs.pm 2008/01/01 18:48:17 1.38 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.37 2007/12/21 04:47:24 raeburn Exp $ +# $Id: domainprefs.pm,v 1.38 2008/01/01 18:48:17 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -281,11 +281,24 @@ sub handler { ' />  '. '

'); + ' />

'); + my ($numitems,$midpoint,$seconddiv,$count); + $numitems = @prefs_order; + $midpoint = int($numitems/2); + if ($numitems%2) { + $midpoint ++; + } + $count = 0; foreach my $item (@prefs_order) { - $r->print('

'); + $r->print('

'); + $count ++; + if ((!$seconddiv) && ($count >= $midpoint)) { + $r->print('
'."\n".'
'."\n"); + $seconddiv = 1; + } } - $r->print('

'.&mt('Display options').'

'."\n". + $r->print('

'. + &mt('Display options').'

'."\n". '

'.&mt('Display using: ')."\n". '  '.