--- loncom/interface/Attic/londropadd.pm 2007/03/03 01:33:21 1.156 +++ loncom/interface/Attic/londropadd.pm 2007/04/17 15:45:03 1.158 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.156 2007/03/03 01:33:21 albertel Exp $ +# $Id: londropadd.pm,v 1.158 2007/04/17 15:45:03 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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')); @@ -949,9 +949,9 @@ sub get_student_username_domain_form {
$lt{'usr'}: | +|
---|---|
: | |
$lt{'dom'}: | +|
: | $domform |
@@ -997,7 +997,7 @@ sub print_enroll_single_student_form { # # Set up domain selection form my $homeserver_form = ''; - my %servers = &Apache::loncommon::get_library_servers($domain); + my %servers = &Apache::lonnet::get_servers($domain,'library'); $homeserver_form = ' |