|
version 1.50, 2005/05/17 20:14:19
|
version 1.51, 2005/10/12 21:29:49
|
|
Line 703 sub parameter_part_is_valid {
|
Line 703 sub parameter_part_is_valid {
|
| return 1; |
return 1; |
| } |
} |
| # |
# |
| my (undef,$part) = |
my ($start,@pieces)=split('_',$parameter); |
| ($parameter =~ m/^(resource|stores|parameter)_([^_]+)_.*/); |
if ( $start !~ m/^(resource|stores|parameter)$/) { return 0; } |
| if (exists($self->{'Parts'}) && |
while (@pieces) { |
| exists($self->{'Parts'}->{$part}) && |
pop(@pieces); |
| $self->{'Parts'}->{$part} ) { |
my $testpart=join('_',@pieces); |
| return 1; |
if (exists($self->{'Parts'}->{$testpart}) && |
| } else { |
$self->{'Parts'}->{$testpart} ) { |
| return 0; |
return 1; |
| |
} |
| } |
} |
| |
return 0; |
| } |
} |
| |
|
| sub compute { |
sub compute { |
![[BACK]](/icons/back.gif){kind=icon}
Return to assesscalc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / spreadsheet