--- loncom/interface/Attic/londropadd.pm 2002/08/01 16:48:21 1.44
+++ loncom/interface/Attic/londropadd.pm 2002/08/08 19:27:35 1.45
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.44 2002/08/01 16:48:21 bowersj2 Exp $
+# $Id: londropadd.pm,v 1.45 2002/08/08 19:27:35 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -129,7 +129,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_home_servers($dom);
+ my %servers = &Apache::loncommon::get_library_servers($dom);
foreach my $server (keys(%servers)) {
$select_menus{$dom}->{'select2'}->{$server}
= "$server $servers{$server}";
@@ -536,7 +536,7 @@ sub enroll_single_student {
if (lc($desiredhost) eq 'default') {
$desiredhost = undef;
} else {
- my %home_servers = &Apache::loncommon::get_home_servers($domain);
+ my %home_servers =&Apache::loncommon::get_library_servers($domain);
if (! exists($home_servers{$desiredhost})) {
$r->print('Error:'.
'Invalid home server specified');
@@ -919,7 +919,7 @@ sub upfile_drop_add {
if (lc($desiredhost) eq 'default') {
$desiredhost = undef;
} else {
- my %home_servers = &Apache::loncommon::get_home_servers($domain);
+ my %home_servers = &Apache::loncommon::get_library_servers($domain);
if (! exists($home_servers{$desiredhost})) {
$r->print('Error:'.
'Invalid home server specified');