--- loncom/publisher/lonpublisher.pm	2001/08/11 18:06:25	1.34
+++ loncom/publisher/lonpublisher.pm	2001/08/11 19:06:54	1.36
@@ -133,11 +133,21 @@ sub selectbox {
 
 # -------------------------------------------------------- Publication Step One
 
-sub makeallowed {
-}
-
 sub urlfixup {
-    return shift;
+    my ($url,$target)=@_;
+    my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/);
+    map {
+	if ($_ eq $host) {
+	    $url=~s/^http\:\/\///;
+            $url=~s/^$host//;
+        }
+    } values %Apache::lonnet::hostname;
+    $url=~s/\~$cuname/res\/$cudom\/$cuname/;
+    if ($target) {
+	$target=~s/\/[^\/]+$//;
+       $url=&Apache::lonnet::hreflocation($target,$url);
+    }
+    return $url;
 }
 
 sub publish {
@@ -147,6 +157,8 @@ sub publish {
     my $scrout='';
     my $allmeta='';
     my $content='';
+    my %allow=();
+    undef %allow;
 
     unless ($logfile=Apache::File->new('>>'.$source.'.log')) {
 	return 
@@ -236,13 +248,13 @@ sub publish {
                   map {
                       if (defined($parms{$_})) {
 			  my $oldurl=$parms{$_};
-                          my $newurl=&urlfixup($oldurl);
+                          my $newurl=&urlfixup($oldurl,$target);
                           if ($newurl ne $oldurl) {
 			      $parms{$_}=$newurl;
                               print $logfile 'URL: '.$tag.':'.$oldurl.' - '.
 				  $newurl."\n";
 			  }
-                          &makeallowed($newurl);
+                          $allow{$newurl}=1;
                       }
                   } ('src','href','codebase');
 
@@ -258,7 +270,9 @@ sub publish {
                   } keys %parms;
   
 		  $outstring.='<'.$tag.$newparmstring.$endtag.'>';
-	        }
+	         } else {
+		   $allow{$token->[2]->{'src'}}=1;
+		 }
               } elsif ($token->[0] eq 'E') {
                   unless ($token->[1] eq 'allow') {
                      $outstring.=$token->[2];
@@ -267,6 +281,13 @@ sub publish {
                   $outstring.=$token->[1];
               }
           }
+# ------------------------------------------------------------ Construct Allows
+	my $allowstr="\n";
+        map {
+           $allowstr.='<allow src="'.$_.'" />'."\n";
+        } keys %allow;
+        $outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;
+        
         {
           my $org;
           unless ($org=Apache::File->new('>'.$source)) {