loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.71, 2002/01/17 15:13:56
+version 1.72, 2002/01/18 16:48:14
  Line 314  sub publish {
                                print $logfile 'Index: '.$tag.':'.$maxindex."\n";
  			  }
  		      }
  		  }
-                   foreach ('src','href','background') {
+                   foreach my $type ('src','href','background','bgimg') {
-                       if (defined($parms{$_})) {
+ 		      foreach my $key (keys(%parms)) {
- 			  my $oldurl=$parms{$_};
+ 			  if ($key =~ /^$type$/i) {
-                           my $newurl=&urlfixup($oldurl,$target);
+ 			      my $oldurl=$parms{$key};
-                           if ($newurl ne $oldurl) {
+ 			      my $newurl=&urlfixup($oldurl,$target);
- 			      $parms{$_}=$newurl;
+ 			      if ($newurl ne $oldurl) {
-                               print $logfile 'URL: '.$tag.':'.$oldurl.' - '.
+ 				  $parms{$key}=$newurl;
- 				  $newurl."\n";
+ 				  print $logfile 'URL: '.$tag.':'.$oldurl.' - '.
+ 				      $newurl."\n";
+ 			      }
+ 			      $allow{&absoluteurl($newurl,$target)}=1;
  			  }
-                           $allow{&absoluteurl($newurl,$target)}=1;
+ 			  last;
-                       }
+ 		      }
                    }
                    if ($lctag eq 'applet') {