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; |