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

Diff for /loncom/homework/hint.pm between versions 1.74 and 1.75

version 1.74, 2008/11/20 15:19:15 version 1.75, 2009/04/17 01:00:15
Line 35  use Apache::lonnet(); Line 35  use Apache::lonnet();
 use capa;  use capa;
 use Apache::caparesponse();  use Apache::caparesponse();
 use Apache::lonmaxima();  use Apache::lonmaxima();
   use Apache::lonr();
 use Apache::response();  use Apache::response();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Storable qw(dclone);  use Storable qw(dclone);
Line 244  sub start_mathhint { Line 245  sub start_mathhint {
         $result.=&Apache::edit::text_arg('Name:','name',$token);          $result.=&Apache::edit::text_arg('Name:','name',$token);
         $result.=&Apache::edit::select_arg('Algebra System:',          $result.=&Apache::edit::select_arg('Algebra System:',
                                            'cas',                                             'cas',
                                            ['maxima'],                                             ['maxima','R'],
                                            $token);                                             $token);
         $result.=&Apache::edit::text_arg('Argument Array:',          $result.=&Apache::edit::text_arg('Argument Array:',
                                          'args',$token);                                           'args',$token);
Line 282  sub end_mathhint { Line 283  sub end_mathhint {
     my $args = [&Apache::lonxml::get_param_var('args',$parstack,$safeeval)];      my $args = [&Apache::lonxml::get_param_var('args',$parstack,$safeeval)];
     $award=&Apache::lonmaxima::maxima_run($Apache::response::custom_answer[-1],$response,$args);      $award=&Apache::lonmaxima::maxima_run($Apache::response::custom_answer[-1],$response,$args);
  }   }
           if ($cas eq 'R') {
               my $args = [&Apache::lonxml::get_param_var('args',$parstack,$safeeval)];
               $award=&Apache::lonr::r_run($Apache::response::custom_answer[-1],$response,$args);
           }
         if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS') {          if ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS') {
             push (@Apache::hint::which,$name);              push (@Apache::hint::which,$name);
         }          }
Line 706  described at http://www.lon-capa.org. Line 711  described at http://www.lon-capa.org.
   
 =back  =back
   
 =cut  
   
   =cut
Removed from v.1.74  
changed lines
  Added in v.1.75

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