loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.128, 2016/02/26 21:44:39	version 1.129, 2016/02/27 03:06:38
Line 335 END	Line 335 END
} else {	} else {
$link =	$link =
&Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission);	&Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission);
print STDERR "link is \|\|$link\|\|\n";
if ($link) {	if ($link) {
$link = $actionlinks{$action}.$link;	$link = $actionlinks{$action}.$link;
$link .= (($link=~/\?/)?'&':'?').'ref=grouplist';	$link .= (($link=~/\?/)?'&':'?').'ref=grouplist';
Line 417 print STDERR "link is \|\|$link\|\|\n";	Line 416 print STDERR "link is \|\|$link\|\|\n";
$group_info{description});	$group_info{description});
my ($link,$hidden) =	my ($link,$hidden) =
&Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission);	&Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission);
print STDERR "link is \|\|$link\|\|\n";
if ($link) {	if ($link) {
$link .= '&ref=grouplist';	$link .= '&ref=grouplist';
$r->print('<span style="font-size: larger"><a href="'.$link.'">'.	$r->print('<span style="font-size: larger"><a href="'.$link.'">'.