--- loncom/interface/lonwhatsnew.pm 2005/04/05 22:49:17 1.1 +++ loncom/interface/lonwhatsnew.pm 2011/03/31 17:54:10 1.103 @@ -1,15 +1,48 @@ +# +# $Id: lonwhatsnew.pm,v 1.103 2011/03/31 17:54:10 raeburn Exp $ +# +# Copyright Michigan State University Board of Trustees +# +# This file is part of the LearningOnline Network with CAPA (LON-CAPA). +# +# LON-CAPA is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# LON-CAPA is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with LON-CAPA; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# /home/httpd/html/adm/gpl.txt +# +# http://www.lon-capa.org/ +# + + package Apache::lonwhatsnew; use strict; use lib qw(/home/httpd/lib/perl); use Apache::lonnet; -use Apache::loncommon; -use Apache::lonhtmlcommon; +use Apache::loncommon(); +use Apache::lonhtmlcommon(); use Apache::lonlocal; -use Apache::loncoursedata; -use Apache::lonnavmaps; +use Apache::loncoursedata(); +use Apache::lonnavmaps(); +use Apache::lonuserstate; +use Apache::lonuserutils; use Apache::Constants qw(:common :http); use Time::Local; +use GDBM_File; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; +use HTML::Entities; #---------------------------- # handler @@ -18,22 +51,105 @@ use Time::Local; sub handler { my $r = shift; - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['command']); + if ($r->header_only) { + &Apache::loncommon::content_type($r,'text/html'); + $r->send_http_header; + return OK; + } + &Apache::loncommon::get_unprocessed_cgi( + $ENV{'QUERY_STRING'},['command','refpage']); - my $command = $ENV{'form.command'}; + my $command = $env{'form.command'}; + my $refpage = $env{'form.refpage'}; - if ($command eq '') { - $command = "info"; + my %checkallowed = ( coursenormalmail => 1, + coursecritmail => 1, ); + foreach my $perm_check (['whn','whatsnew',1], + ['pch','coursediscussion',1], + ['mgr','handgrading',1], + ['vgr','abovethreshold',1], + ['opa','haserrors',1], + ['mdc','versionchanges',0], + ['vcl','newroles',1], + ['vcl','oldroles',1], + ) { + my ($perm,$key,$check_section) = @{ $perm_check }; + my $scope = $env{'request.course.id'}; + if (!($checkallowed{$key} = &Apache::lonnet::allowed($perm,$scope))) { + $scope .= '/'.$env{'request.course.sec'}; + if ( $check_section ) { + $checkallowed{$key} = &Apache::lonnet::allowed($perm,$scope); + } + if ($checkallowed{$key}) { + $checkallowed{$key.'_section'} = $env{'request.course.sec'}; + } + } } - $r->print(&display_header()); - if (! (($ENV{'request.course.fn'}) && (&Apache::lonnet::allowed('vsa',$ENV{'request.course.id'})))) { - # Not in a course, or not allowed to modify parms - $ENV{'user.error.msg'}="/adm/whatsnew:vsa:0:0:Cannot display student activity"; + if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) { + # Not in a course, or no whn priv in course + $env{'user.error.msg'}="/adm/whatsnew:whn:0:0:Cannot display what's new page"; return HTTP_NOT_ACCEPTABLE; } - &display_main_box($r,$command); + &Apache::loncommon::content_type($r,'text/html'); + $r->send_http_header; + + $r->print(&display_header($command,\%checkallowed)); + + &Apache::lonhtmlcommon::clear_breadcrumbs(); + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/whatsnew', + text=>"What's New?"}); + if (($command eq 'chgthreshold') && $checkallowed{'abovethreshold'}) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage, + text=>"Change thresholds"}); + $r->print(&Apache::lonhtmlcommon::breadcrumbs + ("What's New?",#'Course_Action_Items_Thresholds' + )); + } elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage, + text=>"Change interval"}); + $r->print(&Apache::lonhtmlcommon::breadcrumbs + ("What's New?",#'Course_Action_Items_Intervals' + )); + } elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage, + text=>"Change discussion display"}); + $r->print(&Apache::lonhtmlcommon::breadcrumbs + ("What's New?",#'Course_Action_Items_Intervals' + )); + } elsif ($command eq 'courseinit') { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage, + text=>"Course initialization preference"}); + $r->print(&Apache::lonhtmlcommon::breadcrumbs + ("What's New?",#'Course_Action_Items_Initialization' + )); + } elsif ($command eq 'chgoldroleinterval' && $checkallowed{'oldroles'}) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/whatsnew?command=chgoldroleinterval&refpage='.$refpage, + text=>"Change interval"}); + $r->print(&Apache::lonhtmlcommon::breadcrumbs + ("What's New?",#'Course_Action_Items_Intervals' + )); + } elsif ($command eq 'chgnewroleinterval' && $checkallowed{'newroles'}) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/whatsnew?command=chgnewroleinterval&refpage='.$refpage, + text=>"Change interval"}); + $r->print(&Apache::lonhtmlcommon::breadcrumbs + ("What's New?",#'Course_Action_Items_Intervals' + )); + } else { + $r->print(&Apache::lonhtmlcommon::breadcrumbs + ("What's New?",#'Course_Action_Items_Display' + )); + } + &display_main_box($r,$command,$refpage,\%checkallowed); + return OK; } #------------------------------ @@ -43,105 +159,80 @@ sub handler { #------------------------------ sub display_main_box { - my ($r,$command) = @_; + my ($r,$command,$refpage,$checkallowed) = @_; my $domain=&Apache::loncommon::determinedomain(); - my $tabbg=&Apache::loncommon::designparm('coordinator.tabbg',$domain); - $r->print(<<END_OF_BLOCK); -<br /> -<br /> -<table width="100%" border="0" cellpadding="0" cellspacing="0"> - <tr> - <td width="100%" bgcolor="#000000"> - <table width="100%" border="0" cellpadding="1" cellspacing="0"> - <tr> - <td width="100%" bgcolor="#000000"> - <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> - <tr> - <td colspan="2" width="100%" bgcolor="$tabbg"> - <table width="100%" border="0" cellpadding="5" cellspacing="0"> - <tr> - <td width="100%"> - <table width="100%" border="0" cellpadding="0" cellspacing="0"> - <tr> - <td> - <font face="arial,verdana" size="3"><b>Course Action Items</b></font></td> - </td> - <td align="right"> - </td> - </tr> - </table> - </td> - </tr> - </table> - </td> - </tr> - <tr> - <td width="100" valign="top" bgcolor="#dddddd" height="100%"> - <table width="100" border="0" cellpadding="0" cellspacing="0" height="100%"> - <tr> - <td valign="top" height="100%"> -END_OF_BLOCK - &display_nav_box($r,$command); - $r->print('</td></tr></table></td>'); - $r->print('<td width="100%" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">'); - - if ($command eq 'config') { - &display_config_box($r); + my $function = &Apache::loncommon::get_users_function(); + my $lctype = lc(&Apache::loncommon::course_type()); + $r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">'); + + my %threshold_titles = &Apache::lonlocal::texthash ( + av_attempts => 'Average number of attempts', + degdiff => 'Degree of difficulty', + numstudents => 'Total number of students with submissions', + ); + my %versions = ( + -1 => "version changes since start of $lctype", + 2592000 => 'version changes since last month', + 604800 => 'version changes since last week', + 86400 => 'version changes since yesterday', + ); + my %newroles = ( + -1 => "roles which have become active since start of $lctype", + 2592000 => 'roles which have become active since last month', + 604800 => 'roles which have become active since last week', + 86400 => 'roles which have become active since yesterday', + ); + my %oldroles = ( + -1 => "roles which expired since start of $lctype", + 2592000 => 'roles which expired since last month', + 604800 => 'roles which expired since last week', + 86400 => 'roles which expired since yesterday', + ); + my %interval_titles = ( + versions => \%versions, + newroles => \%newroles, + oldroles => \%oldroles, + ); + my %initpage = &Apache::lonlocal::texthash ( + firstres => "first resource in the $lctype", + whatsnew => "What's New Page", + userpref => 'your general user preferences', + coursespecific => "specific setting for this $lctype", + ); + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; + + if (($command eq 'chgthreshold') + && $checkallowed->{'abovethreshold'}) { + &display_threshold_config($r,$refpage,\%threshold_titles, + $cdom,$crs); + } elsif (($command eq 'chginterval') + && $checkallowed->{'versionchanges'}) { + &display_interval_config($r,$refpage,\%interval_titles,'versions'); + } elsif (($command eq 'chgdisc') + && $checkallowed->{'coursediscussion'}) { + &display_discussion_config($r,$refpage); + } elsif ($command eq 'courseinit') { + &courseinit_config($r,$refpage,\%initpage); + } elsif (($command eq 'chgnewroleinterval') + && $checkallowed->{'newroles'}) { + &display_interval_config($r,$refpage,\%interval_titles,'newroles'); + } elsif (($command eq 'chgoldroleinterval') + && $checkallowed->{'oldroles'}) { + &display_interval_config($r,$refpage,\%interval_titles,'oldroles'); } else { - &display_actions_box($r); + &display_actions_box($r,$command,$refpage,\%threshold_titles, + \%interval_titles,\%initpage,$cdom,$crs,$checkallowed); } + my $end_page = &Apache::loncommon::end_page(); $r->print(<<END_OF_BLOCK); - </td> - </tr> - </table> - </td> - </tr> - </table> - </td> - </tr> - </table> - </td> - </tr> - </table> </td> </tr> </table><br /> -</body> -</html> +$end_page END_OF_BLOCK } -#------------------------------ -# display_nav_box -# -# Display the navigation box -#------------------------------ - -sub display_nav_box { - my ($r,$command) = @_; - $r->print('<table width="100" border="0" cellpadding="3" cellspacing="0">'."\n"); - if ($command eq "info") { - $r->print('<tr><td bgcolor="#ffffff">'); - $r->print('<small><b>Action Items</b></small><br />'); - $r->print('</td></tr>'); - } else { - $r->print('<tr><td>'); - $r->print('<small><a href="/adm/whatsnew?command=info">Current Action Items</a></small><br />'); - $r->print('</td></tr>'); - } - $r->print('<tr><td> </td></tr>'); - if ($command eq "config") { - $r->print('<tr><td bgcolor="#ffffff">'); - $r->print('<small><b>Display options</b></small><br />'); - $r->print('</td></tr>'); - } else { - $r->print('<tr><td>'); - $r->print('<small><a href="/adm/whatsnew?command=config">Display options</a></small><br />'); - $r->print('</td></tr>'); - } - $r->print('</table>'); -} - #------------------------------- # display_header # @@ -149,15 +240,36 @@ sub display_nav_box { # up the HTML #------------------------------- -sub display_header{ - my $bodytag=&Apache::loncommon::bodytag('Course Action Items'); - return(<<ENDHEAD); -<html> -<head> -<title>Course Action Items</title> -</head> -$bodytag -ENDHEAD +sub display_header { + my ($command,$checkallowed) = @_; + + my $scripttag; + unless ($command eq 'chgthreshold' || $command eq 'chginterval' || + $command eq 'chgoldroleinterval' || $command eq 'chgnewroleinterval') { + $scripttag = <<"END"; +<script type="text/javascript"> +function change_display(caller,change) { + caller.value = change; + document.visible.submit(); +} + +function changeAll(change) { +END + foreach my $item (keys(%{$checkallowed})) { + if ($item =~ /_section$/) { next; } + if ($$checkallowed{$item}) { + $scripttag.='document.visible.display_'.$item.'.value=change'. + "\n"; + } + } + $scripttag.='document.visible.submit(); +} +</script> +'; + } + my $course_type=&Apache::loncommon::course_type(); + return &Apache::loncommon::start_page("What's New?", + $scripttag); } #------------------------------- @@ -167,339 +279,906 @@ ENDHEAD # #------------------------------- -sub display_actions_box() { - my $r = shift; - - my $rowColor1 = "#ffffff"; - my $rowColor2 = "#eeeeee"; - my $rowColor; +sub display_actions_box { + my ($r,$command,$refpage,$threshold_titles,$interval_titles,$initpage, + $cdom,$crs,$checkallowed) = @_; + my $udom = $env{'user.domain'}; + my $uname = $env{'user.name'}; + my $cid = $env{'request.course.id'}; + my $crstype = &Apache::loncommon::course_type(); + my $lctype = lc($crstype); + my %stulabel = ( + 'Course' => 'students', + 'Community' => 'members', + ); + my %lt = &Apache::lonlocal::texthash( + 'yacc' => 'You are accessing an invalid course', + 'gtfr' => 'Go to first resource', + '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 $expirecount; + my %expired; + my $activecount; + my %activated; + my %res_title = (); + my %show = (); + my $needitems = 0; + my $boxcount = 0; + + my $result; + if ($command eq 'newcourseinit') { + $result = &store_courseinit_setting($uname,$udom,$cid,$initpage); + } - my $domain=&Apache::loncommon::determinedomain(); - my $function; - if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { - $function='coordinator'; + my %threshold = (); + my %pagedesc = &Apache::lonlocal::texthash ( + firstres => 'First resource', + whatsnew => "What's New Page", + userpref => 'user preference', + coursespecific => $lctype.' only', + default => 'default', + ); + + my ($initcontrol,$initdisp) = &curr_courseinit(); + my $currinit = $pagedesc{$initdisp}.' ('.$pagedesc{$initcontrol}.')'; + + unless ($cid) { + $r->print('<p><span style="text-align: center; font-weight: bold;">'.$lt{'yacc'}.'</span></p>'); + return; + } + + my $header = ''; + if ($refpage eq 'start') { + if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', + &GDBM_READER(),0640)) { + my $furl=&HTML::Entities::encode($bighash{'first_url'},'"<>&'); + untie(%bighash); + $header .= '<b><a href="'.$furl.'">'.$lt{'gtfr'}. + '</a></b><br />'; + } } - if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { - $function='admin'; + $header .= &mt('Page set to be displayed after you have selected a role in this '.$lctype).'.' + .' <span class="LC_nobreak">' + .&mt('Currently: [_1].','<i>'.$currinit.'</i>') + .' ' + .&mt('[_1]Change[_2] for just [_3]this '.$lctype.'[_4] or for [_5]all your courses/communities[_6].' + ,'<b>' + ,'</b>' + ,'<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.'">' + ,'</a>' + ,'<a href="/adm/preferences?action=changecourseinit&refpage='.$refpage.'">' + ,'</a>') + .' </span>'; + + $r->print(&Apache::loncommon::head_subbox($header)); + + if ($command eq 'reset') { + $result = &process_reset($cdom,$crs); + } elsif ($command eq 'update') { + $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 $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 saving whatsnew settings: '. + $store_result.' for '.'user '.$uname.':'.$udom.' in '.$lctype.' '.$cid); + $result .= '<span class="LC_error">' + .&mt('Unable to save visibility settings due to [_1]', + $store_result) + .'</span>'; + } - unless ($ENV{'request.course.id'}) { - $r->print('<br /><b><center>You are accessing an invalid course</center></b><br /><br />'); - return; + if ($result) { + $r->print($result.'<hr />'); } + $r->rflush(); - $r->print('<b>Course Action Items</b><br /><hr width="100%" /><table border="0" width="100%" cellpadding="2" cellspacing="4" bgcolor="#ffffff"><tr><td align="left" valign="top" width="45%">'); + my (%timediff,%interval); + my %display_settings = &get_display_settings($uname,$udom,$cid); + $timediff{'versions'} = $display_settings{$cid.':interval'}; + unless (defined($timediff{'versions'})) { $timediff{'versions'} = 604800; } + $interval{'versions'} = $interval_titles->{'versions'}->{$timediff{'versions'}}; + + my %headings = &Apache::lonlocal::texthash( + coursediscussion => 'Unread '.$lctype.' discussion posts', + handgrading => 'Problems requiring handgrading', + haserrors => 'Problems with errors', + coursenormalmail => 'New '.$lctype.' messages', + coursecritmail => 'New critical messages in '.$lctype, + ); + + if ($timediff{'versions'} == -1) { + $headings{'versionchanges'} = &mt('Resources in '.$lctype.' with version changes since start of '.$lctype); + } elsif ($timediff{'versions'} == 2592000) { + $headings{'versionchanges'} = &mt('Resources in '.$lctype.' with version changes since last month'); + } elsif ($timediff{'versions'} == 604800) { + $headings{'versionchanges'} = &mt('Resources in '.$lctype.' with version changes since last week'); + } elsif ($timediff{'versions'} == 86400) { + $headings{'versionchanges'} = &mt('Resources in '.$lctype.' with version changes since yesterday'); + } -## UNREAD COURSE DISCUSSION POSTS ## - $r->print(<<"END"); - <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> - <tr><td> - <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> - <tr> - <td bgcolor="$tabbg"><b>Unread course discussion posts:</b></td> - </tr> - <tr> - <td bgcolor="#ffffff"> - <table cellpadding="2" cellspacing="0" border="0" width="100%"> -END + $timediff{'oldroles'} = $display_settings{$cid.':oldroleinterval'}; + unless (defined($timediff{'oldroles'})) { $timediff{'oldroles'} = 604800; } + $interval{'oldroles'} = $interval_titles->{'oldroles'}->{$timediff{'oldroles'}}; + + if ($timediff{'oldroles'} == -1) { + $headings{'oldroles'} = &mt('Roles for which access to '.$lctype.' has expired since start of '.$lctype); + } elsif ($timediff{'oldroles'} == 2592000) { + $headings{'oldroles'} = &mt('Roles for which access to '.$lctype.' has expired since last month'); + } elsif ($timediff{'oldroles'} == 604800) { + $headings{'oldroles'} = &mt('Roles for which access to '.$lctype.' has expired since last week'); + } elsif ($timediff{'oldroles'} == 86400) { + $headings{'oldroles'} = &mt('Roles for which access to '.$lctype.' has expired since yesterday'); + } - if (@newdiscussions > 0) { -# @newdiscussions = sort { &cmp_title($a,$b) } @newdiscussions; - my $rowNum = 0; - foreach my $ressymb (@newdiscussions) { - my $forum_title = $unread{$ressymb}{'title'}; - my ($map,$ind,$url)=&Apache::lonnet::decode_symb($ressymb); - my $feedurl = &Apache::lonnet::clutter($url); -# backward compatibility (bulletin boards used to be 'wrapped') - if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { - $feedurl=~s|^/adm/wrapper||; - } - my $unreadnum = keys %{$unread{$ressymb}}; - $unreadnum = $unreadnum - 2; - if ($unreadnum > 0) { - if ($rowNum %2 == 1) { - $rowColor = $rowColor1; - } else { - $rowColor = $rowColor2; - } - $r->print('<tr><td bgcolor="'.$rowColor.'"><small><a href="'.$feedurl.'?symb='.$unread{$ressymb}{symb}.'">'.$forum_title.':</a> </td><td bgcolor="'.$rowColor.'" align="right">'.$unreadnum.' </td></tr>'); - $rowNum ++; - } - } - } else { - $r->print('<tr><td bgcolor="#ffffff"><br><center> <i><b><small>No unread posts in course discussions</small></b></i><br><br></td></tr>'); + $timediff{'newroles'} = $display_settings{$cid.':newroleinterval'}; + unless (defined($timediff{'newroles'})) { $timediff{'newroles'} = 604800; } + $interval{'newroles'} = $interval_titles->{'newroles'}->{$timediff{'newroles'}}; + + if ($timediff{'newroles'} == -1) { + $headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since start of '.$lctype); + } elsif ($timediff{'newroles'} == 2592000) { + $headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since last month'); + } elsif ($timediff{'newroles'} == 604800) { + $headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since last week'); + } elsif ($timediff{'newroles'} == 86400) { + $headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since yesterday'); } - $r->print('</table></td></tr></table></td></tr></table><br />'); -## UNGRADED ITEMS ## - $r->print(<<END); - <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> - <tr><td> - <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> - <tr> - <td bgcolor="$tabbg"><b>Problems requiring handgrading:</b></td></tr> - <tr> - <td bgcolor="#ffffff"> - <table cellpadding="2" cellspacing="0" border="0" width="100%"> -END + my $now = time; + if ($timediff{'versions'} == -1) { + $timediff{'versions'} = time; + } + my $starttime = $now - $timediff{'versions'}; - if (@tograde > 0) { - $r->print('<tr><th bgcolor="#cccccc">Problem Name</th><th>Number ungraded</th></tr>'); - my $rowNum = 0; - foreach my $res (@tograde) { - if ($rowNum %2 == 1) { - $rowColor = $rowColor1; - } else { - $rowColor = $rowColor2; + if ($timediff{'newroles'} == -1) { + $timediff{'newroles'} = time; + } + my $activatedstart = $now - $timediff{'newroles'}; + + if ($timediff{'oldroles'} == -1) { + $timediff{'oldroles'} = time; + } + my $expiredstart = $now - $timediff{'oldroles'}; + + my $countunread = $display_settings{$cid.':countunread'}; + unless (defined($countunread)) { + $countunread = 'on'; + } + if ($$checkallowed{'abovethreshold'}) { + &get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs); + } + + $headings{'abovethreshold'} = + &mt('(Problems with av. attempts ≥ [_1] or deg. difficulty ≥ [_2]) [_3] and total number of '.$stulabel{$crstype}.' with submissions ≥ [_4]', + $threshold{'av_attempts'},$threshold{'degdiff'}, + '<br />',$threshold{'numstudents'}); + + my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail','newroles','oldroles'); + + foreach my $key (keys(%{$checkallowed})) { + if ($key =~ /_section$/) { next; } + $show{$key} = 0; + if ($$checkallowed{$key}) { + unless ($display_settings{$cid.':'.$key} eq 'hide') { + $show{$key} = 1; } - - $r->print('<tr bgcolor="'.$rowColor.'"><td>'.$ungraded{$res}{title}.'</td><td>'.$ungraded{$res}{count}.'</td></tr>'); - $rowNum ++; } - } else { - $r->print('<tr><td bgcolor="#ffffff"><br><center><i><b><small> No problems require handgrading </small><br><br></b></i></td></tr>'); } - $r->print('</table></td></tr></table></td></tr></table><br />'); - $r->print('</td><td width="5%"> </td><td align="left" valign="top" width-"50%">'); -## MESSAGES ## - $r->print(<<END); - <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> - <tr> - <td> - <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> - <tr> - <td bgcolor="$tabbg"><b>New course messages</b></td> - </tr> - <tr> - <td bgcolor="#ffffff"> - <table width="100%" cellspacing="0" cellpadding="0" border="0"> -END - if ($msgcount > 0) { - my $rowNum = 0; - my $mailcount = 1; - foreach my $msg (@newmsgs) { - if ($rowNum %2 == 1) { - $rowColor = $rowColor1; - } else { - $rowColor = $rowColor2; + foreach my $item (@actionorder) { + unless ($item eq 'coursenormalmail' || $item eq 'coursecritmail' || + $item eq 'newroles' || $item eq 'oldroles') { + if ($show{$item}) { + $needitems = 1; + last; } - $r->print('<tr><td bgcolor="'.$rowColor.'" valign="top"><small>'.$mailcount.'. <small></td><td valign="top"><small><a href="/adm/mail?">'.$msg->{'shortsub'}.'</a> </small></td><td valign="top"><small> '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' </small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>'); - $rowNum ++; - $mailcount ++; } - } else { - $r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>No new course messages</small></i></b><br /><br /></center></td></tr>'); } - $r->print('</table></td></tr></table></td></tr></table><br />'); + my $itemserror; + if ($needitems) { + $itemserror = &getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread); + } + if ($show{'coursenormalmail'}) { + $msgcount = &getnormalmail(\@newmsgs); + } + if ($show{'coursecritmail'}) { + $critmsgcount = &getcritmail(\@critmsgs); + } + if ($show{'oldroles'}) { + $expirecount = &getexpired(\%expired,$expiredstart,'previous'); + } + if ($show{'newroles'}) { + $activecount = &getactivated(\%activated,$activatedstart,'active'); + } + $r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a> + <a href="javascript:changeAll('show');">$lt{'shal'}</a> + <form method="post" name="visible" action="/adm/whatsnew">\n|); + foreach my $item (keys(%{$checkallowed})) { + if ($item =~ /_section$/) { next; } + if ($$checkallowed{$item}) { + $r->print('<input type="hidden" name="display_'.$item.'" />'."\n"); + } + } - $r->print(<<END); - <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> - <tr> - <td> - <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> - <tr> - <td bgcolor="$tabbg"><b>New critical messages in course</b></td> - </tr> - <tr> <td bgcolor="#ffffff"> - <table width="100%" cellspacing="0" cellpadding="0" border="0"> -END + $r->print('<input type="hidden" name="refpage" value="'.$refpage.'" /></form><table class="LC_double_column"><tr><td class="LC_left_col">'); - if ($critmsgcount > 0) { - my $rowNum = 0; - my $mailcount = 1; - foreach my $msg (@critmsgs) { - if ($rowNum %2 == 1) { - $rowColor = $rowColor1; - } else { - $rowColor = $rowColor2; + my $displayed = 0; + my $totalboxes = 0; + foreach my $key (keys(%{$checkallowed})) { + if ($key =~ /_section$/) { next; } + if ($key eq 'whatsnew' ) { next; } # whatsnew check creates no box + if ($$checkallowed{$key}) { + $totalboxes ++; + } + } + my $halfway = 4; +# my $halfway = int($totalboxes/2) + $totalboxes%2; + foreach my $actionitem (@actionorder) { + if ($$checkallowed{$actionitem}) { + if ($displayed == $halfway) { + $r->print('</td><td> </td><td class="LC_right_col" >'); } - $r->print('<tr><td bgcolor="'.$rowColor.'" valign="top"><small>'.$mailcount.'. <small></td><td valign="top"><small><a href="/adm/mail?">'.$msg->{'shortsub'}.'</a> </small></td><td valign="top"><small> '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' </small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>'); - $rowNum ++; - $mailcount ++; + &display_launcher($r,$actionitem,$refpage,$checkallowed,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,\%interval,$countunread,\%expired,$expirecount,\%activated,$activecount,$crstype,$itemserror); + $displayed ++; } + } + $r->print(' + </td> + </tr> + </table> +'); +} + +#------------------------------- +# display_threshold_config +# +# Display the threshold setting screen +# +#------------------------------- + +sub display_threshold_config { + my ($r,$refpage,$threshold_titles,$cdom,$crs) = @_; + my $uname = $env{'user.name'}; + my $udom = $env{'user.dom'}; + my $cid = $env{'request.course.id'}; + my %threshold = (); + my $rowColor1 = "#ffffff"; + my $rowColor2 = "#eeeeee"; + my $rowColor; + + my @thresholditems = ("av_attempts","degdiff","numstudents"); + my %threshold_titles = &Apache::lonlocal::texthash( + av_attempts => 'Average number of attempts', + degdiff => 'Degree of difficulty', + numstudents => 'Total number of students with submissions', + ); + &get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs); + + $r->print('<br /><form name="thresholdform" method="post" action="/adm/whatsnew">'. + &Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row(). + '<th>'.&mt('Threshold Name').'</th>'."\n". + '<th>'.&mt('Current value').'</th>'."\n". + '<th>'.&mt('Change?').'</th>'."\n". + &Apache::loncommon::end_data_table_header_row()); + foreach my $type (@thresholditems) { + my $parameter = $env{'request.course.id'}.':threshold_'.$type; +# onchange is javascript to automatically check the 'Set' button. + my $onchange = 'onFocus="javascript:window.document.forms'. + "['thresholdform'].elements['".$parameter."_setparmval']". + '.checked=true;"'; + $r->print(&Apache::loncommon::start_data_table_row()."\n". + '<td>'.$threshold_titles{$type}.'</td>'."\n". + '<td>'.&Apache::lonhtmlcommon::textbox($parameter.'_value', + $threshold{$type}, + 10,$onchange).'</td>'."\n". + '<td>'. + &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval'). + '</td>'."\n". + &Apache::loncommon::end_data_table_row()); + } + $r->print(&Apache::loncommon::end_data_table()."\n". + '<br /><input type="submit" name="threshold" value="'.&mt('Save').'" /> + <input type="hidden" name="command" value="update" /> + <input type="hidden" name="refpage" value="'.$refpage.'" /> + </form>'); +} + +#------------------------------- +# display_interval_config +# +# Display the interval setting screen +# +#------------------------------- + +sub display_interval_config { + my ($r,$refpage,$interval_titles,$context) = @_; + my $setting = 'interval'; + if ($context eq 'oldroles') { + $setting = 'oldroleinterval'; + } elsif ($context eq 'newroles') { + $setting = 'newroleinterval'; + } + my $lctype = lc(&Apache::loncommon::course_type()); + my $current = &get_current($env{'user.name'},$env{'user.domain'}, + $env{'request.course.id'},$setting); + if ($context eq 'oldroles') { + $r->print('<br />'.&mt('Choose the time window to use to display roles for which access to the '.$lctype.' expired.').'<br />'); + } elsif ($context eq 'newroles') { + $r->print('<br />'.&mt('Choose the time window to use to display roles for which access to the '.$lctype.' became available.').'<br />'); } else { - $r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>No unread critical messages in course</small></i></b><br /><br /></center></td></tr>'); + $r->print('<br />'.&mt('Choose the time window to use to display resources in the '.$lctype.' with version changes.').'<br />'); + } + unless ($current eq '') { + if (ref($interval_titles->{$context}) eq 'HASH') { + $r->print(' '.&mt('Current value is "[_1]".','<b>'. + $interval_titles->{$context}->{$current}.'</b>').'<br />'); + } + } + $r->print('<br /> +<form method="post" name="intervalswitch" action="/adm/whatsnew"> +<input type="hidden" name="command" value="newinterval" /> +<input type="hidden" name="intervaltype" value="'.$context.'" /> +<input type="hidden" name="refpage" value="'.$refpage.'" />'. +&mt('Display:').' +<select name="interval"> +<option value="" selected="selected">'.&mt('Select').'</option> +'); + if (ref($interval_titles) eq 'HASH') { + if (ref($interval_titles->{$context}) eq 'HASH') { + foreach my $key (reverse sort ({$a cmp $b} (keys(%{$interval_titles->{$context}})))) { + $r->print('<option value="'.$key.'">'.&mt($interval_titles->{$context}->{$key}). + '</option>'."\n"); + } + } + } + $r->print('</select> + <input type="submit" name="display" value="'. + &mt('Save').'" /></form>'); + return; +} + +#---------------------------------------------- +# display_discussion_config +# +# Display the discussion display setting screen +# +#---------------------------------------------- + +sub display_discussion_config { + my ($r,$refpage) = @_; + my $current = &get_current($env{'user.name'},$env{'user.domain'}, + $env{'request.course.id'},'countunread'); + if ($current eq '') { + $current = 'on'; } - - $r->print('</table></td></tr></table></td></tr></table><br />'); + my %opposite = ( + 'on' => 'off', + 'off' => 'on', + ); + $r->print('<script type="text/javascript"> +function toggle_countunread(choice) { + if (choice == "unchanged") { + document.discussionswitch.command.value = ""; + } + document.discussionswitch.submit(); +} +</script>'); + $r->print('<br />' + .&mt('Choose whether or not to display a count of the number of new posts for each resource or discussion board which has unread posts.') + .'<br />' + .&mt("This can increase the time taken to gather data for the [_1]What's New Page[_2] by a few seconds.",'<i>','</i>') + .' ' + .&mt('Currently set to [_1].','<b>'.$current.'</b>.') + ); + $r->print('<br /><br /> +<form method="post" name="discussionswitch" action="/adm/whatsnew"> +<input type="hidden" name="command" value="newdiscconf" /> +<input type="hidden" name="refpage" value="'.$refpage.'" /> +<input type="hidden" name="countunread" value="'.$opposite{$current}.'" /> +'); + $r->print('<br/> + <input type="button" name="display" value="'. + &mt('Change to [_1]',&mt($opposite{$current})).'" + onclick="javascript:toggle_countunread('."'change'".')" />'. + (' ' x7). + '<input type="button" name="nochange" value="'. + &mt("No change").'" + onclick="javascript:toggle_countunread('."'unchanged'".')" /> + </form>'); + return; +} + +#--------------------------------------------------- +# courseinit_config +# +# Set page displayed when course loads after +# selecting a role in the course from the roles page. +# +#--------------------------------------------------- -## BOMBS ## - $r->print(<<END); - <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> - <tr> - <td> - <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> - <tr> - <td bgcolor="$tabbg"><b>Problems with errors</b></td> - </tr> - <tr> - <td bgcolor="#ffffff"> - <table width="100%" cellspacing="0" cellpadding="0" border="0"> +sub courseinit_config { + my ($r,$refpage,$initpage) = @_; + my ($control,$current) = &curr_courseinit(); + my @chgstate = ('userpref','coursespecific'); + my @chgentry = ('firstres','whatsnew'); + my $lctype = lc(&Apache::loncommon::course_type()); + my %lt = &Apache::lonlocal::texthash( + 'chwp' => "Choose which page will be displayed when you enter this $lctype after selecting a role.", + 'cuva' => 'Current value is determined by', + 'anis' => 'and is set to display', + 'padc' => 'Page display controlled by', + 'chce' => 'Choose '.$lctype.' entry', + 'moce' => 'Save', + ); + $r->print(<<"END"); +<br />$lt{'chwp'} +<br />$lt{'cuva'}: <b> +$$initpage{$control}</b> $lt{'anis'} <b> +$$initpage{$current}</b>.<br /><br /> +<form method="post" name="courseinitswitch" action="/adm/whatsnew"> +<input type="hidden" name="command" value="newcourseinit" /> +<input type="hidden" name="refpage" value="$refpage" /> +$lt{'padc'}: 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('<tr bgcolor="'.$rowColor.'"><td>'.$bombed{$bomb}{errorlink}.'</td></tr>'); - $bombnum ++; + foreach my $choice (@chgstate) { + my $chkstring; + if ($choice eq $control) { + $chkstring = ' checked="checked" '; + } + $r->print('<span class="LC_nobreak"><label><input type="radio" name="courseinit_control" value="'. + $choice.'"'.$chkstring.'/>'.$$initpage{$choice}. + ' </label></span>'); + } + $r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}. + ' - <br />'.$lt{'chce'}.": \n"); + foreach my $choice (@chgentry) { + my $chkstring; + if (($choice eq $current) && ($control eq 'coursespecific')) { + $chkstring = ' checked="checked" '; } + $r->print('<span class="LC_nobreak"><label><input type="radio" name="courseinit_page" value="'. + $choice.'"'.$chkstring.'/>'.$$initpage{$choice}. + ' </label></span>'); + } + $r->print('<br /><br /><input type="submit" name="display" value="'. + $lt{'moce'}.'" /></form>'); + return; +} + +sub curr_courseinit { + my $current = &get_current($env{'user.name'},$env{'user.domain'}, + $env{'request.course.id'},'courseinit'); + my $control; + if ($current) { + $control = 'coursespecific'; } else { - $r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>No problems with errors</small></i></b></center><br /></td></tr>'); + $control = 'userpref'; + my %userenv = &Apache::lonnet::get('environment', + ['course_init_display']); + if (exists($userenv{'course_init_display'})) { + $current = $userenv{'course_init_display'}; + } + unless ($current) { + $current = 'whatsnew'; + } } - $r->print('</table></td></tr></td></tr></table>'); - $r->print(' - </table> - </td> - </tr> - </table>'); - $r->print('</td></tr></table>'); + return ($control,$current); +} + +sub display_launcher { + my ($r,$action,$refpage,$checkallowed,$show,$headings,$res_title, + $tograde,$ungraded,$bombs,$bombed,$changed,$warnings,$triggered, + $newdiscussions,$unread,$msgcount,$newmsgs,$critmsgcount,$critmsgs, + $interval,$countunread,$expired,$expirecount,$activated,$activecount, + $crstype,$itemserror) = @_; + + if ($$checkallowed{$action}) { + &start_box($r,$show,$headings,$action,$refpage,$action); + if ($$show{$action}) { + if ($action eq 'handgrading') { # UNGRADED ITEMS + &display_handgrade($r,$tograde,$ungraded,$itemserror); + } elsif ($action eq 'haserrors') { # BOMBS + &display_haserrors($r,$bombs,$bombed,$res_title,$itemserror); + } elsif ($action eq 'versionchanges') { # VERSION CHANGES + &display_versionchanges($r,$changed,$res_title,$interval->{'versions'},$itemserror); + } elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS + &display_abovethreshold($r,$refpage,$warnings,$triggered, + $res_title,$itemserror); + } elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION + &display_coursediscussion($r,$newdiscussions,$unread, + $countunread,$res_title,$itemserror); + } elsif ($action eq 'coursenormalmail') { # NORMAL MESSAGES + &display_coursenormalmail($r,$msgcount,$newmsgs); + } elsif ($action eq 'coursecritmail') { # CRITICAL MESSAGES + &display_coursecritmail($r,$critmsgcount,$critmsgs); + } elsif ($action eq 'newroles') { # ACTIVATED ROLES + &display_rolechanges($r,$activecount,$activated,$interval->{'newroles'}, + $crstype); + } elsif ($action eq 'oldroles') { # EXPIRED ROLES + &display_rolechanges($r,$expirecount,$expired,$interval->{'oldroles'}, + $crstype); + } + } + &end_box($r); + } + return; } sub getitems { - my ($unread,$ungraded,$bombed,$newdiscussions,$tograde,$bombs) = @_; + my ($unread,$ungraded,$bombed,$triggered,$changed,$newdiscussions, + $tograde,$bombs,$warnings,$threshold,$cdom,$crs,$res_title,$show, + $starttime,$countunread) = @_; my $navmap = Apache::lonnavmaps::navmap->new(); - my @allres=$navmap->retrieveResources(); - my %discussiontime = &Apache::lonnet::dump('discussiontimes', - $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, - $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); - my %lastread = &Apache::lonnet::dump('nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'},'lastread'); - my %lastreadtime = (); - my @discussions = (); - my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); - - foreach (keys %lastread) { - my $key = $_; - $key =~ s/_lastread$//; - $lastreadtime{$key} = $lastread{$_}; + if (!defined($navmap)) { + my $itemserror = '<span class="LC_warning">'.&mt('An error occurred retrieving information about the course.').'<br />'.&mt('It is recommended that you [_1]re-select the course[_2].','<a href="/adm/roles">','</a>').'</span>'; + return $itemserror; + } + # 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 %resourcetracker; + my $discussiontime; + +# Resource version changes + if ($$show{'versionchanges'}) { + &checkversions($cdom,$crs,$navmap,$changed,$starttime); + } + + if ($$show{'abovethreshold'}) { + %resourcetracker = &Apache::lonnet::dump('nohist_resourcetracker', + $cdom,$crs); } + foreach my $resource (@allres) { my $result = ''; my $applies = 0; my $symb = $resource->symb(); %{$$bombed{$symb}} = (); %{$$ungraded{$symb}} = (); + %{$$triggered{$symb}} = (); + $$triggered{$symb}{numparts} = 0; + if ($resource->encrypted()) { + $$triggered{$symb}{'enclink'} = $resource->link(); + $$triggered{$symb}{'encsymb'} = $resource->shown_symb(); + } my $title = $resource->compTitle(); - my $ressymb = $symb; - if ($ressymb =~ m-(___adm/\w+/\w+)/(\d+)/bulletinboard$-) { - $ressymb = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard'; - unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { - $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|; + $$res_title{$symb} = $title; + my $ressymb = $resource->wrap_symb(); + +# Check if there are unread discussion postings + if ($$show{'coursediscussion'}) { + &check_discussions($resource,$symb,$ressymb,$title, + $newdiscussions,$unread,$countunread); + } + +# Check for ungraded problems + if ($resource->is_problem()) { + if ($$show{'handgrading'}) { + &check_handgraded($resource,$symb,$title,$cdom,$crs,$ungraded, + $tograde); } } -# Check for unread discussion postings - if (defined($discussiontime{$ressymb})) { - push(@discussions,$ressymb); - my $prevread = 0; - my $unreadcount = 0; - %{$$unread{$ressymb}} = (); - $$unread{$ressymb}{'title'} = $title; - $$unread{$ressymb}{'symb'} = $symb; - if (defined($lastreadtime{$ressymb})) { - $prevread = $lastreadtime{$ressymb}; - } - my %contrib = &Apache::lonnet::restore($ressymb,$ENV{'request.course.id'}, - $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, - $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); - if ($contrib{'version'}) { - for (my $id=1;$id<=$contrib{'version'};$id++) { - unless (($contrib{'hidden'}=~/\.$id\./) || ($contrib{'deleted'}=~/\.$id\./)) { - if ($prevread <$contrib{$id.':timestamp'}) { - $$unread{$ressymb}{$unreadcount} = $id.': '.$contrib{$id.':subject'}; - $unreadcount ++; - push(@{$newdiscussions}, $ressymb); - } - } +# Check for bombs + if ($$show{'haserrors'}) { + &check_bombed($resource,$symb,$title,$bombs,$bombed); + } + +# Maxtries and degree of difficulty for problem parts, unless handgradeable + if ($$show{'abovethreshold'}) { + &check_thresholds($resource,$symb,\%resourcetracker, + $triggered,$threshold,$warnings); + } + + } + return; +} + +sub check_discussions { + my ($resource,$symb,$ressymb,$title,$newdiscussions,$unread, + $countunread) = @_; + + if (!$resource->hasDiscussion()) { return; } + + %{$$unread{$ressymb}} = (); + $$unread{$ressymb}{'title'} = $title; + $$unread{$ressymb}{'symb'} = $symb; + if ($resource->encrypted()) { + $$unread{$ressymb}{'enclink'} = $resource->link(); + $$unread{$ressymb}{'encsymb'} = $resource->shown_symb(); + } + push(@{$newdiscussions}, $ressymb); + + $$unread{$ressymb}{'lastpost'} = $resource->last_post_time(); + + if ($countunread eq 'on') { + $$unread{$ressymb}{'unreadcount'} = + $resource->discussion_info('unread'); + } +} + +sub check_handgraded { + my ($resource,$symb,$title,$cdom,$cnum,$ungraded,$tograde) = @_; + if ($resource->is_problem()) { + my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); + my $partlist=$resource->parts(); + my $handgradeable; + foreach my $part (@$partlist) { + if ($resource->handgrade($part) eq 'yes') { + $handgradeable=1; last; + } + } + if ($handgradeable) { + my @ungraded = &Apache::bridgetask::get_queue_symb_status( + 'gradingqueue',$symb,$cdom,$cnum); + if (@ungraded > 0) { + $$ungraded{$symb}{count} = scalar(@ungraded); + $$ungraded{$symb}{title} = $title; + if ($resource->encrypted()) { + $$ungraded{$symb}{'enclink'} = $resource->link(); + $$ungraded{$symb}{'encsymb'} = $resource->shown_symb(); } + push(@{$tograde},$symb); } } + } +} -# Check for ungraded problems - if ($resource->is_problem()) { - my $ctr = 0; - my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); - my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($url,$symb); - foreach my $student (keys(%$classlist)) { - my ($uname,$udom) = split/:/,$student; - my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist); - my $submitted = 0; - my $graded = 0; - foreach (keys(%status)) { - $submitted = 1 if ($status{$_} ne 'nothing'); - $graded = 1 if ($status{$_} !~ /^correct/); - my ($foo,$partid,$foo1) = split(/\./,$_); - if ($status{'resource.'.$partid.'.submitted_by'} ne '') { - $submitted = 0; - } +sub check_bombed { + my ($resource,$symb,$title,$bombs,$bombed) = @_; + if ($resource->getErrors()) { + my $errors = $resource->getErrors(); + $errors =~ s/^,//; + my @bombs = split(/,/, $errors); + my $errorcount = scalar(@bombs); + my $errorlink = '<a href="/adm/email?display='. + &escape($bombs[0]).'">'. + $title.'</a>'; + $$bombed{$symb}{errorcount} = $errorcount; + $$bombed{$symb}{errorlink} = $errorlink; + push(@{$bombs}, $symb); + } +} + +sub check_thresholds { + my ($resource,$symb,$resourcetracker,$triggered,$threshold,$warnings) = @_; +# Compile maxtries and degree of difficulty for problem parts, unless handgradeable + my @parts = @{$resource->parts()}; + my %stats; + my %lastreset = (); + my $warning = 0; + foreach my $part (@parts) { + if ($resource->handgrade($part) eq 'yes') { + next; + } + if ($resource->is_anonsurvey($part)) { + next; + } + if ($resource->is_survey($part)) { + next; + } + %{$stats{$part}} = (); + my ($attempts,$users,$corrects,$degdiff,$av_attempts); + if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) { + $attempts = $$resourcetracker{$symb."\0".$part."\0attempts"}; + } + if (exists($$resourcetracker{$symb."\0".$part."\0users"})) { + $users = $$resourcetracker{$symb."\0".$part."\0users"}; + } + if (exists($$resourcetracker{$symb."\0".$part."\0correct"})) { + $corrects = $$resourcetracker{$symb."\0".$part."\0correct"}; + } + if ($attempts > 0) { + $degdiff = 1 - ($corrects/$attempts); + $degdiff = sprintf("%.2f",$degdiff); + } + if ($users > 0) { + $av_attempts = $attempts/$users; + $av_attempts = sprintf("%.2f",$av_attempts); + } + if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) || ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) { + $stats{$part}{degdiff} = $degdiff; + $stats{$part}{attempts} = $av_attempts; + $stats{$part}{users} = $users; + $lastreset{$part} = $$resourcetracker{$symb."\0".$part."\0resettime"}; + if ($lastreset{$part}) { + $lastreset{$part} = &Apache::lonnavmaps::timeToHumanString($lastreset{$part}); + } + $warning = 1; + } + } + if ($warning) { + $$triggered{$symb}{title} = $resource->title; + my $partcount = 0; + @{$$triggered{$symb}{text}} = (); + foreach my $part (@parts) { + if (exists($stats{$part}{users})) { + my $resetname = 'reset_'.&escape($symb."\0".$part); + my $resettitle = 'title_'.&escape($symb."\0".$part); + if (@parts > 1) { + $$triggered{$symb}{text}[$partcount] = ' + <td>'.&mt('part - ').$part.'</td>'; + } else { + $$triggered{$symb}{text}[$partcount] = ' + <td>'.&mt('single part').'</td>'; } - next if (!$submitted || !$graded); - $ctr ++; + $$triggered{$symb}{text}[$partcount] .= ' + <td>'.$stats{$part}{users}.'</td> + <td>'.$stats{$part}{attempts}.'</td> + <td>'.$stats{$part}{degdiff}.'</td> + <td>'.$lastreset{$part}.'</td> + <td><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></td>'; + $partcount ++; } - if ($ctr) { - $$ungraded{$symb}{count} = $ctr; - $$ungraded{$symb}{title} = $title; - push(@{$tograde}, $symb); + $$triggered{$symb}{numparts} = $partcount; + } + push(@{$warnings},$symb); + } +} + + +sub get_curr_thresholds { + my ($threshold,$uname,$udom,$cid,$cdom,$crs) = @_; + # set default values + %$threshold = (av_attempts => 2, + degdiff => 0.5, + numstudents => 2 + ); + my %thresholdsettings = &Apache::lonnet::dump('nohist_whatsnew',$udom, + $uname,$cid.':threshold'); + my $thresholdcount = 0; + my ($tmp) = %thresholdsettings; + unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { + foreach my $item (keys %{$threshold}) { + if (exists($thresholdsettings{$cid.':threshold_'.$item})) { + $$threshold{$item} = + $thresholdsettings{$cid.':threshold_'.$item}; + $thresholdcount ++; + } + } + } + if ($thresholdcount == 3) { + return; + } + my %coursesettings = &Apache::lonnet::dump('environment', + $cdom,$crs,'internal.threshold'); + my ($temp) = %coursesettings; + unless ($temp =~ /^(con_lost|error|no_such_host)/i) { + foreach my $item (keys %{$threshold}) { + unless (exists($thresholdsettings{$cid.':threshold_'.$item})) { + if (exists($coursesettings{'internal.threshold_'.$item})) { + $$threshold{$item} = + $coursesettings{'internal.threshold_'.$item}; + } } } + } + return; +} -# Check for bombs - if ($resource->getErrors()) { - my $errors = $resource->getErrors(); - my @bombs = split(/,/, $errors); - my $errorcount = scalar(@bombs); - my $errorlink = '<a href="/adm/email?display='. - &Apache::lonnet::escape($$bombs[0]).'">'; - $$bombed{$symb}{errorcount} = $errorcount; - $$bombed{$symb}{errorlink} = $errorlink; - push(@{$bombs}, $symb); +sub get_current { + my ($uname,$udom,$cid,$caller) = @_; + my $currvalue; + my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid. + ':'.$caller); + my ($tmp) = %settings; + unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { + $currvalue = $settings{$cid.':'.$caller}; + } + return $currvalue; +} + +sub process_reset { + my ($dom,$crs) = @_; + my $result = '<b>'.&mt('Counters reset for following problems (and parts):'). + '</b><br />'; + my @agg_types = ('attempts','users','correct'); + my %agg_titles = &Apache::lonlocal::texthash ( + attempts => 'Number of submissions', + users => 'Students with submissions', + correct => 'Number of correct submissions', + ); + my @resets = (); + my %titles = (); + foreach my $key (keys(%env)) { + next if ($key !~ /^form\.reset_(.+)$/); + my $title = &unescape($env{'form.title_'.$1}); + my $reset_item = &unescape($1); + my %curr_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item); + my %aggregates = (); + my ($symb,$part) = split(/\0/,$reset_item); + foreach my $type (@agg_types) { + $aggregates{$reset_item."\0".$type} = 0; + } + $aggregates{$reset_item."\0".'resettime'} = time; + my $putresult = &Apache::lonnet::put('nohist_resourcetracker',\%aggregates, + $dom,$crs); + if ($putresult eq 'ok') { + $result .= $title.' -part '.$part.': '; + my %new_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item); + foreach my $type (@agg_types) { + $result .= $agg_titles{$type}.' = '.$new_aggregates{$reset_item."\0".$type}.'; '; + } + $result =~ s/; $//; + $result .= '<br />'; + } else { + $result = $title.' -part '.$part.': '.&mt('Unable to reset counters to zero due to [_1]',$putresult).'.<br />'."\n"; + } + } + return $result; +} + +sub process_update { + my ($uname,$udom,$threshold_titles) = @_; + my $setoutput = '<b>'.&mt('Changes to threshold(s) for problem tracking:').'</b><br/><br />'; + foreach (keys %env) { + next if ($_!~/^form\.(.+)\_setparmval$/); + my $name = $1; + my $value = $env{'form.'.$name.'_value'}; + if ($name && defined($value) && ($value ne '')) { + my $put_result = &Apache::lonnet::put('nohist_whatsnew', + {$name=>$value},$udom,$uname); + + my ($shortname) = ($name =~ /^\Q$env{'request.course.id'}\E:threshold_(.+)$/); + if ($put_result eq 'ok') { + $setoutput.= &Apache::lonhtmlcommon::confirm_success(&mt('Set threshold for [_1] to [_2]', + '<b>'.$$threshold_titles{$shortname}.'</b>', + '<b>'.$value.'</b>').'<br />'); + } else { + $setoutput.= &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set threshold for [_1] to [_2] due to [_3].', + '<b>'.$name.'</b>','<b>'.$value.'</b>', + '<tt>'.$put_result.'</tt>').'<br />',1); + } } } -# Compile maxtries and degree of difficulty. + return &Apache::loncommon::confirmwrapper($setoutput); } -sub getmail { - my ($newmsgs,$critmsgs) = @_; +sub getnormalmail { + my ($newmsgs) = @_; # Check for unread mail in course my $msgcount = 0; - my @msgids = sort split(/\&/,&Apache::lonnet::reply - ('keys:'.$ENV{'user.domain'}.':'. - $ENV{'user.name'}.':nohist_email', - $ENV{'user.home'})); - foreach my $msgid (@msgids) { - my ($sendtime,$shortsubj,$fromname,$fromdom,$fromcid,$status)= + + my @messages = sort(&Apache::lonnet::getkeys('nohist_email')); + foreach my $message (@messages) { + my $msgid=&escape($message); + my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= &Apache::lonmsg::unpackmsgid($msgid); - if ($fromcid eq $ENV{'request.course.id'}) { + if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { if (defined($sendtime) && $sendtime!~/error/) { - my $numsendtime = $sendtime; - $sendtime = &Apache::lonlocal::locallocaltime($sendtime); if ($status eq 'new') { - $$msgcount ++; + $sendtime = &Apache::lonlocal::locallocaltime($sendtime); + $msgcount ++; + if ($shortsubj eq '') { + $shortsubj = &mt('No subject'); + } push(@{$newmsgs}, { msgid => $msgid, sendtime => $sendtime, - shortsub => &Apache::lonnet::unescape($shortsubj), + shortsub => $shortsubj, from => $fromname, fromdom => $fromdom }); @@ -507,36 +1186,826 @@ sub getmail { } } } + return $msgcount; +} +sub getcritmail { + my ($critmsgs) = @_; # Check for critical messages in course my %what=&Apache::lonnet::dump('critical'); my $result = ''; my $critmsgcount = 0; - foreach my $msgid (sort keys %what) { - my ($sendtime,$shortsubj,$fromname,$fromdom,$fromcid,$status)= - &Apache::lonmsg::unpackmsgid($_); - if ($fromcid eq $ENV{'request.course.id'}) { + foreach my $msgid (sort(keys(%what))) { + my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= + &Apache::lonmsg::unpackmsgid($msgid); + if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { if (defined($sendtime) && $sendtime!~/error/) { - my $numsendtime = $sendtime; $sendtime = &Apache::lonlocal::locallocaltime($sendtime); $critmsgcount ++; + if ($shortsubj eq '') { + $shortsubj = &mt('No subject'); + } push(@{$critmsgs}, { msgid => $msgid, sendtime => $sendtime, - shortsub => &Apache::lonnet::unescape($shortsubj), + shortsub => $shortsubj, from => $fromname, fromdom => $fromdom }); } } } - return ($msgcount,$critmsgcount); + return $critmsgcount; +} + +sub getexpired { + my ($rolechgs,$rolechgtime,$status) = @_; + my $expirecount = &getrolechanges($rolechgs,$rolechgtime,$status); + return $expirecount; +} + +sub getactivated { + my ($rolechgs,$rolechgtime,$status) = @_; + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + my $now = time(); + my $context = 'course'; + my ($permission,$allowed) = + &Apache::lonuserutils::get_permission($context); + my $viewablesec = &Apache::lonuserutils::viewable_section($permission); + my %changes=&Apache::lonnet::dump('nohist_rolelog',$cdom,$cnum); + my (%stucounted,%advcounted); + my $activatedcount = 0; + if (keys(%changes) > 0) { + foreach my $chg (sort { $b <=> $a } (keys(%changes))) { + if (ref($changes{$chg}) eq 'HASH') { + my $timestamp = $changes{$chg}{'exe_time'}; + if ($timestamp) { + if ($rolechgtime > 0) { + if ($timestamp < $rolechgtime) { + last; + } + } + if (ref($changes{$chg}{'logentry'}) eq 'HASH') { + next if ($changes{$chg}{'delflag'}); + my $start = $changes{$chg}{'logentry'}{'start'}; + my $end = $changes{$chg}{'logentry'}{'end'}; + my $section = $changes{$chg}{'logentry'}{'section'}; + my $role = $changes{$chg}{'logentry'}{'role'}; + my $uname = $changes{$chg}{'uname'}; + my $udom = $changes{$chg}{'udom'}; + next if ($end && $end <= $now); + if (($viewablesec ne '') && ($section ne '')) { + next if ($viewablesec ne $section); + } + next if ($start >= $timestamp); + if ($role eq 'st') { + $stucounted{$uname.':'.$udom.':'.$section} = $start.':'.$end; + } else { + $advcounted{$uname.':'.$udom.':'.$role.':'.$section} = $start.':'.$end; + } + my %chginfo = ( + 'section' => $section, + 'uname' => $uname, + 'udom' => $udom, + 'role' => $role, + 'status' => $status, + ); + $activatedcount ++; + push (@{$rolechgs->{$timestamp}},\%chginfo); + } + } + } + } + } + $activatedcount += &getrolechanges($rolechgs,$rolechgtime,$status,\%stucounted,\%advcounted); + return $activatedcount; +} + +sub getrolechanges { + my ($rolechgs,$rolechgtime,$status,$stucountref,$advcountref) = @_; + my (%stucounted,%advcounted); + if (ref($stucountref) eq 'HASH') { + %stucounted = %{$stucountref}; + } + if (ref($advcountref) eq 'HASH') { + %advcounted = %{$advcountref}; + } + my $withsec = 1; + my $hidepriv = 1; + my $context = 'course'; + my @statuses = ($status); + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + my $now = time(); + my ($permission,$allowed) = + &Apache::lonuserutils::get_permission($context); + my $viewablesec = &Apache::lonuserutils::viewable_section($permission); + my $classlist = &Apache::loncoursedata::get_classlist(); + my $secidx = &Apache::loncoursedata::CL_SECTION(); + my $startidx = &Apache::loncoursedata::CL_START(); + my $endidx = &Apache::loncoursedata::CL_END(); + my $rolechgcount = 0; + foreach my $key (keys(%{$classlist})) { + my ($userstatus,$eventtime); + my $student = $classlist->{$key}; + if (ref($student) eq 'ARRAY') { + my $start = $student->[$startidx]; + my $end = $student->[$endidx]; + my $sec = $student->[$secidx]; + my ($stuname,$studom) = split(/:/,$key); + if ($status eq 'active') { + if (exists($stucounted{$key.':'.$sec})) { + next; + } + } + if (($end == 0) || ($end > $start)) { + if ($start <= $now) { + if ($end && $end < $now) { + if ($rolechgtime > 0) { + if ($end > $rolechgtime) { + $userstatus = 'previous'; + } + } else { + $userstatus = 'previous'; + } + } else { + if ($rolechgtime > 0) { + if ($start >= $rolechgtime) { + $userstatus = 'active'; + } + } else { + $userstatus = 'active'; + } + } + } + } + next if ($userstatus ne $status); + if ($status eq 'active') { + $eventtime = $start; + } else { + $eventtime = $end; + } + if (($viewablesec ne '') && ($sec ne '')) { + next if ($viewablesec ne $sec); + } + my %chginfo = ( + 'section' => $sec, + 'uname' => $stuname, + 'udom' => $studom, + 'role' => 'st', + 'status' => $userstatus, + ); + $rolechgcount ++; + push (@{$rolechgs->{$eventtime}},\%chginfo); + } + } + my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef, + \@statuses,undef,undef,$withsec,$hidepriv); + foreach my $item (keys(%advrolehash)) { + my ($userstatus,$eventtime); + my ($uname,$udom,$role,$section) = split(/:/,$item,-1); + my ($start,$end) = split(/:/,$advrolehash{$item}); + if ($start eq '-1' && $end eq '-1') { + next; + } else { + if ($status eq 'active') { + if (exists($advcounted{$item})) { + next; + } + } + if (($end == 0) || ($end > $start)) { + if ($start <= $now) { + if ($end && $end < $now) { + if ($rolechgtime > 0) { + if ($end > $rolechgtime) { + $userstatus = 'previous'; + } + } else { + $userstatus = 'previous'; + } + } else { + if ($rolechgtime > 0) { + if ($start >= $rolechgtime) { + $userstatus = 'active'; + } + } else { + $userstatus = 'active'; + } + } + } + } + next if ($userstatus ne $status); + if ($status eq 'active') { + $eventtime = $start; + } else { + $eventtime = $end; + } + } + if (($viewablesec ne '') && ($section ne '')) { + next if ($viewablesec ne $section); + } + my %chginfo = ( + 'section' => $section, + 'uname' => $uname, + 'udom' => $udom, + 'role' => $role, + 'status' => $userstatus, + ); + $rolechgcount ++; + push (@{$rolechgs->{$eventtime}},\%chginfo); + } + return $rolechgcount; +} + +sub checkversions { + my ($cdom,$crs,$navmap,$changed,$starttime) = @_; + my %changes=&Apache::lonnet::dump('versionupdate',$cdom,$crs); + my ($tmp) = keys(%changes); + unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { + if (keys(%changes) > 0) { + foreach my $key (sort(keys(%changes))) { + if ($changes{$key} > $starttime) { + my $version; + my ($root,$extension)=($key=~/^(.*)\.(\w+)$/); + my $currentversion=&Apache::lonnet::getversion($key); + my $revdate = + &Apache::lonnet::metadata($root.'.'.$extension, + 'lastrevisiondate'); + $revdate = &Apache::lonlocal::locallocaltime($revdate); + my $linkurl=&Apache::lonnet::clutter($key); + my $usedversion=$navmap->usedVersion('version_'.$linkurl); + my @resources = $navmap->getResourceByUrl($linkurl,1); + if (($usedversion) && ($usedversion ne 'mostrecent')) { + $version = $usedversion; + } else { + $version = $currentversion; + } + foreach my $res (@resources) { + if (ref($res) eq 'Apache::lonnavmaps::resource') { + my $symb = $res->symb(); + %{$$changed{$symb}} = ( + current => $currentversion, + version => $version, + revdate => $revdate, + ); + } + } + } + } + } + } + return; +} + +sub display_handgrade { + my ($r,$tograde,$ungraded,$itemserror) = @_; + my %lt = &Apache::lonlocal::texthash( + 'prna' => 'Problem Name', + 'nmun' => 'Number ungraded', + 'nopr' => 'No problems require handgrading', + ); + if (@{$tograde} > 0) { + $r->print('<tr class="LC_info_row"><td class="LC_left_item">'. + $lt{'prna'}.'</td><td class="LC_right_item">'. + $lt{'nmun'}.'</td></tr>'); + my $rowNum = 0; + foreach my $res (@{$tograde}) { + $rowNum ++; + my $css_class = $rowNum%2?' class="LC_odd_row"':''; + my $linkurl='/adm/grades'; + if ($$ungraded{$res}{'enclink'}) { + $linkurl.='?symb='.$$ungraded{$res}{'encsymb'}; + } else { + $linkurl.='?symb='.&escape($res); + } + $linkurl.='&command=ungraded'; + $r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'.$$ungraded{$res}{title}.'</a></td><td class="LC_right_item">'.$$ungraded{$res}{count}.'</td></tr>'); + } + } elsif ($itemserror) { + $r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); + } else { + $r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); + } +} + +sub display_haserrors { + my ($r,$bombs,$bombed,$res_title,$itemserror) = @_; + my $bombnum = 0; + my %lt = &Apache::lonlocal::texthash( + reso => 'Resource', + nmer => 'Number of errors', + noer => 'No problems with errors', + ); + if (@{$bombs} > 0) { + $r->print('<tr class="LC_info_row"><td class="LC_left_item">'. + $lt{'reso'}.'</td><td class="LC_right_item">'. + $lt{'nmer'}.'</td></tr>'); + @{$bombs} = sort { &cmp_title($a,$b,$res_title) } @{$bombs}; + foreach my $bomb (@{$bombs}) { + $bombnum ++; + my $css_class = $bombnum%2?' class="LC_odd_row"':''; + $r->print('<tr'.$css_class.'><td>'.$$bombed{$bomb}{errorlink}. + '</td><td class="LC_right_item">'. + $$bombed{$bomb}{errorcount}.'</td></tr>'); + } + } elsif ($itemserror) { + $r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); + } else { + $r->print('<tr class="LC_empty_row"><td>'.$lt{'noer'}.'</td></tr>'); + } + return; +} + +sub display_abovethreshold { + my ($r,$refpage,$warnings,$triggered,$res_title,$itemserror) = @_; + my %lt = &Apache::lonlocal::texthash( + reso => 'Resource', + part => 'Part', + nust => 'Num. students', + avat => 'Av. Attempts', + dedi => 'Deg. Diff', + lare => 'Last Reset', + reco => 'Reset Count?', + rese => 'Reset counters to 0', + nopr => 'No problems satisfy threshold criteria', + ); + if (@{$warnings} > 0) { + @{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings}; + $r->print('<form name="reset_tracking" method="post" action="/adm/whatsnew">'. + ' <input type="hidden" name="command" value="reset" />'."\n". + ' <input type="hidden" name="refpage" value="'.$refpage.'" />'. + "\n"); + $r->print('<tr class="LC_info_row">'. + '<td class="LC_left_item">'.$lt{'reso'}.'</td>'. + '<td>'.$lt{'part'}.'</td><td>'.$lt{'nust'}.'</td>'. + '<td>'.$lt{'avat'}.'</td><td>'.$lt{'dedi'}.'</td>'. + '<td>'.$lt{'lare'}.'</td><td class="LC_right_item">'. + $lt{'reco'}.'</td></tr>'); + my $row; + foreach my $res (@{$warnings}) { + $row++; + my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); + my $linkurl=&Apache::lonnet::clutter($url); + my $rowspan; + if ($$triggered{$res}{numparts} > 1) { + $rowspan = 'rowspan="'.$$triggered{$res}{numparts}.'"'; + } + $linkurl .= '?symb='.&escape($res); + if ($$triggered{$res}{'enclink'}) { + $linkurl = + $$triggered{$res}{'enclink'}.'?symb='.$$triggered{$res}{'encsymb'}; + } + my $css_class = $row%2?' class="LC_odd_row"':''; + $r->print('<tr'.$css_class.'>'. + '<td class="LC_first_item" '.$rowspan.'><a href="'.$linkurl.'">'. + $$triggered{$res}{title}.'</a></td>'); + if (ref($$triggered{$res}{text}) eq 'ARRAY') { + $r->print($$triggered{$res}{text}[0]); + } + $r->print('</tr>'); + if (ref($$triggered{$res}{text}) eq 'ARRAY') { + if (@{$$triggered{$res}{text}} > 1) { + for (my $i=1; $i<@{$$triggered{$res}{text}}; $i++) { + $r->print('<tr class="'.$css_class.'">'. + $$triggered{$res}{text}[$i].'</tr>'); + } + } + } + } + $r->print('<tr class="LC_info_row"><td colspan="7" class="LC_right_item"><br /><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></td></tr></form>'); + } elsif ($itemserror) { + $r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); + } else { + $r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); + } +} + +sub display_versionchanges { + my ($r,$changed,$res_title,$interval,$itemserror) = @_; + my %lt = &Apache::lonlocal::texthash( + 'reso' => 'Resource', + 'revd' => 'Last revised', + 'newv' => 'New version', + 'veru' => 'Version used', + ); + if (keys(%{$changed}) > 0) { + $r->print('<tr class="LC_info_row"><td class="LC_left_item">'. + $lt{'reso'}.'</td><td>'.$lt{'revd'}.'</td><td>'. + $lt{'newv'}.'</td><td class="LC_right_item">'. + $lt{'veru'}.'</td></tr>'); + my @changes = sort { &cmp_title($a,$b,$res_title) } keys(%{$changed}); + my $changenum = 0; + foreach my $item (@changes) { + $changenum ++; + my $css_class = $changenum%2?' class="LC_odd_row"':''; + my ($map,$id,$url)=&Apache::lonnet::decode_symb($item); + my $linkurl=&Apache::lonnet::clutter($url); + $linkurl .= '?symb='.&escape($item); + + $r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'. + $$res_title{$item}.'</a></td><td>'. + $$changed{$item}{'revdate'}.'</td><td>'. + $$changed{$item}{'current'}.'</td><td>'. + $$changed{$item}{'version'}.'</td></tr>'); + } + } elsif ($itemserror) { + $r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); + } else { + $r->print('<tr class="LC_empty_row"><td>' + .&mt('No '.$interval).'</td></tr>'); + } + return; +} + +sub display_rolechanges { + my ($r,$chgcount,$changed,$interval,$crstype) = @_; + my $now = time(); + my %lt = &Apache::lonlocal::texthash( + 'user' => 'User', + 'tich' => 'Time of change', + 'role' => 'Role', + 'sec' => 'Section', + 'status' => 'Status', + ); + if ($chgcount) { + $r->print('<tr class="LC_info_row">'. + '<td class="LC_left_item">'.$lt{'tich'}.'</td>'. + '<td class="LC_left_item">'.$lt{'user'}.'</td>'. + '<td class="LC_left_item">'.$lt{'role'}.'</td>'. + '<td class="LC_left_item">'.$lt{'sec'}.'</td>'. + '<td class="LC_left_item">'.$lt{'status'}.'</td></tr>'); + if (ref($changed) eq 'HASH') { + my @changes = sort { $b <=> $a } (keys(%{$changed})); + my $changenum = 0; + foreach my $item (@changes) { + if (ref($changed->{$item}) eq 'ARRAY') { + foreach my $chg (@{$changed->{$item}}) { + if (ref($chg) eq 'HASH') { + my $section; + my $role = + &Apache::lonnet::plaintext($chg->{'role'},$crstype); + my $status = &mt($chg->{'status'}); + if ($chg->{'section'} eq '') { + $section = &mt('none'); + } else { + $section = $chg->{'section'}; + } + my $uname = $chg->{'uname'}; + my $udom = $chg->{'udom'}; + $changenum ++; + my $css_class = $changenum%2?' class="LC_odd_row"':''; + my $link = + &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom); + $r->print('<tr'.$css_class.'>'. + '<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'. + '<td>'.$link.'</td>'. + '<td>'.$role.'</td>'. + '<td>'.$section.'</td>'. + '<td>'.$status.'</td></tr>'); + } + } + } + } + } + } else { + $r->print('<tr class="LC_empty_row"><td>' + .&mt('There are no '.$interval).'</td></tr>'); + } + return; +} + +sub display_coursediscussion { + my ($r,$newdiscussions,$unread,$countunread,$res_title,$itemserror) = @_; + my $lctype = lc(&Apache::loncommon::course_type()); + my %lt = &Apache::lonlocal::texthash( + 'loca' => 'Location', + 'type' => 'Type', + 'numn' => 'Number of new posts', + 'noun' => 'No unread posts in '.$lctype.' discussions', + 'tmlp' => 'Time of last post', + ); + if (@{$newdiscussions} > 0) { + $r->print('<tr class="LC_info_row"><td class="LC_left_item">'. + $lt{'loca'}.'</td><td>'. + $lt{'type'}.'</td>'); + if ($countunread eq 'on') { + $r->print('<td>'.$lt{'tmlp'}.'</td>'. + '<td class="LC_right_item">'.$lt{'numn'}.'</td>'); + } else { + $r->print('<td class="LC_right_item">'.$lt{'tmlp'}.'</td>'); + } + $r->print("</tr>\n"); + @{$newdiscussions} = sort { &cmp_title($a,$b,$res_title) } + @{$newdiscussions}; + my $rowNum = 0; + foreach my $ressymb (@{$newdiscussions}) { + $rowNum ++; + my $forum_title = $$unread{$ressymb}{'title'}; + my $type = 'Resource'; + my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb); + my $disclink = $feedurl.'?symb='.$$unread{$ressymb}{symb}; + if ($feedurl =~ /bulletinboard/) { + $type = 'Discussion Board'; + } + if ($$unread{$ressymb}{'enclink'}) { + $disclink = $$unread{$ressymb}{'enclink'}.'?symb='.$$unread{$ressymb}{'encsymb'}; + } + my $css_class = $rowNum%2?' class="LC_odd_row"':''; + my $lastpost = &Apache::lonnavmaps::timeToHumanString( + $$unread{$ressymb}{'lastpost'}); + $r->print('<tr'.$css_class.'><td><a href="'.$disclink.'">'.$forum_title.'</a> </td><td>'.&mt($type).' </td>'); + if ($countunread eq 'on') { + my $unreadnum = $$unread{$ressymb}{'unreadcount'}; + $r->print('<td>'.$lastpost.'</td><td class="LC_right_item">'. + $unreadnum.' </td>'); + } else { + $r->print('<td class="LC_right_item">'.$lastpost.'</td>'); + } + $r->print("</tr>\n"); + } + } elsif ($itemserror) { + $r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); + } else { + $r->print('<tr class="LC_empty_row"><td>'.$lt{'noun'}.'</td></tr>'); + } +} + +sub display_coursenormalmail { + my ($r,$msgcount,$newmsgs) = @_; + my $lctype = lc(&Apache::loncommon::course_type()); + if ($msgcount > 0) { + $r->print('<tr class="LC_info_row"><td class="LC_left_item">'. + &mt('Number').'</td><td>'.&mt('Subject').'</td><td>'. + &mt('Sender').'</td><td class="LC_right_item">'. + &mt('Date/Time').'</td></tr>'); + my $mailcount = 0; + foreach my $msg (@{$newmsgs}) { + $mailcount ++; + my $css_class = $mailcount%2?' class="LC_odd_row"':''; + $r->print('<tr'.$css_class.'><td>'.$mailcount + .'. </td><td><a href="/adm/email?display=' + .$msg->{'msgid'}.'">' + .$msg->{'shortsub'}.'</a> </td><td> ' + .$msg->{'from'}.':'.$msg->{'fromdom'}.' </td><td>' + .$msg->{'sendtime'}.'</td></tr>'); + } + } else { + $r->print('<tr class="LC_empty_row"><td>'. + &mt('No new '.$lctype.' messages').'</td></tr>'); + } +} + +sub display_coursecritmail { + my ($r,$critmsgcount,$critmsgs) = @_; + my $lctype = lc(&Apache::loncommon::course_type()); + if ($critmsgcount > 0) { + $r->print('<tr class="LC_info_row"><td class="LC_left_item">'. + &mt('Number').'</td><td>'.&mt('Subject').'</td><td>'. + &mt('Sender').'</td><td class="LC_right_item">'. + &mt('Date/Time').'</td></tr>'); + my $mailcount = 0; + foreach my $msg (@{$critmsgs}) { + $mailcount ++; + my $css_class = $mailcount%2?' class="LC_odd_row"':''; + $r->print('<tr'.$css_class.'><td>'.$mailcount. + '. </td><td><a href="/adm/email?folder=critical">'. + $msg->{'shortsub'}.'</a> </td><td> '. + $msg->{'from'}.':'.$msg->{'fromdom'}.' </td><td>'. + $msg->{'sendtime'}.'</td></tr>'); + } + } else { + $r->print('<tr class="LC_empty_row"><td>'. + &mt('No unread critical messages in '.$lctype). + '</td></tr>'); + } } sub cmp_title { - my ($atitle,$btitle) = (lc($_[0]->compTitle),lc($_[1]->compTitle)); + my ($a,$b,$res_title) = @_; + my ($atitle,$btitle) = (lc($$res_title{$a}),lc($$res_title{$b})); $atitle=~s/^\s*//; $btitle=~s/^\s*//; return $atitle cmp $btitle; } +sub get_display_settings { + my ($uname,$udom,$cid) = @_; + my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid); + my ($tmp) = keys(%settings); + if ($tmp=~ /^(con_lost|error|no_such_host)/i) { + %settings = (); + unless ($tmp =~ /^error: 2 /) { + my $lctype = lc(&Apache::loncommon::course_type()); + &Apache::lonnet::logthis('Error retrieving whatsnew settings: '. + $tmp.' for '.$uname.':'.$udom.' for '.$lctype.': '.$cid); + } + } + return %settings; +} + +sub store_display_settings { + my ($uname,$udom,$cid,$checkallowed) = @_; + my %whatsnew_settings; + my $result; + foreach my $key (keys(%{$checkallowed})) { + if ($key =~ /_section$/) { next; } + if (exists($env{'form.display_'.$key})) { + unless ($env{'form.display_'.$key} eq '') { + $whatsnew_settings{$cid.':'.$key} = $env{'form.display_'.$key}; + } + } + } + if (keys(%whatsnew_settings)) { + $result = &Apache::lonnet::put('nohist_whatsnew',\%whatsnew_settings, + $udom,$uname); + } else { + $result = 'ok'; + } + return $result; +} + +sub store_interval_setting { + my ($uname,$udom,$cid,$interval_titles) = @_; + my %interval_settings = (); + my $result; + my $context = $env{'form.intervaltype'}; + if ($env{'form.interval'} ne '') { + if ($context eq 'oldroles') { + $interval_settings{$cid.':oldroleinterval'} = $env{'form.interval'}; + } elsif ($context eq 'newroles') { + $interval_settings{$cid.':newroleinterval'} = $env{'form.interval'}; + } else { + $interval_settings{$cid.':interval'} = $env{'form.interval'}; + } + my $outcome = &Apache::lonnet::put('nohist_whatsnew', + \%interval_settings,$udom,$uname); + if ($outcome eq 'ok') { + if (ref($interval_titles->{$context}) eq 'HASH') { + $result = &Apache::lonhtmlcommon::confirm_success(&mt('New filter setting: [_1].','<b>'. + $interval_titles->{$context}->{$env{'form.interval'}}.'</b>').'<br />'); + } + } else { + my $lctype = lc(&Apache::loncommon::course_type()); + &Apache::lonnet::logthis('Error saving whatsnew '.$context.' interval setting'. + ' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); + $result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set interval to [_1] due to [_2].', + '<b>'.$interval_titles->{$context}->{$env{'form.interval'}}.'</b>', + '<tt>'.$outcome.'</tt>'),1); + } + } + return &Apache::loncommon::confirmwrapper($result); +} + +sub store_discussion_setting { + my ($uname,$udom,$cid) = @_; + my %discussion_settings; + my $result; + if (defined($env{'form.countunread'})) { + $discussion_settings{$cid.':countunread'} = $env{'form.countunread'}; + my $outcome = &Apache::lonnet::put('nohist_whatsnew', + \%discussion_settings,$udom,$uname); + if ($outcome eq 'ok') { + $result = &Apache::lonhtmlcommon::confirm_success(&mt('Count unread posts in discussions display set to [_1]', + '<b>'.&mt($env{'form.countunread'}).'</b>').'<br />'); + + } else { + my $lctype = lc(&Apache::loncommon::course_type()); + &Apache::lonnet::logthis('Error saving whatsnew countunread setting'. + ' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); + $result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set "number unread posts display" to [_1]'. + ' due to [_2].', + '<b>'.&mt($env{'form.countunread'}).'</b>', + '<tt>'.$outcome.'</tt>'),1); + } + } + return &Apache::loncommon::confirmwrapper($result); +} + +sub store_courseinit_setting { + my ($uname,$udom,$cid,$initpage) = @_; + my %courseinit_settings; + my $page_control; + my $result; + if (defined($env{'form.courseinit_control'})) { + if ($env{'form.courseinit_control'} eq 'userpref') { + $courseinit_settings{$cid.':courseinit'} = ''; + $page_control = 'global preferences'; + } else { + if (defined($env{'form.courseinit_page'})) { + $courseinit_settings{$cid.':courseinit'} = + $env{'form.courseinit_page'}; + $page_control = 'course specific setting'; + } + } + if ($page_control) { + my $lctype = lc(&Apache::loncommon::course_type()); + my $outcome = &Apache::lonnet::put('nohist_whatsnew', + \%courseinit_settings,$udom,$uname); + if ($outcome eq 'ok') { + if ($page_control eq 'global preferences') { + $result = &Apache::lonhtmlcommon::confirm_success(&mt("Page displayed after role selection in $lctype now set by [_1]user's global preferences[_2].",'<b>','</b>')); + } else { + $result = &Apache::lonhtmlcommon::confirm_success(&mt('Page displayed after role selection in this '.$lctype.' set to [_1].' + ,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>')); + } + } else { + &Apache::lonnet::logthis('Error saving whatsnew courseinit '. + 'setting: '.$outcome.' for '.$uname. + ':'.$udom.' in '.$lctype.' '.$cid); + if ($page_control eq 'global preferences') { + $result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set control of page display to [_1]'. + ' due to [_2].', + '<b>'.$page_control.'</b>', + '<tt>'.$outcome.'</tt>'),1); + } else { + $result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set page display, after role selection, for this '.$lctype.' to [_1] due to [_2].' + ,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>' + ,'<tt>'.$outcome.'</tt>'),1); + } + } + } + } + return &Apache::loncommon::confirmwrapper($result); +} + +sub start_box { + my ($r,$show,$heading,$caller,$refpage) = @_; + my %lt = &Apache::lonlocal::texthash( + chth => 'Change thresholds?', + chin => 'Change interval?', + chop => 'Change options?', + ); + my $showhide; + if ($$show{$caller}) { + $showhide = '<b><a href="javascript:change_display(document.visible.'. + 'display_'.$caller.",'hide'".');">'. + &mt('Hide').'</a></b>'; + + } else { + $showhide = '<b><a href="javascript:change_display(document.visible.'. + 'display_'.$caller.",'show'".');">'. + &mt('Show').'</a></b>'; + } + + $r->print(' + <table class="LC_nested_outer"> + <tr> + <th class="LC_left_item">'.$$heading{$caller}.'</th> + <th class="LC_right_item">'.$showhide.'</th> + </tr>'); + if (($caller eq 'abovethreshold') && ($$show{$caller})) { + if ($$show{$caller}) { + $r->print(' + <tr> + <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'">'.$lt{'chth'}.'</a></td> + </tr>'); + } + } elsif (($caller eq 'versionchanges') && ($$show{$caller})) { + if ($$show{$caller}) { + $r->print(' + <tr> + <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chginterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> + </tr>'); + } + } elsif ($caller eq 'coursediscussion') { + if ($$show{$caller}) { + $r->print(' + <tr> + <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgdisc&refpage='.$refpage.'">'.$lt{'chop'}.'</a></td> + </tr>'); + } + } elsif (($caller eq 'newroles') && ($$show{$caller})) { + if ($$show{$caller}) { + $r->print(' + <tr> + <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgnewroleinterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> + </tr>'); + } + } elsif (($caller eq 'oldroles') && ($$show{$caller})) { + if ($$show{$caller}) { + $r->print(' + <tr> + <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgoldroleinterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> + </tr>'); + } + } + $r->print(' + <tr> + <td colspan="2"> + <table class="LC_nested"> +'); + return; +} + +sub end_box { + my ($r) = shift; + $r->print(' + </table> + </td> + </tr> +</table><br />'); + return; +} + +1;