loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.166, 2017/04/04 02:59:40	version 1.167, 2017/05/08 22:47:01
Line 526 sub handler {	Line 526 sub handler {
} elsif ($env{'request.course.id'} &&	} elsif ($env{'request.course.id'} &&
(($requrl =~ m{^/adm/$match_domain/$match_username/aboutme$}) \|\|	(($requrl =~ m{^/adm/$match_domain/$match_username/aboutme$}) \|\|
($requrl eq "/public/$cdom/$cnum/syllabus") \|\|	($requrl eq "/public/$cdom/$cnum/syllabus") \|\|
($requrl =~ m{^/adm/$cdom/$cnum/\d+/exttools?$}))) {	($requrl =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}))) {
my $query = $r->args;	my $query = $r->args;
if ($query) {	if ($query) {
foreach my $pair (split(/&/,$query)) {	foreach my $pair (split(/&/,$query)) {
Line 675 sub handler {	Line 675 sub handler {
($requrl=~/^\/public\/.*\/syllabus$/) \|\|	($requrl=~/^\/public\/.*\/syllabus$/) \|\|
($requrl=~/^\/adm\/(viewclasslist\|navmaps)$/) \|\|	($requrl=~/^\/adm\/(viewclasslist\|navmaps)$/) \|\|
($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?\|$)/) \|\|	($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?\|$)/) \|\|
($requrl=~m{^/adm/$cdom/$cnum/\d+/exttools?$})) {	($requrl=~m{^/adm/$cdom/$cnum/\d+/ext\.tool$})) {
# ------------------------------------- This is serious stuff, get symb and log	# ------------------------------------- This is serious stuff, get symb and log
my $symb;	my $symb;
if ($query) {	if ($query) {