--- loncom/auth/lonracc.pm	2007/02/01 06:31:33	1.19
+++ loncom/auth/lonracc.pm	2007/03/02 23:17:48	1.21
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Access Handler for File Transfers
 #
-# $Id: lonracc.pm,v 1.19 2007/02/01 06:31:33 albertel Exp $
+# $Id: lonracc.pm,v 1.21 2007/03/02 23:17:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,9 +37,9 @@ use IO::Socket;
 sub subscribed {
     my ($filename,$id) = @_;
 
-    return 0 if (-e "$filename.subscription");
+    return 0 if (!-e "$filename.subscription");
 
-    my $hostname=$Apache::lonnet::hostname{$id};
+    my $hostname=&Apache::lonnet::hostname($id);
     my (undef,undef,undef,undef,$ip) = gethostbyname($hostname);
     
     return 0 if (length($ip) != 4);