version 1.25, 2003/12/08 19:58:39
|
version 1.26, 2004/11/02 20:48:02
|
Line 111 sub get_title {
|
Line 111 sub get_title {
|
my @title = (); |
my @title = (); |
# |
# |
# Determine the students name |
# Determine the students name |
my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'}, |
my $name = &Apache::loncommon::plainname($self->{'name'}, |
$self->{'domain'}); |
$self->{'domain'}); |
my $name = join(' ', |
|
@userenv{'firstname','middlename','lastname','generation'}); |
|
$name =~ s/\s+$//; |
|
|
|
push (@title,$name); |
push (@title,$name); |
push (@title,$self->{'coursedesc'}); |
push (@title,$self->{'coursedesc'}); |
push (@title,&Apache::lonlocal::locallocaltime(time)); |
push (@title,&Apache::lonlocal::locallocaltime(time)); |