loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.15, 2001/06/27 18:51:12	version 1.16, 2001/06/29 18:53:50
Line 146 $optionlist	Line 146 $optionlist
}	}

sub handle_insert {	sub handle_insert {
&Apache::lonxml::debug("Er handle insert called");
if ($ENV{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; }	if ($ENV{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; }
my $result;	my $result;
my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"};	my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"};
my $func=$Apache::lonxml::insertlist{"$tagnum.function"};	my $func=$Apache::lonxml::insertlist{"$tagnum.function"};
&Apache::lonxml::debug("Looking for :$func:");
if ($func eq 'default') {	if ($func eq 'default') {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};	my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
my $namespace;	my $namespace;
Line 171 sub handle_insert {	Line 169 sub handle_insert {
return $result;	return $result;
}	}

	sub insert_responseparam {
	return '
	<responseparam />';
	}

sub insert_numericalresponse {	sub insert_numericalresponse {
return '	return '
<numericalresponse answer="">	<numericalresponse answer="">