loncom/interface/longroup.pm - diff

Return to longroup.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.22, 2009/02/25 16:39:54	version 1.28, 2012/04/25 21:22:02
Line 31 package Apache::longroup;	Line 31 package Apache::longroup;
use strict;	use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonlocal;	use Apache::lonlocal;
	use LONCAPA;

###############################################	###############################################
=pod	=pod
Line 686 sub get_group_bbinfo {	Line 687 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;	1;