loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.48 and 1.51

version 1.48, 2001/09/14 20:15:35	version 1.51, 2001/11/12 20:27:28
Line 9 package Apache::response;	Line 9 package Apache::response;
use strict;	use strict;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));
}	}

sub start_response {	sub start_response {
my ($parstack,$safeeval)=@_;	my ($parstack,$safeeval)=@_;
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
if ($id eq '') { $id = $Apache::lonxml::curdepth; }	if ($id eq '') { $id = $Apache::lonxml::curdepth; }
	if ($#Apache::inputtags::import > -1) {
	&Apache::lonxml::debug("Turning :$id: into");
	$id = join('_',@Apache::inputtags::import).'_'.$id;
	&Apache::lonxml::debug("New :$id:");
	}
push (@Apache::inputtags::response,$id);	push (@Apache::inputtags::response,$id);
push (@Apache::inputtags::responselist,$id);	push (@Apache::inputtags::responselist,$id);
@Apache::inputtags::inputlist=();	@Apache::inputtags::inputlist=();
Line 179 sub start_stringresponse {	Line 184 sub start_stringresponse {
return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);	return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
}	}

	sub start_formularesponse {
	require Apache::caparesponse;
	import Apache::caparesponse;
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	return &Apache::caparesponse::start_formularesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
	}

sub start_numericalresponse {	sub start_numericalresponse {
require Apache::caparesponse;	require Apache::caparesponse;
import Apache::caparesponse;	import Apache::caparesponse;
Line 345 sub setup_params {	Line 357 sub setup_params {
sub answer_header {	sub answer_header {
my ($type) = @_;	my ($type) = @_;
my $result;	my $result;
if ($type eq 'optionresponse') {	if ($type eq 'optionresponse' \|\| $type eq 'radiobuttonresponse' ) {
$result = '<table border="1"><tr><th>Answer for Part:'.	$result = '<table border="1"><tr><th>Answer for Part:'.
$Apache::inputtags::part. '</th></tr><tr>'."\n";	$Apache::inputtags::part. '</th></tr><tr>'."\n";
} else {	} else {
$result = '<table><tr><td>Answer for Part:'.$Apache::inputtags::part.	$result = '<table border="1"><tr><td>Answer for Part:'.
'</td>'."\n";	$Apache::inputtags::part. '</td>'."\n";
}	}
return $result;	return $result;
}	}
Line 358 sub answer_header {	Line 370 sub answer_header {
sub answer_part {	sub answer_part {
my ($type,$answer) = @_;	my ($type,$answer) = @_;
my $result;	my $result;
if ($type eq 'optionresponse') {	if ($type eq 'optionresponse' \|\| $type eq 'radiobuttonresponse') {
$result = '<td>'.$answer.'</td>';	$result = '<td>'.$answer.'</td>';
} else {	} else {
$result = '<td>'.$answer.'</td>';	$result = '<td>'.$answer.'</td>';
Line 369 sub answer_part {	Line 381 sub answer_part {
sub answer_footer {	sub answer_footer {
my ($type) = @_;	my ($type) = @_;
my $result;	my $result;
if ($type eq 'optionresponse') {	if ($type eq 'optionresponse' \|\| $type eq 'radiobuttonresponse') {
$result = '</tr></table>';	$result = '</tr></table>';
} else {	} else {
$result = '</tr></table>';	$result = '</tr></table>';

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.48
changed lines
	Added in v.1.51