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.8

version 1.7, 2001/05/15 20:48:43	version 1.8, 2001/05/31 22:37:56
Line 14 sub tag_start {	Line 14 sub tag_start {
# 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>	$result.="<table bgcolor=\"$color\" width=\"100%\" border=\"2\"><tr><td><$tag></td>
<td>Delete:	<td>Delete:".
<select name=\"delete_$Apache::lonxml::curdepth\">	&deletelist($target,$token)
<option>Nothing</option>	."</td>
<option>Tag</option>
<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 38 sub tag_end {	Line 35 sub tag_end {
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 70 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);

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

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