--- loncom/interface/Attic/londropadd.pm 2007/03/03 01:33:21 1.156
+++ 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.156 2007/03/03 01:33:21 albertel Exp $
+# $Id: londropadd.pm,v 1.159 2007/04/17 18:28:44 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,11 +949,11 @@ sub get_student_username_domain_form {
$lt{'eos'}
-
$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 = '