loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2002/06/03 19:28:17	version 1.42, 2002/06/04 19:59:34
Line 313 sub BuildChart {	Line 313 sub BuildChart {
,'firstname'	,'firstname'
,'middlename'],	,'middlename'],
$sdom,$sname);	$sdom,$sname);
my $name=$name{lastname};	my $name=$name{'lastname'};
if ($name{generation}) {$name.=" $name{generation}";}	if ($name{'generation'}) {$name.=" $name{generation}";}
$name.=',';	$name.=',';
if ($name{firstname}) {$name.=" $name{firstname}";}	if ($name{'firstname'}) {$name.=" $name{firstname}";}
if ($name{middlename}) {$name.=" $name{middlename}";}	if ($name{'middlename'}) {$name.=" $name{middlename}";}
if ($name eq ',') {$name='';}	if ($name eq ',') {$name='';}
#$ssec=(int($ssec)) ? int($ssec) : $ssec;	#$ssec=(int($ssec)) ? int($ssec) : $ssec;
my $sec=sprintf('%3s',$ssec);	my $sec=sprintf('%3s',$ssec);