Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/edit.pm between versions 1.88 and 1.92

version 1.88, 2004/10/26 15:06:58	version 1.92, 2005/04/07 06:56:21
Line 29	Line 29
package Apache::edit;	package Apache::edit;

use strict;	use strict;
use Apache::lonnet();	use Apache::lonnet;
use HTML::Entities();	use HTML::Entities();
use Apache::lonlocal;	use Apache::lonlocal;

Line 147 sub deletelist {	Line 147 sub deletelist {
}	}

sub handle_delete {	sub handle_delete {
if (!$ENV{"form.delete_$Apache::lonxml::curdepth"}) { return ''; }	if (!$env{"form.delete_$Apache::lonxml::curdepth"}) { return ''; }
my ($space,$target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($space,$target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result=0;	my $result=0;
if ($space) {	if ($space) {
Line 222 sub innerinsertlist {	Line 222 sub innerinsertlist {
}	}

sub handle_insert {	sub handle_insert {
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"};
if ($func eq 'default') {	if ($func eq 'default') {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};	my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
Line 239 sub handle_insert {	Line 239 sub handle_insert {
}	}
} else {	} else {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};	my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
&Apache::lonxml::error("Unable to insert tag $newtag, $func was not defined.");	&Apache::lonxml::error("Unable to insert tag ".$Apache::lonxml::curdepth." ($tagnum) $newtag, func was not defined.");
}	}
}	}
return $result;	return $result;
Line 247 sub handle_insert {	Line 247 sub handle_insert {

sub handle_insertafter {	sub handle_insertafter {
my $tagname=shift;	my $tagname=shift;
if ($ENV{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"} eq '')	if ($env{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"} eq '')
{ return ''; }	{ return ''; }
my $result;	my $result;
my $tagnum =$ENV{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"};	my $tagnum =$env{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"};
my $func=$Apache::lonxml::insertlist{"$tagnum.function"};	my $func=$Apache::lonxml::insertlist{"$tagnum.function"};
if ($func eq 'default') {	if ($func eq 'default') {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};	my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
Line 300 sub insert_formularesponse {	Line 300 sub insert_formularesponse {
sub insert_numericalresponse {	sub insert_numericalresponse {
return '	return '
<numericalresponse answer="">	<numericalresponse answer="">
	<responseparam type="tolerance" default="5%" name="tol" description="Numerical Tolerance" />
	<responseparam name="sig" type="int_range,0-16" default="0,15" description="Significant Figures" />
<textline />	<textline />
<hintgroup>	<hintgroup>
<startouttext /><endouttext />	<startouttext /><endouttext />
Line 328 sub insert_imageresponse {	Line 330 sub insert_imageresponse {
return '	return '
<imageresponse max="1">	<imageresponse max="1">
<foilgroup>	<foilgroup>
	<foil>
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext /><endouttext />	<startouttext /><endouttext />
Line 339 sub insert_optionresponse {	Line 343 sub insert_optionresponse {
return '	return '
<optionresponse max="10">	<optionresponse max="10">
<foilgroup options="">	<foilgroup options="">
	<foil>
	<startouttext /><endouttext />
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext /><endouttext />	<startouttext /><endouttext />
Line 366 sub insert_radiobuttonresponse {	Line 373 sub insert_radiobuttonresponse {
return '	return '
<radiobuttonresponse max="10">	<radiobuttonresponse max="10">
<foilgroup>	<foilgroup>
	<foil>
	<startouttext /><endouttext />
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext /><endouttext />	<startouttext /><endouttext />
Line 387 sub insert_rankresponse {	Line 397 sub insert_rankresponse {
return '	return '
<rankresponse max="10">	<rankresponse max="10">
<foilgroup options="">	<foilgroup options="">
	<foil>
	<startouttext /><endouttext />
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext /><endouttext />	<startouttext /><endouttext />
Line 400 sub insert_matchresponse {	Line 413 sub insert_matchresponse {
<foilgroup options="">	<foilgroup options="">
<itemgroup>	<itemgroup>
</itemgroup>	</itemgroup>
	<foil>
	<startouttext /><endouttext />
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext /><endouttext />	<startouttext /><endouttext />
Line 412 sub insert_displaytitle { return '<dis	Line 428 sub insert_displaytitle { return '<dis
sub insert_hintpart {	sub insert_hintpart {
return '	return '
<hintpart on="default">	<hintpart on="default">
<startouttext/>	<startouttext/><endouttext />
<endouttext />
</hintpart>';	</hintpart>';
}	}

Line 505 sub editfield {	Line 520 sub editfield {
push @Apache::lonxml::htmlareafields,'homework_edit_'.	push @Apache::lonxml::htmlareafields,'homework_edit_'.
$Apache::lonxml::curdepth;	$Apache::lonxml::curdepth;
}	}
return $description."\n".'   <textarea rows="'.$rows.	return $description."\n".'   <textarea style="width:100%" rows="'.$rows.
'" cols="'.$cols.'" name="homework_edit_'.	'" cols="'.$cols.'" name="homework_edit_'.
$Apache::lonxml::curdepth.'" id="homework_edit_'.	$Apache::lonxml::curdepth.'" id="homework_edit_'.
$Apache::lonxml::curdepth.'">'.	$Apache::lonxml::curdepth.'">'.
Line 517 sub editfield {	Line 532 sub editfield {
sub modifiedfield {	sub modifiedfield {
my ($endtag,$parser) = @_;	my ($endtag,$parser) = @_;
my $result;	my $result;
# foreach my $envkey (sort keys %ENV) {	# foreach my $envkey (sort keys %env) {
# &Apache::lonxml::debug("$envkey ---- $ENV{$envkey}");	# &Apache::lonxml::debug("$envkey ---- $env{$envkey}");
# }	# }
# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");	# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");
# &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"});	# &Apache::lonxml::debug($env{"form.homework_edit_$Apache::lonxml::curdepth"});
$result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"};	$result=$env{"form.homework_edit_$Apache::lonxml::curdepth"};
my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);	my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);
# textareas throw away intial \n	# textareas throw away intial \n
if ($bodytext=~/^\n/) { $result="\n".$result; }	if ($bodytext=~/^\n/) { $result="\n".$result; }
Line 538 sub get_new_args {	Line 553 sub get_new_args {
#just want the string that it was set to	#just want the string that it was set to
my $value=$token->[2]->{$arg};	my $value=$token->[2]->{$arg};
my $element=&html_element_name($arg);	my $element=&html_element_name($arg);
my $newvalue=$ENV{"form.$element"};	my $newvalue=$env{"form.$element"};
&Apache::lonxml::debug("for:$arg: cur is :$value: new is :$newvalue:");	&Apache::lonxml::debug("for:$arg: cur is :$value: new is :$newvalue:");
if (defined($newvalue) && $value ne $newvalue) {	if (defined($newvalue) && $value ne $newvalue) {
if (ref($newvalue) eq 'ARRAY') {	if (ref($newvalue) eq 'ARRAY') {

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.88
changed lines
	Added in v.1.92