loncom/interface/longroup.pm - diff

Return to longroup.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.23, 2010/01/30 18:19:16
+version 1.28, 2012/04/25 21:22:02
  Line 688  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=~/\?/)?'&amp;':'?').'symb='.$res->shown_symb();
+         } else {
+             $link = '/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg';
+         }
+         return $link;
+     }
+     return;
+ }
+ ###############################################
 ;