version 1.15, 2006/05/09 14:38:09
|
version 1.16, 2006/05/09 15:09:27
|
Line 454 sub group_administration {
|
Line 454 sub group_administration {
|
(($state eq 'pick_name') || ($state eq 'pick_privs'))) || |
(($state eq 'pick_name') || ($state eq 'pick_privs'))) || |
(($action eq 'modify') && (($state eq 'change_settings') || |
(($action eq 'modify') && (($state eq 'change_settings') || |
($state eq 'add_members')))) { |
($state eq 'add_members')))) { |
my $numsections = &Apache::loncommon::get_sections($cdom,$cnum, |
%sectioncount = &Apache::loncommon::get_sections($cdom,$cnum); |
\%sectioncount); |
if (%sectioncount) { |
if ($numsections > 0) { |
|
$elements{'create'}{'pick_name'}{'sectionpick'} = 'selectbox'; |
$elements{'create'}{'pick_name'}{'sectionpick'} = 'selectbox'; |
$elements{'modify'}{'change_mapping'}{'sectionpick'} = 'selectbox'; |
$elements{'modify'}{'change_mapping'}{'sectionpick'} = 'selectbox'; |
$elements{'modify'}{'add_members'}{'sectionpick'} = 'selectbox'; |
$elements{'modify'}{'add_members'}{'sectionpick'} = 'selectbox'; |
Line 3410 function toggleTools(field,caller) {
|
Line 3409 function toggleTools(field,caller) {
|
|
|
sub validate_groupname { |
sub validate_groupname { |
my ($groupname,$action,$cdom,$cnum) = @_; |
my ($groupname,$action,$cdom,$cnum) = @_; |
my %sectioncount; |
my %sectioncount = &Apache::loncommon::get_sections($cdom,$cnum); |
my $numsec=&Apache::loncommon::get_sections($cdom,$cnum,\%sectioncount); |
|
my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum); |
my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum); |
|
|
my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
Line 3436 sub validate_groupname {
|
Line 3434 sub validate_groupname {
|
$earlyout = $exitmsg.$lt{'isno'}.'<br />'.$lt{'gnmo'}; |
$earlyout = $exitmsg.$lt{'isno'}.'<br />'.$lt{'gnmo'}; |
return $earlyout; |
return $earlyout; |
} |
} |
if ($numsec) { |
if (exists($sectioncount{$groupname})) { |
if (exists($sectioncount{$groupname})) { |
return $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}. |
$earlyout = $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}. |
'<br />'.$lt{'grna'}; |
'<br />'.$lt{'grna'}; |
|
return $earlyout; |
|
} |
|
} |
} |
if ($action eq 'create' |
if ($action eq 'create' |
&& exists($curr_groups{$groupname})) { |
&& exists($curr_groups{$groupname})) { |