loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.52, 2004/11/11 22:18:23	version 1.54, 2004/12/17 19:43:19
Line 109 sub handler {	Line 109 sub handler {
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|	if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|
($requrl=~/^\/adm\/.*\/(aboutme\|navmaps\|smppg\|bulletinboard)(\?\|$)/) \|\|	($requrl=~/^\/adm\/.*\/(aboutme\|navmaps\|smppg\|bulletinboard)(\?\|$)/) \|\|
($requrl=~/^\/adm\/wrapper\//) \|\|	($requrl=~/^\/adm\/wrapper\//) \|\|
	($requrl=~m\|\.problem/smpedit$\|) \|\|
($requrl=~/^\/public\/.*\/syllabus$/)) {	($requrl=~/^\/public\/.*\/syllabus$/)) {
# ------------------------------------- This is serious stuff, get symb and log	# ------------------------------------- This is serious stuff, get symb and log
my $query=$r->args;	my $query=$r->args;
Line 122 sub handler {	Line 123 sub handler {
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);
} elsif (&Apache::lonnet::symbverify($symb,$requrl)) {	} elsif ((&Apache::lonnet::symbverify($symb,$requrl)) \|\|
	(($requrl=~m\|(.*)/smpedit$\|) &&
	&Apache::lonnet::symbverify($symb,$1))) {
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);