version 1.88, 2005/08/03 10:34:03
|
version 1.89, 2005/08/04 21:26:23
|
Line 285 foreach $texfile (@texfile) {
|
Line 285 foreach $texfile (@texfile) {
|
my $name_range=''; |
my $name_range=''; |
if ($tempo_array[3]) { |
if ($tempo_array[3]) { |
$name=$tempo_array[3]; |
$name=$tempo_array[3]; |
my @full_names = split(/,/,$name); # split last name from others... |
($name_range) = split(/,/,$name, 2); |
$name_range = $full_names[0]; |
|
} else { |
} else { |
$name=$tempo_array[0].'@'.$tempo_array[1]; |
$name=$tempo_array[0].'@'.$tempo_array[1]; |
$name_range = $tempo_array[0]; |
$name_range = $tempo_array[0]; |
Line 299 foreach $texfile (@texfile) {
|
Line 298 foreach $texfile (@texfile) {
|
@tempo_array=split(/:/,$stud_info[-1]); |
@tempo_array=split(/:/,$stud_info[-1]); |
if ($tempo_array[3]) { |
if ($tempo_array[3]) { |
$name=$tempo_array[3]; |
$name=$tempo_array[3]; |
my @full_names = split(/,/, $name); |
my ($lastname) = split(/,/, $name,2); |
$name_range .= "-".$full_names[0]; |
$name_range .= "-".$lastname; |
} else { |
} else { |
$name=$tempo_array[0].'@'.$tempo_array[1]; |
$name=$tempo_array[0].'@'.$tempo_array[1]; |
$name_range .= '-'.$tempo_array[0]; |
$name_range .= '-'.$tempo_array[0]; |