--- loncom/interface/Attic/londropadd.pm	2006/05/11 20:09:47	1.142
+++ loncom/interface/Attic/londropadd.pm	2006/07/20 21:55:37	1.146
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.142 2006/05/11 20:09:47 raeburn Exp $
+# $Id: londropadd.pm,v 1.146 2006/07/20 21:55:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,6 +39,7 @@ use Apache::Constants qw(:common :http R
 use Spreadsheet::WriteExcel;
 use Apache::lonstathelpers();
 use Apache::lonlocal;
+use Apache::longroup;
 
 ###############################################################
 ###############################################################
@@ -77,7 +78,7 @@ sub modifystudent {
             } elsif ( ((!$section) && (!$csec)) || ($section ne $csec) ) {
                 my (undef,$end,$start)=split(/\_/,$roles{$course});
                 my $now=time;
-                # if this is an active role 
+                # if this is an active role
                 if (!($start && ($now<$start)) || !($end && ($now>$end))) {
                     my $reply=&Apache::lonnet::modifystudent
                         # dom  name  id mode pass     f     m     l     g
@@ -176,11 +177,11 @@ sub print_main_menu {
             permission => $grp_manage_permission,
             url => '/adm/coursegroups?refpage=enrl&action=modify',
             },
-          { text => 'Delete an existing group',
-            help => 'Course_Delete_Group',
-            permission => $grp_manage_permission,
-            url => '/adm/coursegroups?refpage=enrl&action=delete',
-            },
+#          { text => 'Delete an existing group',
+#            help => 'Course_Delete_Group',
+#            permission => $grp_manage_permission,
+#            url => '/adm/coursegroups?refpage=enrl&action=delete',
+#            },
           { text => 'Enter an existing group',
             help => 'Course_Display_Group',
             permission => $grp_view_permission,
@@ -1936,7 +1937,7 @@ sub show_drop_list {
     my $cdom = $env{'course.'.$cid.'.domain'};
     my $cnum = $env{'course.'.$cid,'.num'};
     my ($classgroups) = &Apache::loncoursedata::get_group_memberships(
-                                                      $classlist,$cdom,$cnum);
+                                              $classlist,$keylist,$cdom,$cnum);
     #
     my $action = "drop";
     $r->print(<<END);
@@ -2198,7 +2199,7 @@ sub upfile_drop_add {
         my $flushc=0;
         my %student=();
         # Get information about course groups
-        my %curr_groups = &Apache::loncommon::coursegroups();
+        my %curr_groups = &Apache::longroup::coursegroups();
         # Get new classlist
         foreach (@studentdata) {
             my %entries=&Apache::loncommon::record_sep($_);
@@ -2367,7 +2368,7 @@ sub drop_student_list {
 
 sub section_check_js {
     my $groupslist;
-    my %curr_groups = &Apache::loncommon::coursegroups();
+    my %curr_groups = &Apache::longroup::coursegroups();
     if (%curr_groups) {
         $groupslist = join('","',sort(keys(%curr_groups)));
     }