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.7 and 1.9

version 1.7, 2001/05/15 20:48:43	version 1.9, 2001/06/11 16:15:37
Line 7 use strict;	Line 7 use strict;
use Apache::lonnet;	use Apache::lonnet;

sub tag_start {	sub tag_start {
my ($target,$token) = @_;	my ($target,$token,$description) = @_;
my $result='';	my $result='';
if ($target eq "edit") {	if ($target eq "edit") {
my $tag=$token->[1];	my $tag=$token->[1];
# my $color = sprintf("#%06lx",(hex("ffffff")) >> scalar(split(/_/,$Apache::lonxml::curdepth)));	# my $color = sprintf("#%06lx",(hex("ffffff")) >> scalar(split(/_/,$Apache::lonxml::curdepth)));
my $color = sprintf("#%02lxffff",33* scalar(split(/_/,$Apache::lonxml::curdepth)));	my $color = sprintf("#%02lxffff",33* scalar(split(/_/,$Apache::lonxml::curdepth)));
$result.="<table bgcolor=\"$color\" width=\"100%\" border=\"2\"><tr><td><$tag></td>	if (!$description) { $description="<$tag>"; }
<td>Delete:	$result.="<table bgcolor=\"$color\" width=\"100%\" border=\"2\"><tr><td>$description</td>
<select name=\"delete_$Apache::lonxml::curdepth\">	<td>Delete:".
<option>Nothing</option>	&deletelist($target,$token)
<option>Tag</option>	."</td>
<option>Subtags</option>
</select></td>
<td>".	<td>".
&insertlist($token,$target).	&insertlist($target,$token).
"</td>	"</td>
</tr><tr><td colspan=\"3\">\n";	</tr><tr><td colspan=\"3\">\n";
}	}
Line 29 sub tag_start {	Line 27 sub tag_start {
}	}

sub tag_end {	sub tag_end {
my ($target,$token) = @_;	my ($target,$token,$description) = @_;
my $result='';	my $result='';
if ($target eq 'edit') {	if ($target eq 'edit') {
my $tag=$token->[1];	my $tag=$token->[1];
$result.="</td></tr><tr><td></$tag></td></tr></table>\n";	if (!defined($description)) {
	$result.="</td></tr><tr><td></$tag>";
	} else {
	if ($description ne '') { $result.="</td></tr><tr><td>$description"; }
	}
	$result.="</td></tr></table>\n";
}	}
return $result;	return $result;
}	}

	sub deletelist {
	my ($target,$token) = @_;
	my $result = "<select name=\"delete_$Apache::lonxml::curdepth\">
	<option>Nothing</option>
	<option>Tag</option>
	<option>Subtags</option>
	</select>";
	return $result;
	}

sub get_insert_list {	sub get_insert_list {
my ($token) = @_;	my ($token) = @_;
my $result='';	my $result='';
Line 63 sub get_insert_list {	Line 76 sub get_insert_list {
}	}

sub insertlist {	sub insertlist {
my ($token,$target) = @_;	my ($target,$token) = @_;
my $result;	my $result;
if ($target eq 'edit') {	if ($target eq 'edit') {
my $optionlist= &get_insert_list($token);	my $optionlist= &get_insert_list($token);
Line 116 sub editfield {	Line 129 sub editfield {
if ($maxlength < $minwidth) { $maxlength = $minwidth; }	if ($maxlength < $minwidth) { $maxlength = $minwidth; }
if ( $count < $minheight) { $count = $minheight; }	if ( $count < $minheight) { $count = $minheight; }
if ($description) {	if ($description) {
$description="<br />".$description;	$description="<br />".$description."<br />";
}	}
return "$description<br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";	return "$description\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";
# return "<br />\n<$tag><br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n</$tag><br />\n";	# return "<br />\n<$tag><br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n</$tag><br />\n";
}	}

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

Removed from v.1.7
changed lines
	Added in v.1.9