[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[albertel]

albertel		Thu Feb 19 16:51:11 2004 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - enable dump button on docs screen
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.106 loncom/interface/londocs.pm:1.107
--- loncom/interface/londocs.pm:1.106	Fri Feb 13 09:59:48 2004
+++ loncom/interface/londocs.pm	Thu Feb 19 16:51:11 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.106 2004/02/13 14:59:48 www Exp $
+# $Id: londocs.pm,v 1.107 2004/02/19 21:51:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -97,13 +97,15 @@
 	    } else {
 		($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);
 	    }
-	    if (&Apache::lonnet::homeserver($ca,$cd) eq 
-		$Apache::lonnet::perlvar{'lonHostID'}) {
+	    my $allowed=0;
+	    my $myhome=&Apache::lonnet::homeserver($ca,$cd);
+	    my @ids=&Apache::lonnet::current_machine_ids();
+	    foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }
+	    if ($allowed) {
 		$home++;
 		$outhash{'home_'.$ca.'@'.$cd}=1;
 	    } else {
-		$outhash{'otherhome_'.$ca.'@'.$cd}=
-		    &Apache::lonnet::homeserver($ca,$cd);
+		$outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;
 		$other++;
 	    }
 	}