--- loncom/interface/Attic/londropadd.pm	2002/07/31 14:56:34	1.43
+++ 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.43 2002/07/31 14:56:34 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}";
@@ -146,9 +146,11 @@ sub menu_phase_one {
     my $r=shift;
     my $upfile_select=&Apache::loncommon::upfile_select_html();
     my $create_classlist_help = 
-	&Apache::loncommon::help_open_topic("Course_Create_Class_List");
+	&Apache::loncommon::help_open_topic("Course_Create_Class_List",
+           "How do I create a class list from a spreadsheet");
     my $create_csv_help =
-	&Apache::loncommon::help_open_topic("Course_Convert_To_CSV");
+	&Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
+           "How do I create a CSV file from a spreadsheet");
     $r->print(<<ENDUPFORM);
 <input type=hidden name=phase value=two>
 <hr>
@@ -156,9 +158,8 @@ sub menu_phase_one {
 $upfile_select
 <p><input type=submit name="fileupload" value="Upload Courselist">
 <br />
-How to create a class list from a spreadsheet $create_classlist_help
-<br />
-How to create a CSV file from your spreadsheet $create_csv_help
+$create_classlist_help <br />
+$create_csv_help
 
 <hr />
 <h3>Enroll a single student</h3>
@@ -535,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('<font color="#ff0000">Error:</font>'.
                           'Invalid home server specified');
@@ -918,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('<font color="#ff0000">Error:</font>'.
                       'Invalid home server specified');