--- loncom/homework/functionplotresponse.pm	2012/08/16 23:03:01	1.97
+++ loncom/homework/functionplotresponse.pm	2015/04/05 17:09:12	1.110
@@ -1,7 +1,7 @@
 # LearningOnline Network with CAPA
 # Functionplot responses
 #
-# $Id: functionplotresponse.pm,v 1.97 2012/08/16 23:03:01 www Exp $
+# $Id: functionplotresponse.pm,v 1.110 2015/04/05 17:09:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,9 +49,49 @@ BEGIN {
 # Return a true value if HTML5 should be used.
 
 sub useHTML5 {
-    return 1;
+    if ($env{'browser.type'} eq 'chrome') {
+        if ($env{'browser.version'} >= 14) {
+            return 1;
+        }
+    } elsif ($env{'browser.type'} eq 'safari') {
+        if ($env{'browser.os'} eq 'mac') {
+            my ($prefix,$version) = ($env{'browser.version'} =~ /^(\d*)(\d{3})\./); 
+            if ($version >= 536) {
+                return 1;
+            }
+        }
+    } elsif ($env{'browser.type'} eq 'mozilla') {
+        if ($env{'browser.info'} =~ /^firefox\-(\d+)/) {
+            my $firefox = $1;
+            if ((($env{'browser.os'} eq 'mac') && ($firefox >= 20)) ||
+                (($env{'browser.os'} eq 'unix') && ($firefox >= 17)) ||
+                (($env{'browser.os'} eq 'win') && ($firefox >= 14))) {
+                return 1;
+            }
+        }
+    } elsif ($env{'browser.type'} eq 'explorer') { 
+        if (($env{'browser.os'} eq 'win') && ($env{'browser.version'} >= 10)) {
+            return 1;
+        }
+    } elsif ($env{'browser.type'} eq 'opera') {
+        if ($env{'browser.version'} >= 18) {
+            return 1;
+        }
+    }
+    return 0;
 }
 
+#
+# HTML5 version does not understand "_" in IDs
+#
+sub appid {
+    my ($id)=@_;
+    $id=~s/\_/rid/gs;
+    $id=~s/\W//gs;
+    return $id;
+}
+
+#
 # Routines to start the applet (Java) or the HTML5/JavaScript
 #
 # There can be a number of applets on a page, each called ggbApplet_$id, 
@@ -88,12 +128,13 @@ sub geogebra_default_parameters {
 
 sub java_geogebra_startcode {
     my ($id,$width,$height)=@_;
+    my $appid=&appid($id);
     $width=int(1.*$width);
     $height=int(1.*$height);
     unless ($width) { $width=700; }
     unless ($height) { $height=400; }
     return (<<ENDSTARTCODE);
-<applet name="ggbApplet_$id" code="geogebra.GeoGebraApplet" archive="geogebra.jar"
+<applet name="ggbApplet$appid" code="geogebra.GeoGebraApplet" archive="geogebra.jar"
          codebase="/adm/geogebra/"  width="$width" height="$height" MAYSCRIPT>
        <param name="java_arguments" value="-Xmx512m -Djnlp.packEnabled=true"/>
 ENDSTARTCODE
@@ -111,6 +152,7 @@ sub java_geogebra_code_param {
 
 sub html5_geogebra_startcode {
     my ($id,$width,$height)=@_;
+    my $appid=&appid($id);
     $width=int(1.*$width);
     $height=int(1.*$height);
     unless ($width) { $width=700; }
@@ -118,7 +160,7 @@ sub html5_geogebra_startcode {
     my $code=&geogebra_internal_program();
     return (<<ENDSTARTCODE);
 <article class="geogebraweb" data-param-enableLabelDrags="false" data-param-enableShiftDragZoom="false" 
-data-param-width="$width" data-param-height="$height" data-param-id="ggbApplet_$id" 
+data-param-width="$width" data-param-height="$height" data-param-id="ggbApplet$appid" 
 data-param-ggbbase64="$code"></article>
 ENDSTARTCODE
 }
@@ -136,12 +178,13 @@ sub geogebra_internal_program {
 #
 sub java_geogebra_default_parameters {
    my ($id)=@_;
+   my $appid=&appid($id);
    return(<<ENDDEFAULTPARAMETERS);
         <param name="image" value="/adm/lonIcons/lonanim.gif"  />
         <param name="boxborder" value="false"  />
         <param name="centerimage" value="true"  />
 	<param name="cache_archive" value="geogebra.jar, geogebra_main.jar, geogebra_gui.jar, geogebra_cas.jar, geogebra_export.jar, geogebra_algos.jar, geogebra_javascript.jar, geogebra_properties.jar, jlatexmath.jar, jlm_cyrillic.jar, jlm_greek.jar" />
-	<param name="cache_version" value="4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0" />
+	<param name="cache_version" value="4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0" />
         <param name="framePossible" value="false" />
 
         <param name="showResetIcon" value="false" />
@@ -156,7 +199,7 @@ sub java_geogebra_default_parameters {
         <param name="enableShiftDragZoom" value="false" />
         <param name="allowRescaling" value="false" />
         <param name="enableLabelDrags" value="false" />
-        <param name="ggbOnInitParam" value="applet_$id" />
+        <param name="ggbOnInitParam" value="ggbApplet$appid" />
 ENDDEFAULTPARAMETERS
 }
 
@@ -171,7 +214,7 @@ sub init_script {
    if ($#Apache::functionplotresponse::callscripts>=0) {
       my $script='';
       foreach my $id (@Apache::functionplotresponse::callscripts) {
-          $script.="if (param=='applet_$id') { loaded_$id=true; }\n";
+          $script.="if (param=='ggbApplet".&appid($id)."') { loaded_$id=true; }\n";
       }
       $script.="if (".join(' && ',map { "loaded_$_" } (@Apache::functionplotresponse::callscripts)).
                ") { setTimeout('ggbInitAll()',200) }";
@@ -179,7 +222,7 @@ sub init_script {
       my $html5init='';
       if (&useHTML5()) {
           $html5init=
-           '<script type="text/javascript" language="javascript" src="/adm/geogebra/html5/web/test42/web/web.nocache.js"></script>';
+           '<script type="text/javascript" language="javascript" src="/adm/geogebra/web/web.nocache.js"></script>';
       }
       return (<<ENDGGBINIT);
 $html5init
@@ -206,12 +249,13 @@ ENDGGBINIT
 #
 sub update_script {
     my ($id)=@_;
+    my $appid=&appid($id);
     return (<<ENDUPDATESCRIPT);
 <script type="text/javascript">
 // <![CDATA[
 function updatePointCoordinates_$id(coordinateName) {
-            var x = document.ggbApplet_$id.getXcoord(coordinateName);
-            var y = document.ggbApplet_$id.getYcoord(coordinateName);
+            var x = document.ggbApplet$appid.getXcoord(coordinateName);
+            var y = document.ggbApplet$appid.getYcoord(coordinateName);
             document.lonhomework.elements["HWVAL_$id\_" + coordinateName + "_x"].value = x;
             document.lonhomework.elements["HWVAL_$id\_" + coordinateName + "_y"].value = y;
         }
@@ -226,7 +270,8 @@ ENDUPDATESCRIPT
 
 sub update_register {
    my ($id,$variable)=@_;
-   return "document.ggbApplet_$id.registerObjectUpdateListener('$variable','updatePointCoordinates_$id');\n";
+   my $appid=&appid($id);
+   return "document.ggbApplet$appid.registerObjectUpdateListener('$variable','updatePointCoordinates_$id');\n";
 }
 
 #
@@ -234,6 +279,7 @@ sub update_register {
 #
 sub set_point_coordinate {
    my ($id,$variable,$x,$y,$fixed)=@_;
+   my $appid=&appid($id);
    my $mult=($fixed?'a*':'');
 # Get rid of wild exponents, make sure it's a number
    $x=1.*$x;
@@ -244,9 +290,9 @@ sub set_point_coordinate {
    $y=~s/[e|E]/\*10\^/;
    $y=~s/\+//;
    return (<<ENDSETVARIABLE);
-document.ggbApplet_$id.evalCommand("a=1");
-document.ggbApplet_$id.evalCommand("$variable=$mult($x,$y)");
-document.ggbApplet_$id.setLabelVisible("$variable",false);
+document.ggbApplet$appid.evalCommand("a=1");
+document.ggbApplet$appid.evalCommand("$variable=$mult($x,$y)");
+document.ggbApplet$appid.setLabelVisible("$variable",false);
 ENDSETVARIABLE
 }
 
@@ -255,6 +301,7 @@ ENDSETVARIABLE
 #
 sub set_slope_coordinate {
    my ($id,$variable,$xrel,$yrel,$xmin,$xmax,$ymin,$ymax,$pointname,$fixed)=@_;
+   my $appid=&appid($id);
    my $xvariable=$variable.'x';
    my $yvariable=$variable.'y';
    my $domain=$xmax-$xmin;
@@ -263,15 +310,15 @@ sub set_slope_coordinate {
    my $yinterval=$range/200.;
    my $mult=($fixed?'a*':'');
    return (<<ENDSETSVARIABLE);
-document.ggbApplet_$id.evalCommand("a=1");
-document.ggbApplet_$id.evalCommand("$xvariable=Slider[$xinterval,$domain,$xinterval]");
-document.ggbApplet_$id.setVisible("$xvariable", false);
-document.ggbApplet_$id.evalCommand("$xvariable=$xrel");
-document.ggbApplet_$id.evalCommand("$yvariable=Slider[-$range,$range,$yinterval]");
-document.ggbApplet_$id.setVisible("$yvariable", false);
-document.ggbApplet_$id.evalCommand("$yvariable=$yrel");
-document.ggbApplet_$id.evalCommand("$variable=$mult($xvariable+x($pointname),$yvariable+y($pointname))");
-document.ggbApplet_$id.setLabelVisible("$variable", false);
+document.ggbApplet$appid.evalCommand("a=1");
+document.ggbApplet$appid.evalCommand("$xvariable=Slider[$xinterval,$domain,$xinterval]");
+document.ggbApplet$appid.setVisible("$xvariable", false);
+document.ggbApplet$appid.evalCommand("$xvariable=$xrel");
+document.ggbApplet$appid.evalCommand("$yvariable=Slider[-$range,$range,$yinterval]");
+document.ggbApplet$appid.setVisible("$yvariable", false);
+document.ggbApplet$appid.evalCommand("$yvariable=$yrel");
+document.ggbApplet$appid.evalCommand("$variable=$mult($xvariable+x($pointname),$yvariable+y($pointname))");
+document.ggbApplet$appid.setLabelVisible("$variable", false);
 ENDSETSVARIABLE
 }
 
@@ -367,46 +414,48 @@ ENDSTARTINIT
 
 sub axes_script {
     my ($id,$xmin,$xmax,$ymin,$ymax,$xvisible,$yvisible,$gvisible)=@_;
+    my $appid=&appid($id);
     return (<<ENDAXESSCRIPT);
             // changes (xmin, xmax, ymin, ymax)
-            document.ggbApplet_$id.setCoordSystem($xmin,$xmax,$ymin,$ymax);
+            document.ggbApplet$appid.setCoordSystem($xmin,$xmax,$ymin,$ymax);
 
             // makes the (x,y) axis (in)visible
-            document.ggbApplet_$id.setAxesVisible($xvisible,$yvisible);
+            document.ggbApplet$appid.setAxesVisible($xvisible,$yvisible);
             // makes the grid (in)visible
-            document.ggbApplet_$id.setGridVisible($gvisible);
+            document.ggbApplet$appid.setGridVisible($gvisible);
 ENDAXESSCRIPT
 }
 
 sub axes_label {
     my ($id,$xmin,$xmax,$ymin,$ymax,$xlabel,$ylabel)=@_;
+    my $appid=&appid($id);
     unless ($xlabel || $ylabel) { return ''; }
-    my $return='document.ggbApplet_'.$id.'.evalCommand("topRight=Corner[3]");';
+    my $return='document.ggbApplet'.$appid.'.evalCommand("topRight=Corner[3]");';
     if ($xlabel) {
       if (($ymin<0) && ($ymax>0)) {
        $return.=(<<ENDXAXISLABELSCRIPT);
-document.ggbApplet_$id.evalCommand("Xlabel=(x(topRight)-AxisStepX[],AxisStepY[]/6)");
-document.ggbApplet_$id.setVisible("Xlabel",false);
-document.ggbApplet_$id.evalCommand("Text[\\"$xlabel\\", Xlabel]");
+document.ggbApplet$appid.evalCommand("Xlabel=(x(topRight)-AxisStepX[],AxisStepY[]/6)");
+document.ggbApplet$appid.setVisible("Xlabel",false);
+document.ggbApplet$appid.evalCommand("Text[\\"$xlabel\\", Xlabel]");
 ENDXAXISLABELSCRIPT
       } else {
        $return.=(<<ENDXOFFAXISLABEL);
-document.ggbApplet_$id.evalCommand("LowerRight=Corner[2]");
-document.ggbApplet_$id.evalCommand("Text[\\"$xlabel\\", (x(LowerRight) - AxisStepX[], y(LowerRight) + AxisStepY[] / 2)]");
+document.ggbApplet$appid.evalCommand("LowerRight=Corner[2]");
+document.ggbApplet$appid.evalCommand("Text[\\"$xlabel\\", (x(LowerRight) - AxisStepX[], y(LowerRight) + AxisStepY[] / 2)]");
 ENDXOFFAXISLABEL
       }
     }
     if ($ylabel) {
       if (($xmin<0) && ($xmax>0)) {
        $return.=(<<ENDYAXISLABELSCRIPT);
-document.ggbApplet_$id.evalCommand("Ylabel=(AxisStepX[]/6,y(topRight)-AxisStepY[]/3)");
-document.ggbApplet_$id.setVisible("Ylabel",false);
-document.ggbApplet_$id.evalCommand("Text[\\"$ylabel\\", Ylabel]");
+document.ggbApplet$appid.evalCommand("Ylabel=(AxisStepX[]/6,y(topRight)-AxisStepY[]/3)");
+document.ggbApplet$appid.setVisible("Ylabel",false);
+document.ggbApplet$appid.evalCommand("Text[\\"$ylabel\\", Ylabel]");
 ENDYAXISLABELSCRIPT
       } else {
        $return.=(<<ENDYOFFAXISLABEL);
-document.ggbApplet_$id.evalCommand("UpperLeft=Corner[4]");
-document.ggbApplet_$id.evalCommand("Text[\\"$ylabel\\", (x(UpperLeft) + AxisStepX[] / 5, y(UpperLeft) - AxisStepY[] / 1.8)]");
+document.ggbApplet$appid.evalCommand("UpperLeft=Corner[4]");
+document.ggbApplet$appid.evalCommand("Text[\\"$ylabel\\", (x(UpperLeft) + AxisStepX[] / 5, y(UpperLeft) - AxisStepY[] / 1.8)]");
 ENDYOFFAXISLABEL
       }
     }
@@ -419,6 +468,7 @@ ENDYOFFAXISLABEL
 
 sub plot_script {
    my ($id,$function,$fixed,$label,$color,$xmin,$xmax,$thickness)=@_;
+   my $appid=&appid($id);
    $label=~s/\W//g;
    if (($label) && ($label!~/^[A-Za-z]/)) {
       $label='C'.$label;
@@ -440,12 +490,12 @@ sub plot_script {
       $bc=hex($bh);
    }
    if ($fixed) {
-      return "document.ggbApplet_$id.evalCommand('$label=Function[$function,$xmin,$xmax]');\n".
-             ($visible?'':"document.ggbApplet_$id.setLabelVisible('$label', false);\n").
-             ($color?"document.ggbApplet_$id.setColor('$label',$rc,$gc,$bc);\n":'').
-             ($thickness?"document.ggbApplet_$id.setLineThickness('$label',$thickness);\n":'');
+      return "document.ggbApplet$appid.evalCommand('$label=Function[$function,$xmin,$xmax]');\n".
+             ($visible?'':"document.ggbApplet$appid.setLabelVisible('$label', false);\n").
+             ($color?"document.ggbApplet$appid.setColor('$label',$rc,$gc,$bc);\n":'').
+             ($thickness?"document.ggbApplet$appid.setLineThickness('$label',$thickness);\n":'');
    } else {
-       return "document.ggbApplet_$id.evalCommand('y=$function');\n";
+       return "document.ggbApplet$appid.evalCommand('y=$function');\n";
    }
 }
 
@@ -455,17 +505,18 @@ sub plot_script {
 
 sub plotobject_script {
    my ($id,$label,$x,$y)=@_;
+   my $appid=&appid($id);
    unless ($label) {
       $Apache::functionplotresponse::counter++;
       $label='O'.$Apache::functionplotresponse::counter;
    }
    &generate_input_field($id,$label,$x,$y);
-   return "document.ggbApplet_$id.evalCommand('a=1');\n".
-          "document.ggbApplet_$id.setVisible('a', false);\n".
-          "document.ggbApplet_$id.setLabelVisible('a', false);\n".
-          "document.ggbApplet_$id.evalCommand('$label=a*($x,$y)');\n".
-          "document.ggbApplet_$id.setVisible('$label', true);\n".
-          "document.ggbApplet_$id.setLabelVisible('$label', true);\n";
+   return "document.ggbApplet$appid.evalCommand('a=1');\n".
+          "document.ggbApplet$appid.setVisible('a', false);\n".
+          "document.ggbApplet$appid.setLabelVisible('a', false);\n".
+          "document.ggbApplet$appid.evalCommand('$label=a*($x,$y)');\n".
+          "document.ggbApplet$appid.setVisible('$label', true);\n".
+          "document.ggbApplet$appid.setLabelVisible('$label', true);\n";
 }
 
 #
@@ -474,6 +525,7 @@ sub plotobject_script {
 
 sub plotvector_script {
    my ($id,$label,$xs,$ys,$xe,$ye,$xmin,$xmax,$fixed)=@_;
+   my $appid=&appid($id);
    unless ($label) {
       $Apache::functionplotresponse::counter++;
       $label='V'.$Apache::functionplotresponse::counter;
@@ -487,13 +539,13 @@ sub plotvector_script {
        &new_point_coordinate($id,$startlabel,$xs,$ys,$fixed).
        &new_point_coordinate($id,$endlabel,$xe,$ye,$fixed).
        (<<ENDVECTOR);
-document.ggbApplet_$id.evalCommand("$label=Vector[$startlabel,$endlabel]");
-document.ggbApplet_$id.setLabelVisible("$label",true);
-document.ggbApplet_$id.setLineThickness("$label",8);
-document.ggbApplet_$id.evalCommand("$pointlabel=($pointx,y($startlabel))");
-document.ggbApplet_$id.evalCommand("$anglelabel=Angle[$pointlabel,$startlabel,$endlabel]");
-document.ggbApplet_$id.setLabelVisible("$anglelabel",true);
-document.ggbApplet_$id.setLabelStyle("$anglelabel",VALUE=2);
+document.ggbApplet$appid.evalCommand("$label=Vector[$startlabel,$endlabel]");
+document.ggbApplet$appid.setLabelVisible("$label",true);
+document.ggbApplet$appid.setLineThickness("$label",8);
+document.ggbApplet$appid.evalCommand("$pointlabel=($pointx,y($startlabel))");
+document.ggbApplet$appid.evalCommand("$anglelabel=Angle[$pointlabel,$startlabel,$endlabel]");
+document.ggbApplet$appid.setLabelVisible("$anglelabel",true);
+document.ggbApplet$appid.setLabelStyle("$anglelabel",VALUE=2);
 ENDVECTOR
 }
 
@@ -504,22 +556,23 @@ ENDVECTOR
 
 sub answer_spline_script {
    my ($id,@points)=@_;
+   my $appid=&appid($id);
    my $order=int(($#points+1)/4);
    if ($order<2) { $order=2; }
    if ($order>8) { $order=8; }
    $Apache::functionplotresponse::counter++;
    my $label='CSpline'.$Apache::functionplotresponse::counter;
-   my $output='document.ggbApplet_'.$id.'.evalCommand("'.$label.'=Spline'.$order.'[';
+   my $output='document.ggbApplet'.$appid.'.evalCommand("'.$label.'=Spline'.$order.'[';
    for (my $i=0;$i<=$#points;$i+=4) {
       $output.="($points[$i],$points[$i+1]),($points[$i+2],$points[$i+3]),";
    }
    $output=~s/\,$//;
    $output.=']");'."\n";
    for (my $i=2; $i<2*$order; $i+=2) {
-       $output.='document.ggbApplet_'.$id.'.setColor("'.$label.'_'.($i>=10?'{':'').$i.($i>=10?'}':'').'",0,170,0);'."\n";
+       $output.='document.ggbApplet'.$appid.'.setColor("'.$label.'_'.($i>=10?'{':'').$i.($i>=10?'}':'').'",0,170,0);'."\n";
    }
    for (my $i=1; $i<2*$order; $i+=2) {
-       $output.='document.ggbApplet_'.$id.'.setVisible("'.$label.'_'.($i>=10?'{':'').$i.($i>=10?'}':'').'",false);'."\n";
+       $output.='document.ggbApplet'.$appid.'.setVisible("'.$label.'_'.($i>=10?'{':'').$i.($i>=10?'}':'').'",false);'."\n";
    }
 
    return $output;
@@ -531,6 +584,7 @@ sub answer_spline_script {
 
 sub generate_spline {
    my ($id,$label,$xmin,$xmax,$ymin,$ymax,$fixed)=@_;
+   my $appid=&appid($id);
    my $result='';
    my $order=$Apache::functionplotresponse::splineorder{$label};
    my $x=$Apache::functionplotresponse::splineinitx{$label};
@@ -547,7 +601,7 @@ sub generate_spline {
        $x+=$sx/(2.*($order-1));
        push(@coords,$label.'S'.$i);
    }
-   $result.='document.ggbApplet_'.$id.'.evalCommand("Spline'.$order.'['.join(',',@coords).']");'."\n";
+   $result.='document.ggbApplet'.$appid.'.evalCommand("Spline'.$order.'['.join(',',@coords).']");'."\n";
    return $result;
 }
 
@@ -666,6 +720,7 @@ sub start_drawvectorsum {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result='';
     my $internalid = $Apache::inputtags::part.'_'.$Apache::inputtags::response[-1];
+    my $internalappid=&appid($internalid);
     my $tailx=&Apache::lonxml::get_param('tailx',$parstack,$safeeval);
     my $taily=&Apache::lonxml::get_param('taily',$parstack,$safeeval);
     my $showvalue=&Apache::lonxml::get_param('showvalue',$parstack,$safeeval);
@@ -694,25 +749,25 @@ sub start_drawvectorsum {
                 my $vectorx=$thisvector.'X';
                 my $vectory=$thisvector.'Y';
                 $result.=(<<ENDADDVEC);
-document.ggbApplet_$internalid.evalCommand("$vectorx=x($thisvector)");
-document.ggbApplet_$internalid.evalCommand("$vectory=y($thisvector)");
-document.ggbApplet_$internalid.evalCommand("Include$thisvector$label=Checkbox[]");
+document.ggbApplet$internalappid.evalCommand("$vectorx=x($thisvector)");
+document.ggbApplet$internalappid.evalCommand("$vectory=y($thisvector)");
+document.ggbApplet$internalappid.evalCommand("Include$thisvector$label=Checkbox[]");
 ENDADDVEC
                 push(@sumx,"If[Include$thisvector$label,$vectorx,0]");
                 push(@sumy,"If[Include$thisvector$label,$vectory,0]");
             }
-            $result.="document.ggbApplet_$internalid.evalCommand(".'"'."xTot$label=".join('+',@sumx).'");'."\n";
-            $result.="document.ggbApplet_$internalid.evalCommand(".'"'."yTot$label=".join('+',@sumy).'");'."\n";
+            $result.="document.ggbApplet$internalappid.evalCommand(".'"'."xTot$label=".join('+',@sumx).'");'."\n";
+            $result.="document.ggbApplet$internalappid.evalCommand(".'"'."yTot$label=".join('+',@sumy).'");'."\n";
             my $show=0;
             if ($showvalue=~/yes/i) {
                 $show=1;
             }
             $result.=(<<ENDMAKEVECTOR);
-document.ggbApplet_$internalid.evalCommand("$label=Vector[($tailx,$taily),($tailx+xTot$label,$taily+yTot$label)]");
-document.ggbApplet_$internalid.setLabelVisible("$label",true);
-document.ggbApplet_$internalid.setLineThickness("$label",8);
-document.ggbApplet_$internalid.setColor("$label",255,0,0);
-document.ggbApplet_$internalid.setLabelStyle("$label",VALUE=$show);
+document.ggbApplet$internalappid.evalCommand("$label=Vector[($tailx,$taily),($tailx+xTot$label,$taily+yTot$label)]");
+document.ggbApplet$internalappid.setLabelVisible("$label",true);
+document.ggbApplet$internalappid.setLineThickness("$label",8);
+document.ggbApplet$internalappid.setColor("$label",255,0,0);
+document.ggbApplet$internalappid.setLabelStyle("$label",VALUE=$show);
 ENDMAKEVECTOR
         }
     } elsif ($target eq 'edit') {
@@ -781,7 +836,7 @@ sub start_backgroundplot {
              &Apache::edit::text_arg('Label on Plot:','label',
                                      $token,'8').
              &Apache::edit::text_arg('Color (hex code):','color',
-                                     $token,'8').
+                                     $token,'8', 'colorchooser').
              &Apache::edit::select_arg('Fixed location:','fixed',
                                   ['yes','no'],$token).
              &Apache::edit::end_row();
@@ -858,7 +913,7 @@ sub start_functionplotrule {
         $result=&Apache::edit::tag_start($target,$token,'Function Plot Graph Rule').
              &Apache::edit::text_arg('Index/Name:','index',
                                      $token,'10').'&nbsp;'.
-             &Apache::edit::select_arg(&mt('Function:'),'derivativeorder',
+             &Apache::edit::select_arg('Function:','derivativeorder',
                                   [['0','Function itself'],
                                    ['1','First derivative'],
                                    ['2','Second derivative'],
@@ -1402,7 +1457,7 @@ sub start_functionplotresponse {
   my $ylabel=&Apache::lonxml::get_param('ylabel',$parstack,$safeeval);
   if ($target eq 'edit') {
     $result.=&Apache::edit::start_table($token)
-       .'<tr><td><span class="LC_nobreak">'.&mt('Function Plot Question').'</span></td>'
+       .'<tr><td><span class="LC_nobreak">'.&Apache::loncommon::insert_folding_button().&mt('Function Plot Question').'</span></td>'
        .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
        .&Apache::edit::deletelist($target,$token).'&nbsp;&nbsp;&nbsp;'
        .&Apache::edit::insertlist($target,$token).'&nbsp;&nbsp;&nbsp;'
@@ -1456,7 +1511,7 @@ sub start_functionplotresponse {
                      $env{'form.counter'},$Apache::lonxml::curdepth);
       &Apache::lonxml::add_script_result(
           &Apache::loncommon::modal_adhoc_window($function_name,700,500,
-             '<pre>'.$Apache::functionplotresponse::ruleslog.'</pre>',
+             '<pre style="background-color:#ffffff;">'.$Apache::functionplotresponse::ruleslog.'</pre>',
               &mt('Rules Log'))."<br />");
   }
   return $result;
@@ -1989,7 +2044,7 @@ sub start_functionplotruleset {
    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
    if ($target eq 'edit') {
       return &Apache::edit::start_table($token).
-        '<tr><td><span class="LC_nobreak">'.&mt('Function Plot Rule Set').'</span></td>'
+        '<tr><td><span class="LC_nobreak">'.&Apache::loncommon::insert_folding_button().&mt('Function Plot Rule Set').'</span></td>'
        .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
        .&Apache::edit::deletelist($target,$token).'&nbsp;&nbsp;&nbsp;'.
         &Apache::edit::insertlist($target,$token).'&nbsp;&nbsp;&nbsp;'
@@ -2182,7 +2237,8 @@ sub start_functionplotelements {
 
    if ($target eq 'edit') {
       return &Apache::edit::start_table($token).
-        '<tr><td><span class="LC_nobreak">'.&mt('Function Plot Elements').'</span></td>'
+        '<tr><td><span class="LC_nobreak">'.&Apache::loncommon::insert_folding_button()
+       .&mt('Function Plot Elements').'</span></td>'
        .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
        .&Apache::edit::deletelist($target,$token).'&nbsp;&nbsp;&nbsp;'.
         &Apache::edit::insertlist($target,$token).'&nbsp;&nbsp;&nbsp;'