version 1.336, 2005/08/02 21:15:51
|
version 1.337, 2005/09/20 07:52:03
|
Line 3639 sub is_page {
|
Line 3639 sub is_page {
|
sub is_problem { |
sub is_problem { |
my $self=shift; |
my $self=shift; |
my $src = $self->src(); |
my $src = $self->src(); |
return ($src =~ /\.(problem|exam|quiz|assess|survey|form|library)$/) |
return ($src =~ /\.(problem|exam|quiz|assess|survey|form|library|task)$/) |
} |
} |
sub contains_problem { |
sub contains_problem { |
my $self=shift; |
my $self=shift; |
Line 4143 sub extractParts {
|
Line 4143 sub extractParts {
|
return; |
return; |
} |
} |
foreach (split(/\,/,$metadata)) { |
foreach (split(/\,/,$metadata)) { |
if ($_ =~ /^part_(.*)$/) { |
if ($_ =~ /^(?:part|Task)_(.*)$/) { |
|
&Apache::lonnet::logthis($self->src()." part -> ".$1); |
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})) { |