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

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.50 and 1.51

version 1.50, 2006/01/13 01:18:44 version 1.51, 2006/03/04 05:59:01
Line 712  sub getitems { Line 712  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 721  sub getitems { Line 720  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 752  sub getitems { Line 740  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 776  sub getitems { Line 764  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()) {
Removed from v.1.50  
changed lines
  Added in v.1.51

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