loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.6, 2000/09/29 14:36:30	version 1.7, 2000/09/30 17:25:04
Line 4	Line 4
# (Login Screen	# (Login Screen
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)	# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
# 11/23 Gerd Kortemeyer)	# 11/23 Gerd Kortemeyer)
# 1/14,03/06,06/01,07/22,07/24,07/25,09/04,09/06,09/28,09/29 Gerd Kortemeyer	# 1/14,03/06,06/01,07/22,07/24,07/25,
	# 09/04,09/06,09/28,09/29,09/30 Gerd Kortemeyer
#	#
package Apache::lonroles;	package Apache::lonroles;

use strict;	use strict;
use Apache::lonnet();	use Apache::lonnet();
	use Apache::lonuserstate();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::File();	use Apache::File();

Line 54 ENDHEADER	Line 56 ENDHEADER
}	}
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
&Apache::lonnet::appenv('request.role' => $trolecode);	&Apache::lonnet::appenv('request.role' => $trolecode);
	my ($cdom,$cnum)=split(/\//,$where);
if ($where=~/\.course$/) {	if ($cnum) {
# $r->print(	$r->print( &Apache::lonuserstate::readmap($where) );
# &Apache::lonuserstate::readmap('/res/msu/korte/foo.course','phy231',$fn).	}
}

$r->print("Yeah!");

}	}
}	}
}	}