--- loncom/interface/longroup.pm	2008/12/19 20:10:11	1.17
+++ loncom/interface/longroup.pm	2016/03/11 22:11:22	1.31
@@ -1,6 +1,8 @@
 # The LearningOnline Network with CAPA
 # accessor routines used to provide information about course groups 
 #
+# $Id: longroup.pm,v 1.31 2016/03/11 22:11:22 musolffc Exp $
+#
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -28,6 +30,8 @@ package Apache::longroup;
 
 use strict;
 use Apache::lonnet;
+use Apache::lonlocal;
+use LONCAPA;
 
 ###############################################
 =pod
@@ -214,7 +218,7 @@ for the course is included amongst the u
 and would trigger membership in teh same group(s) 
 
 If role is being added, will add any group memberships specified
-for auto-group population, unless use is already a group member.
+for auto-group population, unless user is already a group member.
 Uses default group privileges and default start and end group access
 times.
 
@@ -248,9 +252,6 @@ sub group_changes {
     } else {
         $cid = $url;
     }
-    my $courseid = $cid;
-    $courseid =~ s|^/||;
-    $courseid =~ s|/|_|;
     my %crshash=&Apache::lonnet::coursedescription($cid);
     $cdom = $crshash{'domain'};
     $cnum = $crshash{'num'};
@@ -288,10 +289,7 @@ sub group_changes {
        if (@changegroups > 0) {
             my %currpriv;
             my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid);
-	    if (my $tmp = &Apache::lonnet::error(%roleshash)) {
-                &Apache::lonnet::logthis('Error retrieving roles: '.$tmp.
-                                         ' for '.$uname.':'.$udom);
-            } else {
+	    if (keys(%roleshash) > 0) {
                 my $group_privs = '';
                 foreach my $group (@changegroups) {
                     if ($chgtype eq 'add') {
@@ -437,12 +435,12 @@ sub group_changes {
 
 sub get_fixed_privs {
     my $fixedprivs = {
-                      email      => {sgm => 1},
-                      discussion => {vgb => 1},
-                      chat       => {pgc => 1},
-                      files      => {rgf => 1},
-                      roster     => {vgm => 1},
-                      homepage   => {vgh => 1},
+                      email          => {sgm => 1},
+                      discussion     => {vgb => 1},
+                      chat           => {pgc => 1},
+                      files          => {rgf => 1},
+                      roster         => {vgm => 1},
+                      homepage       => {vgh => 1},
                      };
     return $fixedprivs;
 }
@@ -452,9 +450,9 @@ sub get_fixed_privs {
 sub get_tool_privs {
     my ($gpterm) = @_;
     my $toolprivs = {
-        email      => {
-            sgm => 'Send '.$gpterm.' mail',
-            sgb => 'Broadcast mail',
+        email    => {
+            sgm => 'Send '.$gpterm.' message',
+            sgb => 'Broadcast message',
         },
         discussion => {
             cgb => 'Create boards',
@@ -464,7 +462,7 @@ sub get_tool_privs {
             vgb => 'View boards',
         },
         chat       => {
-            pgc => 'Chat',
+            pgc => 'Chat Room',
         },
         files      => {
             rgf => 'Retrieve',
@@ -684,5 +682,131 @@ sub get_group_bbinfo {
 
 ###############################################
 
+sub get_group_link {
+    my ($cdom,$cnum,$group,$navmap,$view_permission,$refarg) = @_;
+    if (ref($navmap)) {
+        my $map = "uploaded/$cdom/$cnum/group_folder_"."$group.sequence";
+        my $mapres = $navmap->getResourceByUrl("/$map");
+        my $hidden;
+        if (ref($mapres)) {
+            if ((!$view_permission) && ($mapres->randomout())) {
+                $hidden = 1;
+            }
+        }
+        my $url = "adm/$cdom/$cnum/$group/smppg";
+        my $idx = '1';
+        my $symb = $map.'___'.$idx.'___'.$url;
+        my $res = $navmap->getBySymb($symb);
+        $url = "/$url";
+        $map = "/$map";
+        my $link;
+        if (ref($res)) {
+            if ((!$view_permission) && ($res->randomout())) {
+                $hidden = 1;
+            } else {
+                $hidden = 0;
+                if ($refarg) {
+                    $link = $url.'?'.$refarg;
+                } else {
+                    $link = $res->link();
+                    $link .= (($link=~/\?/)?'&':'?').'symb='.$res->shown_symb();
+                }
+            }
+        } elsif (&Apache::lonnet::is_on_map($url)) {
+            unless ($hidden) {
+                $link = $url;
+                if ($refarg) {
+                    $link = $url.'?'.$refarg;
+                }
+            }
+        }
+        if (wantarray) {
+            return ($link,$hidden);
+        } else {
+            return $link;
+        }
+    }
+    return;
+}
+
+###############################################
+
+sub display_group_links {
+    my ($r,$target,$group,$context,$refarg,$numtoolsref,$hidehdr,%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);
+        }
+    }
+    my $output = '';
+    if (ref($numtoolsref) eq 'SCALAR') {
+        $$numtoolsref = scalar(@available);
+    }
+    if (@available > 0) {
+        if ($target eq 'tex') {
+            $output = '<table cellspacing="4" cellpadding="4">';
+        } else {
+            $output = &Apache::loncommon::start_data_table();
+        }
+        foreach my $tool (@available) {
+            if ($target eq 'tex') {
+                $output .= '<tr><td>'.&mt($menu{$tool}{text}).'</td></tr>';
+            } else {
+                $output .= &Apache::loncommon::start_data_table_row()
+                          .'<td><a href="'.$menu{$tool}{href}.'">'
+                          .&mt($menu{$tool}{text}).'</a></td>'
+                          .&Apache::loncommon::end_data_table_row();
+            }
+        }
+        if ($target eq 'tex') {
+            $output .= '</table>';
+        } else {
+            $output .= &Apache::loncommon::end_data_table();
+        }
+        if ($target eq 'tex') {
+            $output = &Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'<br /><br />'.$output);
+        } else {
+            unless ($hidehdr) {
+                $output = '<h3>'.&mt('Available Group Tools').'</h3>'.$output;
+            }
+        }
+    } else {
+        if ($context eq 'edit') {
+            $output = &mt('No group functionality.');
+        } else {
+            $output = &mt('No group functionality (e.g., e-mail, discussion, chat room or file upload) is currently available to you in this group: [_1].',
+                      '<b>'.&unescape($groupinfo{'description'}).'</b>');
+        }
+        if ($target eq 'tex') {
+            $output = &Apache::lonxml::xmlparse($r,'tex',$output);
+        }
+    }
+    return $output;
+}
+
 1;