--- loncom/interface/groupboards.pm 2007/05/02 01:33:48 1.11 +++ loncom/interface/groupboards.pm 2009/02/02 14:31:58 1.13 @@ -59,7 +59,7 @@ sub handler { my $gpterm = &Apache::loncommon::group_term(); my $ucgpterm = $gpterm; $ucgpterm =~ s/^(\w)/uc($1)/e; - my $bodytitle = $crstype.' Discussion Boards'; + my $bodytitle = $ucgpterm.' Discussion Boards'; my $group = $env{'form.group'}; $group =~ s/\W//g; my ($description,$earlyout,$refarg); @@ -155,7 +155,12 @@ function makebulboard() { "\n".'
'); } if (@{$groupboards} > 0) { - $r->print('
'); + $r->print('
' + .&Apache::loncommon::start_data_table() + .&Apache::loncommon::start_data_table_header_row() + .''.&mt('Discussion Boards').'' + .&Apache::loncommon::end_data_table_header_row() + ); foreach my $board (@{$groupboards}) { my $board_url = $$boards{$board}{'url'}; if ($board_url =~ /\?/) { @@ -163,12 +168,20 @@ function makebulboard() { } else { $board_url .= '?group='.$group; } - $r->print(''. - $$boards{$board}{'title'}.'
'); + $r->print(&Apache::loncommon::start_data_table_row() + .'' + .'' + .$$boards{$board}{'title'}.'' + .'' + .&Apache::loncommon::end_data_table_row() + ); } + $r->print(&Apache::loncommon::end_data_table()); } else { - $r->print('
'.&mt('There are currently no discussion boards in this [_1].', - $gpterm)); + $r->print('

' + .&mt('There are currently no discussion boards in this '.$gpterm.'.',) + .'

' + ); } $r->print(&Apache::loncommon::end_page()); return OK;