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

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.42 and 1.53

version 1.42, 2005/12/22 03:39:39 version 1.53, 2006/04/23 04:04:38
Line 58  sub handler { Line 58  sub handler {
     my $command = $env{'form.command'};      my $command = $env{'form.command'};
     my $refpage = $env{'form.refpage'};      my $refpage = $env{'form.refpage'};
   
     &Apache::loncommon::content_type($r,'text/html');      my %checkallowed = ( coursenormalmail => 1,
     $r->send_http_header;   coursecritmail => 1, );
     my $crsid = $env{'request.course.id'};      foreach my $perm_check (['whn','whatsnew',1],
     $crsid =~ s/_/\//;       ['pch','coursediscussion',1],
     if ((!($env{'request.course.fn'})) ||       ['mgr','handgrading',1],
                              (!(&Apache::lonnet::allowed('whn',      ['vgr','abovethreshold',1],
                                                 $env{'request.course.id'})))) {      ['opa','haserrors',1],
         # Not in a course, or no role in course      ['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'};
       }
    }
       }
   
       if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) {
           # Not in a course, or no whn priv in course
         $env{'user.error.msg'}="/adm/whatsnew::whn:0:0:Cannot display what's new page";          $env{'user.error.msg'}="/adm/whatsnew::whn:0:0:Cannot display what's new page";
         return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE;
     }      }
   
     my %checkallowed = (      &Apache::loncommon::content_type($r,'text/html');
              coursediscussion => &Apache::lonnet::allowed('pch',$env{'request.course.id'}),      $r->send_http_header;
              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));      $r->print(&display_header($command,\%checkallowed));
   
Line 86  sub handler { Line 95  sub handler {
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew',              ({href=>'/adm/whatsnew',
               text=>"Display Action Items"});                text=>"Display Action Items"});
     if (($command eq 'chgthreshold') && (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {      if (($command eq 'chgthreshold') && $checkallowed{'abovethreshold'}) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage,              ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage,
               text=>"Change thresholds"});                text=>"Change thresholds"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,"What's New?",'Course_Action_Items_Thresholds'));              (undef,"What's New?",#'Course_Action_Items_Thresholds'
     } elsif (($command eq 'chginterval') && (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {       ));
       } elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage,              ({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage,
               text=>"Change interval"});                text=>"Change interval"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,"What's New?",'Course_Action_Items_Intervals'));              (undef,"What's New?",#'Course_Action_Items_Intervals'
     } elsif (($command eq 'chgdisc') && (&Apache::lonnet::allowed('pch',$env{'request.course.id'}))) {       ));
       } elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage,              ({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage,
               text=>"Change discussion display"});                text=>"Change discussion display"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,"What's New?",'Course_Action_Items_Intervals'));              (undef,"What's New?",#'Course_Action_Items_Intervals'
        ));
     } elsif ($command eq 'courseinit') {      } elsif ($command eq 'courseinit') {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage,              ({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage,
               text=>"Course initialization preference"});                text=>"Course initialization preference"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,"What's New?",'Course_Action_Items_Initialization'));              (undef,"What's New?",#'Course_Action_Items_Initialization'
        ));
     } else {      } else {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,"What's New?",'Course_Action_Items_Display'));              (undef,"What's New?",#'Course_Action_Items_Display'
        ));
     }      }
     &display_main_box($r,$command,$refpage,\%checkallowed);      &display_main_box($r,$command,$refpage,\%checkallowed);
     return OK;      return OK;
Line 153  sub display_main_box { Line 167  sub display_main_box {
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
   
     if (($command eq 'chgthreshold') &&       if (($command eq 'chgthreshold') 
                (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {   && $checkallowed->{'abovethreshold'}) {
         &display_threshold_config($r,$refpage,$tabbg,\%threshold_titles,          &display_threshold_config($r,$refpage,$tabbg,\%threshold_titles,
                                                                    $cdom,$crs);                                                                     $cdom,$crs);
     } elsif (($command eq 'chginterval') &&       } elsif (($command eq 'chginterval') 
                (&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {       && $checkallowed->{'versionchanges'}) {
         &display_interval_config($r,$refpage,\%interval_titles);          &display_interval_config($r,$refpage,\%interval_titles);
     } elsif (($command eq 'chgdisc') &&       } elsif (($command eq 'chgdisc') 
                (&Apache::lonnet::allowed('pch',$env{'request.course.id'}))) {       && $checkallowed->{'coursediscussion'}) {
         &display_discussion_config($r,$refpage);          &display_discussion_config($r,$refpage);
     } elsif ($command eq 'courseinit') {      } elsif ($command eq 'courseinit') {
         &courseinit_config($r,$refpage,\%initpage);          &courseinit_config($r,$refpage,\%initpage);
Line 169  sub display_main_box { Line 183  sub display_main_box {
         &display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles,          &display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles,
                         \%interval_titles,\%initpage,$cdom,$crs,$checkallowed);                          \%interval_titles,\%initpage,$cdom,$crs,$checkallowed);
     }      }
       my $end_page = &Apache::loncommon::end_page();
     $r->print(<<END_OF_BLOCK);      $r->print(<<END_OF_BLOCK);
   </td>    </td>
  </tr>   </tr>
 </table><br />  </table><br />
 </body>  $end_page
 </html>  
 END_OF_BLOCK  END_OF_BLOCK
 }  }
   
Line 187  END_OF_BLOCK Line 201  END_OF_BLOCK
   
 sub display_header {  sub display_header {
     my ($command,$checkallowed) = @_;      my ($command,$checkallowed) = @_;
     my $html=&Apache::lonxml::xmlbegin();      
     my $bodytag=&Apache::loncommon::bodytag('Course Action Items');  
     my $scripttag;      my $scripttag;
     unless ($command eq 'chgthreshold' || $command eq 'chginterval') {      unless ($command eq 'chgthreshold' || $command eq 'chginterval') {
        $scripttag = <<"END";         $scripttag = <<"END";
Line 201  function change_display(caller,change) { Line 214  function change_display(caller,change) {
 function changeAll(change) {  function changeAll(change) {
 END  END
         foreach my $item (keys(%{$checkallowed})) {          foreach my $item (keys(%{$checkallowed})) {
       if ($item =~ /_section$/) { next; }
             if ($$checkallowed{$item}) {              if ($$checkallowed{$item}) {
                 $scripttag.='document.visible.display_'.$item.'.value=change'.                  $scripttag.='document.visible.display_'.$item.'.value=change'.
                             "\n";                              "\n";
Line 211  END Line 225  END
 </script>  </script>
 ';  ';
     }      }
     return(<<ENDHEAD);      return &Apache::loncommon::start_page('Course Action Items',$scripttag); 
 $html  
 <head>  
 <title>Course Action Items</title>  
 $scripttag  
 </head>  
 $bodytag  
 ENDHEAD  
 }  }
   
 #-------------------------------  #-------------------------------
Line 301  sub display_actions_box { Line 308  sub display_actions_box {
         }          }
     }      }
     $r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>').      $r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>').
               '<nobr>&nbsp;&nbsp;'.&mt('[_1] for just [_2]','<b>Change</b>',                ' <nobr>&nbsp;&nbsp;'.&mt('[_1] for just [_2]','<b>Change</b>',
               '<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.                '<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.
               '">this course</a>').' '.&mt('or for all [_1].',                '">this course</a>').' '.&mt('or for all [_1].',
               '<a href="/adm/preferences?action=changecourseinit&refpage='.                '<a href="/adm/preferences?action=changecourseinit&refpage='.
Line 364  sub display_actions_box { Line 371  sub display_actions_box {
     my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');      my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');
   
     foreach my $key (keys(%{$checkallowed})) {      foreach my $key (keys(%{$checkallowed})) {
    if ($key =~ /_section$/) { next; }
         $show{$key} = 0;          $show{$key} = 0;
         if ($$checkallowed{$key}) {          if ($$checkallowed{$key}) {
             unless ($display_settings{$cid.':'.$key} eq 'hide') {              unless ($display_settings{$cid.':'.$key} eq 'hide') {
Line 385  sub display_actions_box { Line 393  sub display_actions_box {
         &getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread);          &getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread);
     }      }
     if ($show{'coursenormalmail'}) {      if ($show{'coursenormalmail'}) {
         &getnormalmail(\@newmsgs);          $msgcount = &getnormalmail(\@newmsgs);
     }      }
     if ($show{'coursecritmail'}) {      if ($show{'coursecritmail'}) {
         &getcritmail(\@critmsgs);          $critmsgcount = &getcritmail(\@critmsgs);
     }      }
   
     $r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a>      $r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a>
      &nbsp;&nbsp;<a href="javascript:changeAll('show');">$lt{'shal'}</a>       &nbsp;&nbsp;<a href="javascript:changeAll('show');">$lt{'shal'}</a>
      <form method="post" name="visible" action="/adm/whatsnew">\n|);       <form method="post" name="visible" action="/adm/whatsnew">\n|);
     foreach my $item (keys(%{$checkallowed})) {      foreach my $item (keys(%{$checkallowed})) {
    if ($item =~ /_section$/) { next; }
         if ($$checkallowed{$item}) {          if ($$checkallowed{$item}) {
             $r->print('<input type="hidden" name="display_'.$item.'" />'."\n");              $r->print('<input type="hidden" name="display_'.$item.'" />'."\n");
         }          }
Line 405  sub display_actions_box { Line 414  sub display_actions_box {
     my $displayed = 0;      my $displayed = 0;
     my $totalboxes = 0;      my $totalboxes = 0;
     foreach my $key (keys(%{$checkallowed})) {      foreach my $key (keys(%{$checkallowed})) {
    if ($key =~ /_section$/) { next; }
    if ($key eq 'whatsnew' ) { next; } # whatsnew check creates no box
         if ($$checkallowed{$key}) {          if ($$checkallowed{$key}) {
             $totalboxes ++;              $totalboxes ++;
         }          }
Line 550  sub display_discussion_config { Line 561  sub display_discussion_config {
     if ($current eq '') {      if ($current eq '') {
         $current = 'on';          $current = 'on';
     }      }
     my %status = (      my %opposite = ( 
                     on => 'checked="checked"',                        'on' => 'off',
                     off => 'checked="checked"',                        'off' => 'on',
                  );                      );
     $status{$current} = '';      $r->print('<script type="text/javascript">
     $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>.");  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 />      $r->print('<br /><br />
 <form method="post" name="discussionswitch" action="/adm/whatsnew">'.  <form method="post" name="discussionswitch" action="/adm/whatsnew">
 &mt('Display of unread post counts?').'&nbsp;  
 <input type="hidden" name="command" value="newdiscconf" />  <input type="hidden" name="command" value="newdiscconf" />
 <input type="hidden" name="refpage" value="'.$refpage.'" />  <input type="hidden" name="refpage" value="'.$refpage.'" />
 <input type ="radio" '.$status{'on'}.' name="countunread" value="on">on  <input type="hidden" name="countunread" value="'.$opposite{$current}.'" />
 &nbsp;&nbsp;&nbsp;  
 <input type ="radio" '.$status{'off'}.' name="countunread" value="off">off  
 ');  ');
     $r->print('<br/><br />      $r->print('<br/>
                <input type="submit" name="display" value="'.                 <input type="button" name="display" value="'.
                &mt('Make changes').'" /></form>');                 &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;      return;
 }  }
   
Line 603  $$initpage{$current}</b>.<br /><br /> Line 624  $$initpage{$current}</b>.<br /><br />
 $lt{'padc'}&nbsp;&nbsp;  $lt{'padc'}&nbsp;&nbsp;
 END  END
     foreach my $choice (@chgstate) {      foreach my $choice (@chgstate) {
         $r->print('<nobr><input type="radio" name="courseinit_control" value="'.          $r->print('<nobr><label><input type="radio" name="courseinit_control" value="'.
                    $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</nobr>');                     $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</label></nobr>');
     }      }
     $r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}.      $r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}.
               '<br />'.$lt{'chce'}." \n");                '<br />'.$lt{'chce'}." \n");
     foreach my $choice (@chgentry) {      foreach my $choice (@chgentry) {
         $r->print('<nobr><input type="radio" name="courseinit_page" value="'.          $r->print('<nobr><label><input type="radio" name="courseinit_page" value="'.
                   $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</nobr>');                    $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</label></nobr>');
     }      }
     $r->print('<br /><br /><input type="submit" name="display" value="'.      $r->print('<br /><br /><input type="submit" name="display" value="'.
                $lt{'moce'}.'" /></form>');                 $lt{'moce'}.'" /></form>');
Line 683  sub getitems { Line 704  sub getitems {
     # force retrieve Resource to seed the part id cache we'll need it later      # force retrieve Resource to seed the part id cache we'll need it later
     my @allres=$navmap->retrieveResources(undef,      my @allres=$navmap->retrieveResources(undef,
                      sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;});                       sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;});
     my %lastreadtime;  
     my %resourcetracker;      my %resourcetracker;
     my $discussiontime;      my $discussiontime;
   
Line 692  sub getitems { Line 712  sub getitems {
         &checkversions($cdom,$crs,$navmap,$changed,$starttime);          &checkversions($cdom,$crs,$navmap,$changed,$starttime);
     }      }
   
     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'}) {      if ($$show{'abovethreshold'}) {
         %resourcetracker =  &Apache::lonnet::dump('nohist_resourcetracker',          %resourcetracker =  &Apache::lonnet::dump('nohist_resourcetracker',
                                                                    $cdom,$crs);                                                                     $cdom,$crs);
Line 723  sub getitems { Line 732  sub getitems {
   
 # Check if there are unread discussion postings  # Check if there are unread discussion postings
         if ($$show{'coursediscussion'}) {          if ($$show{'coursediscussion'}) {
             &check_discussions($cdom,$crs,$resource,$symb,$ressymb,$title,              &check_discussions($resource,$symb,$ressymb,$title,
                                                       $newdiscussions,$unread);         $newdiscussions,$unread,$countunread);
         }          }
   
 # Check for ungraded problems  # Check for ungraded problems
Line 747  sub getitems { Line 756  sub getitems {
         }          }
   
     }      }
     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 eq 'on') { #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 {  sub check_discussions {
     my ($cdom,$crs,$resource,$symb,$ressymb,$title,$newdiscussions,      my ($resource,$symb,$ressymb,$title,$newdiscussions,$unread,
                                                                  $unread) = @_;   $countunread) = @_;
     if ($resource->hasDiscussion()) {  
         %{$$unread{$ressymb}} = ();  
         $$unread{$ressymb}{'title'} = $title;  
         $$unread{$ressymb}{'symb'} = $symb;  
         push(@{$newdiscussions}, $ressymb);  
     }  
 }  
   
 sub get_discussions {      if (!$resource->hasDiscussion()) { return; }
     my ($cdom,$crs,$discussiondata,$ressymb,$unread,$lastreadtime) = @_;  
     my $prevread = 0;      %{$$unread{$ressymb}} = ();
     my $unreadcount = 0;      $$unread{$ressymb}{'title'} = $title;
     if (defined($$lastreadtime{$ressymb})) {      $$unread{$ressymb}{'symb'} = $symb;
         $prevread = $$lastreadtime{$ressymb};      push(@{$newdiscussions}, $ressymb);
     }      
     my $version = $$discussiondata{'version:'.$ressymb};      $$unread{$ressymb}{'lastpost'} = $resource->last_post_time();
     if ($version) {      
         my $hiddenflag = 0;      if ($countunread eq 'on') {
         my $deletedflag = 0;   $$unread{$ressymb}{'unreadcount'} = $resource->unread_discussion();
         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'};  
                     }  
                 }  
             }  
         }  
         $$unread{$ressymb}{'unreadcount'} = $unreadcount;  
     }      }
 }  }
   
   
 sub check_handgraded {  sub check_handgraded {
     my ($resource,$symb,$title,$cdom,$cnum,$ungraded,$tograde) = @_;      my ($resource,$symb,$title,$cdom,$cnum,$ungraded,$tograde) = @_;
     if ($resource->is_problem()) {      if ($resource->is_problem()) {
Line 866  sub check_thresholds { Line 828  sub check_thresholds {
         if ($resource->handgrade($part) eq 'yes') {          if ($resource->handgrade($part) eq 'yes') {
             next;              next;
         }          }
           if ($resource->is_survey($part)) {
               next;
           }
         %{$stats{$part}} = ();          %{$stats{$part}} = ();
         my ($attempts,$users,$corrects,$degdiff,$av_attempts);          my ($attempts,$users,$corrects,$degdiff,$av_attempts);
         if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) {          if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) {
Line 1064  sub getnormalmail { Line 1029  sub getnormalmail {
                     if ($shortsubj eq '') {                      if ($shortsubj eq '') {
                         $shortsubj = &mt('No subject');                          $shortsubj = &mt('No subject');
                     }                      }
                     $shortsubj = &Apache::lonnet::unescape($shortsubj);  
                     push(@{$newmsgs}, {                      push(@{$newmsgs}, {
                         msgid    => $msgid,                          msgid    => $msgid,
                         sendtime => $sendtime,                          sendtime => $sendtime,
Line 1096  sub getcritmail { Line 1060  sub getcritmail {
                 if ($shortsubj eq '') {                  if ($shortsubj eq '') {
                     $shortsubj = &mt('No subject');                      $shortsubj = &mt('No subject');
                 }                  }
                 $shortsubj = &Apache::lonnet::unescape($shortsubj);  
                 push(@{$critmsgs}, {                  push(@{$critmsgs}, {
                         msgid    => $msgid,                          msgid    => $msgid,
                         sendtime => $sendtime,                          sendtime => $sendtime,
Line 1415  sub store_display_settings { Line 1378  sub store_display_settings {
     my %whatsnew_settings;      my %whatsnew_settings;
     my $result;      my $result;
     foreach my $key (keys(%{$checkallowed})) {      foreach my $key (keys(%{$checkallowed})) {
    if ($key =~ /_section$/) { next; }
         if (exists($env{'form.display_'.$key})) {          if (exists($env{'form.display_'.$key})) {
             unless ($env{'form.display_'.$key} eq '') {              unless ($env{'form.display_'.$key} eq '') {
                 $whatsnew_settings{$cid.':'.$key} = $env{'form.display_'.$key};                  $whatsnew_settings{$cid.':'.$key} = $env{'form.display_'.$key};
Removed from v.1.42  
changed lines
  Added in v.1.53

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