');
-
- if ($command eq 'config') {
- &display_config_box($r,$picker);
+
+ my %threshold_titles = (
+ av_attempts => 'Average number of attempts',
+ degdiff => 'Degree of difficulty',
+ numstudents => 'Total number of students with submissions',
+ );
+
+ my %interval_titles = (
+ -1 => 'since start of course',
+ 2592000 => 'since last month',
+ 604800 => 'since last week',
+ 86400 => 'since yesterday',
+ );
+
+ my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+
+ if (($command eq 'chgthreshold') &&
+ (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {
+ &display_threshold_config($r,$command,$tabbg,\%threshold_titles,
+ $cdom,$crs);
+ } elsif (($command eq 'chginterval') &&
+ (&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
+ &display_interval_config($r,\%interval_titles);
} else {
- &display_actions_box($r,$picker);
+ &display_actions_box($r,$tabbg,$command,\%threshold_titles,
+ \%interval_titles,$cdom,$crs,$checkallowed);
}
$r->print(<
@@ -136,12 +158,36 @@ END_OF_BLOCK
#-------------------------------
sub display_header{
+ my ($command,$checkallowed) = @_;
my $html=&Apache::lonxml::xmlbegin();
my $bodytag=&Apache::loncommon::bodytag('Course Action Items');
+ my $scripttag;
+ unless ($command eq 'chgthreshold' || $command eq 'chginterval') {
+ $scripttag = <<"END";
+
+';
+ }
return(<
Course Action Items
+$scripttag
$bodytag
ENDHEAD
@@ -155,337 +201,689 @@ ENDHEAD
#-------------------------------
sub display_actions_box() {
- my ($r,$picker) = @_;
+ my ($r,$tabbg,$command,$threshold_titles,$interval_titles,
+ $cdom,$crs,$checkallowed) = @_;
my $rowColor1 = "#ffffff";
my $rowColor2 = "#eeeeee";
- my $rowColor;
+
+ my $udom = $env{'user.domain'};
+ my $uname = $env{'user.name'};
+ my $cid = $env{'request.course.id'};
+
+ my %lt = &Apache::lonlocal::texthash(
+ 'yacc' => 'You are accessing an invalid course.',
+ 'gtfr' => 'Go to first resource',
+ 'chyp' => 'Change your preferences',
+ 'tsup' => 'to suppress display of this screen when accessing'.
+ ' this course in the future.',
+ 'hial' => 'Hide all',
+ 'shal' => 'Show all',
+ );
my %unread = ();
my %ungraded = ();
my %bombed = ();
+ my %triggered = ();
+ my %changed = ();
my @newmsgs = ();
my @critmsgs = ();
my @newdiscussions = ();
my @tograde = ();
my @bombs = ();
+ my @warnings = ();
+ my $msgcount = 0;
+ my $critmsgcount = 0;
- my $domain=&Apache::loncommon::determinedomain();
- my $function;
- if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
- $function='coordinator';
+ my %res_title = ();
+ my %show = ();
+ my $needitems = 0;
+ my $boxcount = 0;
+
+ my %threshold = (
+ av_attempts => 2,
+ degdiff => 0.5,
+ numstudents => 2,
+ );
+
+ unless ($cid) {
+ $r->print('
'.$lt{'yacc'}.'
');
+ return;
+ }
+
+ if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
+ &GDBM_READER(),0640)) {
+ my $furl=$bighash{'first_url'};
+ $r->print(''.$lt{'gtfr'}.
+ ''.
+ '
'.$lt{'chyp'}.' '.$lt{'tsup'}.'
');
+ untie(%bighash);
}
- if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
- $function='admin';
+
+ my $result;
+
+ if ($command eq 'reset') {
+ $result = &process_reset($cdom,$crs);
+ } elsif ($command eq 'update') {
+ $result = &process_update($cdom,$crs,$threshold_titles);
+ } elsif ($command eq 'newinterval') {
+ $result = &store_interval_setting($uname,$udom,$cid,$interval_titles);
}
- my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
- my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
+ my $store_result=&store_display_settings($uname,$udom,$cid,$checkallowed);
- &getitems(\%unread,\%ungraded,\%bombed,\@newdiscussions,\@tograde,\@bombs);
- my ($msgcount,$critmsgcount) = &getmail(\@newmsgs,\@critmsgs);
+ unless ($store_result eq 'ok') {
+ &Apache::lonnet::logthis('Error storing whatsnew settings: '.
+ $store_result.' for '.'user '.$uname.':'.$udom.' in course '.$cid);
+ $result .= &mt('Unable to store visibility settings due to [_1]',
+ $store_result);
+ }
- unless ($env{'request.course.id'}) {
- $r->print('
You are accessing an invalid course
');
- return;
+ if ($result) {
+ $r->print($result.'
');
}
+ $r->rflush();
- $r->print(''.$picker.'
');
-## UNREAD COURSE DISCUSSION POSTS ##
- $r->print(<<"END");
-
-
-
-
- | Unread course discussion posts: |
-
-
-
-
-END
+ my %display_settings = &get_display_settings($uname,$udom,$cid);
+ my $timediff = $display_settings{$cid.':interval'};
+ unless (defined($timediff)) { $timediff = 604800; }
+ my $now = time;
+ my $interval = $$interval_titles{$timediff};
+ if ($timediff == -1) {
+ $timediff = time;
+ }
+ my $starttime = $now - $timediff;
+ my $countunread = 1;
+
+ my %headings = &Apache::lonlocal::texthash(
+ coursediscussion => 'Unread course discussion posts',
+ handgrading => 'Problems requiring handgrading',
+ haserrors => 'Problems with errors',
+ versionchanges => 'Resources in course with version changes '.$interval,
+ coursenormalmail => 'New course messages',
+ coursecritmail => 'New critical messages in course',
+ );
- if (@newdiscussions > 0) {
- $r->print('| Location | Type | Number of new posts | ');
-# @newdiscussions = sort { &cmp_title($a,$b) } @newdiscussions;
- my $rowNum = 0;
- foreach my $ressymb (@newdiscussions) {
- my $forum_title = $unread{$ressymb}{'title'};
- my $type = 'Resource';
- my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb);
- if ($feedurl =~ /bulletinboard/) {
- $type = 'Bulletin Board';
- }
- my $unreadnum = keys(%{$unread{$ressymb}});
- $unreadnum = $unreadnum - 2;
- if ($unreadnum > 0) {
- if ($rowNum %2 == 1) {
- $rowColor = $rowColor1;
- } else {
- $rowColor = $rowColor2;
- }
- $r->print('| '.$forum_title.': | '.$type.' | '.$unreadnum.' | ');
- $rowNum ++;
+ if ($$checkallowed{'abovethreshold'}) {
+ &get_curr_thresholds(\%threshold,$cdom,$crs);
+ }
+
+ $headings{'abovethreshold'} = &mt('Problems with av. attempts').' ≥ '.$threshold{'av_attempts'}.' '.&mt('or deg. difficulty').' ≥ '.$threshold{'degdiff'}.'
'.&mt('and total number of students with submissions').' ≥ '.$threshold{'numstudents'};
+
+ my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');
+
+ foreach my $key (keys(%{$checkallowed})) {
+ $show{$key} = 0;
+ if ($$checkallowed{$key}) {
+ unless ($display_settings{$cid.':'.$key} eq 'hide') {
+ $show{$key} = 1;
}
}
- } else {
- $r->print('
No unread posts in course discussions
| ');
}
- $r->print(' | |
');
-
-## UNGRADED ITEMS ##
- $r->print(<
-
-
-
- | Problems requiring handgrading: |
-
-
-
-END
- if (@tograde > 0) {
- $r->print('| Problem Name | Number ungraded | ');
- my $rowNum = 0;
- foreach my $res (@tograde) {
- if ($rowNum %2 == 1) {
- $rowColor = $rowColor1;
- } else {
- $rowColor = $rowColor2;
+ foreach my $item (@actionorder) {
+ unless ($item eq 'coursenormalmail' || $item eq 'coursecritmail') {
+ if ($show{$item}) {
+ $needitems = 1;
+ last;
}
- my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
- my $linkurl=&Apache::lonnet::clutter($url);
- $linkurl .= '?symb='.&Apache::lonnet::escape($res);
+ }
+ }
- $r->print('| '.$ungraded{$res}{title}.' | '.$ungraded{$res}{count}.' | ');
- $rowNum ++;
+ if ($needitems) {
+ &getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread);
+ }
+ if ($show{'coursenormalmail'}) {
+ &getnormalmail(\@newmsgs);
+ }
+ if ($show{'coursecritmail'}) {
+ &getcritmail(\@critmsgs);
+ }
+
+ $r->print(qq|$lt{'hial'}
+ $lt{'shal'}
+ | | |
');
-## BOMBS ##
- $r->print(<<"END");
-
-
-
-
-
- | Problems with errors |
-
-
-
-
-END
- my $bombnum = 0;
- if (@bombs > 0) {
-# @bombs = sort { &cmp_title($a,$b) } @bombs;
- foreach my $bomb (@bombs) {
- if ($bombnum %2 == 1) {
- $rowColor = $rowColor1;
- } else {
- $rowColor = $rowColor2;
+ $r->print('
| ');
+
+ my $displayed = 0;
+ my $totalboxes = keys(%{$checkallowed});
+ my $halfway = int($totalboxes/2) + $totalboxes%2;
+ foreach my $actionitem (@actionorder) {
+ if ($$checkallowed{$actionitem}) {
+ if ($displayed == $halfway) {
+ $r->print(' | | ');
}
- $r->print(' | | '.$bombed{$bomb}{errorlink}.' | ');
- $bombnum ++;
+ &display_launcher($r,$actionitem,$checkallowed,$tabbg,$rowColor1,$rowColor2,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,$interval,$countunread);
+ $displayed ++;
}
- } else {
- $r->print('
No problems with errors
| ');
}
- $r->print('
|
');
+ $r->print('
+ |
+ |
+
+