[BACK]Return to lonwhatsnew.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.3 and 1.52

version 1.3, 2005/04/07 04:12:31 version 1.52, 2006/03/15 19:41:26
Line 35  use Apache::lonhtmlcommon(); Line 35  use Apache::lonhtmlcommon();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::loncoursedata();  use Apache::loncoursedata();
 use Apache::lonnavmaps();  use Apache::lonnavmaps();
   use Apache::lonuserstate;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Time::Local;  use Time::Local;
   use GDBM_File;
   
 #----------------------------  #----------------------------
 # handler  # handler
Line 45  use Time::Local; Line 47  use Time::Local;
   
 sub handler {  sub handler {
     my $r = shift;      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 '') {      my %checkallowed = ( coursenormalmail => 1,
         $command = "info";   coursecritmail => 1, );
       foreach my $perm_check (['whn','whatsnew',1],
       ['pch','coursediscussion',1],
       ['mgr','handgrading',1],
       ['vgr','abovethreshold',1],
       ['opa','haserrors',1],
       ['mdc','versionchanges',0],
       ) {
    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'} || ! $checkallowed{'whatsnew'}) {
     if (! (($ENV{'request.course.fn'}) && (&Apache::lonnet::allowed('vsa',$ENV{'request.course.id'})))) {          # Not in a course, or no whn priv in course
         # Not in a course, or not allowed to modify parms          $env{'user.error.msg'}="/adm/whatsnew::whn:0:0:Cannot display what's new page";
         $ENV{'user.error.msg'}="/adm/whatsnew:vsa:0:0:Cannot display student activity";  
         return HTTP_NOT_ACCEPTABLE;          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=>"Display Action Items"});
       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
               (undef,"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
               (undef,"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
               (undef,"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
               (undef,"What's New?",#'Course_Action_Items_Initialization'
        ));
       } else {
           $r->print(&Apache::lonhtmlcommon::breadcrumbs
               (undef,"What's New?",#'Course_Action_Items_Display'
        ));
       }
       &display_main_box($r,$command,$refpage,\%checkallowed);
       return OK;
 }  }
   
 #------------------------------  #------------------------------
Line 70  sub handler { Line 139  sub handler {
 #------------------------------  #------------------------------
                                                                                                                                                                   
 sub display_main_box {  sub display_main_box {
     my ($r,$command) = @_;      my ($r,$command,$refpage,$checkallowed) = @_;
     my $domain=&Apache::loncommon::determinedomain();      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 />      $r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">');
 <br />  
 <table width="100%" border="0" cellpadding="0" cellspacing="0">      my %threshold_titles = &Apache::lonlocal::texthash (
  <tr>                           av_attempts => 'Average number of attempts',
   <td width="100%" bgcolor="#000000">                           degdiff => 'Degree of difficulty',
    <table width="100%" border="0" cellpadding="1" cellspacing="0">                           numstudents => 'Total number of students with submissions',
     <tr>      );
      <td width="100%" bgcolor="#000000">  
       <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">      my %interval_titles = &Apache::lonlocal::texthash (
        <tr>                              -1 => 'since start of course',
         <td colspan="2" width="100%" bgcolor="$tabbg">                         2592000 => 'since last month',
          <table width="100%" border="0" cellpadding="5" cellspacing="0">                          604800 => 'since last week',
           <tr>                           86400 => 'since yesterday',
            <td width="100%">      );
             <table width="100%" border="0" cellpadding="0" cellspacing="0">  
              <tr>      my %initpage = &Apache::lonlocal::texthash (
               <td>                       firstres => 'first resource in the course',
                <font face="arial,verdana" size="3"><b>Course Action Items</b></font></td>                       whatsnew => "what's new? page",
               </td>                       userpref => 'your general user preferences',
               <td align="right">&nbsp;                       coursespecific => 'specific setting for this course',
               </td>                     );
              </tr>      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
             </table>      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
            </td>  
           </tr>      if (($command eq 'chgthreshold') 
          </table>   && $checkallowed->{'abovethreshold'}) {
         </td>          &display_threshold_config($r,$refpage,$tabbg,\%threshold_titles,
        </tr>                                                                     $cdom,$crs);
        <tr>      } elsif (($command eq 'chginterval') 
         <td width="100" valign="top" bgcolor="#dddddd" height="100%">       && $checkallowed->{'versionchanges'}) {
          <table width="100" border="0" cellpadding="0" cellspacing="0" height="100%">          &display_interval_config($r,$refpage,\%interval_titles);
           <tr>      } elsif (($command eq 'chgdisc') 
            <td valign="top" height="100%">       && $checkallowed->{'coursediscussion'}) {
 END_OF_BLOCK          &display_discussion_config($r,$refpage);
     &display_nav_box($r,$command);      } elsif ($command eq 'courseinit') {
     $r->print('</td></tr></table></td>');          &courseinit_config($r,$refpage,\%initpage);
     $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 {      } else {
         &display_actions_box($r);          &display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles,
                           \%interval_titles,\%initpage,$cdom,$crs,$checkallowed);
     }      }
       my $end_page = &Apache::loncommon::end_page();
     $r->print(<<END_OF_BLOCK);      $r->print(<<END_OF_BLOCK);
               </td>  
              </tr>  
             </table>  
            </td>  
           </tr>  
          </table>  
         </td>  
        </tr>  
       </table>  
      </td>  
     </tr>  
    </table>  
   </td>    </td>
  </tr>   </tr>
 </table><br />  </table><br />
 </body>  $end_page
 </html>  
 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  # display_header
 #  #
Line 176  sub display_nav_box { Line 199  sub display_nav_box {
 # up the HTML  # up the HTML
 #-------------------------------  #-------------------------------
   
 sub display_header{  sub display_header {
     my $html=&Apache::lonxml::xmlbegin();      my ($command,$checkallowed) = @_;
     my $bodytag=&Apache::loncommon::bodytag('Course Action Items');      
     return(<<ENDHEAD);      my $scripttag;
 $html      unless ($command eq 'chgthreshold' || $command eq 'chginterval') {
 <head>         $scripttag = <<"END";
 <title>Course Action Items</title>  <script type="text/javascript">
 </head>  function change_display(caller,change) {
 $bodytag      caller.value = change;
 ENDHEAD      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>
   ';
       }
       return &Apache::loncommon::start_page('Course Action Items',$scripttag); 
 }  }
   
 #-------------------------------  #-------------------------------
Line 195  ENDHEAD Line 235  ENDHEAD
 #  #
 #-------------------------------  #-------------------------------
                                                                                                                                                                   
 sub display_actions_box() {  sub display_actions_box {
     my $r = shift;      my ($r,$tabbg,$command,$refpage,$threshold_titles,$interval_titles,
                                         $initpage,$cdom,$crs,$checkallowed) = @_;
     my $rowColor1 = "#ffffff";      my $rowColor1 = "#ffffff";
     my $rowColor2 = "#eeeeee";      my $rowColor2 = "#eeeeee";
     my $rowColor;  
       my $udom = $env{'user.domain'};
       my $uname = $env{'user.name'};
       my $cid = $env{'request.course.id'};
   
       my %lt = &Apache::lonlocal::texthash(
                    'yacc' => 'You are accessing an invalid course.',
                    'gtfr' => 'Go to first resource',
                    'pgse' => 'Page set to be displayed after you have selected a role in this course?',
                    'hial' => 'Hide all',
                    'shal' => 'Show all',
       );
   
     my %unread = ();      my %unread = ();
     my %ungraded = ();      my %ungraded = ();
     my %bombed = ();      my %bombed = ();
       my %triggered = ();
       my %changed = ();
     my @newmsgs = ();      my @newmsgs = ();
     my @critmsgs = ();      my @critmsgs = ();
     my @newdiscussions = ();      my @newdiscussions = ();
     my @tograde = ();      my @tograde = ();
     my @bombs = ();      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;
     }  
     if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {      my $result;
         $function='admin';      if ($command eq 'newcourseinit') {
           $result = &store_courseinit_setting($uname,$udom,$cid,$initpage);
     }      }
   
     my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);      my %threshold = (
     my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);                        av_attempts => 2,
                         degdiff => 0.5,
                         numstudents => 2,
                        );
       my %pagedesc = &Apache::lonlocal::texthash (
                        firstres => 'First resource',
                        whatsnew => "What's New? page",
                        userpref => 'user preference',
                        coursespecific => 'course only',
                        default => 'default',
                      );
   
     &getitems(\%unread,\%ungraded,\%bombed,\@newdiscussions,\@tograde,\@bombs);      my ($initcontrol,$initdisp) = &curr_courseinit();
     my ($msgcount,$critmsgcount) = &getmail(\@newmsgs,\@critmsgs);      my $currinit = $pagedesc{$initdisp}.' ('.$pagedesc{$initcontrol}.')';
   
     unless ($ENV{'request.course.id'}) {      unless ($cid) {
         $r->print('<br /><b><center>You are accessing an invalid course</center></b><br /><br />');          $r->print('<br /><b><center>'.$lt{'yacc'}.'</center></b><br /><br />');
         return;          return;
     }      }
   
     $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%">');      if ($refpage eq 'start') {
           if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
               &GDBM_READER(),0640)) {
               my $furl=$bighash{'first_url'};
               untie(%bighash);
               $r->print('<font size="+1"><a href="'.$furl.'">'.$lt{'gtfr'}.
                     '</a></font><br />');
           }
       }
       $r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>').
                 ' <nobr>&nbsp;&nbsp;'.&mt('[_1] for just [_2]','<b>Change</b>',
                 '<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.
                 '">this course</a>').' '.&mt('or for all [_1].',
                 '<a href="/adm/preferences?action=changecourseinit&refpage='.
                 $refpage.'">your courses</a>').'</nobr><br /><hr />');
                                                                                           
       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);
       }
   
 ## UNREAD COURSE DISCUSSION POSTS ##      my $store_result=&store_display_settings($uname,$udom,$cid,$checkallowed);
     $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  
   
     if (@newdiscussions > 0) {      unless ($store_result eq 'ok') { 
 #        @newdiscussions = sort { &cmp_title($a,$b) } @newdiscussions;          &Apache::lonnet::logthis('Error storing whatsnew settings: '.
         my $rowNum = 0;              $store_result.' for '.'user '.$uname.':'.$udom.' in course '.$cid);
         foreach my $ressymb (@newdiscussions) {          $result .= &mt('Unable to store visibility settings due to [_1]',
             my $forum_title = $unread{$ressymb}{'title'};                         $store_result); 
             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>&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 ##      if ($result) {
     $r->print(<<END);          $r->print($result.'<hr width="100%" />');
            <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%">      }
             <tr><td>      $r->rflush();
              <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) {  
         $r->print('<tr><th bgcolor="#cccccc">Problem Name</th><th>Number ungraded</th></tr>');      my %display_settings = &get_display_settings($uname,$udom,$cid);
         my $rowNum = 0;      my $timediff = $display_settings{$cid.':interval'};
         foreach my $res (@tograde) {      unless (defined($timediff)) { $timediff = 604800; } 
             if ($rowNum %2 == 1) {      my $now = time;
                 $rowColor = $rowColor1;      my $interval = $$interval_titles{$timediff};
             } else {      if ($timediff == -1) {
                 $rowColor = $rowColor2;          $timediff = time;
       } 
       my $starttime = $now - $timediff;
       my $countunread = $display_settings{$cid.':countunread'};
       unless (defined($countunread)) {
           $countunread = 'on';
       }
   
       my %headings = &Apache::lonlocal::texthash(
                   coursediscussion =>  'Unread course discussion posts',
                   handgrading =>  'Problems requiring handgrading',
                   haserrors => 'Problems with errors',
                   versionchanges => 'Resources in course with version changes '.$interval,
                   coursenormalmail => 'New course messages',
                   coursecritmail => 'New critical messages in course',
       );
   
       if ($$checkallowed{'abovethreshold'}) {
           &get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs);
       }
   
       $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'};
   
       my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');
   
       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>&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'}) {
           $msgcount = &getnormalmail(\@newmsgs);
       }
       if ($show{'coursecritmail'}) {
           $critmsgcount = &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 ($item =~ /_section$/) { next; }
                <tr>          if ($$checkallowed{$item}) {
                 <td bgcolor="$tabbg"><b>New critical messages in course</b></td>              $r->print('<input type="hidden" name="display_'.$item.'" />'."\n");
                </tr>          }
                <tr>                 <td bgcolor="#ffffff">      }
                  <table width="100%" cellspacing="0" cellpadding="0" border="0">  
 END  
   
     if ($critmsgcount > 0) {      $r->print('<input type="hidden" name="refpage" value="'.$refpage.'"></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 = 0;
             if ($rowNum %2 == 1) {      foreach my $key (keys(%{$checkallowed})) {
                 $rowColor = $rowColor1;   if ($key =~ /_section$/) { next; }
             } else {   if ($key eq 'whatsnew' ) { next; } # whatsnew check creates no box
                 $rowColor = $rowColor2;          if ($$checkallowed{$key}) {
               $totalboxes ++;
           }
       }
       my $halfway = int($totalboxes/2) + $totalboxes%2;
       foreach my $actionitem (@actionorder) {
           if ($$checkallowed{$actionitem}) {
               if ($displayed == $halfway) {
                   $r->print('</td><td width="6%">&nbsp;</td><td align="left" valign="top" width="47%">');
             }              }
             $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,$refpage,$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,$refpage,$tabbg,$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");
       foreach my $item (@thresholditems) {
           $threshold{$item} = '';
       }
       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">
           <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>              <tr>
              <td>               <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">                  <td bgcolor="#ffffff">
                  <table width="100%" cellspacing="0" cellpadding="0" border="0">                   <table cellspacing="0" cellpadding="4" border="0">
        <tr bgcolor="'.$tabbg.'">
         <th>Threshold Name</th>
         <th>Current value</th>
         <th>Change?</th>
        </tr>');
       my $rowNum =0;
       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;"';
           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},
                                               10,$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" />
                    <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) = @_;
       my $current = &get_current($env{'user.name'},$env{'user.domain'},
                                   $env{'request.course.id'},'interval');
       $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 [_1]','<b>'.
                     $$interval_titles{$current}.'</b>.'));
       }
       $r->print('<br /><br />
   <form method="post" name="intervalswitch" action="/adm/whatsnew">
   <input type="hidden" name="command" value="newinterval" />
   <input type="hidden" name="refpage" value="'.$refpage.'" />
   <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;
   }
   
   #----------------------------------------------
   # 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';
       }
       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 bulletin board which has unread posts.').'<br />'.&mt('This can increase the time taken to gather data for the [_1] page by a few seconds.',"<i>What's New?</i>").'&nbsp;&nbsp;'.&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]',$opposite{$current}).'" 
                  onclick="javascript:toggle_countunread('."'change'".')" />
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp;
                  <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. 
   #
   #---------------------------------------------------
   
   sub courseinit_config {
       my ($r,$refpage,$initpage) = @_;
       my ($control,$current) = &curr_courseinit();
       my @chgstate = ('userpref','coursespecific');
       my @chgentry = ('firstres','whatsnew');
       my %lt = &Apache::lonlocal::texthash(
                                'chwp' => 'Choose which page will be displayed when you enter this course after selecting a role.',
                                'cuva' => 'Current value is determined by',
                                'anis' => 'and is set to display',
                                'padc' => 'Page display controlled by',
                                'chce' => 'Choose course entry',
                                'moce' => 'Modify course entry',
       );
       $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'}&nbsp;&nbsp;
 END  END
     my $bombnum = 0;      foreach my $choice (@chgstate) {
     if (@bombs > 0) {          $r->print('<nobr><label><input type="radio" name="courseinit_control" value="'.
 #        @bombs = sort { &cmp_title($a,$b) } @bombs;                     $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</label></nobr>');
         foreach my $bomb (@bombs) {      }
             if ($bombnum %2 == 1) {      $r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}.
                 $rowColor = $rowColor1;                '<br />'.$lt{'chce'}." \n");
             } else {      foreach my $choice (@chgentry) {
                 $rowColor = $rowColor2;          $r->print('<nobr><label><input type="radio" name="courseinit_page" value="'.
                     $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</label></nobr>');
       }
       $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 {
           $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';
           }
       }
       return ($control,$current);
   }
   
   sub display_launcher {
       my ($r,$action,$refpage,$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,$refpage);
           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,$refpage,$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 {  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 $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 %resourcetracker;
     my %lastread = &Apache::lonnet::dump('nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'},'lastread');      my $discussiontime;
     my %lastreadtime = ();  
     my @discussions = ();  # Resource version changes
     my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();      if ($$show{'versionchanges'}) {
           &checkversions($cdom,$crs,$navmap,$changed,$starttime);
     foreach my $key (keys(%lastread)) {      }
         my $newkey = $key;  
         $newkey =~ s/_lastread$//;      if ($$show{'abovethreshold'}) {
         $lastreadtime{$newkey} = $lastread{$key};          %resourcetracker =  &Apache::lonnet::dump('nohist_resourcetracker',
                                                                      $cdom,$crs);
     }      }
   
       my $warningnum = 0;
     foreach my $resource (@allres) {      foreach my $resource (@allres) {
         my $result = '';          my $result = '';
         my $applies = 0;          my $applies = 0;
         my $symb = $resource->symb();          my $symb = $resource->symb();
         %{$$bombed{$symb}} = ();          %{$$bombed{$symb}} = ();
         %{$$ungraded{$symb}} = ();          %{$$ungraded{$symb}} = ();
           %{$$triggered{$symb}} = ();
           $$triggered{$symb}{numparts} = 0;
         my $title = $resource->compTitle();          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 = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard';  
             unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {  # Check if there are unread discussion postings
                  $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|;          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  # Check for bombs
         if (defined($discussiontime{$ressymb})) {          if ($$show{'haserrors'}) {
             push(@discussions,$ressymb);              &check_bombed($resource,$symb,$title,$bombs,$bombed);
             my $prevread = 0;          }
             my $unreadcount = 0;  
             %{$$unread{$ressymb}} = ();  # Maxtries and degree of difficulty for problem parts, unless handgradeable
             $$unread{$ressymb}{'title'} = $title;          if ($$show{'abovethreshold'}) {  
             $$unread{$ressymb}{'symb'} = $symb;              &check_thresholds($resource,$symb,\%resourcetracker,$triggered,
             if (defined($lastreadtime{$ressymb})) {                         $threshold,$warnings,$warningnum,$rowColor1,$rowColor2);
                 $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'}) {  sub check_discussions {
                 for (my $id=1;$id<=$contrib{'version'};$id++) {      my ($resource,$symb,$ressymb,$title,$newdiscussions,$unread,
                     unless (($contrib{'hidden'}=~/\.$id\./) || ($contrib{'deleted'}=~/\.$id\./)) {   $countunread) = @_;
                         if ($prevread <$contrib{$id.':timestamp'}) {  
                             $$unread{$ressymb}{$unreadcount} = $id.': '.$contrib{$id.':subject'};      if (!$resource->hasDiscussion()) { return; }
                             $unreadcount ++;  
                             push(@{$newdiscussions}, $ressymb);      %{$$unread{$ressymb}} = ();
                         }      $$unread{$ressymb}{'title'} = $title;
                     }      $$unread{$ressymb}{'symb'} = $symb;
       push(@{$newdiscussions}, $ressymb);
       
       $$unread{$ressymb}{'lastpost'} = $resource->last_post_time();
       
       if ($countunread eq 'on') {
    $$unread{$ressymb}{'unreadcount'} = $resource->unread_discussion();
       }
   }
   
   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);
               }
           }
       }
   }
   
   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='.
                           &Apache::lonnet::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,
                                          $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;
           }
           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) {
           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 ++;
       }
   }
   
 # Check for ungraded problems  
         if ($resource->is_problem()) {  sub get_curr_thresholds {
             my $ctr = 0;      my ($threshold,$uname,$udom,$cid,$cdom,$crs) = @_;
             my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);      my %thresholdsettings = &Apache::lonnet::dump('nohist_whatsnew',$udom,
             my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($url,$symb);                                                       $uname,$cid.':threshold');
             foreach my $student (keys(%$classlist)) {      my $thresholdcount = 0;
                 my ($uname,$udom) = split(/:/,$student);      my ($tmp) = %thresholdsettings;
                 my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist);      unless ($tmp =~ /^(con_lost|error|no_such_host)/i) {
                 my $submitted = 0;          foreach my $item (keys %{$threshold}) { 
                 my $graded = 0;              if (exists($thresholdsettings{$cid.':threshold_'.$item})) {
                 foreach (keys(%status)) {                  $$threshold{$item} = 
                     $submitted = 1 if ($status{$_} ne 'nothing');                               $thresholdsettings{$cid.':threshold_'.$item};
                     $graded = 1 if ($status{$_} !~ /^correct/);                  $thresholdcount ++;
                     my ($foo,$partid,$foo1) = split(/\./,$_);              }
                     if ($status{'resource.'.$partid.'.submitted_by'} ne '') {          }
                         $submitted = 0;      }
                     }      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};
                 }                  }
                 next if (!$submitted || !$graded);  
                 $ctr ++;  
             }              }
             if ($ctr) {          }
                 $$ungraded{$symb}{count} = $ctr;      }
                 $$ungraded{$symb}{title} = $title;      return;
                 push(@{$tograde}, $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 = &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";
         }          }
       }
       return $result;
   }
   
 # Check for bombs  sub process_update {
         if ($resource->getErrors()) {      my ($uname,$udom,$threshold_titles) = @_;
             my $errors = $resource->getErrors();      my $setoutput = '<b>Changes to threshold(s) for problem tracking:</b><br />';
             my @bombs = split(/,/, $errors);      foreach (keys %env) {
             my $errorcount = scalar(@bombs);          next if ($_!~/^form\.(.+)\_setparmval$/);
             my $errorlink = '<a href="/adm/email?display='.          my $name  = $1;
                             &Apache::lonnet::escape($$bombs[0]).'">';          my $value = $env{'form.'.$name.'_value'};
             $$bombed{$symb}{errorcount} = $errorcount;          if ($name && defined($value)) {
             $$bombed{$symb}{errorlink} = $errorlink;              my $put_result = &Apache::lonnet::put('nohist_whatsnew',
             push(@{$bombs}, $symb);                                                    {$name=>$value},$udom,$uname);
              
               my ($shortname) = ($name =~ /^\Q$env{'request.course.id'}\E: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 />';
               }
         }          }
     }      }
 # Compile maxtries and degree of difficulty.      return $setoutput;
 }  }
   
 sub getmail {  sub getnormalmail {
     my ($newmsgs,$critmsgs) = @_;      my ($newmsgs) = @_;
 # Check for unread mail in course  # Check for unread mail in course
     my $msgcount = 0;      my $msgcount = 0;
   
     my @messages = &Apache::lonnet::getkeys('nohist_email');      my @messages = sort(&Apache::lonnet::getkeys('nohist_email'));
     foreach my $message (@messages) {      foreach my $message (@messages) {
  my $msgid=&Apache::lonnet::escape($message);   my $msgid=&Apache::lonnet::escape($message);
         my ($sendtime,$shortsubj,$fromname,$fromdom,$fromcid,$status)=          my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)=
             &Apache::lonmsg::unpackmsgid($msgid);              &Apache::lonmsg::unpackmsgid($msgid);
         if ($fromcid eq $ENV{'request.course.id'}) {          if (($fromcid) && ($fromcid eq $env{'request.course.id'})) {
             if (defined($sendtime) && $sendtime!~/error/) {              if (defined($sendtime) && $sendtime!~/error/) {
                 my $numsendtime = $sendtime;                  my $numsendtime = $sendtime;
                 $sendtime = &Apache::lonlocal::locallocaltime($sendtime);                  $sendtime = &Apache::lonlocal::locallocaltime($sendtime);
                 if ($status eq 'new') {                  if ($status eq 'new') {
                     $$msgcount ++;                      $msgcount ++;
                       if ($shortsubj eq '') {
                           $shortsubj = &mt('No subject');
                       }
                       $shortsubj = &Apache::lonnet::unescape($shortsubj);
                     push(@{$newmsgs}, {                      push(@{$newmsgs}, {
                         msgid    => $msgid,                          msgid    => $msgid,
                         sendtime => $sendtime,                          sendtime => $sendtime,
                         shortsub => &Apache::lonnet::unescape($shortsubj),                          shortsub => $shortsubj,
                         from     => $fromname,                          from     => $fromname,
                         fromdom  => $fromdom                          fromdom  => $fromdom
                         });                          });
Line 534  sub getmail { Line 1041  sub getmail {
             }              }
         }          }
     }      }
       return $msgcount;
   }
   
   sub getcritmail {
       my ($critmsgs) = @_; 
 # Check for critical messages in course  # Check for critical messages in course
     my %what=&Apache::lonnet::dump('critical');      my %what=&Apache::lonnet::dump('critical');
     my $result = '';      my $result = '';
     my $critmsgcount = 0;      my $critmsgcount = 0;
     foreach my $msgid (sort(keys(%what))) {      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/) {              if (defined($sendtime) && $sendtime!~/error/) {
                 my $numsendtime = $sendtime;                  my $numsendtime = $sendtime;
                 $sendtime = &Apache::lonlocal::locallocaltime($sendtime);                  $sendtime = &Apache::lonlocal::locallocaltime($sendtime);
                 $critmsgcount ++;                  $critmsgcount ++;
                   if ($shortsubj eq '') {
                       $shortsubj = &mt('No subject');
                   }
                   $shortsubj = &Apache::lonnet::unescape($shortsubj);
                 push(@{$critmsgs}, {                  push(@{$critmsgs}, {
                         msgid    => $msgid,                          msgid    => $msgid,
                         sendtime => $sendtime,                          sendtime => $sendtime,
                         shortsub => &Apache::lonnet::unescape($shortsubj),                          shortsub => $shortsubj,
                         from     => $fromname,                          from     => $fromname,
                         fromdom  => $fromdom                          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,$refpage,$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".
                   ' <input type="hidden" name="refpage" value="'.$refpage.'" />'.
                   "\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 eq 'on') {
               $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 eq 'on') {
                   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 {  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*//;      $atitle=~s/^\s*//;
     $btitle=~s/^\s*//;      $btitle=~s/^\s*//;
     return $atitle cmp $btitle;      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 ($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;
       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 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 = &mt('Count unread posts in discussions display set to [_1]',
                     '<b>'.$env{'form.countunread'}.'</b><br />');
                                                                                     
           } else {
               &Apache::lonnet::logthis('Error storing whatsnew countunread setting'.
                        ' '.$outcome.' for '.$uname.':'.$udom.' in course '.$cid);
               $result = &mt('Unable to set "number unread posts display" to [_1]'.
                             ' due to [_2].',
                            '<b>'.$env{'form.countunread'}.'</b>',
                            '<tt>'.$outcome.'</tt>.<br />');
           }
       }
       return $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 $outcome = &Apache::lonnet::put('nohist_whatsnew',
                                              \%courseinit_settings,$udom,$uname);
               if ($outcome eq 'ok') {
                   if ($page_control eq 'global preferences') {
                       $result = &mt('Page displayed after role selection in course now set by [_1]',"<b>user's global preferences</b>.");
                   } else {
                       $result = &mt('Page displayed after role selection in this course set to [_1]','<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>.');
                   }
               } else {
                   &Apache::lonnet::logthis('Error storing whatsnew courseinit '.
                                            'setting: '.$outcome.' for '.$uname.
                                                    ':'.$udom.' in course '.$cid);
                   if ($page_control eq 'global preferences') {
                       $result = &mt('Unable to set control of page display to [_1]'.
                             ' due to [_2].',
                            '<b>'.$page_control.'</b>',
                            '<tt>'.$outcome.'</tt>.<br />');
                   } else {
                       $result = &mt('Unable to set page display, after role selection, for this course to [_1] due to [_2].',
                            '<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>',
                            '<tt>'.$outcome.'</tt>.<br />');
                   }
               }
           }
       }
       return $result;
   }
   
   sub start_box {
       my ($r,$tabbg,$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'".');">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})) {
            if ($$show{$caller}) {
                $r->print('
                 <tr>
                   <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'"><b><small>'.$lt{'chth'}.'</small></b></a></td>
                 </tr>');
            }
        } elsif (($caller eq 'versionchanges') && ($$show{$caller})) {
            if ($$show{$caller}) {
                $r->print('
                 <tr>
                   <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chginterval&refpage='.$refpage.'"><b><small>'.$lt{'chin'}.'</small></b></a></td>
                 </tr>');
            }
        } elsif ($caller eq 'coursediscussion') {
            if ($$show{$caller}) {
                $r->print('
                 <tr>
                   <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgdisc&refpage='.$refpage.'"><b><small>'.$lt{'chop'}.'</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;
   }
   
   1;
Removed from v.1.3  
changed lines
  Added in v.1.52

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