Log Message:
-----------
Modified method in which parameters are passed to
flash applets (uses FlashVars parameter )
Modified Files:
--------------
pg/lib:
Applet.pm
Revision Data
-------------
Index: Applet.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Applet.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/Applet.pm -Llib/Applet.pm -u -r1.6 -r1.7
--- lib/Applet.pm
+++ lib/Applet.pm
@@ -92,7 +92,7 @@
package Applet;
-
+use URI::Escape;
@@ -373,13 +373,16 @@
my $archive = $self->{archive};
my $width = $self->{width};
my $height = $self->{height};
- my $parameters = '';
- my $parameters = '';
+ my $javaParameters = '';
+ my $flashParameters = '';
my %param_hash = %{$self->params()};
foreach my $key (keys %param_hash) {
- $parameters .= qq!<param name ="$key" value = "$param_hash{$key}">\n!
+ $javaParameters .= qq!<param name ="$key" value = "$param_hash{$key}">\n!;
+ $flashParameters .= uri_escape($key).'='.uri_escape($param_hash{$key}).'&';
}
+ $flashParameters =~ s/\&$//; # trim last &
+
$objectText = $self->{objectText};
$objectText =~ s/(\$\w+)/$1/gee;
return $objectText;
@@ -514,11 +517,13 @@
<param name="quality" value="high" />
<param name="bgcolor" value="#869ca7" />
<param name="allowScriptAccess" value="sameDomain" />
+ <param name="FlashVars" value="$flashParameters"/>
<embed src="$codebase/$appletName.swf" quality="high" bgcolor="#869ca7"
width="$width" height="$height" name="$appletName" align="middle" id="$appletName"
play="true" loop="false" quality="high" allowScriptAccess="sameDomain"
type="application/x-shockwave-flash"
- pluginspage="http://www.macromedia.com/go/getflashplayer">
+ pluginspage="http://www.macromedia.com/go/getflashplayer"
+ FlashVars="$flashParameters">
</embed>
</object>
@@ -564,7 +569,7 @@
height = "$height"
MAYSCRIPT
>
- $parameters
+ $javaParameters
</applet>
END_OBJECT_TEXT
@@ -582,7 +587,7 @@
height = "$height"
MAYSCRIPT
>
- $parameters
+ $javaParameters
</applet>
END_OBJECT_TEXT
|
