--- loncom/interface/Attic/londropadd.pm 2006/12/21 20:07:57 1.154 +++ loncom/interface/Attic/londropadd.pm 2007/04/17 18:28:44 1.159 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.154 2006/12/21 20:07:57 raeburn Exp $ +# $Id: londropadd.pm,v 1.159 2007/04/17 18:28:44 www 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; @@ -117,7 +117,7 @@ sub domain_form { $select_menus{$dom}->{'default'}= 'default'; $select_menus{$dom}->{'select2'}->{'default'} = 'default'; # Now build up the other items in the second menu - my %servers = &Apache::loncommon::get_library_servers($dom); + my %servers = &Apache::lonnet::get_servers($dom,'library'); foreach my $server (keys(%servers)) { $select_menus{$dom}->{'select2'}->{$server} = "$server $servers{$server}"; @@ -766,7 +766,7 @@ sub enroll_single_student { if (lc($desiredhost) eq 'default') { $desiredhost = undef; } else { - my %home_servers =&Apache::loncommon::get_library_servers($domain); + my %home_servers =&Apache::lonnet::get_servers($domain,'library'); if (! exists($home_servers{$desiredhost})) { $r->print(''.&mt('Error').':'. &mt('Invalid home server specified')); @@ -822,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 { @@ -948,11 +949,11 @@ sub get_student_username_domain_form {$lt{'usr'}: | +|
---|---|
: | |
$lt{'dom'}: | +|
: | $domform |
+ | |