--- loncom/interface/spreadsheet/assesscalc.pm	2003/05/16 20:55:11	1.1
+++ loncom/interface/spreadsheet/assesscalc.pm	2003/05/19 15:48:18	1.2
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.1 2003/05/16 20:55:11 matthew Exp $
+# $Id: assesscalc.pm,v 1.2 2003/05/19 15:48:18 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -46,6 +46,7 @@ package Apache::assesscalc;
 use strict;
 use Apache::Constants qw(:common :http);
 use Apache::lonnet;
+use Apache::loncommon;
 use Apache::Spreadsheet;
 use HTML::Entities();
 use Spreadsheet::WriteExcel;
@@ -321,7 +322,17 @@ sub get_title {
     } else {
         $title = '<h1>'.&Apache::lonnet::gettitle($self->{'symb'})."</h1>\n";
     }
-    $title .= '<h2>'.$self->{'name'}.'@'.$self->{'domain'}."</h2>\n";
+    # Look up the users identifying information
+    # Get the users information
+    my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'},
+                                                      $self->{'domain'});
+    my $name = 
+        join(' ',@userenv{'firstname','middlename','lastname','generation'});
+    $name =~ s/\s+$//;
+    $title .= '<h2>'.$name.', '.
+        &Apache::loncommon::aboutmewrapper($self->{'name'}.'@'.$self->{'domain'},
+                                           $self->{'name'},$self->{'domain'}).
+                                           "</h2>\n";
     $title .= '<h3>'.localtime(time).'</h3>';
     #
     return $title;