--- loncom/homework/functionplotresponse.pm	2011/12/09 22:04:51	1.89
+++ loncom/homework/functionplotresponse.pm	2011/12/10 18:10:56	1.90
@@ -1,7 +1,7 @@
 # LearningOnline Network with CAPA
 # Functionplot responses
 #
-# $Id: functionplotresponse.pm,v 1.89 2011/12/09 22:04:51 www Exp $
+# $Id: functionplotresponse.pm,v 1.90 2011/12/10 18:10:56 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1289,31 +1289,16 @@ sub start_functionplotresponse {
             ($env{'form.answer_output_mode'} ne 'tex') &&
             ($Apache::lonhomework::viewgrades == 'F')) {
       my (undef,undef,$udom,$uname)=&Apache::lonnet::whichuser();
-      my $windowopen=&Apache::lonhtmlcommon::javascript_docopen();
-      my $start_page = &Apache::loncommon::start_page('Rules Log', undef,
-                                               {'only_body' => 1,
-                                                'bgcolor'   => '#FFFFFF',
-                                                'js_ready'  => 1,});
-      my $end_page = &Apache::loncommon::end_page({'js_ready' => 1,});
       $uname =~s/\W//g;
       $udom  =~s/\W//g;
       my $function_name =
                 join('_','LONCAPA_scriptvars',$uname,$udom,
                      $env{'form.counter'},$Apache::lonxml::curdepth);
-      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 />"
-                                        );
-        }
-
+          &Apache::loncommon::modal_adhoc_window($function_name,700,500,
+             '<pre>'.$Apache::functionplotresponse::ruleslog.'</pre>',
+              &mt('Rules Log'))."<br />");
+  }
   return $result;
 }