loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.51, 2004/04/23 23:01:36	version 1.52, 2004/11/11 22:18:23
Line 118 sub handler {	Line 118 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 ($requrl =~ m\|^/adm/wrapper/\|) {
	my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb);
	&Apache::lonnet::symblist($map,$murl => $mid,
	'last_known' => $murl);
	} elsif (&Apache::lonnet::symbverify($symb,$requrl)) {
my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($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);