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.55, 2003/06/10 18:39:08
Line 75 sub tag_end {	Line 75 sub tag_end {
my ($target,$token,$description) = @_;	my ($target,$token,$description) = @_;
my $result='';	my $result='';
if ($target eq 'edit') {	if ($target eq 'edit') {
my $tag=$token->[1];	$result.="</td></tr>".&end_table()."\n";
if (!defined($description)) {
$result.="</td></tr><tr><td></$tag></td><td colspan=\"2\"> </td>";
} else {
if ($description ne '') { $result.="</td></tr><tr><td>$description</td><td colspan=\"2\"> </td>"; }
}
$result.="</tr>".&end_table()."\n";
}	}
return $result;	return $result;
}	}
Line 310 sub insert_essayresponse {	Line 304 sub insert_essayresponse {
</essayresponse>';	</essayresponse>';
}	}

	sub insert_imageresponse {
	return '
	<imageresponse max="1">
	<foilgroup>
	</foilgroup>
	<hintgroup>
	</hintgroup>
	</imageresponse>';
	}

sub insert_optionresponse {	sub insert_optionresponse {
return '	return '
<optionresponse max="10">	<optionresponse max="10">
Line 404 sub textarea_sizes {	Line 408 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);