');
- my %threshold_titles = (
+ my %threshold_titles = &Apache::lonlocal::texthash (
av_attempts => 'Average number of attempts',
degdiff => 'Degree of difficulty',
numstudents => 'Total number of students with submissions',
);
+
+ my %interval_titles = &Apache::lonlocal::texthash (
+ -1 => 'since start of course',
+ 2592000 => 'since last month',
+ 604800 => 'since last week',
+ 86400 => 'since yesterday',
+ );
+
+ my %initpage = &Apache::lonlocal::texthash (
+ firstres => 'first resource in the course',
+ whatsnew => "what's new? page",
+ userpref => 'your general user preferences',
+ coursespecific => 'specific setting for this course',
+ );
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
- if ($command eq 'chgthreshold') {
- &display_config_box($r,$command,$tabbg,\%threshold_titles,$cdom,$crs);
+ if (($command eq 'chgthreshold') &&
+ (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {
+ &display_threshold_config($r,$refpage,$tabbg,\%threshold_titles,
+ $cdom,$crs);
+ } elsif (($command eq 'chginterval') &&
+ (&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
+ &display_interval_config($r,$refpage,\%interval_titles);
+ } elsif (($command eq 'chgdisc') &&
+ (&Apache::lonnet::allowed('pch',$env{'request.course.id'}))) {
+ &display_discussion_config($r,$refpage);
+ } elsif ($command eq 'courseinit') {
+ &courseinit_config($r,$refpage,\%initpage);
} else {
- &display_actions_box($r,$command,\%threshold_titles,$cdom,$crs);
+ &display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles,
+ \%interval_titles,\%initpage,$cdom,$crs,$checkallowed);
}
$r->print(<
@@ -131,13 +184,37 @@ END_OF_BLOCK
# up the HTML
#-------------------------------
-sub display_header{
+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
@@ -150,32 +227,46 @@ ENDHEAD
#
#-------------------------------
-sub display_actions_box() {
- my ($r,$command,$threshold_titles,$cdom,$crs) = @_;
-
+sub display_actions_box {
+ my ($r,$tabbg,$command,$refpage,$threshold_titles,$interval_titles,
+ $initpage,$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',
+ 'pgse' => 'Page set to be displayed after you have selected a role in this course?',
+ '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 %res_title = ();
+ my %show = ();
+ my $needitems = 0;
+ my $boxcount = 0;
- my $domain=&Apache::loncommon::determinedomain();
- my $function;
- if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
- $function='coordinator';
- }
- if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
- $function='admin';
+ my $result;
+ if ($command eq 'newcourseinit') {
+ $result = &store_courseinit_setting($uname,$udom,$cid,$initpage);
}
my %threshold = (
@@ -183,285 +274,192 @@ sub display_actions_box() {
degdiff => 0.5,
numstudents => 2,
);
+ my %pagedesc = &Apache::lonlocal::texthash (
+ firstres => 'First resource',
+ whatsnew => "What's New? page",
+ userpref => 'user preference',
+ coursespecific => 'course only',
+ default => 'default',
+ );
- my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
- my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
+ my ($initcontrol,$initdisp) = &curr_courseinit();
+ my $currinit = $pagedesc{$initdisp}.' ('.$pagedesc{$initcontrol}.')';
- unless ($env{'request.course.id'}) {
- $r->print('
You are accessing an invalid course.
');
+ 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('Go to first resource
Change your preferences to suppress display of this screen when accessing courses as Course Coordinator in the future.
');
- untie(%bighash);
- }
-
- my $result;
+ if ($refpage eq 'start') {
+ if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
+ &GDBM_READER(),0640)) {
+ my $furl=$bighash{'first_url'};
+ untie(%bighash);
+ $r->print(''.$lt{'gtfr'}.
+ '
');
+ }
+ }
+ $r->print($lt{'pgse'}.' '.&mt('Currently: [_1]',''.$currinit.'').
+ ' '.&mt('[_1] for just [_2]','Change',
+ 'this course').' '.&mt('or for all [_1].',
+ 'your courses').'
');
+
if ($command eq 'reset') {
$result = &process_reset($cdom,$crs);
} elsif ($command eq 'update') {
- $result = &process_update($cdom,$crs,$threshold_titles);
+ $result = &process_update($uname,$udom,$threshold_titles);
+ } elsif ($command eq 'newinterval') {
+ $result = &store_interval_setting($uname,$udom,$cid,$interval_titles);
+ } elsif ($command eq 'newdiscconf') {
+ $result = &store_discussion_setting($uname,$udom,$cid);
+ }
+
+ my $store_result=&store_display_settings($uname,$udom,$cid,$checkallowed);
+
+ 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);
}
+
if ($result) {
$r->print($result.'
');
}
+ $r->rflush();
- &get_curr_thresholds(\%threshold,$cdom,$crs);
- &getitems(\%unread,\%ungraded,\%bombed,\%triggered,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,%res_title);
- my ($msgcount,$critmsgcount) = &getmail(\@newmsgs,\@critmsgs);
-
- $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;
- }
- my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
- my $linkurl=&Apache::lonnet::clutter($url);
- $linkurl .= '?symb='.&Apache::lonnet::escape($res);
+ 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 = $display_settings{$cid.':countunread'};
+ unless (defined($countunread)) {
+ $countunread = 'on';
+ }
+
+ 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',
+ );
- $r->print('| '.$ungraded{$res}{title}.' | '.$ungraded{$res}{count}.' | ');
- $rowNum ++;
- }
- } else {
- $r->print('
No problems require handgrading
| ');
+ if ($$checkallowed{'abovethreshold'}) {
+ &get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs);
}
- $r->print(' | | |
');
-## BOMBS ##
- $r->print(<<"END");
-
-
-
-
-
- | Problems with errors |
-
-
-
-
-END
- my $bombnum = 0;
- if (@bombs > 0) {
- $r->print('| Resource | Number of errors | ');
- @bombs = sort { &cmp_title($a,$b,\%res_title) } @bombs;
- foreach my $bomb (@bombs) {
- if ($bombnum %2 == 1) {
- $rowColor = $rowColor1;
- } else {
- $rowColor = $rowColor2;
+ $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;
}
- $r->print('| '.$bombed{$bomb}{errorlink}.' | '.$bombed{$bomb}{errorcount}.' | ');
- $bombnum ++;
}
- } else {
- $r->print('
No problems with errors
| ');
}
- $r->print(' | |
');
-# DEGDIFF AND AV. TRIES TRIGGERS
- $r->print(<<"END");
-
-
-
-
-
- Problems with av. attempts ≥ $threshold{'av_attempts'} or deg. difficulty ≥ $threshold{'degdiff'}
and total number of students with submissions ≥ $threshold{'numstudents'} |
-
-
- | Change thresholds? |
-
-
-
-
-END
- my $warningnum = 0;
- if (@warnings > 0) {
- @warnings = sort { &cmp_title($a,$b,\%res_title) } @warnings;
- $r->print(' | |
');
-
- $r->print(' | | ');
-## UNREAD COURSE DISCUSSION POSTS ##
- $r->print(<<"END");
-
-
-
-
- | Unread course discussion posts |
-
-
-
-
-END
-
- if (@newdiscussions > 0) {
- $r->print('| Location | Type | Number of new posts | ');
- @newdiscussions = sort { &cmp_title($a,$b,\%res_title) } @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 ++;
- }
- }
- } else {
- $r->print('
No unread posts in course discussions
| ');
+ 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(' | |
');
-## MESSAGES ##
- $r->print(<
-
-
-
-
- | New course messages |
-
-
-
-
-END
- if ($msgcount > 0) {
- $r->print('| '.&mt('Number').' | '.&mt('Subject').' | '.&mt('Sender').' | '.&mt('Date/Time').' | ');
- my $rowNum = 0;
- my $mailcount = 1;
- foreach my $msg (@newmsgs) {
- if ($rowNum %2 == 1) {
- $rowColor = $rowColor1;
- } else {
- $rowColor = $rowColor2;
- }
- $r->print('| '.$mailcount.'. | '.$msg->{'shortsub'}.' | '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' | '.$msg->{'sendtime'}.' | ');
- $rowNum ++;
- $mailcount ++;
+ $r->print(qq|$lt{'hial'}
+ $lt{'shal'}
+ | | |