version 1.123, 2015/06/23 16:09:43
|
version 1.125, 2015/09/23 20:09:07
|
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 237 function uncheckSlotRadio() {
|
Line 237 function uncheckSlotRadio() {
|
if (document.getElementsByClassName) { |
if (document.getElementsByClassName) { |
slotpicks = document.getElementsByClassName('LC_slotpick_radio'); |
slotpicks = document.getElementsByClassName('LC_slotpick_radio'); |
} else { |
} else { |
sloctpicks = getElementsByClassName(document.body,'LC_slotpick_radio'); |
slotpicks = getElementsByClassName(document.body,'LC_slotpick_radio'); |
} |
} |
if (slotpicks.length) { |
if (slotpicks.length) { |
for (var i=0; i<slotpicks.length; i++) { |
for (var i=0; i<slotpicks.length; i++) { |
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"), |