--- loncom/interface/lonsimplepage.pm 2013/09/17 15:04:30 1.103
+++ loncom/interface/lonsimplepage.pm 2016/02/26 21:44:39 1.104
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Simple Page Editor
#
-# $Id: lonsimplepage.pm,v 1.103 2013/09/17 15:04:30 raeburn Exp $
+# $Id: lonsimplepage.pm,v 1.104 2016/02/26 21:44:39 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -187,7 +187,8 @@ sub handler {
if ($has_group_access) {
if ((!$group_home_edit) && (!$group_home_view) &&
(!$group_view_perm) && (!$group_edit_perm)) {
- &display_group_links($r,$target,$group,'view',$refarg,%groupinfo);
+ $r->print(&Apache::longroup::display_group_links($r,$env{'form.grade_target'},$group,
+ 'view',$refarg,undef,undef,%groupinfo));
if ($env{'form.grade_target'} ne 'tex') {
$r->print(&Apache::loncommon::end_page());
} else {
@@ -348,7 +349,8 @@ sub handler {
my %fields = %{$fields_ref};
$r->print('
');
- &display_group_links($r, $target, $group, 'edit', $refarg, %groupinfo);
+ $r->print(&Apache::longroup::display_group_links($r,$target,$group,'edit',
+ $refarg,undef,undef,%groupinfo));
$r->print('
');
}
};
@@ -367,7 +369,7 @@ sub handler {
} else {
if ($group ne '') {
- &display_group_links($r,$target,$group,'view',$refarg,%groupinfo);
+ $r->print(&Apache::longroup::display_group_links($r,$target,$group,'view',$refarg,undef,undef,%groupinfo));
} else {
my $text=&mt('No page information provided.');
if ($target ne 'tex') {
@@ -385,79 +387,6 @@ sub handler {
return OK;
}
-sub display_group_links {
- my ($r,$target,$group,$context,$refarg,%groupinfo) = @_;
- my @available = ();
- my %menu = ();
- %{$menu{'email'}} = (
- text => 'Group Message',
- href => '/adm/email?compose=group&group='.$group.
- $refarg,
- );
- %{$menu{'discussion'}} = (
- text => 'Discussion Boards',
- href => '/adm/groupboards?group='.$group.$refarg,
- );
- %{$menu{'chat'}} = (
- text => 'Group Chat Room',
- href => "javascript:group_chat('$group')",
- );
- %{$menu{'files'}} = (
- text => 'Group Portfolio',
- href => '/adm/coursegrp_portfolio?group='.$group.
- $refarg,
- );
- %{$menu{'roster'}} = (
- text => 'Membership Roster',
- href => '/adm/grouproster?group='.$group.$refarg,
- );
- foreach my $tool (sort(keys(%menu))) {
- if ($groupinfo{functions}{$tool} eq 'on') {
- push(@available,$tool);
- }
- }
- if (@available > 0) {
- my $output = '';
- if ($target eq 'tex') {
- $output = '
'.&mt($menu{$tool}{text}).' | ' - .&mt($menu{$tool}{text}).' | ' - .&Apache::loncommon::end_data_table_row(); - } - } - if ($target eq 'tex') { - $output .= '