loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.290, 2014/07/27 11:14:36
+version 1.291, 2014/07/27 11:39:33
  Line 841  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;
                      }
                  }