loncom/interface/lonwhatsnew.pm - diff - 1.27

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.25 and 1.27

version 1.25, 2005/07/15 05:30:06	version 1.27, 2005/07/15 06:11:16
Line 208 sub display_actions_box() {	Line 208 sub display_actions_box() {
if ($result) {	if ($result) {
$r->print($result.'<hr width="100%" />');	$r->print($result.'<hr width="100%" />');
}	}
	$r->rflush();

&get_curr_thresholds(\%threshold,$cdom,$crs);	&get_curr_thresholds(\%threshold,$cdom,$crs);
&getitems(\%unread,\%ungraded,\%bombed,\%triggered,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,%res_title);	&getitems(\%unread,\%ungraded,\%bombed,\%triggered,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,%res_title);
Line 507 sub display_config_box() {	Line 508 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');

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>