--- loncom/interface/domainprefs.pm	2023/06/03 19:18:11	1.425
+++ loncom/interface/domainprefs.pm	2023/06/03 19:26:31	1.426
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.425 2023/06/03 19:18:11 raeburn Exp $
+# $Id: domainprefs.pm,v 1.426 2023/06/03 19:26:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6782,22 +6782,6 @@ sub ltimenu_titles {
     );
 }
 
-sub check_switchserver {
-    my ($home) = @_;
-    my $switchserver;
-    if ($home ne '') {
-        my $allowed;
-        my @ids=&Apache::lonnet::current_machine_ids();
-        foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
-        if (!$allowed) {
-            $switchserver='<a href="/adm/switchserver?otherserver='.$home.'&amp;role='.
-                          &HTML::Entities::encode($env{'request.role'},'\'<>"&').
-                          '&amp;destinationurl=/adm/domainprefs">'.&mt('Switch Server').'</a>';
-        }
-    }
-    return $switchserver;
-}
-
 sub print_coursedefaults {
     my ($position,$dom,$settings,$rowtotal) = @_;
     my ($css_class,$datatable,%checkedon,%checkedoff,%defaultchecked,@toggles);
@@ -11715,7 +11699,6 @@ sub modifiable_userdata_row {
               '<td class="LC_left_item" colspan="2"><table>';
     my $rem;
     my %checks;
-    my %current;
     if (ref($settings) eq 'HASH') {
         my $hashref;
         if ($context eq 'lti') {
@@ -13492,7 +13475,9 @@ sub check_switchserver {
     my @ids=&Apache::lonnet::current_machine_ids();
     foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
     if (!$allowed) {
-	$switchserver='<a href="/adm/switchserver?otherserver='.$home.'&amp;role=dc./'.$dom.'/&amp;destinationurl=/adm/domainprefs">'.&mt('Switch Server').'</a>';
+	$switchserver='<a href="/adm/switchserver?otherserver='.$home.'&amp;role='.
+                      &HTML::Entities::encode($env{'request.role'},'\'<>"&').
+                      '&amp;destinationurl=/adm/domainprefs">'.&mt('Switch Server').'</a>';
     }
     return $switchserver;
 }