loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.30, 2004/03/08 17:31:37	version 1.31, 2004/03/12 18:41:43
Line 165 sub end_organicresponse {	Line 165 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' && defined($ENV{'form.submitted'})) {
&Apache::response::setup_params($$tagstack[-1]);	&Apache::response::setup_params($$tagstack[-1],$safeeval);
my $response = &Apache::response::getresponse();	my $response = &Apache::response::getresponse();
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
my $partid = $Apache::inputtags::part;	my $partid = $Apache::inputtags::part;
Line 326 sub end_reactionresponse {	Line 326 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' && defined($ENV{'form.submitted'})) {
&Apache::response::setup_params($$tagstack[-1]);	&Apache::response::setup_params($$tagstack[-1],$safeeval);
my $response = &Apache::response::getresponse();	my $response = &Apache::response::getresponse();
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
my $partid = $Apache::inputtags::part;	my $partid = $Apache::inputtags::part;