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.4 and 1.5

version 1.4, 2001/05/04 21:22:05	version 1.5, 2001/05/13 20:01:34
Line 7 use strict;	Line 7 use strict;
use Apache::lonnet;	use Apache::lonnet;

sub tag_start {	sub tag_start {
my ($token,$target) = @_;	my ($target,$token) = @_;
my $result='';	my $result='';
if ($target eq "web") {	if ($target eq "edit") {
my $tag=$token->[1];	my $tag=$token->[1];
$result.="<table width=\"100%\" border=\"2\"><tr><td><$tag></td>	$result.="<table width=\"100%\" border=\"2\"><tr><td><$tag></td>
<td>Delete:	<td>Delete:
Line 27 sub tag_start {	Line 27 sub tag_start {
}	}

sub tag_end {	sub tag_end {
my ($token,$target) = @_;	my ($target,$token) = @_;
my $result='';	my $result='';
if ($target eq 'edit') {	if ($target eq 'edit') {
my $tag=$token->[1];	my $tag=$token->[1];
Line 36 sub tag_end {	Line 36 sub tag_end {
return $result;	return $result;
}	}

	sub get_insert_list {
	my ($token) = @_;
	my $result='';
	if ($Apache::lonxml::insertlist{"$token->[1].which"}) {
	my @tags= @{ $Apache::lonxml::insertlist{"$token->[1].which"} };
	foreach my $tag (@tags) {
	$result.='<option value="'.$tag.'">'.$Apache::lonxml::insertlist{"$tag.description"}."</option>\n";
	}
	if ($result) { $result='<option selected="on"></option>'.$result; }
	}
	return $result;
	}

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

	sub handle_insert {
	if (!$ENV{"form.insert_$Apache::lonxml::curdepth"}) { return ''; }
	my $result;
	my $newtag = $ENV{"form.insert_$Apache::lonxml::curdepth"};
	my $func=$Apache::lonxml::insertlist{"$newtag.function"};
	if ($func eq 'default') {
	$result.="\n<$newtag>\n</$newtag>";
	} else {
	{
	no strict 'refs';
	$result.=&$func;
	}
}	}
return $result;	return $result;
}	}

sub editfield {	sub editfield {
my ($tag,$data,$description)=@_;	my ($tag,$data,$description,$minwidth,$minheight)=@_;

my $count=0;	my $count=0;
my $maxlength=-1;	my $maxlength=-1;
Line 59 sub editfield {	Line 89 sub editfield {
if (length($_) > $maxlength) { $maxlength = length ($_); }	if (length($_) > $maxlength) { $maxlength = length ($_); }
} split ("\n", $data);	} split ("\n", $data);
if ($maxlength > 80) { $maxlength = 80; }	if ($maxlength > 80) { $maxlength = 80; }
if ($description) {	if ($maxlength < $minwidth) { $maxlength = $minwidth; }
$description="<br />".$description;	if ( $count < $minheight) { $count = $minheight; }
	if ($description) {
	$description="<br />".$description;
}	}
return "$description<br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";	return "$description<br />\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";
Line 85 sub modifiedfield {	Line 117 sub modifiedfield {
return $result;	return $result;
}	}

	sub insert_startouttext {
	return "\n<startouttext />\n<endouttext />";
	}

1;	1;
__END__	__END__

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

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