loncom/interface/groupboards.pm - diff

Return to groupboards.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2007/05/02 01:33:48	version 1.12, 2009/01/28 14:09:54
Line 155 function makebulboard() {	Line 155 function makebulboard() {
"\n".'</form><br />');	"\n".'</form><br />');
}	}
if (@{$groupboards} > 0) {	if (@{$groupboards} > 0) {
$r->print('<br />');	$r->print('<br />'
	.&Apache::loncommon::start_data_table()
	.&Apache::loncommon::start_data_table_header_row()
	.'<th>'.&mt('Discussion Boards').'</th>'
	.&Apache::loncommon::end_data_table_header_row()
	);
foreach my $board (@{$groupboards}) {	foreach my $board (@{$groupboards}) {
my $board_url = $$boards{$board}{'url'};	my $board_url = $$boards{$board}{'url'};
if ($board_url =~ /\?/) {	if ($board_url =~ /\?/) {
Line 163 function makebulboard() {	Line 168 function makebulboard() {
} else {	} else {
$board_url .= '?group='.$group;	$board_url .= '?group='.$group;
}	}
$r->print('<a href="'.$board_url.'&'.$refarg.'">'.	$r->print(&Apache::loncommon::start_data_table_row()
$$boards{$board}{'title'}.'</a><br />');	.'<td>'
	.'<a href="'.$board_url.'&'.$refarg.'">'
	.$$boards{$board}{'title'}.'</a>'
	.'</td>'
	.&Apache::loncommon::end_data_table_row()
	);
}	}
	$r->print(&Apache::loncommon::end_data_table());
} else {	} else {
$r->print('<br />'.&mt('There are currently no discussion boards in this [_1].',	$r->print('<p class="LC_info">'
$gpterm));	.&mt('There are currently no discussion boards in this '.$gpterm.'.',)
	.'</p>'
	);
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;