version 1.32, 2002/09/17 15:34:42
|
version 1.34, 2002/10/09 17:25:23
|
Line 139 sub DownloadClasslist {
|
Line 139 sub DownloadClasslist {
|
%classlist=&Apache::lonnet::dump('classlist',$courseDomain, $courseNumber); |
%classlist=&Apache::lonnet::dump('classlist',$courseDomain, $courseNumber); |
foreach(keys (%classlist)) { |
foreach(keys (%classlist)) { |
if(/^(con_lost|error|no_such_host)/i) { |
if(/^(con_lost|error|no_such_host)/i) { |
return \%classlist; |
return; |
} |
} |
} |
} |
|
|
Line 1084 sub ProcessFullName {
|
Line 1084 sub ProcessFullName {
|
my ($lastname, $generation, $firstname, $middlename)=@_; |
my ($lastname, $generation, $firstname, $middlename)=@_; |
my $Str = ''; |
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 '') { |
if($lastname ne '') { |
$Str .= $lastname.' '; |
$Str .= $lastname; |
if($generation ne '') { |
$Str .= ' '.$generation if ($generation ne ''); |
$Str .= $generation; |
$Str .= ','; |
} else { |
$Str .= ' '.$firstname if ($firstname ne ''); |
chop($Str); |
$Str .= ' '.$middlename if ($middlename ne ''); |
} |
|
$Str .= ', '; |
|
if($firstname ne '') { |
|
$Str .= $firstname.' '; |
|
} |
|
if($middlename ne '') { |
|
$Str .= $middlename; |
|
} else { |
|
chop($Str); |
|
if($firstname eq '') { |
|
chop($Str); |
|
} |
|
} |
|
} else { |
} else { |
if($firstname ne '') { |
$Str .= $firstname if ($firstname ne ''); |
$Str .= $firstname.' '; |
$Str .= ' '.$middlename if ($middlename ne ''); |
} |
$Str .= ' '.$generation if ($generation ne ''); |
if($middlename ne '') { |
|
$Str .= $middlename.' '; |
|
} |
|
if($generation ne '') { |
|
$Str .= $generation; |
|
} else { |
|
chop($Str); |
|
} |
|
} |
} |
|
|
return $Str; |
return $Str; |