loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.107, 2015/03/30 22:29:24	version 1.109, 2016/04/02 04:30:21
Line 106 sub real_handler {	Line 106 sub real_handler {
$env{'user.reinit'} = 1;	$env{'user.reinit'} = 1;
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
	} elsif ((&Apache::loncommon::course_type() eq 'Placement') &&
	(!$env{'request.role.adv'})) {
	my $furl = &Apache::lonpageflip::first_accessible_resource();
	&Apache::loncommon::content_type($r,'text/html');
	$r->header_out(Location => $furl);
	return REDIRECT;
}	}
}	}

Line 177 sub real_handler {	Line 183 sub real_handler {
if ($env{'form.udom'}) { $udom=$env{'form.udom'}; }	if ($env{'form.udom'}) { $udom=$env{'form.udom'}; }
if ($env{'form.id'}) { $stdid=$env{'form.id'}; }	if ($env{'form.id'}) { $stdid=$env{'form.id'}; }
if (($stdid) && ($udom)) {	if (($stdid) && ($udom)) {
$uname=(&Apache::lonnet::idget($udom,$stdid))[1];	$uname=(&Apache::lonnet::idget($udom,[$stdid],'ids'))[1];
}	}
if (($stdid) && (!$uname)) {	if (($stdid) && (!$uname)) {
$r->print('<p><span class="LC_warning">'.&mt("Unknown Student/Employee ID: [_1]",$stdid).'</span></p>');	$r->print('<p><span class="LC_warning">'.&mt("Unknown Student/Employee ID: [_1]",$stdid).'</span></p>');