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.121 and 1.132

version 1.121, 2008/12/10 21:59:43	version 1.132, 2010/11/07 01:57:50
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#

	=pod

=head1 NAME	=head1 NAME

Apache::edit - edit mode helpers	Apache::edit - edit mode helpers
Line 202 sub start_table {	Line 204 sub start_table {
$Apache::edit::colordepth++;	$Apache::edit::colordepth++;
push(@Apache::edit::inserttag,$token->[1]);	push(@Apache::edit::inserttag,$token->[1]);
my $result='<div align="right">';	my $result='<div align="right">';
$result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="5" cellpadding="3">';	$result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="3" cellpadding="2">';
return $result;	return $result;
}	}

Line 230 sub end_table {	Line 232 sub end_table {
return $result;	return $result;
}	}

sub start_spanning_row { return '<tr><td colspan="5" bgcolor="#DDDDDD">';}	sub start_spanning_row { return '<tr><td colspan="5" bgcolor="#F0F0F0">';}
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; }	sub start_row { return '<tr><td bgcolor="#DDDDDD">'; }
sub end_row { return '</td></tr>'; }	sub end_row { return '</td></tr>'; }

Line 355 sub do_insert {	Line 357 sub do_insert {
my $depth = scalar(@Apache::lonxml::depthcounter);	my $depth = scalar(@Apache::lonxml::depthcounter);
$depth -- if ($after);	$depth -- if ($after);
my $inset = "\t"x$depth;	my $inset = "\t"x$depth;
$result.="\n$inset<$newtag>\n$inset</$newtag>";	$result.="\n$inset<$newtag></$newtag>";
} else {	} else {
if (defined(&$func)) {	if (defined(&$func)) {
{	{
Line 395 sub insert_formularesponse {	Line 397 sub insert_formularesponse {
</formularesponse>';	</formularesponse>';
}	}

	sub insert_functionplotresponse {
	return '
	<functionplotresponse>
	<spline />
	<functionplotrule />
	</functionplotresponse>';
	}

	sub insert_spline {
	return '
	<spline />';
	}

	sub insert_backgroundplot {
	return '
	<backgroundplot />';
	}

	sub insert_functionplotrule {
	return '
	<functionplotrule />';
	}



sub insert_numericalresponse {	sub insert_numericalresponse {
return '	return '
<numericalresponse answer="">	<numericalresponse answer="">
Line 590 sub insert_matchresponse {	Line 617 sub insert_matchresponse {
</matchresponse>';	</matchresponse>';
}	}

	sub insert_startpartmarker { return '<startpartmarker />'; }
	sub insert_endpartmarker { return '<endpartmarker />'; }

sub insert_displayduedate { return '<displayduedate />'; }	sub insert_displayduedate { return '<displayduedate />'; }
sub insert_displaytitle { return '<displaytitle />'; }	sub insert_displaytitle { return '<displaytitle />'; }
sub insert_hintpart {	sub insert_hintpart {
Line 612 sub insert_numericalhint {	Line 642 sub insert_numericalhint {
</numericalhint>';	</numericalhint>';
}	}

	sub insert_reactionhint {
	return '
	<reactionhint>
	</reactionhint>';
	}

	sub insert_organichint {
	return '
	<organichint>
	</organichint>';
	}

sub insert_stringhint {	sub insert_stringhint {
return '	return '
<stringhint>	<stringhint>
Line 714 sub editfield {	Line 756 sub editfield {
my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_;	my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_;

my ($rows,$cols)=&textarea_sizes(\$data);	my ($rows,$cols)=&textarea_sizes(\$data);
if (&Apache::lonhtmlcommon::htmlareabrowser() &&	my $textareaclass;
!&Apache::lonhtmlcommon::htmlareablocked()) {
	if (&Apache::lonhtmlcommon::htmlareabrowser() && $usehtmlarea) {
$rows+=7; # make room for HTMLarea	$rows+=7; # make room for HTMLarea
$minheight+=7; # make room for HTMLarea	$minheight+=7; # make room for HTMLarea
	$textareaclass = ' class="LC_richDefaultOff"';
}	}
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=$description."<br />"; }	if ($description) { $description=$description."<br />"; }
if ($usehtmlarea) {
&Apache::lonhtmlcommon::add_htmlareafields('homework_edit_'.
$Apache::lonxml::curdepth);
}
# remove typesetting whitespace from between data and the end tag	# remove typesetting whitespace from between data and the end tag
# to make the edit look prettier	# to make the edit look prettier
$data =~ s/\n?[ \t]*$//;	$data =~ s/\n?[ \t]*$//;
Line 734 sub editfield {	Line 775 sub editfield {
return $description."\n".'<textarea style="width:100%" 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.'" '.&element_change_detection().'>'.	$Apache::lonxml::curdepth.'" '.&element_change_detection().
	$textareaclass.'>'.
&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 1027 sub entercoord {	Line 1069 sub entercoord {
}	}

sub deletecoorddata {	sub deletecoorddata {
&Apache::lonnet::delenv("imagechoice\\.");	&Apache::lonnet::delenv('imagechoice.');
}	}

#----------------------------------------------------- browse	#----------------------------------------------------- browse

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

Removed from v.1.121
changed lines
	Added in v.1.132