loncom/interface/groupboards.pm - diff

Return to groupboards.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2006/06/30 14:08:35	version 1.3, 2006/06/30 15:37:58
Line 79 sub handler {	Line 79 sub handler {
my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);	my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
$r->print(&mt('The new discussion board was added successfully.<br />'));	$r->print(&mt('The new discussion board was added successfully.<br />'));
$r->print('<table border="0"><tr><td>'.	$r->print('<table border="0"><tr><td>'.
'<a href="'.$newurl.'?register=1&symb='.$symb.	'<a href="'.$newurl.'?group='.$group.'">'.
'&group='.$group.'">'.
&mt('Edit [_1] board',$bbtitle).'</a></td>'.	&mt('Edit [_1] board',$bbtitle).'</a></td>'.
'<td>  </td><td>'.	'<td>  </td><td>'.
'<a href="/adm/groupboards?group='.$group.'">'.	'<a href="/adm/groupboards?group='.$group.'">'.
Line 145 function makebulboard() {	Line 144 function makebulboard() {
}	}
if (@groupboards) {	if (@groupboards) {
foreach my $board (@groupboards) {	foreach my $board (@groupboards) {
$r->print('<a href="'.$boards{$board}{'url'}.'?register=1&symb='.$board.'&group='.$group.'">'.$boards{$board}{'title'}.'</a><br />');	$r->print('<a href="'.$boards{$board}{'url'}.'?group='.$group.'">'.$boards{$board}{'title'}.'</a><br />');
}	}
} else {	} else {
$r->print(&mt('There are currently no discussion boards in this [_1].',	$r->print(&mt('There are currently no discussion boards in this [_1].',