version 1.146, 2003/02/21 21:40:07
|
version 1.147, 2003/02/27 02:45:32
|
Line 2696 sub extractParts {
|
Line 2696 sub extractParts {
|
|
|
foreach (split(/\,/,$metadata)) { |
foreach (split(/\,/,$metadata)) { |
if ($_ =~ /^parameter\_(.*)\_opendate$/) { |
if ($_ =~ /^parameter\_(.*)\_opendate$/) { |
push @{$self->{PARTS}}, $1; |
my $part = $1; |
|
# check to see if part is turned off. |
|
if (Apache::loncommon::check_if_partid_hidden($part, $self->symb())) { |
|
push @{$self->{PARTS}}, $1; |
|
} |
} |
} |
} |
} |
|
|
|
|
# Is this possible to do in one line? - Jeremy |
|
my @sortedParts = sort @{$self->{PARTS}}; |
my @sortedParts = sort @{$self->{PARTS}}; |
$self->{PARTS} = \@sortedParts; |
$self->{PARTS} = \@sortedParts; |
} |
} |