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); |