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.13, 2000/12/11 23:47:36
  Line 10  sub BEGIN {
    &Apache::lonxml::register('Apache::response',('responseparam','caparesponse'));
  }
+ 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 {
      my ($name,$type,$default,$display)=@_;
      return '<parameter part="'.$Apache::inputtags::part.