loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.58, 2008/12/03 21:08:07	version 1.59, 2008/12/03 22:00:41
Line 382 sub display_group_links {	Line 382 sub display_group_links {
my @available = ();	my @available = ();
my %menu = ();	my %menu = ();
%{$menu{'email'}} = (	%{$menu{'email'}} = (
text => 'Group message',	text => 'Group Message',
href => '/adm/email?compose=group&group='.$group.	href => '/adm/email?compose=group&group='.$group.
$refarg,	$refarg,
);	);
Line 391 sub display_group_links {	Line 391 sub display_group_links {
href => '/adm/groupboards?group='.$group.$refarg,	href => '/adm/groupboards?group='.$group.$refarg,
);	);
%{$menu{'chat'}} = (	%{$menu{'chat'}} = (
text => 'Group chat',	text => 'Group Chat',
href => "javascript:group_chat('$group')",	href => "javascript:group_chat('$group')",
);	);
%{$menu{'files'}} = (	%{$menu{'files'}} = (
text => 'File repository',	text => 'File Repository',
href => '/adm/coursegrp_portfolio?group='.$group.	href => '/adm/coursegrp_portfolio?group='.$group.
$refarg,	$refarg,
);	);
%{$menu{'roster'}} = (	%{$menu{'roster'}} = (
text => 'Membership roster',	text => 'Membership Roster',
href => '/adm/grouproster?group='.$group.$refarg,	href => '/adm/grouproster?group='.$group.$refarg,
);	);
foreach my $tool (sort(keys(%menu))) {	foreach my $tool (sort(keys(%menu))) {