loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34, 2001/09/01 14:13:47	version 1.35, 2001/09/21 19:59:49
Line 12	Line 12
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,	# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
# 12/08,12/12,	# 12/08,12/12,
# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,	# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,
# 07/05,07/06,08/08,08/09,09/01 Gerd Kortemeyer	# 07/05,07/06,08/08,08/09,09/01,09/21 Gerd Kortemeyer

package Apache::lonparmset;	package Apache::lonparmset;

Line 223 sub assessparms {	Line 223 sub assessparms {
my %name=&Apache::lonnet::userenvironment($udom,$uname,	my %name=&Apache::lonnet::userenvironment($udom,$uname,
('firstname','middlename','lastname','generation','id'));	('firstname','middlename','lastname','generation','id'));
$message="\n<p>\nFull Name: ".	$message="\n<p>\nFull Name: ".
$name{'firstname'}.' '.$name{'middlename'}	$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'}.	.$name{'lastname'}.' '.$name{'generation'}.
"<br>\nID: ".$name{'id'}.'<p>';	"<br>\nID: ".$name{'id'}.'<p>';
}	}