loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

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