loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.12, 2000/12/04 21:16:29
+version 1.14, 2000/12/19 23:22:22
  Line 7  package Apache::response;
  use strict;
  sub BEGIN {
-   &Apache::lonxml::register('Apache::response',('responseparam','caparesponse'));
+   &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse'));
+ }
+ sub start_response {
+   my ($parstack,$safeeval)=@_;
+   my $args ='';
+   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
+   my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
+   if ($id eq '') { $id = $Apache::lonxml::curdepth; }
+   push (@Apache::inputtags::response,$id);
+   push (@Apache::inputtags::responselist,$id);
+   @Apache::inputtags::inputlist=();
+   return $id;
+ }
+ sub end_response {
+   pop @Apache::inputtags::response;
+   @Apache::inputtags::inputlist=();
+   return '';
  }
  sub meta_parameter_write {
- Line 62  sub mandatory_part_meta {
+ Line 80  sub mandatory_part_meta {
  #
  }
+ sub start_numericalresponse {
+   require Apache::caparesponse;
+   import Apache::caparesponse;
+   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
+   Apache::caparesponse::start_numericalresponse($target,$token,$parstack,$parser,$safeeval,$style);;
+   return "";
+ }
  sub start_caparesponse {
    require Apache::caparesponse;
    import Apache::caparesponse;