loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.75, 2002/11/27 19:25:56	version 1.77, 2002/12/05 22:59:37
Line 172 sub start_textline {	Line 172 sub start_textline {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'size');	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'size');
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result='\framebox[1cm][s]{\hfill}';	my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
	if ($size != 0) {$size=$size*2; $size.=' mm';} else {$size='40 mm';}
	$result='\framebox['.$size.'][s]{\tiny\strut}';
}	}
return $result;	return $result;
}	}
Line 425 sub gradestatus {	Line 427 sub gradestatus {

my $status = $Apache::inputtags::status['-1'];	my $status = $Apache::inputtags::status['-1'];
&Apache::lonxml::debug("gradestatus has :$status:");	&Apache::lonxml::debug("gradestatus has :$status:");
if ( $status ne 'CLOSED' ) {	if ( $status ne 'CLOSED' && $status ne 'UNAVAILABLE') {
my $award = $Apache::lonhomework::history{"resource.$id.award"};	my $award = $Apache::lonhomework::history{"resource.$id.award"};
my $solved = $Apache::lonhomework::history{"resource.$id.solved"};	my $solved = $Apache::lonhomework::history{"resource.$id.solved"};
my $previous = $Apache::lonhomework::history{"resource.$id.previous"};	my $previous = $Apache::lonhomework::history{"resource.$id.previous"};