loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.44, 2005/01/21 22:10:59	version 1.45, 2005/01/31 22:00:40
Line 211 sub start_organicresponse {	Line 211 sub start_organicresponse {
sub end_organicresponse {	sub end_organicresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'grade' && defined($ENV{'form.submitted'})) {	if ($target eq 'grade' && &Apache::response::submitted()) {
&Apache::response::setup_params($$tagstack[-1],$safeeval);	&Apache::response::setup_params($$tagstack[-1],$safeeval);
my $response = &Apache::response::getresponse();	my $response = &Apache::response::getresponse();
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
Line 390 sub start_reactionresponse {	Line 390 sub start_reactionresponse {
sub end_reactionresponse {	sub end_reactionresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'grade' && defined($ENV{'form.submitted'})) {	if ($target eq 'grade' && &Apache::response::submitted()) {
&Apache::response::setup_params($$tagstack[-1],$safeeval);	&Apache::response::setup_params($$tagstack[-1],$safeeval);
my $response = &Apache::response::getresponse();	my $response = &Apache::response::getresponse();
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {