loncom/interface/longroup.pm - diff

Return to longroup.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2006/07/17 15:07:26	version 1.11, 2006/07/28 18:44:27
Line 232 sub group_changes {	Line 232 sub group_changes {
my $courseid = $cid;	my $courseid = $cid;
$courseid =~ s\|^/\|\|;	$courseid =~ s\|^/\|\|;
$courseid =~ s\|/\|_\|;	$courseid =~ s\|/\|_\|;
	if ($role =~ /^cr/) {
	$role =~ s/\//_/g;
	}
my %crshash=&Apache::lonnet::coursedescription($cid);	my %crshash=&Apache::lonnet::coursedescription($cid);
$cdom = $crshash{'domain'};	$cdom = $crshash{'domain'};
$cnum = $crshash{'num'};	$cnum = $crshash{'num'};