loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.27, 2003/12/10 19:38:01	version 1.28, 2004/01/20 20:30:48
Line 106 sub start_organicresponse {	Line 106 sub start_organicresponse {
my $partid = $Apache::inputtags::part;	my $partid = $Apache::inputtags::part;
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
if ($target eq 'meta') {	if ($target eq 'meta') {
	$result=&Apache::response::meta_package_write('organicresponse');
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
my $molecule;	my $molecule;
if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) {	if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) {
Line 298 sub start_reactionresponse {	Line 299 sub start_reactionresponse {
my $result;	my $result;
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
if ($target eq 'meta') {	if ($target eq 'meta') {
	$result=&Apache::response::meta_package_write('reactionresponse');
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
my $partid = $Apache::inputtags::part;	my $partid = $Apache::inputtags::part;
my $id = $Apache::inputtags::response['-1'];	my $id = $Apache::inputtags::response['-1'];