[WWcvs] pg: Modified method in which parameters are passed to flash applets (uses FlashVars parameter )

[Mike G. v. a. <we...@ma...>]

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