/[Frey]/trunk/lib/Frey/Web/FLVPlayer.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Web/FLVPlayer.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 854 by dpavlin, Mon Dec 15 19:41:35 2008 UTC revision 855 by dpavlin, Mon Dec 15 21:40:28 2008 UTC
# Line 53  sub as_markup { Line 53  sub as_markup {
53          my %info = $self->flv_info;          my %info = $self->flv_info;
54          warn "# info ", $self->dump( \%info );          warn "# info ", $self->dump( \%info );
55    
56          my $width  = $info{meta_width};          my $width  = $info{video_width};
57          my $height = $info{meta_height};          my $height = $info{video_height};
58    
59          push @{ $self->FlashVars }, "flv=$url";          $self->FlashVars( [ "flv=$url", "autoload=1", "showtime=1" ] );
60    
61            push @{ $self->FlashVars }, 'showvolume=1' if $info{audio_count} > 0;
62    
63          my $subtitles = $self->subtitles_as_markup;          my $subtitles = $self->subtitles_as_markup;
64    
# Line 64  sub as_markup { Line 66  sub as_markup {
66    
67          my $FlashVars = join('&', @{ $self->FlashVars });          my $FlashVars = join('&', @{ $self->FlashVars });
68    
69            my $info = $self->dropdown( $self->path, \%info );
70          qq|          qq|
71                  <object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height">                  <object type="application/x-shockwave-flash" data="$swf" width="$width" height="$height">
72                  <param name="movie" value="$swf" />                  <param name="movie" value="$swf" />
73                  <param name="FlashVars" value="$FlashVars" />                  <param name="FlashVars" value="$FlashVars" />
74                  </object>                  </object>
75                    <div>$info</div>
76                  $subtitles                  $subtitles
77          |;          |;
78    
Legend:
Removed from v.854  
changed lines
  Added in v.855
  ViewVC Help
Powered by ViewVC 1.1.26