loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.4 and 1.38.2.2

-version 1.4, 2005/04/07 04:22:03
+version 1.38.2.2, 2005/12/22 22:39:49
  Line 35  use Apache::lonhtmlcommon();
  use Apache::lonlocal;
  use Apache::loncoursedata();
  use Apache::lonnavmaps();
+ use Apache::lonuserstate;
  use Apache::Constants qw(:common :http);
  use Time::Local;
+ use GDBM_File;
  #----------------------------
  # handler
- Line 45  use Time::Local;
+ Line 47  use Time::Local;
  sub handler {
      my $r = shift;
+     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']);
-     my $command = $ENV{'form.command'};
+     my $command = $env{'form.command'};
-     if ($command eq '') {
-         $command = "info";
-     }
-     $r->print(&display_header());
+     &Apache::loncommon::content_type($r,'text/html');
-     if (! (($ENV{'request.course.fn'}) && (&Apache::lonnet::allowed('vsa',$ENV{'request.course.id'})))) {
+     $r->send_http_header;
-         # Not in a course, or not allowed to modify parms
+     if (! (($env{'request.course.fn'}) && (&Apache::lonnet::allowed('bre',$env{'request.course.id'})))) {
-         $ENV{'user.error.msg'}="/adm/whatsnew:vsa:0:0:Cannot display student activity";
+         # Not in a course, or not allowed to view action items
+         $env{'user.error.msg'}="/adm/whatsnew:bre:0:0:Cannot display what's new screen";
          return HTTP_NOT_ACCEPTABLE;
      }
-     &display_main_box($r,$command);
+     my %checkallowed = (
+              coursediscussion => &Apache::lonnet::allowed('pch',$env{'request.course.id'}),
+              handgrading => &Apache::lonnet::allowed('mgr',$env{'request.course.id'}),
+              abovethreshold => &Apache::lonnet::allowed('vgr',$env{'request.course.id'}),
+              haserrors => &Apache::lonnet::allowed('opa',$env{'request.course.id'}),
+              versionchanges => &Apache::lonnet::allowed('opa',$env{'request.course.id'}),
+              coursenormalmail => 1,
+              coursecritmail => 1,
+     );
+     $r->print(&display_header($command,\%checkallowed));
+     &Apache::lonhtmlcommon::clear_breadcrumbs();
+     &Apache::lonhtmlcommon::add_breadcrumb
+             ({href=>'/adm/whatsnew',
+               text=>"Display Action Items"});
+     if (($command eq 'chgthreshold') && (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {
+         &Apache::lonhtmlcommon::add_breadcrumb
+             ({href=>'/adm/whatsnew?command=chgthreshold',
+               text=>"Change thresholds"});
+         $r->print(&Apache::lonhtmlcommon::breadcrumbs
+             (undef,'Course Action Items','Course_Action_Items_Thresholds'));
+     } elsif (($command eq 'chginterval') && (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {
+         &Apache::lonhtmlcommon::add_breadcrumb
+             ({href=>'/adm/whatsnew?command=chginterval',
+               text=>"Change interval"});
+         $r->print(&Apache::lonhtmlcommon::breadcrumbs
+             (undef,'Course Action Items','Course_Action_Items_Intervals'));
+     } else {
+         $r->print(&Apache::lonhtmlcommon::breadcrumbs
+             (undef,'Course Action Items','Course_Action_Items_Display'));
+     }
+     &display_main_box($r,$command,\%checkallowed);
+     return OK;
  }
  #------------------------------
- Line 70  sub handler {
+ Line 107  sub handler {
  #------------------------------
  sub display_main_box {
-     my ($r,$command) = @_;
+     my ($r,$command,$checkallowed) = @_;
      my $domain=&Apache::loncommon::determinedomain();
-     my $tabbg=&Apache::loncommon::designparm('coordinator.tabbg',$domain);
+     my $function = &Apache::loncommon::get_users_function();
-     $r->print(<<END_OF_BLOCK);
+     my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
- <br />
- <br />
+     $r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">');
- <table width="100%" border="0" cellpadding="0" cellspacing="0">
-  <tr>
+     my %threshold_titles = (
-   <td width="100%" bgcolor="#000000">
+                          av_attempts => 'Average number of attempts',
-    <table width="100%" border="0" cellpadding="1" cellspacing="0">
+                          degdiff => 'Degree of difficulty',
-     <tr>
+                          numstudents => 'Total number of students with submissions',
-      <td width="100%" bgcolor="#000000">
+     );
-       <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
-        <tr>
+     my %interval_titles = (
-         <td colspan="2" width="100%" bgcolor="$tabbg">
+                             -1 => 'since start of course',
-          <table width="100%" border="0" cellpadding="5" cellspacing="0">
+                        2592000 => 'since last month',
-           <tr>
+=> 'since last week',
-            <td width="100%">
+=> 'since yesterday',
-             <table width="100%" border="0" cellpadding="0" cellspacing="0">
+     );
-              <tr>
-               <td>
+     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
-                <font face="arial,verdana" size="3"><b>Course Action Items</b></font></td>
+     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
-               </td>
-               <td align="right">&nbsp;
+     if (($command eq 'chgthreshold') &&
-               </td>
+                (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {
-              </tr>
+         &display_threshold_config($r,$command,$tabbg,\%threshold_titles,
-             </table>
+                                                                    $cdom,$crs);
-            </td>
+     } elsif (($command eq 'chginterval') &&
-           </tr>
+                (&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
-          </table>
+         &display_interval_config($r,\%interval_titles);
-         </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);
      } else {
-         &display_actions_box($r);
+ 	&display_actions_box($r,$tabbg,$command,\%threshold_titles,
+ 			     \%interval_titles,$cdom,$crs,$checkallowed);
      }
      $r->print(<<END_OF_BLOCK);
-               </td>
-              </tr>
-             </table>
-            </td>
-           </tr>
-          </table>
-         </td>
-        </tr>
-       </table>
-      </td>
-     </tr>
-    </table>
    </td>
   </tr>
  </table><br />
- Line 138  END_OF_BLOCK
+ Line 150  END_OF_BLOCK
  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>&nbsp;</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
  #
- Line 177  sub display_nav_box {
+ Line 158  sub display_nav_box {
  #-------------------------------
  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";
+ <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 ($$checkallowed{$item}) {
+                 $scripttag.='document.visible.display_'.$item.'.value=change'.
+                             "\n";
+             }
+         }
+         $scripttag.='document.visible.submit();
+ }
+ </script>
+ ';
+     }
      return(<<ENDHEAD);
  $html
  <head>
  <title>Course Action Items</title>
+ $scripttag
  </head>
  $bodytag
  ENDHEAD
- Line 196  ENDHEAD
+ Line 201  ENDHEAD
  #-------------------------------
  sub display_actions_box() {
-     my $r = shift;
+     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 %res_title = ();
-     my $function;
+     my %show = ();
-     if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
+     my $needitems = 0;
-         $function='coordinator';
+     my $boxcount = 0;
+     my %threshold = (
+                       av_attempts => 2,
+                       degdiff => 0.5,
+                       numstudents => 2,
+                      );
+     unless ($cid) {
+         $r->print('<br /><b><center>'.$lt{'yacc'}.'</center></b><br /><br />');
+         return;
+     }
+     if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
+             &GDBM_READER(),0640)) {
+         my $furl=$bighash{'first_url'};
+         $r->print('<font size="+1"><a href="'.$furl.'">'.$lt{'gtfr'}.
+                   '</a></font><a href="/adm/preferences?action=changecourseinit">'.
+                   '</font><br />'.$lt{'chyp'}.'</a> '.$lt{'tsup'}.'<br /><hr />');
+         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 $store_result=&store_display_settings($uname,$udom,$cid,$checkallowed);
-     my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
-     &getitems(\%unread,\%ungraded,\%bombed,\@newdiscussions,\@tograde,\@bombs);
+     unless ($store_result eq 'ok') {
-     my ($msgcount,$critmsgcount) = &getmail(\@newmsgs,\@critmsgs);
+         &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'}) {
+     if ($result) {
-         $r->print('<br /><b><center>You are accessing an invalid course</center></b><br /><br />');
+         $r->print($result.'<hr width="100%" />');
-         return;
      }
+     $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%">');
- ## UNREAD COURSE DISCUSSION POSTS ##
+     my %display_settings = &get_display_settings($uname,$udom,$cid);
-     $r->print(<<"END");
+     my $timediff = $display_settings{$cid.':interval'};
-               <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%">
+     unless (defined($timediff)) { $timediff = 604800; }
-                <tr><td>
+     my $now = time;
-                 <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%">
+     my $interval = $$interval_titles{$timediff};
-                  <tr>
+     if ($timediff == -1) {
-                   <td bgcolor="$tabbg"><b>Unread course discussion posts:</b></td>
+         $timediff = time;
-                  </tr>
+     }
-                  <tr>
+     my $starttime = $now - $timediff;
-                    <td bgcolor="#ffffff">
+     my $countunread = 1;
-                    <table cellpadding="2" cellspacing="0" border="0" width="100%">
- END
+     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) {
+     if ($$checkallowed{'abovethreshold'}) {
- #        @newdiscussions = sort { &cmp_title($a,$b) } @newdiscussions;
+         &get_curr_thresholds(\%threshold,$cdom,$crs);
-         my $rowNum = 0;
-         foreach my $ressymb (@newdiscussions) {
-             my $forum_title = $unread{$ressymb}{'title'};
- 	    my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb);
-             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>&nbsp;</td><td bgcolor="'.$rowColor.'" align="right">'.$unreadnum.'&nbsp;</td></tr>');
-                 $rowNum ++;
-             }
-         }
-     } else {
-         $r->print('<tr><td bgcolor="#ffffff"><br><center>&nbsp;<i><b><small>No unread posts in course discussions</small></b></i><br><br></td></tr>');
      }
-     $r->print('</table></td></tr></table></td></tr></table><br />');
- ## UNGRADED ITEMS ##
+     $headings{'abovethreshold'} = &mt('Problems with av. attempts').' &ge; '.$threshold{'av_attempts'}.' '.&mt('or deg. difficulty').' &ge; '.$threshold{'degdiff'}.'<br /> '.&mt('and total number of students with submissions').' &ge; '.$threshold{'numstudents'};
-     $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
-     if (@tograde > 0) {
+     my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');
-         $r->print('<tr><th bgcolor="#cccccc">Problem Name</th><th>Number ungraded</th></tr>');
-         my $rowNum = 0;
+     foreach my $key (keys(%{$checkallowed})) {
-         foreach my $res (@tograde) {
+         $show{$key} = 0;
-             if ($rowNum %2 == 1) {
+         if ($$checkallowed{$key}) {
-                 $rowColor = $rowColor1;
+             unless ($display_settings{$cid.':'.$key} eq 'hide') {
-             } else {
+                 $show{$key} = 1;
-                 $rowColor = $rowColor2;
              }
-             $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>&nbsp;&nbsp;No problems require handgrading&nbsp;&nbsp;</small><br><br></b></i></td></tr>');
      }
-     $r->print('</table></td></tr></table></td></tr></table><br />');
-     $r->print('</td><td width="5%">&nbsp;</td><td align="left" valign="top" width-"50%">');
- ## MESSAGES ##
+     foreach my $item (@actionorder) {
-     $r->print(<<END);
+         unless ($item eq 'coursenormalmail' || $item eq 'coursecritmail') {
-            <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%">
+             if ($show{$item}) {
-             <tr>
+                 $needitems = 1;
-              <td>
+                 last;
-               <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;
              }
-             $r->print('<tr><td bgcolor="'.$rowColor.'" valign="top"><small>'.$mailcount.'. &nbsp;<small></td><td valign="top"><small><a href="/adm/mail?">'.$msg->{'shortsub'}.'</a>&nbsp; &nbsp;</small></td><td valign="top"><small>&nbsp;'.$msg->{'from'}.'@'.$msg->{'fromdom'}.'&nbsp;</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 />');
+     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(<<END);
+     $r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a>
-            <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%">
+      &nbsp;&nbsp;<a href="javascript:changeAll('show');">$lt{'shal'}</a>
-             <tr>
+      <form method="post" name="visible" action="/adm/whatsnew">\n|);
-              <td>
+     foreach my $item (keys(%{$checkallowed})) {
-               <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%">
+         if ($$checkallowed{$item}) {
-                <tr>
+             $r->print('<input type="hidden" name="display_'.$item.'" />'."\n");
-                 <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
-     if ($critmsgcount > 0) {
+     $r->print('</form><br /><table border="0" width="100%" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%">');
-         my $rowNum = 0;
-         my $mailcount = 1;
+     my $displayed = 0;
-         foreach my $msg (@critmsgs) {
+     my $totalboxes = keys(%{$checkallowed});
-             if ($rowNum %2 == 1) {
+     my $halfway = int($totalboxes/2) + $totalboxes%2;
-                 $rowColor = $rowColor1;
+     foreach my $actionitem (@actionorder) {
-             } else {
+         if ($$checkallowed{$actionitem}) {
-                 $rowColor = $rowColor2;
+             if ($displayed == $halfway) {
+                 $r->print('</td><td width="5%">&nbsp;</td><td align="left" valign="top" width-"50%">');
              }
-             $r->print('<tr><td bgcolor="'.$rowColor.'" valign="top"><small>'.$mailcount.'. &nbsp;<small></td><td valign="top"><small><a href="/adm/mail?">'.$msg->{'shortsub'}.'</a>&nbsp; &nbsp;</small></td><td valign="top"><small>&nbsp;'.$msg->{'from'}.'@'.$msg->{'fromdom'}.'&nbsp;</small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>');
+             &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);
-             $rowNum ++;
+             $displayed ++;
-             $mailcount ++;
          }
-     } 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('
-     $r->print('</table></td></tr></table></td></tr></table><br />');
+            </table>
+           </td>
+          </tr>
+         </table>
+       </td>
+     </tr>
+    </table>');
+ }
- ## BOMBS ##
+ #-------------------------------
-     $r->print(<<END);
+ # display_threshold_config
-            <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%">
+ #
+ # Display the threshold setting screen
+ #
+ #-------------------------------
+ sub display_threshold_config {
+     my ($r,$command,$tabbg,$threshold_titles,$cdom,$crs) = @_;
+     my %threshold = ();
+     my $rowColor1 = "#ffffff";
+     my $rowColor2 = "#eeeeee";
+     my $rowColor;
+     my @thresholditems = ("av_attempts","degdiff","numstudents");
+     my %threshold_titles = (
+                          av_attempts => 'Average number of attempts',
+                          degdiff => 'Degree of difficulty',
+                          numstudents => 'Total number of students with submissions',
+                          );
+     &get_curr_thresholds(\%threshold,$cdom,$crs);
+     $r->print('<br /><form name="thresholdform" method="post" action="/adm/whatsnew">
+         <table border="0" cellpadding="2" cellspacing="4">
+          <tr>
+           <td align="left" valign="top" width="45%">
+            <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
              <tr>
               <td>
-               <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%">
+                <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000">
-                <tr>
+                 <tr>
-                 <td bgcolor="$tabbg"><b>Problems with errors</b></td>
-                </tr>
-                <tr>
                  <td bgcolor="#ffffff">
-                  <table width="100%" cellspacing="0" cellpadding="0" border="0">
+                  <table cellspacing="0" cellpadding="4" border="0">
- END
+      <tr bgcolor="'.$tabbg.'">
-     my $bombnum = 0;
+       <th>Threshold Name</th>
-     if (@bombs > 0) {
+       <th>Current value</th>
- #        @bombs = sort { &cmp_title($a,$b) } @bombs;
+       <th>Change?</th>
-         foreach my $bomb (@bombs) {
+      </tr>');
-             if ($bombnum %2 == 1) {
+     my $rowNum =0;
-                 $rowColor = $rowColor1;
+     foreach my $type (@thresholditems) {
-             } else {
+         my $parameter = 'internal.threshold_'.$type;
-                 $rowColor = $rowColor2;
+ # onchange is javascript to automatically check the 'Set' button.
+         my $onchange = 'onFocus="javascript:window.document.forms'.
+               "['thresholdform'].elements['".$parameter."_setparmval']".
+               '.checked=true;"';
+         if ($rowNum %2 == 1) {
+             $rowColor = $rowColor1;
+         } else {
+             $rowColor = $rowColor2;
+         }
+         $r->print('
+      <tr bgcolor="'.$rowColor.'">
+       <td>'.$threshold_titles{$type}.'</td>
+       <td>'.&Apache::lonhtmlcommon::textbox($parameter.'_value',
+                                             $threshold{$type},
+,$onchange).'</td>
+       <td>'
+            .&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
+       '</td>
+      </tr>');
+         $rowNum ++;
+     }
+     $r->print('</table></td></tr></table></td></tr></table>
+            <br /><input type="submit" name="threshold" value="Make changes" />
+                  <input type="hidden" name="command" value="update" />
+                </form>');
+ }
+ #-------------------------------
+ # display_interval_config
+ #
+ # Display the interval setting screen
+ #
+ #-------------------------------
+ sub display_interval_config {
+     my ($r,$interval_titles) = @_;
+     my $current = &get_curr_interval($env{'user.name'},
+                                 $env{'user.domain'},$env{'request.course.id'});
+     $r->print('<br />'.&mt('Choose the time window to use for display of version changes for resources in the course.'));
+     unless ($current eq '') {
+         $r->print(' '.&mt('Current value is ').$$interval_titles{$current}.'<br /><br />');
+     }
+     $r->print('<br /><br />
+ <form method="post" name="intervalswitch" action="/adm/whatsnew">
+ <input type="hidden" name="command" value="newinterval" />
+ <select name="interval">
+ ');
+     foreach my $key (reverse sort ({$a cmp $b} (keys(%{$interval_titles})))) {
+         $r->print('<option value="'.$key.'">Version changes '.$$interval_titles{$key}.
+                   '</option>'."\n");
+     }
+     $r->print('</select>&nbsp;&nbsp;
+                <input type="submit" name="display" value="'.
+                &mt('Change interval').'" /></form>');
+     return;
+ }
+ sub display_launcher {
+     my ($r,$action,$checkallowed,$tabbg,$rowColor1,$rowColor2,$show,
+         $headings,$res_title,$tograde,$ungraded,$bombs,$bombed,$changed,
+         $warnings,$triggered,$newdiscussions,$unread,$msgcount,$newmsgs,
+                           $critmsgcount,$critmsgs,$interval,$countunread) = @_;
+     if ($$checkallowed{$action}) {
+         &start_box($r,$tabbg,$show,$headings,$action);
+         if ($$show{$action}) {
+             if ($action eq 'handgrading') {    # UNGRADED ITEMS
+                 &display_handgrade($r,$tograde,$rowColor1,$rowColor2,
+                                                                     $ungraded);
+             } elsif ($action eq 'haserrors') { # BOMBS
+                 &display_haserrors($r,$bombs,$rowColor1,$rowColor2,$bombed,
+                                                                    $res_title);
+             } elsif ($action eq 'versionchanges') { # VERSION CHANGES
+                 &display_versionchanges($r,$changed,$res_title,$rowColor1,
+                                                          $rowColor2,$interval);
+             } elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS
+                 &display_abovethreshold($r,$warnings,$triggered,$res_title,
+                                                         $rowColor1,$rowColor2);
+             } elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION
+                 &display_coursediscussion($r,$newdiscussions,$unread,
+                                 $countunread,$res_title,$rowColor1,$rowColor2);
+             } elsif ($action eq 'coursenormalmail') { # NORMAL MESSAGES
+                 &display_coursenormalmail($r,$msgcount,$newmsgs,$rowColor1,
+                                                                    $rowColor2);
+             } elsif ($action eq 'coursecritmail') { # CRITICAL MESSAGES
+                 &display_coursecritmail($r,$critmsgcount,$critmsgs,$rowColor1,
+                                                                    $rowColor2);
              }
-             $r->print('<tr bgcolor="'.$rowColor.'"><td>'.$bombed{$bomb}{errorlink}.'</td></tr>');
-             $bombnum ++;
          }
-     } else {
+         &end_box($r);
-         $r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>No problems with errors</small></i></b></center><br /></td></tr>');
      }
-     $r->print('</table></td></tr></td></tr></table>');
+     return;
-     $r->print('
-            </table>
-           </td>
-          </tr>
-         </table>');
-     $r->print('</td></tr></table>');
  }
  sub getitems {
-     my ($unread,$ungraded,$bombed,$newdiscussions,$tograde,$bombs) = @_;
+     my ($unread,$ungraded,$bombed,$triggered,$changed,$newdiscussions,
+         $tograde,$bombs,$warnings,$rowColor1,$rowColor2,$threshold,$cdom,$crs,
+                                  $res_title,$show,$starttime,$countunread) = @_;
      my $navmap = Apache::lonnavmaps::navmap->new();
-     my @allres=$navmap->retrieveResources();
+     # force retrieve Resource to seed the part id cache we'll need it later
-     my %discussiontime = &Apache::lonnet::dump('discussiontimes',
+     my @allres=$navmap->retrieveResources(undef,
-                $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+                      sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;});
-                $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+     my %lastreadtime;
-     my %lastread = &Apache::lonnet::dump('nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'},'lastread');
+     my %resourcetracker;
-     my %lastreadtime = ();
+     my $discussiontime;
-     my @discussions = ();
-     my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
+ # Resource version changes
+     if ($$show{'versionchanges'}) {
-     foreach my $key (keys(%lastread)) {
+         &checkversions($cdom,$crs,$navmap,$changed,$starttime);
-         my $newkey = $key;
-         $newkey =~ s/_lastread$//;
-         $lastreadtime{$newkey} = $lastread{$key};
      }
+     if ($$show{'coursediscussion'}) {
+         my %lastread = &Apache::lonnet::dump('nohist_'.
+                         $env{'request.course.id'}.'_discuss',
+                         $env{'user.domain'},$env{'user.name'},'lastread');
+         foreach my $key (keys(%lastread)) {
+             my $newkey = $key;
+             $newkey =~ s/_lastread$//;
+             $lastreadtime{$newkey} = $lastread{$key};
+         }
+     }
+     if ($$show{'abovethreshold'}) {
+         %resourcetracker =  &Apache::lonnet::dump('nohist_resourcetracker',
+                                                                    $cdom,$crs);
+     }
+     my $warningnum = 0;
      foreach my $resource (@allres) {
          my $result = '';
          my $applies = 0;
          my $symb = $resource->symb();
          %{$$bombed{$symb}} = ();
          %{$$ungraded{$symb}} = ();
+         %{$$triggered{$symb}} = ();
+         $$triggered{$symb}{numparts} = 0;
          my $title = $resource->compTitle();
-         my $ressymb = $symb;
+         $$res_title{$symb} = $title;
-         if ($ressymb =~ m-(___adm/\w+/\w+)/(\d+)/bulletinboard$-) {
+         my $ressymb = $resource->wrap_symb();
-             $ressymb = &Apache::lonfeedback::wrap_symb('bulletin___'.$2.$1.'/'.
- 						       $2.'/bulletinboard');
+ # Check if there are unread discussion postings
-         }
+         if ($$show{'coursediscussion'}) {
+             &check_discussions($cdom,$crs,$resource,$symb,$ressymb,$title,
- # Check for unread discussion postings
+                                                       $newdiscussions,$unread);
-         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 ungraded problems
          if ($resource->is_problem()) {
-             my $ctr = 0;
+             if ($$show{'handgrading'}) {
-             my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
+                 &check_handgraded($resource,$symb,$title,$cdom,$crs,$ungraded,
-             my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($url,$symb);
+                                                                      $tograde);
-             foreach my $student (keys(%$classlist)) {
+             }
-                 my ($uname,$udom) = split(/:/,$student);
+         }
-                 my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist);
-                 my $submitted = 0;
+ # Check for bombs
-                 my $graded = 0;
+         if ($$show{'haserrors'}) {
-                 foreach (keys(%status)) {
+             &check_bombed($resource,$symb,$title,$bombs,$bombed);
-                     $submitted = 1 if ($status{$_} ne 'nothing');
+         }
-                     $graded = 1 if ($status{$_} !~ /^correct/);
-                     my ($foo,$partid,$foo1) = split(/\./,$_);
+ # Maxtries and degree of difficulty for problem parts, unless handgradeable
-                     if ($status{'resource.'.$partid.'.submitted_by'} ne '') {
+         if ($$show{'abovethreshold'}) {
-                         $submitted = 0;
+             &check_thresholds($resource,$symb,\%resourcetracker,$triggered,
+                        $threshold,$warnings,$warningnum,$rowColor1,$rowColor2);
+         }
+     }
+     my $hasdiscussion = @{$newdiscussions};
+     if ($$show{'coursediscussion'} && $hasdiscussion) { # Get time of last post;
+         $discussiontime = $navmap->{DISCUSSION_TIME};
+         foreach my $ressymb (@{$newdiscussions}) {
+             $$unread{$ressymb}{'lastpost'} = $$discussiontime{$ressymb};
+         }
+         if ($countunread) { #Get count of unread postings for each resource
+             my $discussiondata = $navmap->get_discussion_data();
+             foreach my $ressymb (@{$newdiscussions}) {
+                 &get_discussions($cdom,$crs,$discussiondata,$ressymb,
+                                                        $unread,\%lastreadtime);
+             }
+         }
+     }
+ }
+ sub check_discussions {
+     my ($cdom,$crs,$resource,$symb,$ressymb,$title,$newdiscussions,
+                                                                  $unread) = @_;
+     if ($resource->hasDiscussion()) {
+         %{$$unread{$ressymb}} = ();
+         $$unread{$ressymb}{'title'} = $title;
+         $$unread{$ressymb}{'symb'} = $symb;
+         push(@{$newdiscussions}, $ressymb);
+     }
+ }
+ sub get_discussions {
+     my ($cdom,$crs,$discussiondata,$ressymb,$unread,$lastreadtime) = @_;
+     my $prevread = 0;
+     my $unreadcount = 0;
+     if (defined($$lastreadtime{$ressymb})) {
+         $prevread = $$lastreadtime{$ressymb};
+     }
+     my $version = $$discussiondata{'version:'.$ressymb};
+     if ($version) {
+         my $hiddenflag = 0;
+         my $deletedflag = 0;
+         my ($hidden,$deleted);
+         for (my $id=$version; $id>0; $id--) {
+             my $vkeys=$$discussiondata{$id.':keys:'.$ressymb};
+             my @keys=split(/:/,$vkeys);
+             if (grep/^hidden$/,@keys) {
+                 unless ($hiddenflag) {
+                     $hidden = $$discussiondata{$id.':'.$ressymb.':hidden'};
+                     $hiddenflag = 1;
+                 }
+             } elsif (grep/^deleted$/,@keys) {
+                 unless ($deletedflag) {
+                     $deleted = $$discussiondata{$id.':'.$ressymb.':deleted'};
+                     $deletedflag = 1;
+                 }
+             } else {
+                 unless (($hidden =~/\.$id\./) || ($deleted =~/\.$id\./)) {
+                     if ($prevread <$$discussiondata{$id.':'.$ressymb.':timestamp'}) {
+                         $unreadcount ++;
+                         $$unread{$ressymb}{$unreadcount} = $id.': '.
+                                  $$discussiondata{$id.':'.$ressymb.':subject'};
                      }
                  }
-                 next if (!$submitted || !$graded);
-                 $ctr ++;
              }
-             if ($ctr) {
+         }
-                 $$ungraded{$symb}{count} = $ctr;
+         $$unread{$ressymb}{'unreadcount'} = $unreadcount;
+     }
+ }
+ 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;
                  push(@{$tograde}, $symb);
              }
          }
+     }
+ }
- # Check for bombs
+ sub check_bombed {
-         if ($resource->getErrors()) {
+     my ($resource,$symb,$title,$bombs,$bombed) = @_;
-             my $errors = $resource->getErrors();
+     if ($resource->getErrors()) {
-             my @bombs = split(/,/, $errors);
+         my $errors = $resource->getErrors();
-             my $errorcount = scalar(@bombs);
+         $errors =~ s/^,//;
-             my $errorlink = '<a href="/adm/email?display='.
+         my @bombs = split(/,/, $errors);
-                             &Apache::lonnet::escape($$bombs[0]).'">';
+         my $errorcount = scalar(@bombs);
-             $$bombed{$symb}{errorcount} = $errorcount;
+         my $errorlink = '<a href="/adm/email?display='.
-             $$bombed{$symb}{errorlink} = $errorlink;
+                         &Apache::lonnet::escape($bombs[0]).'">'.
-             push(@{$bombs}, $symb);
+                         $title.'</a>';
+         $$bombed{$symb}{errorcount} = $errorcount;
+         $$bombed{$symb}{errorlink} = $errorlink;
+         push(@{$bombs}, $symb);
+     }
+ }
+ sub check_thresholds {
+     my ($resource,$symb,$resourcetracker,$triggered,$threshold,$warnings,
+                                        $warningnum,$rowColor1,$rowColor2) = @_;
+ # Compile maxtries and degree of difficulty for problem parts, unless handgradeable
+     my @parts = @{$resource->parts()};
+     my %stats;
+     my %lastreset = ();
+     my $warning = 0;
+     my $rowColor;
+     foreach my $part (@parts) {
+         if ($resource->handgrade($part) eq 'yes') {
+             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) {
+         if ($warningnum %2 == 1) {
+             $rowColor = $rowColor1;
+         } else {
+             $rowColor = $rowColor2;
+         }
+         $$triggered{$symb}{title} = $resource->title;
+         foreach my $part (@parts) {
+             if (exists($stats{$part}{users})) {
+                 my $resetname = 'reset_'.&Apache::lonnet::escape($symb."\0".$part);
+                 my $resettitle = 'title_'.&Apache::lonnet::escape($symb."\0".$part);
+                 if ($$triggered{$symb}{numparts}) {
+                     $$triggered{$symb}{text} .= '<tr bgcolor="'.$rowColor.'">'."\n";
+                 }
+                 if (@parts > 1) {
+                     $$triggered{$symb}{text} .= '
+                      <td align="right"><small>part - '.$part.'<small></td>';
+                 } else {
+                     $$triggered{$symb}{text} .= '
+                      <td align="right"><small>single part</small></td>';
+                 }
+                 $$triggered{$symb}{text} .= '
+                      <td align="right"><small>'.$stats{$part}{users}.'</small></td>
+                      <td align="right"><small>'.$stats{$part}{attempts}.'</small></td>
+                      <td align="right"><small>'.$stats{$part}{degdiff}.'</small></td>
+                      <td align="right"><small>'.$lastreset{$part}.'</small></td>
+                      <td align="right"><small><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&Apache::lonnet::escape($$triggered{$symb}{title}).'" /></td>
+                     </tr>';
+                 $$triggered{$symb}{numparts} ++;
+             }
+         }
+         push(@{$warnings},$symb);
+         $warningnum ++;
+     }
+ }
+ sub get_curr_thresholds {
+     my ($threshold,$cdom,$crs) = @_;
+     my %coursesettings = &Apache::lonnet::dump('environment',
+                                      $cdom,$crs,'internal.threshold');
+     if (exists($coursesettings{'internal.threshold_av_attempts'})) {
+         $$threshold{'av_attempts'} = $coursesettings{'internal.threshold_av_attempts'};
+     }
+     if (exists($coursesettings{'internal.threshold_degdiff'})) {
+         $$threshold{'degdiff'} = $coursesettings{'internal.threshold_degdiff'};
+     }
+     if (exists($coursesettings{'internal.threshold_numstudents'})) {
+         $$threshold{'numstudents'} = $coursesettings{'internal.threshold_numstudents'};
+     }
+ }
+ sub get_curr_interval {
+     my ($uname,$udom,$cid);
+     my $interval;
+     my %settings = &Apache::lonnet::dump('nohist_whatsnew',$uname,$udom,$cid,':interval');
+     my ($tmp) = %settings;
+     unless ($tmp =~ /^(con_lost|error|no_such_host)/i) {
+         $interval = $settings{$cid.':interval'};
+     }
+     return $interval;
+ }
+ sub process_reset {
+     my ($dom,$crs) = @_;
+     my $result = '<b>Counters reset for following problems (and parts):</b><br />';
+     my @agg_types = ('attempts','users','correct');
+     my %agg_titles = (
+                      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 = &Apache::lonnet::unescape($env{'form.title_'.$1});
+         my $reset_item = &Apache::lonnet::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";
          }
      }
- # Compile maxtries and degree of difficulty.
+     return $result;
  }
- sub getmail {
+ sub process_update {
-     my ($newmsgs,$critmsgs) = @_;
+     my ($dom,$crs,$threshold_titles) = @_;
+     my $setoutput = '<b>Changes to threshold(s) for problem tracking:</b><br />';
+     foreach (keys %env) {
+         next if ($_!~/^form\.(.+)\_setparmval$/);
+         my $name  = $1;
+         my $value = $env{'form.'.$name.'_value'};
+         if ($name && defined($value)) {
+             my $put_result = &Apache::lonnet::put('environment',
+                                                   {$name=>$value},$dom,$crs);
+             my ($shortname) = ($name =~ /^internal\.threshold_(.+)$/);
+             if ($put_result eq 'ok') {
+                 $setoutput.=&mt('Set threshold for [_1] to [_2]',
+ 				'<b>'.$$threshold_titles{$shortname}.'</b>',
+ 				'<b>'.$value.'</b>').'<br />';
+ 	    } else {
+                 $setoutput.=&mt('Unable to set threshold for [_1] to [_2] due to [_3].',
+ 				'<b>'.$name.'</b>','<b>'.$value.'</b>',
+ 				'<tt>'.$put_result.'</tt>').'<br />';
+             }
+         }
+     }
+     return $setoutput;
+ }
+ sub getnormalmail {
+     my ($newmsgs) = @_;
  # Check for unread mail in course
      my $msgcount = 0;
-     my @messages = &Apache::lonnet::getkeys('nohist_email');
+     my @messages = sort(&Apache::lonnet::getkeys('nohist_email'));
      foreach my $message (@messages) {
  	my $msgid=&Apache::lonnet::escape($message);
-         my ($sendtime,$shortsubj,$fromname,$fromdom,$fromcid,$status)=
+         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 ++;
+                     $msgcount ++;
+                     if ($shortsubj eq '') {
+                         $shortsubj = &mt('No subject');
+                     }
+                     $shortsubj = &Apache::lonnet::unescape($shortsubj);
                      push(@{$newmsgs}, {
                          msgid    => $msgid,
                          sendtime => $sendtime,
-                         shortsub => &Apache::lonnet::unescape($shortsubj),
+                         shortsub => $shortsubj,
                          from     => $fromname,
                          fromdom  => $fromdom
                          });
- Line 527  sub getmail {
+ Line 891  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)=
+         my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)=
-             &Apache::lonmsg::unpackmsgid($_);
+             &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);
                  $critmsgcount ++;
+                 if ($shortsubj eq '') {
+                     $shortsubj = &mt('No subject');
+                 }
+                 $shortsubj = &Apache::lonnet::unescape($shortsubj);
                  push(@{$critmsgs}, {
                          msgid    => $msgid,
                          sendtime => $sendtime,
-                         shortsub => &Apache::lonnet::unescape($shortsubj),
+                         shortsub => $shortsubj,
                          from     => $fromname,
                          fromdom  => $fromdom
                          });
              }
          }
      }
-     return ($msgcount,$critmsgcount);
+     return $critmsgcount;
+ }
+ 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,$rowColor1,$rowColor2,$ungraded) = @_;
+     my $rowColor;
+     my %lt = &Apache::lonlocal::texthash(
+                         'prna' => 'Problem Name',
+                         'nmun' => 'Number ungraded',
+                         'nopr' => 'No problems require handgrading',
+     );
+     if (@{$tograde} > 0) {
+         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'prna'}.'</small></b></td><td align="right"><b><small>'.$lt{'nmun'}.'</small></b></td></tr>');
+         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);
+             $r->print('<tr bgcolor="'.$rowColor.'"><td><a href="'.$linkurl.'"><small>'.$$ungraded{$res}{title}.'</small></a></td><td align="right"><small>'.$$ungraded{$res}{count}.'</small></td></tr>');
+             $rowNum ++;
+         }
+     } else {
+         $r->print('<tr><td bgcolor="#ffffff"><br><center><i><b><small>&nbsp;&nbsp;'.$lt{'nopr'}.'&nbsp;&nbsp;</small><br><br></b></i></td></tr>');
+     }
+ }
+ sub display_haserrors {
+     my ($r,$bombs,$rowColor1,$rowColor2,$bombed,$res_title) = @_;
+     my $bombnum = 0;
+     my $rowColor;
+     my %lt = &Apache::lonlocal::texthash(
+                                    reso => 'Resource',
+                                    nmer => 'Number of errors',
+                                    noer => 'No problems with errors',
+     );
+     if (@{$bombs} > 0) {
+         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'reso'}.'</small></b></td><td align="right"><b><small>'.$lt{'nmer'}.'</small></b></td></tr>');
+         @{$bombs} = sort { &cmp_title($a,$b,$res_title) } @{$bombs};
+         foreach my $bomb (@{$bombs}) {
+             if ($bombnum %2 == 1) {
+                 $rowColor = $rowColor1;
+             } else {
+                 $rowColor = $rowColor2;
+             }
+             $r->print('<tr bgcolor="'.$rowColor.'"><td><small>'.$$bombed{$bomb}{errorlink}.'</small></td><td align="right"><small>'.$$bombed{$bomb}{errorcount}.'</small></td></tr>');
+             $bombnum ++;
+         }
+     } else {
+         $r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>'.$lt{'noer'}.'</small></i></b></center><br /></td></tr>');
+     }
+     return;
+ }
+ sub display_abovethreshold {
+     my ($r,$warnings,$triggered,$res_title,$rowColor1,$rowColor2) = @_;
+     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',
+     );
+     my $rowColor;
+     my $warningnum = 0;
+     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");
+         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'reso'}.'</small></b></td><td align="right"><b><small>'.$lt{'part'}.'</small></b></td><td align="right"><b><small>'.$lt{'nust'}.'</small></b></td><td align="right"><b><small>'.$lt{'avat'}.'</small></b></td><td align="right"><b><small>'.$lt{'dedi'}.'</small></b></td><td align="right"><b><small>'.$lt{'lare'}.'</small></b></td><td align="right"><b><small>'.$lt{'reco'}.'</small></b></td></tr>');
+         foreach my $res (@{$warnings}) {
+             if ($warningnum %2 == 1) {
+                 $rowColor = $rowColor1;
+             } else {
+                 $rowColor = $rowColor2;
+             }
+             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='.&Apache::lonnet::escape($res);
+             $r->print('<tr bgcolor="'.$rowColor.'"><td '.$rowspan.'><a href="'.$linkurl.'"><small>'.$$triggered{$res}{title}.'</small></a></td>'.$$triggered{$res}{text});
+             $warningnum ++;
+         }
+         $r->print('<tr bgcolor="#cccccc"><td colspan="7" align="right"><br /><b><small><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></form>');
+     } else {
+         $r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>'.$lt{'nopr'}.'</small></i></b></center><br /></td></tr>');
+     }
+ }
+ sub display_versionchanges {
+     my ($r,$changed,$res_title,$rowColor1,$rowColor2,$interval) = @_;
+     my %lt = &Apache::lonlocal::texthash(
+         'reso' => 'Resource',
+         'revd' => 'Last revised',
+         'newv' => 'New version',
+         'veru' => 'Version used',
+         'noup' => 'No updated versions',
+     );
+     my $rowColor;
+     if (keys(%{$changed}) > 0) {
+         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'reso'}.'</small></b></td><td><b><small>'.$lt{'revd'}.'</small></b></td><td><b><small>'.$lt{'newv'}.'</small></b></td><td><b><small>'.$lt{'veru'}.'</small></b></td></tr>');
+         my @changes = sort { &cmp_title($a,$b,$res_title) } keys(%{$changed});
+         my $changenum = 0;
+         foreach my $item (@changes) {
+             if ($changenum %2 == 1) {
+                 $rowColor = $rowColor1;
+             } else {
+                 $rowColor = $rowColor2;
+             }
+             my ($map,$id,$url)=&Apache::lonnet::decode_symb($item);
+             my $linkurl=&Apache::lonnet::clutter($url);
+             $linkurl .= '?symb='.&Apache::lonnet::escape($item);
+             $r->print('<tr bgcolor="'.$rowColor.'"><td><small><a href="'.$linkurl.'">'.$$res_title{$item}.'</a></small></td><td><small>'.$$changed{$item}{'revdate'}.'</small></td><td><small>'.$$changed{$item}{'current'}.'</small></td><td><small>'.$$changed{$item}{'version'}.'</small></td></tr>');
+             $changenum ++;
+         }
+     } else {
+         $r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>'.$lt{'noup'}.' '.$interval.'</small></i></b></center><br /></td></tr>');
+     }
+     return;
+ }
+ sub display_coursediscussion {
+     my ($r,$newdiscussions,$unread,$countunread,$res_title,$rowColor1,
+                                                               $rowColor2) = @_;
+     my %lt = &Apache::lonlocal::texthash(
+                 'loca' => 'Location',
+                 'type' => 'Type',
+                 'numn' => 'Number of new posts',
+                 'noun' => 'No unread posts in course discussions',
+                 'tmlp' => 'Time of last post',
+     );
+     my $rowColor;
+     if (@{$newdiscussions} > 0) {
+         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'loca'}.
+                   '</small></b></td><td><b><small>'.$lt{'type'}.
+                   '</small></b>');
+         if ($countunread) {
+             $r->print('<td><b><small>'.$lt{'tmlp'}.'</small></b></td>'.
+                       '<td align="right"><b><small>'.$lt{'numn'}.
+                       '</small></b></td>');
+         } else {
+             $r->print('<td align="right"><b><small>'.$lt{'tmlp'}.
+                          '</small></b></td>');
+         }
+         $r->print("</tr>\n");
+         @{$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';
+             }
+             if ($rowNum %2 == 1) {
+                 $rowColor = $rowColor1;
+             } else {
+                 $rowColor = $rowColor2;
+             }
+             my $lastpost = &Apache::lonnavmaps::timeToHumanString(
+                                                $$unread{$ressymb}{'lastpost'});
+             $r->print('<tr bgcolor="'.$rowColor.'"><td><small><a href="'.$feedurl.'?symb='.$$unread{$ressymb}{symb}.'">'.$forum_title.'</a>&nbsp;</td><td><small>'.$type.'&nbsp;</small></td>');
+             if ($countunread) {
+                 my $unreadnum = $$unread{$ressymb}{'unreadcount'};
+                 $r->print('<td><small>'.$lastpost.'<small></td><td align="right">'.
+                           '<small>',$unreadnum.'&nbsp;</small></td>');
+             } else {
+                 $r->print('<td align="right"><small>'.$lastpost.'</small></td>');
+             }
+             $r->print("</tr>\n");
+             $rowNum ++;
+         }
+     } else {
+         $r->print('<tr><td bgcolor="#ffffff"><br><center>&nbsp;<i><b><small>'.
+                   $lt{'noun'}.'</small></b></i><br><br></td></tr>');
+     }
+ }
+ sub display_coursenormalmail {
+     my ($r,$msgcount,$newmsgs,$rowColor1,$rowColor2) = @_;
+     my $rowColor;
+     if ($msgcount > 0) {
+         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>');
+         my $rowNum = 0;
+         my $mailcount = 1;
+         foreach my $msg (@{$newmsgs}) {
+             if ($rowNum %2 == 1) {
+                 $rowColor = $rowColor1;
+             } else {
+                 $rowColor = $rowColor2;
+             }
+             $r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'. &nbsp;</small></td><td valign="top"><small><a href="/adm/communicate">'.$msg->{'shortsub'}.'</a>&nbsp; &nbsp;</small></td><td valign="top"><small>&nbsp;'.$msg->{'from'}.'@'.$msg->{'fromdom'}.'&nbsp;</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>'.&mt('No new course messages').'</small></i></b><br /><br /></center></td></tr>');
+     }
+ }
+ sub display_coursecritmail {
+     my ($r,$critmsgcount,$critmsgs,$rowColor1,$rowColor2) = @_;
+     my $rowColor;
+     if ($critmsgcount > 0) {
+         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>');
+         my $rowNum = 0;
+         my $mailcount = 1;
+         foreach my $msg (@{$critmsgs}) {
+             if ($rowNum %2 == 1) {
+                 $rowColor = $rowColor1;
+             } else {
+                 $rowColor = $rowColor2;
+             }
+             $r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'. &nbsp;<small></td><td valign="top"><small><a href="/adm/email?folder=critical">'.$msg->{'shortsub'}.'</a>&nbsp; &nbsp;</small></td><td valign="top"><small>&nbsp;'.$msg->{'from'}.'@'.$msg->{'fromdom'}.'&nbsp;</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>'.&mt('No unread critical messages in course').'</small></i></b><br /><br /></center></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 /) {
+ 	    &Apache::lonnet::logthis('Error retrieving whatsnew settings: '.
+ 				     $tmp.' for '.$uname.':'.$udom.
+ 				     ' for course: '.$cid);
+ 	}
+     }
+     return %settings;
+ }
+ sub store_display_settings {
+     my ($uname,$udom,$cid,$checkallowed) = @_;
+     my %whatsnew_settings;
+     my $result;
+     foreach my $key (keys(%{$checkallowed})) {
+         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;
+     if (defined($env{'form.interval'})) {
+         $interval_settings{$cid.':interval'} = $env{'form.interval'};
+         my $outcome = &Apache::lonnet::put('nohist_whatsnew',
+                                              \%interval_settings,$udom,$uname);
+         if ($outcome eq 'ok') {
+             $result = &mt('Interval set to version changes [_1]',
+                   '<b>'.$$interval_titles{$env{'form.interval'}}.'</b><br />');
+         } else {
+             &Apache::lonnet::logthis('Error storing whatsnew interval setting'.
+                      ' '.$outcome.' for '.$uname.':'.$udom.' in course '.$cid);
+             $result = &mt('Unable to set interval to [_1] due to [_2].',
+                          '<b>'.$$interval_titles{$env{'form.interval'}}.'</b>',
+                          '<tt>'.$outcome.'</tt>.<br />');
+         }
+     }
+     return $result;
+ }
+ sub start_box {
+     my ($r,$tabbg,$show,$heading,$caller) = @_;
+     my %lt = &Apache::lonlocal::texthash(
+                        chth => 'Change thresholds?',
+                        chin => 'Change interval?',
+     );
+     my $showhide;
+     if ($$show{$caller}) {
+         $showhide = '<b><a href="javascript:change_display(document.visible.'.
+                                'display_'.$caller.",'hide'".');">Hide</a></b>';
+     } else {
+         $showhide = '<b><a href="javascript:change_display(document.visible.'.
+                                'display_'.$caller.",'show'".');">Show</a></b>';
+     }
+     $r->print('
+          <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.'">
+                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
+                  <tr>
+                   <td><b>'.$$heading{$caller}.'</b></td>
+                   <td valign="top" align="right">'.$showhide.'</td>
+                  </tr>
+                 </table>
+                </td>
+               </tr>');
+      if (($caller eq 'abovethreshold') && ($$show{$caller})) {
+          $r->print('
+               <tr>
+                 <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgthreshold"><b><small>'.$lt{'chth'}.'</small></b></a></td>
+               </tr>');
+      } elsif (($caller eq 'versionchanges') && ($$show{$caller})) {
+          $r->print('
+               <tr>
+                 <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chginterval"><b><small>'.$lt{'chin'}.'</small></b></a></td>
+               </tr>');
+      }
+      $r->print('
+               <tr>
+                <td bgcolor="#ffffff">
+                 <table cellpadding="2" cellspacing="0" border="0" width="100%">
+ ');
+     return;
+ }
+ sub end_box {
+     my ($r) = shift;
+     $r->print('
+       </table>
+      </td>
+     </tr>
+    </table>
+   </td>
+  </tr>
+ </table><br />');
+     return;
+ }
+;

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

Removed from v.1.4
changed lines
	Added in v.1.38.2.2