loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.24, 2002/05/15 23:47:49	version 1.25, 2002/05/16 00:01:09
Line 118 ENDTABLEST	Line 118 ENDTABLEST
foreach my $student ( sort(@{ $classlist{'allids'} }) ) {	foreach my $student ( sort(@{ $classlist{'allids'} }) ) {
my ($sname,$sdom) = split(/:/,$student);	my ($sname,$sdom) = split(/:/,$student);

my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.	my %name=&Apache::lonnet::get('environment', ['lastname','generation',
':environment:lastname&generation&firstname&middlename',	'firstname','middlename'],
&Apache::lonnet::homeserver($sname,$sdom));	$sdom,$sname);
#print "reply=$reply<br>";	my $fullname;
my (@nameparts) = split /&/,$reply;	my ($tmp) = keys(%name);
# my $sfullname = $Apache::lonnet::unescape($nameparts[0]);	if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {
	$fullname=$name{'lastname'}.$name{'generation'};
	if ($fullname =~ /[^\s]+/) { $fullname.=','; }
	$fullname.=$name{'firstname'}.' '.$name{'middlename'};
	}
if ( $Apache::grades::viewgrades eq 'F' ) {	if ( $Apache::grades::viewgrades eq 'F' ) {
$request->print("\n".'<tr>'."<td>$sname</td><td>$sdom</td><td>@nameparts</td><td>".	$request->print("\n".'<tr>'."<td>$sname</td><td>$sdom</td><td>$fullname</td><td>".
'<form action="/adm/grades" method="post">');	'<form action="/adm/grades" method="post">');
if ($ENV{'form.url'}) {	if ($ENV{'form.url'}) {
$request->print(	$request->print(