version 1.505, 2015/04/13 16:30:28
|
version 1.506, 2015/04/13 16:46:43
|
Line 3014 sub retrieveResources {
|
Line 3014 sub retrieveResources {
|
my $bailout = shift; |
my $bailout = shift; |
if (!defined($bailout)) { $bailout = 0; } |
if (!defined($bailout)) { $bailout = 0; } |
my $showall = shift; |
my $showall = shift; |
my $noblockcheck = shift |
my $noblockcheck = shift; |
# Create the necessary iterator. |
# Create the necessary iterator. |
if (!ref($map)) { # assume it's a url of a map. |
if (!ref($map)) { # assume it's a url of a map. |
$map = $self->getResourceByUrl($map); |
$map = $self->getResourceByUrl($map); |
Line 3202 call to lonnet::allowed. This needs to b
|
Line 3202 call to lonnet::allowed. This needs to b
|
was already called from another routine called within lonnet::allowed, |
was already called from another routine called within lonnet::allowed, |
so as to prevent recursion. |
so as to prevent recursion. |
|
|
Also note there is some old code floating around that triess to track |
Also note there is some old code floating around that tries to track |
the depth of the iterator to see when it's done; do not copy that |
the depth of the iterator to see when it's done; do not copy that |
code. It is difficult to get right and harder to understand than |
code. It is difficult to get right and harder to understand than |
this. They should be migrated to this new style. |
this. They should be migrated to this new style. |