--- loncom/interface/lonparmset.pm	2006/05/01 19:37:33	1.298
+++ loncom/interface/lonparmset.pm	2006/05/09 14:38:10	1.299
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.298 2006/05/01 19:37:33 albertel Exp $
+# $Id: lonparmset.pm,v 1.299 2006/05/09 14:38:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1124,14 +1124,11 @@ sub usermenu {
                  $env{'course.'.$env{'request.course.id'}.'.num'},
 					 \%sectionhash);
     my $groups;
-    my %grouphash;
-    my $numgrp = &Apache::loncommon::coursegroups(
-                 \%grouphash,
-                 $env{'course.'.$env{'request.course.id'}.'.domain'},
-                 $env{'course.'.$env{'request.course.id'}.'.num'});
+    my %grouphash = &Apache::loncommon::coursegroups();
+
     if ($numsec > 0) {
         $sections=$lt{'se'}.': <select name="csec"';
-        if ($numsec && $numgrp && $parmlev ne 'full') {
+        if (%grouphash && $parmlev ne 'full') {
             $sections .= qq| onchange="group_or_section('csec')" |;
         }
         $sections .= '>';
@@ -1142,7 +1139,7 @@ sub usermenu {
         }
         $sections.='</select>';
     }
-    if ($numsec && $numgrp && $parmlev ne 'full') {
+    if ($numsec && %grouphash && $parmlev ne 'full') {
         $sections .= '&nbsp;or&nbsp;';
         $sections .= qq|
 <script type="text/javascript">
@@ -1168,9 +1165,10 @@ function group_or_section(caller) {
 </script>
 |;
     } 
-    if ($numgrp > 0) {
+
+    if (%grouphash) {
         $groups=$lt{'gr'}.': <select name="cgroup"';
-        if ($numsec && $numgrp && $env{'form.action'} eq 'settable') {
+        if ($numsec && $env{'form.action'} eq 'settable') {
             $groups .= qq| onchange="group_or_section('cgroup')" |;
         }
         $groups .= '>';
@@ -1271,25 +1269,21 @@ sub sectionmenu {
 
 sub groupmenu {
     my ($r,$selectedgroups)=@_;
-    my %grouphash;
-    my $numgrp = &Apache::loncommon::coursegroups(
-                 \%grouphash,
-                 $env{'course.'.$env{'request.course.id'}.'.domain'},
-                 $env{'course.'.$env{'request.course.id'}.'.num'});
-    if ($numgrp) {
-        $r->print('<select name="Group" multiple="true" size="8" >');
-        foreach my $group (sort(keys(%grouphash))) {
-            $r->print('    <option value="'.$group.'"');
-            foreach (@{$selectedgroups}) {
-                if ($group eq $_) {
-                    $r->print(' selected');
-                    last;
-                }
-            }
-            $r->print('>'.$group."</option>\n");
-        }
-        $r->print("</select>\n");
+    my %grouphash = &Apache::loncommon::coursegroups();
+    return if (!%grouphash);
+
+    $r->print('<select name="Group" multiple="true" size="8" >');
+    foreach my $group (sort(keys(%grouphash))) {
+	$r->print('    <option value="'.$group.'"');
+	foreach (@{$selectedgroups}) {
+	    if ($group eq $_) {
+		$r->print(' selected');
+		last;
+	    }
+	}
+	$r->print('>'.$group."</option>\n");
     }
+    $r->print("</select>\n");
 }