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.29 and 1.30

version 1.29, 2001/12/14 23:00:52	version 1.30, 2002/01/11 16:32:29
Line 43 sub start_optionresponse {	Line 43 sub start_optionresponse {
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
if ($target eq 'edit') {	if ($target eq 'edit') {
$result.=&Apache::edit::start_table($token).	$result.=&Apache::edit::start_table($token).
"<tr><td>Multiple Option Response Question</td><td>Delete:".	"<tr><td>Multiple Option Response Question</td><td>Delete:".
&Apache::edit::deletelist($target,$token)	&Apache::edit::deletelist($target,$token)
."</td><td> </td></tr><tr><td colspan=\"3\">\n";	."</td><td> ".
	&Apache::edit::end_row().
	&Apache::edit::start_spanning_row().
	"\n";
$result.=&Apache::edit::text_arg('Max Number Of Foils:','max',$token,'4').	$result.=&Apache::edit::text_arg('Max Number Of Foils:','max',$token,'4').
"</td></tr>";	&Apache::edit::end_row().
$result.="<tr><td colspan=\"3\">\n";	&Apache::edit::start_spanning_row();
}	}
if ($target eq 'modified') {	if ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
Line 98 sub start_foilgroup {	Line 101 sub start_foilgroup {
</td>	</td>
<td>Delete an Option:	<td>Delete an Option:
<select name="$Apache::lonxml::curdepth.deleteopt">$optionlist</select>	<select name="$Apache::lonxml::curdepth.deleteopt">$optionlist</select>
</td>
</tr>
<tr><td colspan="3">$insertlist<br />
ENDTABLE	ENDTABLE
	$result.= &Apache::edit::end_row();
	$result.= &Apache::edit::start_spanning_row();
	$result.= $insertlist.'<br />';
}	}
if ($target eq 'modified') {	if ($target eq 'modified') {
my @options;	my @options;
Line 281 sub start_conceptgroup {	Line 284 sub start_conceptgroup {
my $result;	my $result;
if ($target eq 'edit') {	if ($target eq 'edit') {
$result.=&Apache::edit::tag_start($target,$token,"Concept Grouped Foils");	$result.=&Apache::edit::tag_start($target,$token,"Concept Grouped Foils");
$result.=&Apache::edit::text_arg('Concept:','concept',$token,'50')."</td></tr>";	$result.=&Apache::edit::text_arg('Concept:','concept',$token,'50').
$result.="<tr><td colspan=\"3\">\n";	&Apache::edit::end_row().&Apache::edit::start_spanning_row();
}	}
if ($target eq 'modified') {	if ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'concept');	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'concept');
Line 333 sub start_foil {	Line 336 sub start_foil {
eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval,$level);	eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval,$level);
$result.=&Apache::edit::text_arg('Name:','name',$token);	$result.=&Apache::edit::text_arg('Name:','name',$token);
$result.= &Apache::edit::select_or_text_arg('Correct Option:','value',['unused',(@opt)],$token,'15');	$result.= &Apache::edit::select_or_text_arg('Correct Option:','value',['unused',(@opt)],$token,'15');
$result .= '</td></tr><tr><td colspan="3">';	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'value','name');	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'value','name');
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }

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

Removed from v.1.29
changed lines
	Added in v.1.30