--- loncom/interface/Attic/londropadd.pm 2006/12/21 19:41:03 1.152 +++ loncom/interface/Attic/londropadd.pm 2007/03/03 01:33:21 1.156 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.152 2006/12/21 19:41:03 albertel Exp $ +# $Id: londropadd.pm,v 1.156 2007/03/03 01:33:21 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -106,7 +106,7 @@ sub domain_form { # Set up domain and server selection forms # # Get the domains - my @domains = &Apache::loncommon::get_domains(); + my @domains = &Apache::lonnet::all_domains(); # build up the menu information to be passed to # &Apache::loncommon::linked_select_forms my %select_menus; @@ -180,11 +180,16 @@ 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 => 'Re-enable a deleted group', + help => 'Course_Reenable_Group', + permission => $grp_manage_permission, + url => '/adm/coursegroups?refpage=enrl&action=reenable', + }, { text => 'Enter an existing group', help => 'Course_Display_Group', permission => $grp_view_permission, @@ -817,6 +822,7 @@ sub enroll_single_student { } else { $r->print(&mt('Invalid username or domain')); } + $r->print("

".&mt("Enroll another student")."

"); } sub setup_date_selectors { @@ -2199,7 +2205,7 @@ sub upfile_drop_add { $amode = ''; # This causes the loop below to be skipped } } - if ( $domain eq &clean_domain($domain) + if ( $domain eq &LONCAPA::clean_domain($domain) && ($amode ne '')) { ####################################### ## Enroll Students ##