version 1.21, 2014/02/28 19:24:03
|
version 1.22, 2014/05/31 16:01:33
|
Line 1361 sub wishlistImport {
|
Line 1361 sub wishlistImport {
|
|
|
foreach my $n (@$nodes) { |
foreach my $n (@$nodes) { |
my $index = $n->value()->nindex(); |
my $index = $n->value()->nindex(); |
|
|
|
# |
|
# Determine which resources in stored links may be imported into a course/community. |
|
# (a) Import of directories in /res space is not supported. |
|
# (b) Import of a resource into a community requires user has 'bro' privilege for resource |
|
# (i.e., user has author or co-author role for corresponcding Authoring Space). |
|
# (c) Import of a resource into a course requires user has 'be' privilege for resource. |
|
# |
|
|
if ($n->value()->path() =~ m{^(/res/$match_domain/$match_username/)}) { |
if ($n->value()->path() =~ m{^(/res/$match_domain/$match_username/)}) { |
if ($is_community) { |
if ($n->value()->path() =~ m{/$}) { |
unless (&Apache::lonnet::allowed('bro',$n->value()->path())) { |
$nopick{$n->value()->path()} = $n->value()->title(); |
$nopick{$n->value()->path()} = $n->value()->title(); |
$$numskipped ++; |
$$numskipped ++; |
|
} |
|
} else { |
} else { |
unless (&Apache::lonnet::allowed('bre',$n->value()->path())) { |
if ($is_community) { |
$nopick{$n->value()->path()} = $n->value()->title(); |
unless (&Apache::lonnet::allowed('bro',$n->value()->path())) { |
$$numskipped ++; |
$nopick{$n->value()->path()} = $n->value()->title(); |
|
$$numskipped ++; |
|
} |
|
} else { |
|
unless (&Apache::lonnet::allowed('bre',$n->value()->path())) { |
|
$nopick{$n->value()->path()} = $n->value()->title(); |
|
$$numskipped ++; |
|
} |
} |
} |
} |
} |
} |
} |