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