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.14 and 1.15

version 1.14, 2001/06/12 22:42:55	version 1.15, 2001/06/16 18:35:27
Line 27 sub start_optionresponse {	Line 27 sub start_optionresponse {
}	}

sub end_optionresponse {	sub end_optionresponse {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
&Apache::response::end_response;	&Apache::response::end_response;
pop @Apache::lonxml::namespace;	pop @Apache::lonxml::namespace;
return '';	my $result;
	if ($target eq 'edit') { $result=&Apache::edit::end_table(); }
	return $result;
}	}

sub insert_optionresponse {	sub insert_optionresponse {
Line 107 sub end_foilgroup {	Line 110 sub end_foilgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;

my $result;	my $result;
if ($target ne 'meta') {	if ($target eq 'grade' \|\| $target eq 'web') {
my $name;	my $name;
my ($count,$max) = &getfoilcounts($parstack,$safeeval);	my ($count,$max) = &getfoilcounts($parstack,$safeeval);
if ($count>$max) { $count=$max }	if ($count>$max) { $count=$max }
Line 148 sub end_foilgroup {	Line 151 sub end_foilgroup {
}	}
}	}
}	}
	if ($target eq 'edit') {
	$result.=&Apache::edit::end_table();
	}
return $result;	return $result;
}	}

Line 206 sub displayfoils {	Line 212 sub displayfoils {


sub start_conceptgroup {	sub start_conceptgroup {
$Apache::optionresponse::conceptgroup=1;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	$Apache::optionresponse::conceptgroup=1;
%Apache::response::conceptgroup={};	%Apache::response::conceptgroup={};
return '';	my $result;
	if ($target eq 'edit') {
	my $insertlist=&Apache::edit::insertlist($target,$token);
	$result.=&Apache::edit::tag_start($target,$token,"Concept Grouped Foils");
	my $concept = &Apache::lonxml::get_param('concept',$parstack,$safeeval);
	$result.="Concept: <input name=\"$Apache::lonxml::curdepth.concept\" type=\"text\" value=\"$concept\" /></td></tr><tr><td colspan=\"3\">";
	}
	return $result;
}	}

sub end_conceptgroup {	sub end_conceptgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
$Apache::optionresponse::conceptgroup=0;	$Apache::optionresponse::conceptgroup=0;
	my $result='';
if ($target eq 'web' \|\| $target eq 'grade') {	if ($target eq 'web' \|\| $target eq 'grade') {
my @names = @{ $Apache::response::conceptgroup{'names'} };	my @names = @{ $Apache::response::conceptgroup{'names'} };
my $pick=int rand $#names+1;	my $pick=int rand $#names+1;
Line 225 sub end_conceptgroup {	Line 240 sub end_conceptgroup {
$Apache::response::foilgroup{"$name.concept"} = $concept;	$Apache::response::foilgroup{"$name.concept"} = $concept;
&Apache::lonxml::debug("Selecting $name in $concept");	&Apache::lonxml::debug("Selecting $name in $concept");
}	}
return '';	if ($target eq 'edit') {
	$result=&Apache::edit::end_table();
	}
	return $result;
}	}

sub start_foil {	sub start_foil {
Line 234 sub start_foil {	Line 252 sub start_foil {
if ($target eq 'web') { &Apache::lonxml::startredirection; }	if ($target eq 'web') { &Apache::lonxml::startredirection; }
if ($target eq 'edit') {	if ($target eq 'edit') {
$result=&Apache::edit::tag_start($target,$token,"Foil");	$result=&Apache::edit::tag_start($target,$token,"Foil");
	my $level='-2';
	if ($$tagstack['-2'] eq 'conceptgroup') { $level = '-3'; }
my @opt;	my @opt;
eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval,'-2');	eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval,$level);
my $optionlist="<option></option>\n";	my $value=&Apache::lonxml::get_param('value',$parstack,$safeeval);
	my $optionlist="<option>unused</option>\n";
foreach my $option (@opt) {	foreach my $option (@opt) {
$optionlist.="<option>$option</option>\n";	if ( $value eq $option ) {
	$optionlist.="<option selected=\"on\">$option</option>\n";
	} else {
	$optionlist.="<option>$option</option>\n";
	}
	}
	my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval);
	$result.="Name: <input name=\"$Apache::lonxml::curdepth.name\" type=\"text\" value=\"$name\" />".
	"Correct Option:
	<select name=\"$Apache::lonxml::curdepth.value\">
	$optionlist
	</select></td></tr><tr><td colspan=\"3\">";
	}
	if ($target eq 'modified') {
	my $constructtag=0;
	foreach my $arg ('value','name') {
	my $value=&Apache::lonxml::get_param($arg,$parstack,$safeeval);
	my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"};
	&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:");
	if ($value ne $newvalue) {
	$token->[2]->{$arg}=$newvalue;
	$constructtag=1;
	}
	}
	if ($constructtag) {
	$result = '<'.$token->[1];
	while (my ($key,$val)= each(%{$token->[2]})) {
	&Apache::lonxml::debug("setting :$key: to :$val:");
	$result.=' '.$key.'="'.$val.'"';
	}
	$result.=">";
}	}
$result.="Name: <input name=\"$Apache::lonxml::curdepth.name\" type=\"text\" />".
"Correct Option:<select>$optionlist</select></td></tr><tr><td colspan=\"3\">";
}	}
return $result;	return $result;
}	}
Line 275 sub end_foil {	Line 324 sub end_foil {

sub insert_foil {	sub insert_foil {
return '	return '
<foil name="" value="">	<foil name="" value="unused">
<startouttext />	<startouttext />
<endouttext />	<endouttext />
</foil>';	</foil>';

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

Removed from v.1.14
changed lines
	Added in v.1.15