--- loncom/lonnet/perl/lonnet.pm	2000/10/30 16:32:06	1.54
+++ loncom/lonnet/perl/lonnet.pm	2000/10/30 22:45:21	1.55
@@ -785,13 +785,16 @@ sub allowed {
                $checkreferer=0;
            }
        }
+
        if (($ENV{'HTTP_REFERER'}) && ($checkreferer)) {
-	  my $refuri=&declutter($ENV{'HTTP_REFERER'});
+	  my $refuri=$ENV{'HTTP_REFERER'};
+          $refuri=~s/^http\:\/\/$ENV{'request.host'}//i;
+          $refuri=&declutter($refuri);
           my @uriparts=split(/\//,$refuri);
           my $filename=$uriparts[$#uriparts];
           my $pathname=$refuri;
           $pathname=~s/\/$filename$//;
-          my @filenameparts=split(/\./,$filename);
+          my @filenameparts=split(/\./,$uri);
           if (&fileembstyle($filenameparts[$#filenameparts]) ne 'ssi') {
             if ($ENV{'acc.res.'.$ENV{'request.course.id'}.'.'.$pathname}=~
               /\&$filename\:([\d\|]+)\&/) {