version 1.239, 2003/10/09 21:02:11
|
version 1.241, 2003/11/06 15:24:13
|
Line 3578 sub extractParts {
|
Line 3578 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 $partorder; |
my $partorder = &Apache::lonnet::metadata($self->src(), 'partorder'); |
# Hypothetically, replace previous line with: |
|
# my $partorder = &Apache::lonnet::metadata($self->src(), 'partorder'); |
|
# and it'll all work... |
|
my $metadata = &Apache::lonnet::metadata($self->src(), 'packages'); |
my $metadata = &Apache::lonnet::metadata($self->src(), 'packages'); |
|
|
if ($partorder) { |
if ($partorder) { |
Line 3589 sub extractParts {
|
Line 3586 sub extractParts {
|
for my $part (split (/,/,$partorder)) { |
for my $part (split (/,/,$partorder)) { |
if (!Apache::loncommon::check_if_partid_hidden($part, $self->symb())) { |
if (!Apache::loncommon::check_if_partid_hidden($part, $self->symb())) { |
push @parts, $part; |
push @parts, $part; |
|
$parts{$part} = 1; |
} |
} |
} |
} |
$self->{PARTS} = \@parts; |
$self->{PARTS} = \@parts; |
Line 3604 sub extractParts {
|
Line 3602 sub extractParts {
|
my $part = $1; |
my $part = $1; |
# This floods the logs if it blows up |
# This floods the logs if it blows up |
if (defined($parts{$part})) { |
if (defined($parts{$part})) { |
Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->symb()); |
&Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->symb()); |
} |
} |
|
|
# check to see if part is turned off. |
# check to see if part is turned off. |
|
|
Line 3641 sub extractParts {
|
Line 3639 sub extractParts {
|
my $partIdSoFar = ''; |
my $partIdSoFar = ''; |
my @partChunks = split /_/, $partStuff; |
my @partChunks = split /_/, $partStuff; |
my $i = 0; |
my $i = 0; |
|
|
for ($i = 0; $i < scalar(@partChunks); $i++) { |
for ($i = 0; $i < scalar(@partChunks); $i++) { |
if ($partIdSoFar) { $partIdSoFar .= '_'; } |
if ($partIdSoFar) { $partIdSoFar .= '_'; } |
$partIdSoFar .= $partChunks[$i]; |
$partIdSoFar .= $partChunks[$i]; |
Line 3654 sub extractParts {
|
Line 3651 sub extractParts {
|
} |
} |
} |
} |
} |
} |
|
|
$self->{RESPONSE_IDS} = \%responseIdHash; |
$self->{RESPONSE_IDS} = \%responseIdHash; |
$self->{RESPONSE_TYPES} = \%responseTypeHash; |
$self->{RESPONSE_TYPES} = \%responseTypeHash; |
} |
} |