loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.67, 2006/12/04 14:59:56	version 1.68, 2006/12/04 21:44:02
Line 3139 sub write_group_data {	Line 3139 sub write_group_data {
$description,$tools,\%groupinfo,	$description,$tools,\%groupinfo,
$gpterm,$ucgpterm,$crstype);	$gpterm,$ucgpterm,$crstype);
if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print(&mt('A problem occurred when creating folders for the new [_1].<br/>[_2]<br />',$gpterm,$result));	$r->print(&mt('A problem occurred when creating folders for the new [_1].<br />[_2]<br />',$gpterm,$result));
}	}
$r->print(&mt('[_1] [_2] was created.<br />',$ucgpterm,$groupname));	$r->print(&mt('[_1] [_2] was created.<br />',$ucgpterm,$groupname));
} elsif ($action eq 'modify') {	} elsif ($action eq 'modify') {
Line 3767 sub get_folder_lock {	Line 3767 sub get_folder_lock {

while (($gotlock ne 'ok') && $tries <3) {	while (($gotlock ne 'ok') && $tries <3) {
$tries ++;	$tries ++;
sleep 1;	sleep(1);
$gotlock = &Apache::lonnet::newput('coursegroups',$lockhash,$cdom,$cnum);	$gotlock = &Apache::lonnet::newput('coursegroups',$lockhash,$cdom,$cnum);
}	}
return $gotlock;	return $gotlock;