loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2006/12/04 21:44:02	version 1.69, 2007/01/03 21:55:37
Line 3679 sub add_group_folder {	Line 3679 sub add_group_folder {
if ($action eq 'create') {	if ($action eq 'create') {
if (&get_folder_lock($cdom,$cnum,'group_allfolders',$now) eq 'ok') {	if (&get_folder_lock($cdom,$cnum,'group_allfolders',$now) eq 'ok') {
# check if group_allfolders.sequence exists.	# check if group_allfolders.sequence exists.
my ($errtext,$fatal)=&LONCAPA::map::mapread($allgrpsmap);	my $mapcontents = &Apache::lonnet::getfile($allgrpsmap);
if ($fatal == 2) { #file does not exist;	if ($mapcontents eq '-1') { #file does not exist;
my $grpstitle = &mt('[_1] [_2]s',$crstype,$ucgpterm);	my $grpstitle = &mt('[_1] [_2]s',$crstype,$ucgpterm);
my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};	my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};
$topmap_url =~ s\|/+\|/\|g;	$topmap_url =~ s\|/+\|/\|g;