loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.231 and 1.233

version 1.231, 2004/02/02 17:28:53	version 1.233, 2004/02/10 22:11:37
Line 523 sub end_problem {	Line 523 sub end_problem {
if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
$target eq 'tex') {	$target eq 'tex') {
if ( $target eq 'grade' && $Apache::inputtags::part eq '0' &&	if ( $target eq 'grade' && $Apache::inputtags::part eq '0' &&
$status eq 'CAN_ANSWER' ) {	($status eq 'CAN_ANSWER' \|\| $Apache::lonhomework::scantronmode)) {
# if part is zero, no <part>s existed, so we need to the grading	# if part is zero, no <part>s existed, so we need to the grading
&Apache::inputtags::grade;	&Apache::inputtags::grade;
} elsif ( ($target eq 'web' \|\| $target eq 'tex') &&	} elsif ( ($target eq 'web' \|\| $target eq 'tex') &&
Line 984 sub start_part {	Line 984 sub start_part {
}	}
}	}
if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}	if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
	} elsif ($target eq 'web') {
	$result.='<a name="'.&Apache::lonnet::escape($Apache::inputtags::part).'" />';
}	}
}	}
}	}
Line 1015 sub end_part {	Line 1017 sub end_part {
my $result='';	my $result='';
if ( $target eq 'meta' ) {	if ( $target eq 'meta' ) {
$result='';	$result='';
} elsif ( $target eq 'grade' && $status eq 'CAN_ANSWER' && !$hidden) {	} elsif ($target eq 'grade' &&
	($status eq 'CAN_ANSWER' \|\| $Apache::lonhomework::scantronmode) &&
	!$hidden) {
$result=&Apache::inputtags::grade;	$result=&Apache::inputtags::grade;
} elsif (($target eq 'web' \|\| $target eq 'tex') && !$hidden ) {	} elsif (($target eq 'web' \|\| $target eq 'tex') && !$hidden ) {
my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,

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

Removed from v.1.231
changed lines
	Added in v.1.233