[BACK]Return to functionplotresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/functionplotresponse.pm between versions 1.88 and 1.89

version 1.88, 2011/11/26 01:35:26 version 1.89, 2011/12/09 22:04:51
Line 1300  sub start_functionplotresponse { Line 1300  sub start_functionplotresponse {
       my $function_name =        my $function_name =
                 join('_','LONCAPA_scriptvars',$uname,$udom,                  join('_','LONCAPA_scriptvars',$uname,$udom,
                      $env{'form.counter'},$Apache::lonxml::curdepth);                       $env{'form.counter'},$Apache::lonxml::curdepth);
       my $rules_var ="<script type=\"text/javascript\">        my $rulelogcontent= $start_page.
 // <![CDATA[                &Apache::loncommon::start_scrollbox('700px','680px','480px').
     function $function_name() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page<pre>".               '<pre>'.
     $Apache::functionplotresponse::ruleslog.                $Apache::functionplotresponse::ruleslog.
     "<\\/pre>$end_page');newWindow.document.close();newWindow.focus()}                '</pre>'.
 // ]]>                &Apache::loncommon::end_scrollbox().
 </script><a href=\"javascript:$function_name();void(0);\">".&mt('Rules Log')."</a><br />";                $end_page;
             &Apache::lonxml::add_script_result($rules_var);        $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;    return $result;
Removed from v.1.88  
changed lines
  Added in v.1.89

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>