--- loncom/publisher/lonpublisher.pm	2014/07/27 11:14:36	1.290
+++ loncom/publisher/lonpublisher.pm	2014/07/27 11:39:33	1.291
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.290 2014/07/27 11:14:36 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.291 2014/07/27 11:39:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -840,6 +840,20 @@ sub fix_ids_and_indices {
                                     }
                                 }
                             }
+                        }
+                        if ($script =~ /\(document,\s*(['"])script\1,\s*\[([^\]]+)\]\);/s) {
+                            my $scriptslist = $2;
+                            my @srcs = split(/\s*,\s*/,$scriptslist);
+                            foreach my $src (@srcs) {
+                                if ($src =~ /(["'])(?:(?!\1).)+\.js\1/) {
+                                    my $quote = $1;
+                                    my ($url) = ($src =~ m/\Q$quote\E([^$quote]+)\Q$quote\E/);
+                                    $url = &urlfixup($url);
+                                    unless ($url=~m{^(?:http|https|ftp)://}) {
+                                        $allow{&absoluteurl($url,$target)}=1;
+                                    }
+                                }
+                            }
                         }
                         $outstring .= $script;
                     }