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.3 and 1.4

version 1.3, 2001/04/26 21:21:48	version 1.4, 2001/05/04 21:22:05
Line 7 use strict;	Line 7 use strict;
use Apache::lonnet;	use Apache::lonnet;

sub tag_start {	sub tag_start {
my ($tag) = @_;	my ($token,$target) = @_;
my $result='';	my $result='';
	if ($target eq "web") {
$result.="<table width=\"100%\" border=\"2\"><tr><td><$tag></td>	my $tag=$token->[1];
	$result.="<table width=\"100%\" border=\"2\"><tr><td><$tag></td>
<td>Delete:	<td>Delete:
<select name=\"delete_$Apache::lonxml::curdepth\">	<select name=\"delete_$Apache::lonxml::curdepth\">
<option>Nothing</option>	<option>Nothing</option>
<option>Tag</option>	<option>Tag</option>
<option>Subtags</option>	<option>Subtags</option>
</select></td>	</select></td>
<td>Insert:	<td>".
<select name=\"insert_$Apache::lonxml::curdepth\">	&insertlist($token,$target).
<option>Nothing</option>	"</td>
<option>Text Block</option>
<option>Script Block</option>
</select>
</td>
</tr><tr><td colspan=\"3\">\n";	</tr><tr><td colspan=\"3\">\n";
	}
return $result;	return $result;
}	}

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

$result.="</td></tr><tr><td></$tag></td></tr></table>\n";	sub insertlist {
	my ($token,$target) = @_;
	my $result;
	if ($target eq 'edit') {
	$result = "Insert:
	<select name=\"insert_$Apache::lonxml::curdepth\">
	<option>Nothing</option>
	<option>Text Block</option>
	<option>Script Block</option>
	</select>"
	}
return $result;	return $result;
}	}

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

Removed from v.1.3
changed lines
	Added in v.1.4