--- loncom/interface/longroup.pm	2009/02/25 16:39:54	1.22
+++ loncom/interface/longroup.pm	2010/09/26 01:57:21	1.26
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # accessor routines used to provide information about course groups 
 #
-# $Id: longroup.pm,v 1.22 2009/02/25 16:39:54 hauer Exp $
+# $Id: longroup.pm,v 1.26 2010/09/26 01:57:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,6 +31,7 @@ package Apache::longroup;
 use strict;
 use Apache::lonnet;
 use Apache::lonlocal;
+use LONCAPA;
 
 ###############################################
 =pod
@@ -290,7 +291,8 @@ sub group_changes {
         }
        if (@changegroups > 0) {
             my %currpriv;
-            my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid);
+            my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
+            my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid,'.',undef,$extra);
 	    if (my $tmp = &Apache::lonnet::error(%roleshash)) {
                 &Apache::lonnet::logthis('Error retrieving roles: '.$tmp.
                                          ' for '.$uname.':'.$udom);
@@ -686,6 +688,25 @@ sub get_group_bbinfo {
 }
 
 ###############################################
+
+sub get_group_link {
+    my ($cdom,$cnum,$group,$navmap) = @_;
+    if (ref($navmap)) {
+        my $symb = 'uploaded/'.$cdom.'/'.$cnum.'/group_folder_'.$group.'.sequence___1___adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg';
+        my $res = $navmap->getBySymb($symb);
+        my $link;
+        if (ref($res)) {
+            $link = $res->link();
+            $link .= (($link=~/\?/)?'&':'?').'symb='.$res->shown_symb();
+        } else {
+            $link = '/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg';
+        }
+        return $link; 
+    }
+    return;
+}
+
+###############################################
 
 1;