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

version 1.8, 2001/05/31 22:37:56	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>"; }
	$result.="<table bgcolor=\"$color\" width=\"100%\" border=\"2\"><tr><td>$description</td>
<td>Delete:".	<td>Delete:".
&deletelist($target,$token)	&deletelist($target,$token)
."</td>	."</td>
Line 26 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;
}	}
Line 123 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.8
changed lines
	Added in v.1.9