version 1.24, 2005/07/14 21:30:25
|
version 1.25, 2005/07/15 05:30:06
|
Line 564 sub getitems {
|
Line 564 sub getitems {
|
if ($resource->is_problem()) { |
if ($resource->is_problem()) { |
my $ctr = 0; |
my $ctr = 0; |
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
my ($partlist,$handgrade,$responseType) = |
my $partlist=$resource->parts(); |
&Apache::grades::response_type($url,$symb); |
|
my $handgradeable; |
my $handgradeable; |
foreach my $value (values(%{$handgrade})) { |
foreach my $part (@$partlist) { |
if ($value eq 'yes') { $handgradeable=1; last; } |
if ($resource->handgrade($part) eq 'yes') { |
|
$handgradeable=1; last; |
|
} |
} |
} |
if ($handgradeable) { |
if ($handgradeable) { |
foreach my $student (keys(%$classlist)) { |
foreach my $student (keys(%$classlist)) { |