loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.189 and 1.190

version 1.189, 2006/03/09 00:43:05	version 1.190, 2006/03/09 01:11:12
Line 222 sub end_textfield {	Line 222 sub end_textfield {
return $result;	return $result;
}	}

sub exam_box {	sub exam_score_line {
my ($target) = @_;	my ($target) = @_;
my $result;

	my $result;
if ($target eq 'tex') {	if ($target eq 'tex') {
$result.='\fbox{\fbox{\parbox{\textwidth-5mm}{\strut\\\\\strut\\\\\strut\\\\\strut\\\\}}}';
my $repetition = &Apache::response::repetition();	my $repetition = &Apache::response::repetition();
$result.='\begin{enumerate}';	$result.='\begin{enumerate}';
	if ($env{'request.state'} eq "construct" ) {$result.='\item[\strut]';}
foreach my $i (0..$repetition-1) {	foreach my $i (0..$repetition-1) {
$result.='\item[\textbf{'.	$result.='\item[\textbf{'.
($Apache::lonxml::counter+$i).	($Apache::lonxml::counter+$i).
'}.]\textit{Leave blank on scoring form}\vskip 0 mm';	'}.]\textit{Leave blank on scoring form}\vskip 0 mm';
}	}
$result.= '\end{enumerate}';	$result.= '\end{enumerate}';
	}

	return $result;
	}

	sub exam_box {
	my ($target) = @_;
	my $result;

	if ($target eq 'tex') {
	$result .= '\fbox{\fbox{\parbox{\textwidth-5mm}{\strut\\\\\strut\\\\\strut\\\\\strut\\\\}}}';
	$result .= &exam_score_line($target);
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
$result.= '<br /><br />	$result.= '<br /><br />
Line 252 sub needs_exam_box {	Line 263 sub needs_exam_box {
'stringresponse',	'stringresponse',
'reactionresponse',	'reactionresponse',
'organicresponse',	'organicresponse',
'imageresponse',
);	);

foreach my $tag (@tags) {	foreach my $tag (@tags) {

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

Removed from v.1.189
changed lines
	Added in v.1.190