--- loncom/interface/lonpopulate.pm	2006/05/16 21:56:14	1.42
+++ loncom/interface/lonpopulate.pm	2006/05/18 01:08:51	1.43
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.42 2006/05/16 21:56:14 raeburn Exp $
+# $Id: lonpopulate.pm,v 1.43 2006/05/18 01:08:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,6 +32,7 @@ use Apache::loncommon;
 use Apache::lonhtmlcommon;
 use Apache::lonlocal;
 use Apache::loncoursedata;
+use Apache::longroup;
 use Apache::Constants qw(:common :http REDIRECT);
 use Time::Local;
 use LONCAPA::Enrollment;
@@ -1748,7 +1749,7 @@ sub print_crosslistings_response () {
     }
 
     if ($numcross > 0) {
-        my %curr_groups = &Apache::loncommon::coursegroups();
+        my %curr_groups = &Apache::longroup::coursegroups();
 	for (my $i=0; $i<$numcross; $i++) {
 	    my $xl = "newcross_".$i;
 	    my $lc_sec = "newlcsec_".$i;
@@ -2065,7 +2066,7 @@ sub print_sections_response () {
     }
     
     if ($numsec > 0) {
-        my %curr_groups = &Apache::loncommon::coursegroups();
+        my %curr_groups = &Apache::longroup::coursegroups();
 	for (my $i=0; $i<$numsec; $i++) {
 	    my $sec = "newsec_".$i;
 	    my $lc_sec = "newlcsec_".$i;