--- loncom/publisher/lonpublisher.pm	2002/01/17 15:13:56	1.71
+++ loncom/publisher/lonpublisher.pm	2002/01/18 16:48:14	1.72
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.71 2002/01/17 15:13:56 www Exp $
+# $Id: lonpublisher.pm,v 1.72 2002/01/18 16:48:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -314,19 +314,22 @@ sub publish {
                               print $logfile 'Index: '.$tag.':'.$maxindex."\n";
 			  }
 		      }
-		  } 
-                  
-                  foreach ('src','href','background') {
-                      if (defined($parms{$_})) {
-			  my $oldurl=$parms{$_};
-                          my $newurl=&urlfixup($oldurl,$target);
-                          if ($newurl ne $oldurl) {
-			      $parms{$_}=$newurl;
-                              print $logfile 'URL: '.$tag.':'.$oldurl.' - '.
-				  $newurl."\n";
+		  }
+
+                  foreach my $type ('src','href','background','bgimg') {
+		      foreach my $key (keys(%parms)) {
+			  if ($key =~ /^$type$/i) {
+			      my $oldurl=$parms{$key};
+			      my $newurl=&urlfixup($oldurl,$target);
+			      if ($newurl ne $oldurl) {
+				  $parms{$key}=$newurl;
+				  print $logfile 'URL: '.$tag.':'.$oldurl.' - '.
+				      $newurl."\n";
+			      }
+			      $allow{&absoluteurl($newurl,$target)}=1;
 			  }
-                          $allow{&absoluteurl($newurl,$target)}=1;
-                      }
+			  last;
+		      }
                   }
 
                   if ($lctag eq 'applet') {