loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.48, 2003/09/20 17:44:22	version 1.50, 2003/11/21 21:27:25
Line 76 sub handler {	Line 76 sub handler {
$ENV{'request.state'} = 'unknown';	$ENV{'request.state'} = 'unknown';
}	}
$ENV{'request.filename'} = $r->filename;	$ENV{'request.filename'} = $r->filename;
	$ENV{'request.noversionuri'} = &Apache::lonnet::deversion($requrl);
# -------------------------------------------------------- Load POST parameters	# -------------------------------------------------------- Load POST parameters

&Apache::loncommon::get_posted_cgi($r);	&Apache::loncommon::get_posted_cgi($r);
Line 119 sub handler {	Line 119 sub handler {
if ($ENV{'form.symb'}) {	if ($ENV{'form.symb'}) {
$symb=&Apache::lonnet::symbclean($ENV{'form.symb'});	$symb=&Apache::lonnet::symbclean($ENV{'form.symb'});
if (&Apache::lonnet::symbverify($symb,$requrl)) {	if (&Apache::lonnet::symbverify($symb,$requrl)) {
my ($map,$mid,$murl)=split(/\_\_\_/,$symb);	my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb);
&Apache::lonnet::symblist($map,$murl => $mid,	&Apache::lonnet::symblist($map,$murl => $mid,
'last_known' => $murl);	'last_known' => $murl);
} else {	} else {