--- loncom/homework/functionplotresponse.pm	2011/11/26 01:35:26	1.88
+++ loncom/homework/functionplotresponse.pm	2011/12/09 22:04:51	1.89
@@ -1,7 +1,7 @@
 # LearningOnline Network with CAPA
 # Functionplot responses
 #
-# $Id: functionplotresponse.pm,v 1.88 2011/11/26 01:35:26 www Exp $
+# $Id: functionplotresponse.pm,v 1.89 2011/12/09 22:04:51 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1300,14 +1300,18 @@ sub start_functionplotresponse {
       my $function_name =
                 join('_','LONCAPA_scriptvars',$uname,$udom,
                      $env{'form.counter'},$Apache::lonxml::curdepth);
-      my $rules_var ="<script type=\"text/javascript\">
-// <![CDATA[
-    function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page<pre>".
-    $Apache::functionplotresponse::ruleslog.
-    "<\\/pre>$end_page');newWindow.document.close();newWindow.focus()}
-// ]]>
-</script><a href=\"javascript:$function_name();void(0);\">".&mt('Rules Log')."</a><br />";
-            &Apache::lonxml::add_script_result($rules_var);
+      my $rulelogcontent= $start_page.
+              &Apache::loncommon::start_scrollbox('700px','680px','480px').
+             '<pre>'.
+              $Apache::functionplotresponse::ruleslog.
+              '</pre>'.
+              &Apache::loncommon::end_scrollbox().
+              $end_page;
+      $rulelogcontent=~s/\'/\\'/gs;
+      &Apache::lonxml::add_script_result(
+          &Apache::loncommon::modal_adhoc_script($function_name,700,500,$rulelogcontent).
+              "<a href=\"javascript:$function_name();void(0);\">".&mt('Rules Log')."</a><br />"
+                                        );
         }
 
   return $result;