version 1.159.2.5.2.1, 2017/06/22 02:11:24
|
version 1.159.2.7, 2019/07/31 17:42:29
|
Line 159 sub get_posted_cgi {
|
Line 159 sub get_posted_cgi {
|
if (length($value) == 1) { |
if (length($value) == 1) { |
$value=~s/[\r\n]$//; |
$value=~s/[\r\n]$//; |
} |
} |
} elsif ($fname =~ /\.(xls|doc|ppt)x$/i) { |
} elsif ($fname =~ /\.(xls|doc|ppt)(x|m)$/i) { |
$value=~s/[\r\n]$//; |
$value=~s/[\r\n]$//; |
} |
} |
if (ref($fields) eq 'ARRAY') { |
if (ref($fields) eq 'ARRAY') { |
Line 281 sub upload_size_allowed {
|
Line 281 sub upload_size_allowed {
|
sub sso_login { |
sub sso_login { |
my ($r,$handle,$username) = @_; |
my ($r,$handle,$username) = @_; |
|
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
|
if (($r->user eq '') || ($username ne '') || ($r->user eq 'public:public') || |
if (($r->user eq '') || ($username ne '') || ($r->user eq 'public:public') || |
(defined($env{'user.name'}) && (defined($env{'user.domain'})) |
(defined($env{'user.name'}) && (defined($env{'user.domain'})) |
&& ($handle ne ''))) { |
&& ($handle ne ''))) { |
Line 498 sub handler {
|
Line 497 sub handler {
|
my $preserved; |
my $preserved; |
foreach my $pair (split(/&/,$query)) { |
foreach my $pair (split(/&/,$query)) { |
my ($name, $value) = split(/=/,$pair); |
my ($name, $value) = split(/=/,$pair); |
unless ($name eq 'symb') { |
unless (($name eq 'symb') || ($name eq 'usehttp')) { |
$preserved .= $pair.'&'; |
$preserved .= $pair.'&'; |
} |
} |
if (($env{'request.course.id'}) && ($name eq 'folderpath')) { |
if (($env{'request.course.id'}) && ($name eq 'folderpath')) { |
Line 517 sub handler {
|
Line 516 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 =~ m{^/public/$cdom/$cnum/syllabus$}) || |
($requrl =~ m{^/public/$cdom/$cnum/syllabus$}))) { |
($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 666 sub handler {
|
Line 664 sub handler {
|
($requrl=~m|\.problem/smpedit$|) || |
($requrl=~m|\.problem/smpedit$|) || |
($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+/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) { |