Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/edit.pm between versions 1.75 and 1.103

version 1.75, 2004/01/09 23:22:18	version 1.103, 2006/07/27 20:47:02
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# 3/20 Guy
# 01/10/02 Matthew
# 03/06/02 Matthew
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;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


# Global Vars	# Global Vars
# default list of colors to use in editing	# default list of colors to use in editing
Line 70 sub tag_start {	Line 71 sub tag_start {
# "</tr><tr><td colspan=\"3\">\n";	# "</tr><tr><td colspan=\"3\">\n";
my @help = Apache::lonxml::helpinfo($token);	my @help = Apache::lonxml::helpinfo($token);
if ($help[0]) {	if ($help[0]) {
$result .= '<td align="right" valign="top">' .	$result .= '</td><td align="right" valign="top">' .
Apache::loncommon::help_open_topic(@help) .	Apache::loncommon::help_open_topic(@help);
'</td>';	} else { $result .= "</td><td> "; }
} else { $result .= "<td> </td>"; }
$result .= &end_row().&start_spanning_row();	$result .= &end_row().&start_spanning_row();
}	}
return $result;	return $result;
Line 95 sub start_table {	Line 95 sub start_table {
foreach my $namespace (reverse @Apache::lonxml::namespace) {	foreach my $namespace (reverse @Apache::lonxml::namespace) {
my $testtag=$namespace.'::'.$tag;	my $testtag=$namespace.'::'.$tag;
$tagnum=$Apache::lonxml::insertlist{"$testtag.num"};	$tagnum=$Apache::lonxml::insertlist{"$testtag.num"};
	&Apache::lonxml::debug(" $testtag ");
if (defined($tagnum)) { last; }	if (defined($tagnum)) { last; }
}	}
if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};}	if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};}
my $color = $Apache::lonxml::insertlist{"$tagnum.color"};	my $color = $Apache::lonxml::insertlist{"$tagnum.color"};
	&Apache::lonxml::debug(" $tagnum -- $color");
if (!defined($color)) {	if (!defined($color)) {
$color = $Apache::edit::colorlist[$Apache::edit::colordepth];	$color = $Apache::edit::colorlist[$Apache::edit::colordepth];
}	}
Line 112 sub start_table {	Line 114 sub start_table {
sub end_table {	sub end_table {
$Apache::edit::colordepth--;	$Apache::edit::colordepth--;
my $result='</table></div>';	my $result='</table></div>';
$result.="<table><tr><td>";	$result.='<div align="left"><table><tr><td>';

my ($tagname,$closingtag);	my ($tagname,$closingtag);
if (defined($Apache::edit::inserttag[-2])) {	if (defined($Apache::edit::inserttag[-2])) {
Line 122 sub end_table {	Line 124 sub end_table {
$closingtag=$Apache::edit::inserttag[-1];	$closingtag=$Apache::edit::inserttag[-1];
}	}
$result.=&innerinsertlist('edit',$tagname,$closingtag).	$result.=&innerinsertlist('edit',$tagname,$closingtag).
"</td></tr></table>";	"</td></tr></table></div>";
pop(@Apache::edit::inserttag);	pop(@Apache::edit::inserttag);
return $result;	return $result;
}	}
Line 150 sub deletelist {	Line 152 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 164 sub handle_delete {	Line 166 sub handle_delete {
}	}
if (!$result) {	if (!$result) {
my $endtag='/'.$token->[1];	my $endtag='/'.$token->[1];
my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);	my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser,$style);
$$parser['-1']->get_token();	$$parser['-1']->get_token();
&Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");	&Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");
&Apache::lonxml::end_tag($tagstack,$parstack,$token);	&Apache::lonxml::end_tag($tagstack,$parstack,$token);
Line 193 sub get_insert_list {	Line 195 sub get_insert_list {
$descrip."</option>\n";	$descrip."</option>\n";
}	}
foreach my $option (sort(keys(%options))) {$result.=$options{$option};}	foreach my $option (sort(keys(%options))) {$result.=$options{$option};}
if ($result) { $result='<option selected="on"></option>'.$result; }	if ($result) { $result='<option selected="selected"></option>'.$result; }
}	}
return $result;	return $result;
}	}
Line 225 sub innerinsertlist {	Line 227 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 242 sub handle_insert {	Line 244 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 250 sub handle_insert {	Line 252 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 284 sub insert_responseparam {	Line 286 sub insert_responseparam {
<responseparam />';	<responseparam />';
}	}

	sub insert_parameter {
	return '
	<parameter />';
	}

sub insert_formularesponse {	sub insert_formularesponse {
return '	return '
<formularesponse answer="" samples="">	<formularesponse answer="" samples="">
<textline />	<responseparam description="Numerical Tolerance" type="tolerance" default="0.00001" name="tol" />
	<textline size="25"/>
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</formularesponse>';	</formularesponse>';
}	}
Line 298 sub insert_formularesponse {	Line 305 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/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</numericalresponse>';	</numericalresponse>';
}	}

	sub insert_customresponse {
	return '
	<customresponse>
	<answer type="loncapa/perl">
	</answer>
	<textline />
	<hintgroup>
	<startouttext /><endouttext />
	</hintgroup>
	</customresponse>';
	}

	sub insert_customresponse_answer {
	return '
	<answer type="loncapa/perl">
	</answer>
	';
	}

sub insert_stringresponse {	sub insert_stringresponse {
return '	return '
<stringresponse answer="" type="">	<stringresponse answer="" type="">
<textline />	<textline />
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</stringresponse>';	</stringresponse>';
}	}
Line 328 sub insert_imageresponse {	Line 354 sub insert_imageresponse {
return '	return '
<imageresponse max="1">	<imageresponse max="1">
<foilgroup>	<foilgroup>
	<foil>
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</imageresponse>';	</imageresponse>';
}	}
Line 340 sub insert_optionresponse {	Line 367 sub insert_optionresponse {
return '	return '
<optionresponse max="10">	<optionresponse max="10">
<foilgroup options="">	<foilgroup options="">
	<foil>
	<startouttext /><endouttext />
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</optionresponse>';	</optionresponse>';
}	}
Line 353 sub insert_organicresponse {	Line 382 sub insert_organicresponse {
<organicresponse>	<organicresponse>
<textline />	<textline />
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</organicresponse>';	</organicresponse>';
}	}
Line 369 sub insert_radiobuttonresponse {	Line 397 sub insert_radiobuttonresponse {
return '	return '
<radiobuttonresponse max="10">	<radiobuttonresponse max="10">
<foilgroup>	<foilgroup>
	<foil>
	<startouttext /><endouttext />
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</radiobuttonresponse>';	</radiobuttonresponse>';
}	}
Line 382 sub insert_reactionresponse {	Line 412 sub insert_reactionresponse {
<reactionresponse>	<reactionresponse>
<textline />	<textline />
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</reactionresponse>';	</reactionresponse>';
}	}
Line 392 sub insert_rankresponse {	Line 421 sub insert_rankresponse {
return '	return '
<rankresponse max="10">	<rankresponse max="10">
<foilgroup options="">	<foilgroup options="">
	<foil>
	<startouttext /><endouttext />
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</rankresponse>';	</rankresponse>';
}	}
Line 406 sub insert_matchresponse {	Line 437 sub insert_matchresponse {
<foilgroup options="">	<foilgroup options="">
<itemgroup>	<itemgroup>
</itemgroup>	</itemgroup>
	<foil>
	<startouttext /><endouttext />
	</foil>
</foilgroup>	</foilgroup>
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>	</hintgroup>
</matchresponse>';	</matchresponse>';
}	}
Line 419 sub insert_displaytitle { return '<dis	Line 452 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>';
}	}

sub insert_hintgroup {	sub insert_hintgroup {
return '	return '
<hintgroup>	<hintgroup>
<startouttext/>	<startouttext /><endouttext />
<endouttext />
</hintgroup>';	</hintgroup>';
}	}

Line 463 sub insert_optionhint {	Line 494 sub insert_optionhint {
}	}

sub insert_startouttext {	sub insert_startouttext {
return "<startouttext />\n<endouttext />";	return "<startouttext /><endouttext />";
}	}

sub insert_script {	sub insert_script {
return "\n<script type=\"loncapa/perl\">\n</script>";	return "\n<script type=\"loncapa/perl\"></script>";
	}

	sub js_change_detection {
	my $unsaved=&mt("There are unsaved changes");
	return (<<SCRIPT);
	<script type="text/javascript">
	var clean = true;
	var is_submit = false;
	var still_ask = false;
	function compareForm(event_) {
	if (!event_ && window.event) {
	event_ = window.event;
	}
	if ((!is_submit \|\| (is_submit && still_ask)) && !clean) {
	still_ask = false;
	is_submit = false;
	event_.returnValue = "$unsaved";
	return "$unsaved";
	}
	}
	function unClean() {
	clean=false;
	}
	window.onbeforeunload = compareForm;
	</script>
	SCRIPT
	}

	sub form_change_detection {
	return ' onsubmit="is_submit=true;" ';
	}

	sub element_change_detection {
	return ' onchange="unClean();" ';
	}

	sub submit_ask_anyway {
	return ' onclick="still_ask=true;" ';
}	}

sub textarea_sizes {	sub textarea_sizes {
Line 486 sub textarea_sizes {	Line 555 sub textarea_sizes {

sub editline {	sub editline {
my ($tag,$data,$description,$size)=@_;	my ($tag,$data,$description,$size)=@_;
$data=&HTML::Entities::encode($data);	$data=&HTML::Entities::encode($data,'<>&"');
if ($description) { $description="<br />".$description."<br />"; }	if ($description) { $description="<br />".$description."<br />"; }
	my $change_code = &element_change_detection();
my $result = <<"END";	my $result = <<"END";
$description	$description
<input type="text" name="homework_edit_$Apache::lonxml::curdepth"	<input type="text" name="homework_edit_$Apache::lonxml::curdepth"
value="$data" size="$size" />	value="$data" size="$size" $change_code />
END	END
return $result;	return $result;
}	}

sub editfield {	sub editfield {
my ($tag,$data,$description,$minwidth,$minheight)=@_;	my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_;

my ($rows,$cols)=&textarea_sizes(\$data);	my ($rows,$cols)=&textarea_sizes(\$data);
	if (&Apache::lonhtmlcommon::htmlareabrowser() &&
	!&Apache::lonhtmlcommon::htmlareablocked()) {
	$rows+=7; # make room for HTMLarea
	$minheight+=7; # make room for HTMLarea
	}
if ($cols > 80) { $cols = 80; }	if ($cols > 80) { $cols = 80; }
if ($cols < $minwidth ) { $cols = $minwidth; }	if ($cols < $minwidth ) { $cols = $minwidth; }
if ($rows < $minheight) { $rows = $minheight; }	if ($rows < $minheight) { $rows = $minheight; }
if ($description) { $description="<br />".$description."<br />"; }	if ($description) { $description="<br />".$description."<br />"; }
return $description."\n".'   <textarea rows="'.$rows.	if ($usehtmlarea) {
	&Apache::lonhtmlcommon::add_htmlareafields('homework_edit_'.
	$Apache::lonxml::curdepth);
	}
	return $description."\n".'<textarea style="width:100%" rows="'.$rows.
'" cols="'.$cols.'" name="homework_edit_'.	'" cols="'.$cols.'" name="homework_edit_'.
$Apache::lonxml::curdepth.'">'.	$Apache::lonxml::curdepth.'" id="homework_edit_'.
&HTML::Entities::encode($data).'</textarea>'."\n";	$Apache::lonxml::curdepth.'" '.&element_change_detection().'>'.
	&HTML::Entities::encode($data,'<>&"').'</textarea>'.
	($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework',
	'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";
}	}

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 534 sub get_new_args {	Line 616 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') {
Line 543 sub get_new_args {	Line 625 sub get_new_args {
$token->[2]->{$arg}=$newvalue;	$token->[2]->{$arg}=$newvalue;
}	}
$rebuild=1;	$rebuild=1;
	} elsif (!defined($newvalue) && defined($value)) {
	delete($token->[2]->{$arg});
	$rebuild=1;
}	}
}	}
return $rebuild;	return $rebuild;
Line 601 sub checked_arg {	Line 686 sub checked_arg {
$text=$option;	$text=$option;
$value='value="'.$option.'"';	$value='value="'.$option.'"';
}	}
$result.="<nobr><input type='checkbox' $value name='".	$result.="<nobr><label><input type='checkbox' $value name='".
&html_element_name($name)."'";	&html_element_name($name)."'";
foreach my $selected (split(/,/,$allselected)) {	foreach my $selected (split(/,/,$allselected)) {
if ( $selected eq $option ) {	if ( $selected eq $option ) {
$result.=" checked='on' ";	$result.=" checked='checked' ";
last;	last;
}	}
}	}
$result.=" />$text</nobr>\n";	$result.=&element_change_detection()." />$text</label></nobr>\n";
}	}
return $result;	return $result;
}	}
Line 620 sub text_arg {	Line 705 sub text_arg {
if (!defined $size) { $size=20; }	if (!defined $size) { $size=20; }
my $arg=$token->[2]{$name};	my $arg=$token->[2]{$name};
$result=&mt($description).' <input name="'.&html_element_name($name).	$result=&mt($description).' <input name="'.&html_element_name($name).
'" type="text" value="'.$arg.'" size="'.$size.'" />';	'" type="text" value="'.$arg.'" size="'.$size.'" '.
	&element_change_detection().'/>';
return '<nobr>'.$result.'</nobr>';	return '<nobr>'.$result.'</nobr>';
}	}

Line 632 sub select_arg {	Line 718 sub select_arg {
foreach my $option (@$list) {	foreach my $option (@$list) {
my ($text,$value);	my ($text,$value);
if ( ref($option) eq 'ARRAY') {	if ( ref($option) eq 'ARRAY') {
$value='value="'.$$option[0].'"';	$value='value="'.&HTML::Entities::encode($$option[0]).'"';
$text=$$option[1];	$text=$$option[1];
$option=$$option[0];	$option=$$option[0];
} else {	} else {
$text=$option;	$text=$option;
$value='value="'.$option.'"';	$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"';
}	}
if ( $selected eq $option ) {	if ( $selected eq $option ) {
$optionlist.="<option $value selected=\"on\">$text</option>\n";	$optionlist.="<option $value selected=\"selected\">$text</option>\n";
} else {	} else {
$optionlist.="<option $value >$text</option>\n";	$optionlist.="<option $value >$text</option>\n";
}	}
}	}
$result.='<nobr>'.$description.' <select name="'.	$result.='<nobr>'.$description.' <select name="'.
&html_element_name($name).'">	&html_element_name($name).'" '.&element_change_detection().' >
'.$optionlist.'	'.$optionlist.'
</select></nobr>';	</select></nobr>';
return $result;	return $result;
Line 661 sub select_or_text_arg {	Line 747 sub select_or_text_arg {
foreach my $option (@$list) {	foreach my $option (@$list) {
my ($text,$value);	my ($text,$value);
if ( ref($option) eq 'ARRAY') {	if ( ref($option) eq 'ARRAY') {
$value='value="'.$$option[0].'"';	$value='value="'.&HTML::Entities::encode($$option[0]).'"';
$text=$$option[1];	$text=$$option[1];
$option=$$option[0];	$option=$$option[0];
} else {	} else {
$text=$option;	$text=$option;
$value='value="'.$option.'"';	$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"';
}	}
if ( $selected eq $option ) {	if ( $selected eq $option ) {
$optionlist.="<option $value selected=\"on\">$text</option>\n";	$optionlist.="<option $value selected=\"selected\">$text</option>\n";
$found=1;	$found=1;
} else {	} else {
$optionlist.="<option $value>$text</option>\n";	$optionlist.="<option $value>$text</option>\n";
}	}
}	}
$optionlist.="<option value=\"TYPEDINVALUE\"".	$optionlist.="<option value=\"TYPEDINVALUE\"".
((!$found)?' selected="on"':'').	((!$found)?' selected="selected"':'').
">".&mt('Type-in value')."</option>\n";	">".&mt('Type-in value')."</option>\n";
#	#
	my $change_code=&element_change_detection();
my $element=&html_element_name($name);	my $element=&html_element_name($name);
my $selectelement='select_list_'.$element;	my $selectelement='select_list_'.$element;
my $typeinelement='type_in_'.$element;	my $typeinelement='type_in_'.$element;
Line 703 $optionlist	Line 790 $optionlist
value="$typeinvalue"	value="$typeinvalue"
onChange="$hiddenvalue=$typedinvalue;"	onChange="$hiddenvalue=$typedinvalue;"
onFocus="$selectedindex=$selecttypeinindex-1;" />	onFocus="$selectedindex=$selecttypeinindex-1;" />
<input type="hidden" name="$element" value="$selected" />	<input type="hidden" name="$element" value="$selected" $change_code />
</nobr>	</nobr>
ENDSELECTORTYPE	ENDSELECTORTYPE
}	}
Line 711 ENDSELECTORTYPE	Line 798 ENDSELECTORTYPE
#----------------------------------------------------- image coordinates	#----------------------------------------------------- image coordinates
# single image coordinates, x, y	# single image coordinates, x, y
sub entercoords {	sub entercoords {
my ($idx,,$idy,$mode,$width,$height) = @_;	my ($idx,$idy,$mode,$width,$height) = @_;
unless ($Apache::edit::bgimgsrc) { return ''; }	unless ($Apache::edit::bgimgsrc) { return ''; }
if ($idx) { $idx.='_'; }	if ($idx) { $idx.='_'; }
if ($idy) { $idy.='_'; }	if ($idy) { $idy.='_'; }
my $bgfile=&Apache::lonnet::escape($Apache::edit::bgimgsrc);	my $bgfile=&escape(&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$Apache::edit::bgimgsrc));
my $form = 'lonhomework';	my $form = 'lonhomework';
my $element;	my $element;
if (! defined($mode) \|\| $mode eq 'attribute') {	if (! defined($mode) \|\| $mode eq 'attribute') {
$element = &Apache::lonnet::escape("$Apache::lonxml::curdepth");	$element = &escape("$Apache::lonxml::curdepth");
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>	} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>
$element = &Apache::lonnet::escape('homework_edit_'.	$element = &escape('homework_edit_'.
$Apache::lonxml::curdepth);	$Apache::lonxml::curdepth);
}	}
my $formheight='';	my $id=$Apache::lonxml::curdepth;
	my %data=("imagechoice.$id.type" =>'point',
	"imagechoice.$id.formname" =>$form,
	"imagechoice.$id.formx" =>"$idx$element",
	"imagechoice.$id.formy" =>"$idy$element",
	"imagechoice.$id.file" =>$bgfile,
	"imagechoice.$id.formcoord" =>$element);
if ($height) {	if ($height) {
$formheight='&formheight='.$height.'_'.$Apache::edit::bgimgsrccurdepth;	$data{"imagechoice.$id.formheight"}=$height.'_'.
	$Apache::edit::bgimgsrccurdepth;
}	}
my $formwidth='';
if ($width) {	if ($width) {
$formwidth='&formwidth='.$width.'_'.$Apache::edit::bgimgsrccurdepth;	$data{"imagechoice.$id.formwidth"}=$width.'_'.
	$Apache::edit::bgimgsrccurdepth;
}	}
my $result = <<"ENDBUTTON";	&Apache::lonnet::appenv(%data);
<a href="/cgi-bin/imagechoice.pl?formname=$form&file=$bgfile&formx=$idx$element&formy=$idy$element$formheight$formwidth"	my $text="Click Coordinates";
target="imagechoice">Click Coordinates</a>	my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';
ENDBUTTON
return $result;	return $result;
}	}

# coordinate pair (x1,y1)-(x2,y2)	# coordinates (x1,y1)-(x2,y2)...
sub entercoordpair {	# mode can be either box, or polygon
my ($id,$mode,$width,$height) = @_;	sub entercoord {
	my ($idx,$mode,$width,$height,$type) = @_;
unless ($Apache::edit::bgimgsrc) { return ''; }	unless ($Apache::edit::bgimgsrc) { return ''; }
my $bgfile=&Apache::lonnet::escape($Apache::edit::bgimgsrc);	my $bgfile=&escape(&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$Apache::edit::bgimgsrc));
my $form = 'lonhomework';	my $form = 'lonhomework';
my $element;	my $element;
if (! defined($mode) \|\| $mode eq 'attribute') {	if (! defined($mode) \|\| $mode eq 'attribute') {
$element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth");	$element = &escape("$idx\_$Apache::lonxml::curdepth");
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>	} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>
$element = &Apache::lonnet::escape('homework_edit_'.	$element = &escape('homework_edit_'.
$Apache::lonxml::curdepth);	$Apache::lonxml::curdepth);
}	}
my $formheight='';	my $id=$Apache::lonxml::curdepth;
	my %data=("imagechoice.$id.type" =>$type,
	"imagechoice.$id.formname" =>$form,
	"imagechoice.$id.file" =>$bgfile,
	"imagechoice.$id.formcoord" =>$element);
if ($height) {	if ($height) {
$formheight='&formheight='.$height.'_'.$Apache::edit::bgimgsrccurdepth;	$data{"imagechoice.$id.formheight"}=$height.'_'.
	$Apache::edit::bgimgsrccurdepth;
}	}
my $formwidth='';
if ($width) {	if ($width) {
$formwidth='&formwidth='.$width.'_'.$Apache::edit::bgimgsrccurdepth;	$data{"imagechoice.$id.formwidth"}=$width.'_'.
	$Apache::edit::bgimgsrccurdepth;
}	}
my $result = <<"ENDBUTTON";	&Apache::lonnet::appenv(%data);
<a href="/cgi-bin/imagechoice.pl?mode=pair&formname=$form&file=$bgfile$formheight$formwidth&formcoord=$element"	my $text="Enter Coordinates";
target="imagechoice">Click Coordinate Pair</a>	if ($type eq 'polygon') { $text='Create Polygon Data'; }
ENDBUTTON	my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';
return $result;	return $result;
}	}

# coordinate polygon (x1,y1)-(x2,y2)...	sub deletecoorddata {
sub entercoordpolygon {	&Apache::lonnet::delenv("imagechoice\\.");
my ($id,$mode,$width,$height) = @_;
unless ($Apache::edit::bgimgsrc) { return ''; }
my $bgfile=&Apache::lonnet::escape($Apache::edit::bgimgsrc);
my $form = 'lonhomework';
my $element;
if (! defined($mode) \|\| $mode eq 'attribute') {
$element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth");
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>
$element = &Apache::lonnet::escape('homework_edit_'.
$Apache::lonxml::curdepth);
}
my $id=&Apache::loncommon::get_cgi_id();
my %data=("cgi.$id.mode" =>'polygon',
"cgi.$id.formname" =>$form,
"cgi.$id.file" =>$bgfile,
"cgi.$id.formcoord" =>$element);
if ($height) {
$data{"cgi.$id.formheight"}=$height.'_'.$Apache::edit::bgimgsrccurdepth;
}
if ($width) {
$data{"cgi.$id.formwidth"}=$width.'_'.$Apache::edit::bgimgsrccurdepth;
}
&Apache::lonnet::appenv(%data);
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">Create Polygon Data</a>';
return $result;
}	}

#----------------------------------------------------- browse	#----------------------------------------------------- browse
sub browse {	sub browse {
# insert a link to call up the filesystem browser (lonindexer)	# insert a link to call up the filesystem browser (lonindexer)
Line 802 sub browse {	Line 877 sub browse {
my $form = 'lonhomework';	my $form = 'lonhomework';
my $element;	my $element;
if (! defined($mode) \|\| $mode eq 'attribute') {	if (! defined($mode) \|\| $mode eq 'attribute') {
$element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth");	$element = &escape("$id\_$Apache::lonxml::curdepth");
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>	} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>
$element = &Apache::lonnet::escape('homework_edit_'.	$element = &escape('homework_edit_'.
$Apache::lonxml::curdepth);	$Apache::lonxml::curdepth);
}	}
my $titleelement;	my $titleelement;
if ($titleid) {	if ($titleid) {
$titleelement=",'','','".&Apache::lonnet::escape("$titleid\_$Apache::lonxml::curdepth")."'";	$titleelement=",'','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'";
}	}
my $result = <<"ENDBUTTON";	my $result = <<"ENDBUTTON";
<a href=\"javascript:openbrowser('$form','$element'$titleelement)\"\>Select</a>	<a href=\"javascript:openbrowser('$form','$element'$titleelement)\"\>Select</a>
Line 824 sub search {	Line 899 sub search {
my $form = 'lonhomework';	my $form = 'lonhomework';
my $element;	my $element;
if (! defined($mode) \|\| $mode eq 'attribute') {	if (! defined($mode) \|\| $mode eq 'attribute') {
$element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth");	$element = &escape("$id\_$Apache::lonxml::curdepth");
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>	} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag>
$element = &Apache::lonnet::escape('homework_edit_'.	$element = &escape('homework_edit_'.
$Apache::lonxml::curdepth);	$Apache::lonxml::curdepth);
}	}
my $titleelement;	my $titleelement;
if ($titleid) {	if ($titleid) {
$titleelement=",'".&Apache::lonnet::escape("$titleid\_$Apache::lonxml::curdepth")."'";	$titleelement=",'".&escape("$titleid\_$Apache::lonxml::curdepth")."'";
}	}
my $result = <<"ENDBUTTON";	my $result = <<"ENDBUTTON";
<a href=\"javascript:opensearcher('$form','$element'$titleelement)\"\>Search</a>	<a href=\"javascript:opensearcher('$form','$element'$titleelement)\"\>Search</a>

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.75
changed lines
	Added in v.1.103