loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/edit.pm between versions 1.46 and 1.47

version 1.46, 2003/02/13 23:53:33	version 1.47, 2003/04/30 19:40:47
Line 481 sub rebuild_tag {	Line 481 sub rebuild_tag {
return $result;	return $result;
}	}

	sub html_element_name {
	my ($name) = @_;
	return $Apache::lonxml::curdepth.'.'.$name;
	}

sub text_arg {	sub text_arg {
my ($description,$name,$token,$size) = @_;	my ($description,$name,$token,$size) = @_;
my $result;	my $result;
if (!defined $size) { $size=20; }	if (!defined $size) { $size=20; }
my $arg=$token->[2]{$name};	my $arg=$token->[2]{$name};
$result=$description.' <input name="'."$Apache::lonxml::curdepth.$name".	$result=$description.' <input name="'.&html_element_name($name).
'" type="text" value="'.$arg.'" size="'.$size.'" />';	'" type="text" value="'.$arg.'" size="'.$size.'" />';
return $result;	return $result;
}	}
Line 510 sub select_arg {	Line 515 sub select_arg {
$optionlist.="<option $value >$option</option>\n";	$optionlist.="<option $value >$option</option>\n";
}	}
}	}
$result.=$description.' <select name="'.	$result.=$description.' <select name="'.&html_element_name($name).
"$Apache::lonxml::curdepth.$name".'">	'">
'.$optionlist.'	'.$optionlist.'
</select>';	</select>';
return $result;	return $result;
Line 540 sub select_or_text_arg {	Line 545 sub select_or_text_arg {
}	}
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n";	$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n";
if (($found) \|\| (!$selected)) {	if (($found) \|\| (!$selected)) {
$result.=$description.' <select name="'."$Apache::lonxml::curdepth.$name".'">	$result.=$description.' <select name="'.&html_element_name($name)
	.'">
'.$optionlist.'	'.$optionlist.'
</select>';	</select>';
} else {	} else {

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

Removed from v.1.46
changed lines
	Added in v.1.47