version 1.24, 2005/07/14 21:30:25
|
version 1.26, 2005/07/15 05:43:42
|
Line 507 sub display_config_box() {
|
Line 507 sub display_config_box() {
|
sub getitems { |
sub getitems { |
my ($unread,$ungraded,$bombed,$triggered,$newdiscussions,$tograde,$bombs,$warnings,$rowColor1,$rowColor2,$threshold,$cdom,$crs,$res_title) = @_; |
my ($unread,$ungraded,$bombed,$triggered,$newdiscussions,$tograde,$bombs,$warnings,$rowColor1,$rowColor2,$threshold,$cdom,$crs,$res_title) = @_; |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my @allres=$navmap->retrieveResources(); |
# force retrieve Resource to seed the part id cache we'll need it later |
|
my @allres=$navmap->retrieveResources(undef,sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;}); |
my %discussiontime = &Apache::lonnet::dump('discussiontimes',$cdom,$crs); |
my %discussiontime = &Apache::lonnet::dump('discussiontimes',$cdom,$crs); |
my %lastread = &Apache::lonnet::dump('nohist_'.$env{'request.course.id'}. |
my %lastread = &Apache::lonnet::dump('nohist_'.$env{'request.course.id'}. |
'_discuss',$env{'user.domain'},$env{'user.name'},'lastread'); |
'_discuss',$env{'user.domain'},$env{'user.name'},'lastread'); |
Line 564 sub getitems {
|
Line 565 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)) { |