Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/edit.pm between versions 1.97 and 1.114

version 1.97, 2005/12/01 18:46:31	version 1.114, 2008/03/12 02:46:52
Line 32 use strict;	Line 32 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 87 sub tag_end {	Line 90 sub tag_end {

sub start_table {	sub start_table {
my ($token)=@_;	my ($token)=@_;
my $tag = $token->[1];	my $tag = &Apache::lonxml::get_tag($token);
my $tagnum;
foreach my $namespace (reverse @Apache::lonxml::namespace) {	my $color = $Apache::lonxml::insertlist{"$tag.color"};
my $testtag=$namespace.'::'.$tag;	&Apache::lonxml::debug(" $tag -- $color");
$tagnum=$Apache::lonxml::insertlist{"$testtag.num"};
&Apache::lonxml::debug(" $testtag ");
if (defined($tagnum)) { last; }
}
if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};}
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 116 sub end_table {	Line 112 sub end_table {
my ($tagname,$closingtag);	my ($tagname,$closingtag);
if (defined($Apache::edit::inserttag[-2])) {	if (defined($Apache::edit::inserttag[-2])) {
$tagname=$Apache::edit::inserttag[-2];	$tagname=$Apache::edit::inserttag[-2];
} else {$tagname='problem';}	} else {
	if ($Apache::lonhomework::parsing_a_task) {
	$tagname='Task';
	} else {
	$tagname='problem';
	}
	}
if (defined($Apache::edit::inserttag[-1])) {	if (defined($Apache::edit::inserttag[-1])) {
$closingtag=$Apache::edit::inserttag[-1];	$closingtag=$Apache::edit::inserttag[-1];
}	}
$result.=&innerinsertlist('edit',$tagname,$closingtag).	$result.=&innerinsertlist('edit',$tagname,$closingtag).
"</td></tr></table></div>";	"</td></tr></table></div>";
pop(@Apache::edit::inserttag);	my $last = pop(@Apache::edit::inserttag);
return $result;	return $result;
}	}

Line 174 sub handle_delete {	Line 176 sub handle_delete {
sub get_insert_list {	sub get_insert_list {
my ($tagname) = @_;	my ($tagname) = @_;
my $result='';	my $result='';
my @tagnums= ();	my @tags= ();
#&Apache::lonxml::debug("keys ".join("\n",sort(keys(%Apache::lonxml::insertlist))));	#&Apache::lonxml::debug("keys ".join("\n",sort(keys(%Apache::lonxml::insertlist))));
if ($Apache::lonxml::insertlist{"$tagname.which"}) {	if ($Apache::lonxml::insertlist{"$tagname.which"}) {
push (@tagnums, @{ $Apache::lonxml::insertlist{"$tagname.which"} });	push (@tags, @{ $Apache::lonxml::insertlist{"$tagname.which"} });
}	}
foreach my $namespace (@Apache::lonxml::namespace) {	foreach my $namespace (@Apache::lonxml::namespace) {
if ($Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"}) {	if ($Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"}) {
push (@tagnums, @{ $Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"} });	push (@tags, @{ $Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"} });
}	}
}	}
if (@tagnums) {	if (@tags) {
my %options;	my %options;
foreach my $tagnum (@tagnums) {	foreach my $tag (@tags) {
my $descrip=$Apache::lonxml::insertlist{"$tagnum.description"};	my $descrip=$Apache::lonxml::insertlist{"$tag.description"};
	my $tagnum =$Apache::lonxml::insertlist{"$tag.num"};
$options{$descrip} ="<option value=\"$tagnum\">".	$options{$descrip} ="<option value=\"$tagnum\">".
$descrip."</option>\n";	$descrip."</option>\n";
}	}
Line 225 sub innerinsertlist {	Line 228 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 $tagnum = $env{"form.insert_$Apache::lonxml::curdepth"};	my $tagnum = $env{"form.insert_$Apache::lonxml::curdepth"};
my $func=$Apache::lonxml::insertlist{"$tagnum.function"};	return &do_insert($tagnum);
if ($func eq 'default') {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
my $namespace;
if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }
$result.="\n<$newtag>\n</$newtag>";
} else {
if (defined(&$func)) {
{
no strict 'refs';
$result.=&$func();
}
} else {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
&Apache::lonxml::error("Unable to insert tag ".$Apache::lonxml::curdepth." ($tagnum) $newtag, func was not defined.");
}
}
return $result;
}	}

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 $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"};	return &do_insert($tagnum,1);
	}

	sub do_insert {
	my ($tagnum,$after) = @_;
	my $result;

	my $newtag = $Apache::lonxml::insertlist{"$tagnum.tag"};
	my $func = $Apache::lonxml::insertlist{"$newtag.function"};
if ($func eq 'default') {	if ($func eq 'default') {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
my $namespace;	my $namespace;
if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }	if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }
$result.="\n<$newtag>\n</$newtag>";	my $depth = scalar(@Apache::lonxml::depthcounter);
	$depth -- if ($after);
	my $inset = "\t"x$depth;
	$result.="\n$inset<$newtag>\n$inset</$newtag>";
} else {	} else {
if (defined(&$func)) {	if (defined(&$func)) {
{	{
Line 266 sub handle_insertafter {	Line 261 sub handle_insertafter {
$result.=&$func();	$result.=&$func();
}	}
} else {	} else {
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};	&Apache::lonxml::error("Unable to insert tag $newtag, $func was not defined. ($tagnum)");
&Apache::lonxml::error("Unable to insert (after) tag $newtag, $func was not defined. ($tagname $tagnum)");
}	}
}	}
return $result;	return $result;
Line 330 sub insert_customresponse_answer {	Line 324 sub insert_customresponse_answer {
';	';
}	}

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

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

	sub insert_mathresponse {
	return '
	<mathresponse>
	<answer>
	</answer>
	<textline />
	<hintgroup>
	<startouttext />
	<endouttext />
	</hintgroup>
	</mathresponse>';
	}

	sub insert_mathresponse_answer {
	return '
	<answer>
	</answer>
	';
	}

	sub insert_mathhint {
	return '
	<mathhint>
	<answer>
	</answer>
	</mathhint>';
	}

	sub insert_mathhint_answer {
	return '
	<answer>
	</answer>
	';
	}

sub insert_stringresponse {	sub insert_stringresponse {
return '	return '
<stringresponse answer="" type="">	<stringresponse answer="" type="">
Line 498 sub insert_script {	Line 542 sub insert_script {
return "\n<script type=\"loncapa/perl\"></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 {
	my ($extra_action) = @_;
	return ' onclick="still_ask=true;'.$extra_action.'" ';
	}

sub textarea_sizes {	sub textarea_sizes {
my ($data)=@_;	my ($data)=@_;
my $count=0;	my $count=0;
Line 515 sub textarea_sizes {	Line 598 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=$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;
}	}
Line 536 sub editfield {	Line 620 sub editfield {
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=$description."<br />"; }
if ($usehtmlarea) {	if ($usehtmlarea) {
push @Apache::lonxml::htmlareafields,'homework_edit_'.	&Apache::lonhtmlcommon::add_htmlareafields('homework_edit_'.
$Apache::lonxml::curdepth;	$Apache::lonxml::curdepth);
}	}
return $description."\n".'   <textarea style="width:100%" rows="'.$rows.	# remove typesetting whitespace from between data and the end tag
	# to make the edit look prettier
	$data =~ s/\n?[ \t]*$//;

	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.'" '.&element_change_detection().'>'.
&HTML::Entities::encode($data,'<>&"').'</textarea>'.	&HTML::Entities::encode($data,'<>&"').'</textarea>'.
($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework',	($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework',
'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";	'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";
Line 553 sub editfield {	Line 641 sub editfield {
sub modifiedfield {	sub modifiedfield {
my ($endtag,$parser) = @_;	my ($endtag,$parser) = @_;
my $result;	my $result;
# foreach my $envkey (sort keys %env) {
# &Apache::lonxml::debug("$envkey ---- $env{$envkey}");
# }
# &Apache::lonxml::debug("I want 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;
	}
	# if there is typesetting whitespace from between the data and the end tag
	# restore to keep the source looking pretty
	if ($bodytext =~ /(\n?[ \t]*)$/) {
	$result .= $1;
	}
return $result;	return $result;
}	}

Line 583 sub get_new_args {	Line 673 sub get_new_args {
$token->[2]->{$arg}=$newvalue;	$token->[2]->{$arg}=$newvalue;
}	}
$rebuild=1;	$rebuild=1;
	# add new attributes to the of the attribute seq
	if (!grep { $arg eq $_ } (@{ $token->[3] })) {
	push(@{ $token->[3] },$arg);
	}
} elsif (!defined($newvalue) && defined($value)) {	} elsif (!defined($newvalue) && defined($value)) {
delete($token->[2]->{$arg});	delete($token->[2]->{$arg});
$rebuild=1;	$rebuild=1;
Line 597 sub rebuild_tag {	Line 691 sub rebuild_tag {
my $result;	my $result;
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
$result = '<'.$token->[1];	$result = '<'.$token->[1];
while (my ($key,$val)= each(%{$token->[2]})) {	foreach my $attribute (@{ $token->[3] }) {
$val=~s:^\s+\|\s+$::g;	my $value = $token->[2]{$attribute};
$val=~s:"::g; #"	next if ($value eq '');
&Apache::lonxml::debug("setting :$key: to :$val:");	$value =~s/^\s+\|\s+$//g;
$result.=' '.$key.'="'.$val.'"';	$value =~s/\"//g;
	&Apache::lonxml::debug("setting :$attribute: to :$value:");
	$result.=' '.$attribute.'="'.$value.'"';
}	}
if ($token->[4] =~ m:/>$:) {	if ($token->[4] =~ m:/>$:) {
$result.=' />';	$result.=' />';
Line 644 sub checked_arg {	Line 740 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 ) {
Line 652 sub checked_arg {	Line 748 sub checked_arg {
last;	last;
}	}
}	}
$result.=" />$text</nobr>\n";	$result.=&element_change_detection()." />$text</label></nobr>\n";
}	}
return $result;	return $result;
}	}
Line 663 sub text_arg {	Line 759 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 689 sub select_arg {	Line 786 sub select_arg {
}	}
}	}
$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 722 sub select_or_text_arg {	Line 819 sub select_or_text_arg {
((!$found)?' selected="selected"':'').	((!$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 746 $optionlist	Line 844 $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 758 sub entercoords {	Line 856 sub entercoords {
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::lonnet::filelocation($Apache::lonxml::pwd[-1],$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 $id=$Apache::lonxml::curdepth;	my $id=$Apache::lonxml::curdepth;
Line 782 sub entercoords {	Line 880 sub entercoords {
$data{"imagechoice.$id.formwidth"}=$width.'_'.	$data{"imagechoice.$id.formwidth"}=$width.'_'.
$Apache::edit::bgimgsrccurdepth;	$Apache::edit::bgimgsrccurdepth;
}	}
&Apache::lonnet::appenv(%data);	&Apache::lonnet::appenv(\%data);
my $text="Click Coordinates";	my $text="Click Coordinates";
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';	my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';
return $result;	return $result;
Line 793 sub entercoords {	Line 891 sub entercoords {
sub entercoord {	sub entercoord {
my ($idx,$mode,$width,$height,$type) = @_;	my ($idx,$mode,$width,$height,$type) = @_;
unless ($Apache::edit::bgimgsrc) { return ''; }	unless ($Apache::edit::bgimgsrc) { return ''; }
my $bgfile=&Apache::lonnet::escape(&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$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("$idx\_$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 $id=$Apache::lonxml::curdepth;	my $id=$Apache::lonxml::curdepth;
Line 815 sub entercoord {	Line 913 sub entercoord {
$data{"imagechoice.$id.formwidth"}=$width.'_'.	$data{"imagechoice.$id.formwidth"}=$width.'_'.
$Apache::edit::bgimgsrccurdepth;	$Apache::edit::bgimgsrccurdepth;
}	}
&Apache::lonnet::appenv(%data);	&Apache::lonnet::appenv(\%data);
my $text="Enter Coordinates";	my $text="Enter Coordinates";
if ($type eq 'polygon') { $text='Create Polygon Data'; }	if ($type eq 'polygon') { $text='Create Polygon Data'; }
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';	my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';
Line 829 sub deletecoorddata {	Line 927 sub deletecoorddata {
#----------------------------------------------------- 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)
my ($id, $mode, $titleid) = @_;	my ($id, $mode, $titleid, $only) = @_;
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=",'$only','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'";
	} else {
	$titleelement=",'$only'";
}	}
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 855 sub search {	Line 955 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.97
changed lines
	Added in v.1.114