loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.19, 2001/06/02 16:10:04	version 1.22, 2001/08/04 00:39:32
Line 5	Line 5
# 1/14,2/24,2/28,2/29,3/7,5/29,5/30,5/31,6/1,6/5,6/29,	# 1/14,2/24,2/28,2/29,3/7,5/29,5/30,5/31,6/1,6/5,6/29,
# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10,	# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10,
# 05/28,05/29 Gerd Kortemeyer	# 05/28,05/29 Gerd Kortemeyer
	# 07/24 Scott Harrison
	# 07/28,08/03 Gerd Kortemeyer

package Apache::lonauth;	package Apache::lonauth;

Line 120 sub success {	Line 122 sub success {

# ------------------------------------------------- Check for critical messages	# ------------------------------------------------- Check for critical messages

my @what=&Apache::lonnet::dump('critical');	my @what=&Apache::lonnet::dump('critical',$domain,$username);
if ($what[0]) {	if ($what[0]) {
if ($what[0] ne 'con_lost') {	if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
$lowerurl='/adm/email/critical/'.$what[0];	$lowerurl='/adm/email?critical=display';
}	}
}	}

Line 177 function main() {	Line 179 function main() {

</script>	</script>
</head>	</head>
<body bgcolor="#FFFFFF" onLoad="main();">	<body bgcolor="#FFFFFF">
<script>	<script>
menuloaded=0;	menuloaded=0;
tim=0;	tim=0;
</script>	</script>
$windowinfo	$windowinfo
<h1>Welcome!</h1>	<h1>Welcome!</h1>
	<script>
	main();
	</script>
</body>	</body>
</html>	</html>
ENDSUCCESS	ENDSUCCESS