--- loncom/interface/longroup.pm	2010/01/30 18:19:16	1.23
+++ loncom/interface/longroup.pm	2010/02/23 14:18:12	1.24
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # accessor routines used to provide information about course groups 
 #
-# $Id: longroup.pm,v 1.23 2010/01/30 18:19:16 raeburn Exp $
+# $Id: longroup.pm,v 1.24 2010/02/23 14:18:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -687,6 +687,20 @@ 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 = $res->link();
+        $link .= (($link=~/\?/)?'&':'?').'symb='.$res->shown_symb();
+        return $link;
+    }
+    return;
+}
+
+###############################################
 
 1;