loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.52, 2003/05/13 20:48:12	version 1.53, 2003/06/04 23:04:34
Line 404 sub textarea_sizes {	Line 404 sub textarea_sizes {
my ($data)=@_;	my ($data)=@_;
my $count=0;	my $count=0;
my $maxlength=-1;	my $maxlength=-1;
foreach (split ("\n", $$data)) { $count++;	foreach (split ("\n", $$data)) {
if (length($_) > $maxlength) { $maxlength = length($_); }	$count+=int(length($_)/79);
}	$count++;
	if (length($_) > $maxlength) { $maxlength = length($_); }
	}
my $rows = $count;	my $rows = $count;
my $cols = $maxlength;	my $cols = $maxlength;
return ($rows,$cols);	return ($rows,$cols);