loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.106, 2015/03/13 22:34:00	version 1.108, 2016/01/31 21:25:38
Line 37 use Apache::lonnet;	Line 37 use Apache::lonnet;
use Apache::grades;	use Apache::grades;
use Apache::loncoursedata;	use Apache::loncoursedata;
use Apache::lonstudentassessment;	use Apache::lonstudentassessment;
	use Apache::lonuserstate;

use Time::HiRes;	use Time::HiRes;
use Spreadsheet::WriteExcel;	use Spreadsheet::WriteExcel;
Line 176 sub real_handler {	Line 177 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>');