loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.24, 2003/02/27 17:00:08	version 1.25, 2003/02/27 21:20:48
Line 132 sub end_essayresponse {	Line 132 sub end_essayresponse {
$result.=&Apache::edit::end_table();	$result.=&Apache::edit::end_table();
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$result.='\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Leave blank on scoring form}\vskip 0 mm';	my $id = $Apache::inputtags::part;
&Apache::lonxml::increment_counter();	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
$result.= '\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Leave blank on scoring form}\vskip 0 mm \end{enumerate}';	my $repetition = int $weight/9;
&Apache::lonxml::increment_counter();	if ($weight % 9 != 0) {$repetition++;}
	$result.='\begin{enumerate}';
	for (my $i=0;$i<$repetition;$i++) {
	$result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Leave blank on scoring form}\vskip 0 mm';
	&Apache::lonxml::increment_counter();
	}
	$result.= '\end{enumerate}';
}	}
}	}