version 1.187, 2003/05/14 18:01:16
|
version 1.188, 2003/05/14 18:33:28
|
Line 2594 You will probably never need to instanti
|
Line 2594 You will probably never need to instanti
|
Apache::lonnavmaps::navmap, and use the "start" method to obtain the |
Apache::lonnavmaps::navmap, and use the "start" method to obtain the |
starting resource. |
starting resource. |
|
|
|
Resource objects respect the parameter_hiddenparts, which suppresses |
|
various parts according to the wishes of the map author. As of this |
|
writing, there is no way to override this parameter, and suppressed |
|
parts will never be returned, nor will their response types or ids be |
|
stored. |
|
|
=head2 Public Members |
=head2 Public Members |
|
|
resource objects have a hash called DATA ($resourceRef->{DATA}) that |
resource objects have a hash called DATA ($resourceRef->{DATA}) that |
Line 3166 sub extractParts {
|
Line 3172 sub extractParts {
|
# Retrieve part count, if this is a problem |
# Retrieve part count, if this is a problem |
if ($self->is_problem()) { |
if ($self->is_problem()) { |
my $metadata = &Apache::lonnet::metadata($self->src(), 'packages'); |
my $metadata = &Apache::lonnet::metadata($self->src(), 'packages'); |
print $metadata; |
|
if (!$metadata) { |
if (!$metadata) { |
$self->{RESOURCE_ERROR} = 1; |
$self->{RESOURCE_ERROR} = 1; |
$self->{PARTS} = []; |
$self->{PARTS} = []; |
Line 3216 sub extractParts {
|
Line 3221 sub extractParts {
|
if ($parts{$partIdSoFar}) { |
if ($parts{$partIdSoFar}) { |
my @otherChunks = @partChunks[$i+1..$#partChunks]; |
my @otherChunks = @partChunks[$i+1..$#partChunks]; |
my $responseId = join('_', @otherChunks); |
my $responseId = join('_', @otherChunks); |
$responseIdHash{$partIdSoFar} = $responseId; |
if (!defined($responseIdHash{$partIdSoFar})) { |
|
$responseIdHash{$partIdSoFar} = []; |
|
} |
|
push @{$responseIdHash{$partIdSoFar}}, $responseId; |
$responseTypeHash{$partIdSoFar} = $responseType; |
$responseTypeHash{$partIdSoFar} = $responseType; |
last; |
last; |
} |
} |