loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.353, 2005/12/05 19:30:22
+version 1.354, 2005/12/15 00:53:30
  Line 2265  sub get_user_data {
      $self->{RETRIEVED_USER_DATA} = 1;
  }
+ sub get_discussion_data {
+     my $self = shift;
+     if ($self->{RETRIEVED_DISCUSSION_DATA}) {
+          return  $self->{DISCUSSION_DATA};
+     }
+     my $cid=$env{'request.course.id'};
+     my $cdom=$env{'course.'.$cid.'.domain'};
+     my $cnum=$env{'course.'.$cid.'.num'};
+     # Retrieve discussion data for resources in course
+     my %discussion_data = &Apache::lonnet::dump($cid,$cdom,$cnum);
+     $self->{DISCUSSION_DATA} = \%discussion_data;
+     $self->{RETRIEVED_DISCUSSION_DATA} = 1;
+     return $self->{DISCUSSION_DATA};
+ }
  # Internal function: Takes a key to look up in the nav hash and implements internal
  # memory caching of that key.
  sub navhash {