[BACK]Return to lonpublisher.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpublisher.pm between versions 1.292 and 1.293

version 1.292, 2014/08/03 13:52:59 version 1.293, 2014/08/03 14:20:38
Line 825  sub fix_ids_and_indices { Line 825  sub fix_ids_and_indices {
 #  #
                                                     my $spritesheet = $1.'express_show/spritesheet.png';                                                      my $spritesheet = $1.'express_show/spritesheet.png';
                                                     $allow{&absoluteurl($spritesheet,$target)}=1;                                                      $allow{&absoluteurl($spritesheet,$target)}=1;
   
   #
   # Camtasia 8.4: skins/express_show/spritesheet.min.css needed, and included in zip archive.
   # Not referenced directly in <main>.html or <main>_player.html files,
   # so add this file to %allow (where <main> is name user gave to file/archive).
   #
                                                       my $spritecss = $1.'express_show/spritesheet.min.css';
                                                       $allow{&absoluteurl($spritecss,$target)}=1;
                                                 }                                                  }
                                             } elsif ($srctype eq 'PosterImageSrc') {                                              } elsif ($srctype eq 'PosterImageSrc') {
                                                 if ($url =~ m{^(.+)_First_Frame\.png$}) {                                                  if ($url =~ m{^(.+)_First_Frame\.png$}) {
Line 843  sub fix_ids_and_indices { Line 851  sub fix_ids_and_indices {
                                 }                                  }
                             }                              }
                         }                          }
                           if ($script =~ m{\.addMediaSrc\((["'])((?!\1).+)\1\);}) {
                               my $src = $2;
                               if ($src) {
                                   my $url = &urlfixup($src);
                                   unless ($url=~m{^(?:http|https|ftp)://}) {
                                       $allow{&absoluteurl($url,$target)}=1;
                                   }
                               }
                           }
                         if ($script =~ /\(document,\s*(['"])script\1,\s*\[([^\]]+)\]\);/s) {                          if ($script =~ /\(document,\s*(['"])script\1,\s*\[([^\]]+)\]\);/s) {
                             my $scriptslist = $2;                              my $scriptslist = $2;
                             my @srcs = split(/\s*,\s*/,$scriptslist);                              my @srcs = split(/\s*,\s*/,$scriptslist);
Line 857  sub fix_ids_and_indices { Line 874  sub fix_ids_and_indices {
                                 }                                  }
                             }                              }
                         }                          }
                           if ($script =~ m{loadScript\(\s*(['"])((?:(?!\1).)+\.js)\1,\s*function}is) {
                               my $src = $2;
                               if ($src) {
                                   my $url = &urlfixup($src);
                                   unless ($url=~m{^(?:http|https|ftp)://}) {
                                       $allow{&absoluteurl($url,$target)}=1;
                                   }
                               }
                           }
                         $outstring .= $script;                          $outstring .= $script;
                     }                      }
                 }                  }
Removed from v.1.292  
changed lines
  Added in v.1.293

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>