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

Diff for /loncom/homework/hint.pm between versions 1.30 and 1.33

version 1.30, 2002/10/28 23:31:48 version 1.33, 2002/11/25 21:36:42
Line 7 Line 7
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #  #
 # LON-CAPA is free software; you can redistribute it and/or modify  # LON-CAPA me&aree software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by  # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or  # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.  # (at your option) any later version.
Line 123  sub start_numericalhint { Line 123  sub start_numericalhint {
       $result  = &Apache::edit::rebuild_tag($token);        $result  = &Apache::edit::rebuild_tag($token);
       $result .= &Apache::edit::handle_insert();        $result .= &Apache::edit::handle_insert();
     }      }
     } elsif ($target eq 'web') {
         &Apache::response::reset_params();
   }    }
   return $result;    return $result;
 }  }
Line 131  sub end_numericalhint { Line 133  sub end_numericalhint {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result;    my $result;
   if ($target eq 'web') {    if ($target eq 'web') {
       if (!$Apache::lonxml::default_homework_loaded) {
    &Apache::lonxml::default_homework_load($safeeval);
       }
     $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);      $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
     my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);      my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
     &Apache::response::setup_params('numericalhint');      &Apache::response::setup_params('numericalhint');
Line 338  sub start_radiobuttonhint { Line 343  sub start_radiobuttonhint {
     return $result;      return $result;
 }  }
   
 sp;&end_radiobuttonhint {  sub end_radiobuttonhint {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result;      my $result;
     if ($target eq 'web') {      if ($target eq 'web') {
Removed from v.1.30  
changed lines
  Added in v.1.33

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