loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.45, 2005/01/31 22:00:40
+version 1.46, 2005/02/17 21:42:37
  Line 32  use Apache::lonxml;
  use Apache::lonnet;
  BEGIN {
-     &Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse'));
+     &Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse','chem'));
  }
  sub chem_standard_order {
  Line 431  sub end_reactionresponse {
      return $result;
  }
+ sub start_chem {
+     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+     my $result = '';
+     if ($target eq 'tex' || $target eq 'web') {
+ 	&Apache::lonxml::startredirection();
+     }
+     return $result;
+ }
+ sub end_chem {
+     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
+     my $result = '';
+     if ($target eq 'tex' || $target eq 'web') {
+ 	@Apache::scripttag::parser_env = @_;
+ 	if (!$Apache::lonxml::default_homework_loaded) {
+ 	    &Apache::lonxml::default_homework_load($safeeval);
+ 	}
+ 	my $innards=&Apache::lonxml::endredirection();
+ 	$result=&Apache::run::run("return &chemparse(q\0$innards\0);",$safeeval);
+     }
+     return $result;
+ }
 ;
  __END__