loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/optionresponse.pm between versions 1.121 and 1.124

version 1.121, 2004/10/21 06:33:37	version 1.124, 2005/01/31 22:00:40
Line 182 sub end_foilgroup {	Line 182 sub end_foilgroup {
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";	my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },@opt);	push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },@opt);
} elsif ( $target eq 'grade') {	} elsif ( $target eq 'grade') {
if ( defined $ENV{'form.submitted'}) {	if ( &Apache::response::submitted()) {
my @whichopt = &whichfoils($max,$randomize);	my @whichopt = &whichfoils($max,$randomize);
my $temp=1;my $name;	my $temp=1;my $name;
my %responsehash;	my %responsehash;
Line 623 sub end_foil {	Line 623 sub end_foil {
if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer'	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer'
\|\| $target eq 'tex' \|\| $target eq 'analyze') {	\|\| $target eq 'tex' \|\| $target eq 'analyze') {
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);	my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval);
	if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') {
	$text='\vskip 5mm $\triangleright$ '.$text;
	}
if ($value ne 'unused') {	if ($value ne 'unused') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
&Apache::lonxml::debug("Got a name of :$name:");	&Apache::lonxml::debug("Got a name of :$name:");
if (!$name) { $name=$Apache::lonxml::curdepth; }	if (!$name) {
	&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction.");
	$name=$Apache::lonxml::curdepth;
	}
&Apache::lonxml::debug("Using a name of :$name:");	&Apache::lonxml::debug("Using a name of :$name:");
if (defined($Apache::response::foilnames{$name})) {	if (defined($Apache::response::foilnames{$name})) {
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));	&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));
Line 637 sub end_foil {	Line 643 sub end_foil {
&& !&Apache::response::showallfoils() ) {	&& !&Apache::response::showallfoils() ) {
push @{ $Apache::response::conceptgroup{'names'} }, $name;	push @{ $Apache::response::conceptgroup{'names'} }, $name;
$Apache::response::conceptgroup{"$name.value"} = $value;	$Apache::response::conceptgroup{"$name.value"} = $value;
if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam') {	$Apache::response::conceptgroup{"$name.text"} = $text;
$Apache::response::conceptgroup{"$name.text"} = '\vskip 4 mm $\triangleright$ '.$text;
} else {
$Apache::response::conceptgroup{"$name.text"} = $text;
}
$Apache::response::conceptgroup{"$name.location"} = $location;	$Apache::response::conceptgroup{"$name.location"} = $location;
} else {	} else {
push @{ $Apache::response::foilgroup{'names'} }, $name;	push @{ $Apache::response::foilgroup{'names'} }, $name;
$Apache::response::foilgroup{"$name.value"} = $value;	$Apache::response::foilgroup{"$name.value"} = $value;
if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam') {	$Apache::response::foilgroup{"$name.text"} = $text;
$Apache::response::foilgroup{"$name.text"} = '\vskip 5 mm $\triangleright$ '.$text;
} else {
$Apache::response::foilgroup{"$name.text"} = $text;
}
$Apache::response::foilgroup{"$name.location"} = $location;	$Apache::response::foilgroup{"$name.location"} = $location;
}	}
}	}

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

Removed from v.1.121
changed lines
	Added in v.1.124