version 1.123, 2015/06/23 16:09:43
|
version 1.124, 2015/09/07 17:44:11
|
Line 37 use Apache::lonnet;
|
Line 37 use Apache::lonnet;
|
use Apache::lonnavmaps(); |
use Apache::lonnavmaps(); |
use Date::Manip; |
use Date::Manip; |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA; |
use LONCAPA qw(:DEFAULT :match); |
|
|
sub fail { |
sub fail { |
my ($r,$code)=@_; |
my ($r,$code)=@_; |
Line 2779 sub csv_upload_assign {
|
Line 2779 sub csv_upload_assign {
|
$slot{$key}=$entries{$fields{$key}}; |
$slot{$key}=$entries{$fields{$key}}; |
} |
} |
} |
} |
|
if ($entries{$fields{'allowedusers'}}) { |
|
$entries{$fields{'allowedusers'}} =~ s/^\s+//; |
|
$entries{$fields{'allowedusers'}} =~ s/\s+$//; |
|
my @allowedusers; |
|
foreach my $poss (split(/\s*,\s*/,$entries{$fields{'allowedusers'}})) { |
|
my ($possuname,$possudom) = split(/:/,$poss); |
|
if (($possuname =~ /^$match_username$/) && ($possudom =~ /^$match_domain$/)) { |
|
unless (grep(/^\Q$poss\E$/,@allowedusers)) { |
|
push(@allowedusers,$poss); |
|
} |
|
} |
|
} |
|
if (@allowedusers > 0) { |
|
$slot{'allowedusers'} = join(',',@allowedusers); |
|
} |
|
} |
|
if ($entries{$fields{'allowedsections'}}) { |
|
$entries{$fields{'allowedsections'}} =~ s/^\s+//; |
|
$entries{$fields{'allowedsections'}} =~ s/\s+$//; |
|
my @allowedsections; |
|
foreach my $poss (split(/\s*,\s*/,$entries{$fields{'allowedsections'}})) { |
|
if (($poss !~ /\W/) && ($poss ne 'none')) { |
|
unless (grep(/^\Q$poss\E$/,@allowedsections)) { |
|
push(@allowedsections,$poss); |
|
} |
|
} |
|
} |
|
if (@allowedsections > 0) { |
|
$slot{'allowedsections'} = join(',',@allowedsections); |
|
} |
|
} |
if ($entries{$fields{'uniqueperiod'}}) { |
if ($entries{$fields{'uniqueperiod'}}) { |
my ($start,$end)=split(',',$entries{$fields{'uniqueperiod'}}); |
my ($start,$end)=split(',',$entries{$fields{'uniqueperiod'}}); |
my @times=(&UnixDate($start,"%s"), |
my @times=(&UnixDate($start,"%s"), |