--- loncom/interface/Attic/lonchart.pm	2001/01/31 23:28:06	1.2
+++ loncom/interface/Attic/lonchart.pm	2001/02/06 20:50:04	1.4
@@ -209,14 +209,23 @@ sub handler {
                       'Data not available: '.$name;
                 } else {
                     my %reply=&Apache::lonnet::idrget($sdom,$sname);
-                    my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
-		      ':environment:firstname&middlename&lastname&generation',
-                      &Apache::lonnet::homeserver($sname,$sdom));
+		    my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
+                                                     ':environment:lastname&generation&firstname&middlename',
+                                                     &Apache::lonnet::homeserver($sname,$sdom));
                     $rowlabels[$thisindex]=
-                      $ssec.' '.$reply{$sname}.' ';
+                      sprintf('%3s',$ssec).' '.$reply{$sname}.' ';
+                    my $i=0;
                     map {
-                     $rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';
+                      $i++;
+                      if ( $_ ne '') {
+                        $rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';
+                      }
+                      if ($i == 2) {
+                        chop($rowlabels[$thisindex]);
+                        $rowlabels[$thisindex].=', ';
+                      }
                     } split(/\&/,$reply);
+
                 }
             }
         } sort split(/\&/,$classlst);