version 1.140, 2004/10/07 22:12:47
|
version 1.141.2.3, 2005/04/21 17:35:58
|
Line 142 sub get_sequence_assessment_data {
|
Line 142 sub get_sequence_assessment_data {
|
# |
# |
my $previous_too; |
my $previous_too; |
my $previous; |
my $previous; |
while (scalar(@Nested_Sequences)) { |
while (1) { |
$previous_too = $previous; |
$previous_too = $previous; |
$previous = $curRes; |
$previous = $curRes; |
$curRes = $iterator->next(); |
$curRes = $iterator->next(); |
|
if (!$curRes) { last; } |
my $currentmap = $Nested_Sequences[-1]; # Last one on the stack |
my $currentmap = $Nested_Sequences[-1]; # Last one on the stack |
if ($curRes == $iterator->BEGIN_MAP()) { |
if ($curRes == $iterator->BEGIN_MAP()) { |
if (! ref($previous)) { |
if (! ref($previous)) { |
Line 240 sub LoadDiscussion {
|
Line 241 sub LoadDiscussion {
|
|
|
=pod |
=pod |
|
|
=item &GetUserName(username,userdomain) |
|
|
|
Returns a hash with the following entries: |
|
'firstname', 'middlename', 'lastname', 'generation', and 'fullname' |
|
|
|
'fullname' is the result of &Apache::loncoursedata::ProcessFullName. |
|
|
|
=cut |
|
|
|
################################################ |
|
################################################ |
|
sub GetUserName { |
|
my ($username,$userdomain) = @_; |
|
$username = $ENV{'user.name'} if (! defined($username)); |
|
$userdomain = $ENV{'user.domain'} if (! defined($username)); |
|
my %userenv = &Apache::lonnet::get('environment', |
|
['firstname','middlename','lastname','generation'], |
|
$userdomain,$username); |
|
$userenv{'fullname'} = &ProcessFullName($userenv{'lastname'}, |
|
$userenv{'generation'}, |
|
$userenv{'firstname'}, |
|
$userenv{'middlename'}); |
|
return %userenv; |
|
} |
|
|
|
################################################ |
|
################################################ |
|
|
|
=pod |
|
|
|
=item &ProcessFullName() |
|
|
|
Takes lastname, generation, firstname, and middlename (or some partial |
|
set of this data) and returns the full name version as a string. Format |
|
is Lastname generation, firstname middlename or a subset of this. |
|
|
|
=cut |
|
|
|
################################################ |
|
################################################ |
|
sub ProcessFullName { |
|
my ($lastname, $generation, $firstname, $middlename)=@_; |
|
my $Str = ''; |
|
|
|
# Strip whitespace preceeding & following name components. |
|
$lastname =~ s/(\s+$|^\s+)//g; |
|
$generation =~ s/(\s+$|^\s+)//g; |
|
$firstname =~ s/(\s+$|^\s+)//g; |
|
$middlename =~ s/(\s+$|^\s+)//g; |
|
|
|
if($lastname ne '') { |
|
$Str .= $lastname; |
|
$Str .= ' '.$generation if ($generation ne ''); |
|
$Str .= ','; |
|
$Str .= ' '.$firstname if ($firstname ne ''); |
|
$Str .= ' '.$middlename if ($middlename ne ''); |
|
} else { |
|
$Str .= $firstname if ($firstname ne ''); |
|
$Str .= ' '.$middlename if ($middlename ne ''); |
|
$Str .= ' '.$generation if ($generation ne ''); |
|
} |
|
|
|
return $Str; |
|
} |
|
|
|
################################################ |
|
################################################ |
|
|
|
=pod |
|
|
|
=item &make_into_hash($values); |
=item &make_into_hash($values); |
|
|
Returns a reference to a hash as described by $values. $values is |
Returns a reference to a hash as described by $values. $values is |
Line 2946 sub get_classlist {
|
Line 2877 sub get_classlist {
|
&Apache::lonnet::logthis('unable to retrieve environment '. |
&Apache::lonnet::logthis('unable to retrieve environment '. |
'for '.$sname.':'.$sdom); |
'for '.$sname.':'.$sdom); |
} else { |
} else { |
$fullname = &ProcessFullName(@info{qw/lastname generation |
$fullname = &Apache::lonnet::format_name(@info{qw/firstname middlename lastname generation/},'lastname'); |
firstname middlename/}); |
|
$id = $info{'id'}; |
$id = $info{'id'}; |
} |
} |
# Update the classlist with this students information |
# Update the classlist with this students information |
if ($fullname ne 'not available') { |
if ($fullname ne 'not available') { |
my $enrolldata = join(':',$end,$start,$id,$section,$fullname); |
my $enrolldata = join(':',$end,$start,$id,$section,$fullname); |
my $reply=&Apache::lonnet::cput('classlist', |
my $reply=&Apache::lonnet::cput('classlist', |
{$student => $enrolldata}, |
{$student => $enrolldata}, |
$cdom,$cnum); |
$cdom,$cnum); |
if ($reply !~ /^(ok|delayed)/) { |
if ($reply !~ /^(ok|delayed)/) { |