loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2002/10/16 14:48:45	version 1.39, 2002/10/22 16:34:24
Line 487 sub ProcessTopResourceMap {	Line 487 sub ProcessTopResourceMap {
}	}
my @titleLength=split(//,$cache->{$currentSequence.	my @titleLength=split(//,$cache->{$currentSequence.
':title'});	':title'});
# $extra is 3 for problems correct and 3 for space	# $extra is 5 for problems correct and 3 for space
# between problems correct and problem output	# between problems correct and problem output
my $extra = 6;	my $extra = 8;
if(($totalProblems + $extra) > (scalar @titleLength)) {	if(($totalProblems + $extra) > (scalar @titleLength)) {
$cache->{$currentSequence.':columnWidth'}=	$cache->{$currentSequence.':columnWidth'}=
$totalProblems + $extra;	$totalProblems + $extra;
Line 1438 sub get_classlist {	Line 1438 sub get_classlist {
if ($tmp =~/^(con_lost\|error\|no_such_host)/i) {	if ($tmp =~/^(con_lost\|error\|no_such_host)/i) {
$fullname = 'not available';	$fullname = 'not available';
$id = 'not available';	$id = 'not available';
	&Apache::lonnet::logthis('unable to retrieve environment '.
	'for '.$sname.':'.$sdom);
} else {	} else {
$fullname = &ProcessFullName(@info{qw/lastname generation	$fullname = &ProcessFullName(@info{qw/lastname generation
firstname middlename/});	firstname middlename/});