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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.444.2.4.2.1 and 1.444.2.5

version 1.444.2.4.2.1, 2012/07/09 18:30:46 version 1.444.2.5, 2011/09/15 03:06:52
Line 1132  sub render_long_status { Line 1132  sub render_long_status {
     }      }
           
     if ($resource->kind() eq "res" &&      if ($resource->kind() eq "res" &&
         ($resource->is_problem() || $resource->is_practice()) &&          $resource->is_raw_problem() &&
         !$firstDisplayed) {          !$firstDisplayed) {
         if ($color) {$result .= "<font color=\"$color\"><b>"; }          if ($color) {$result .= "<font color=\"$color\"><b>"; }
         $result .= getDescription($resource, $part);          $result .= getDescription($resource, $part);
Line 3494  sub new { Line 3494  sub new {
     $self->{NAV_MAP}->{RESOURCE_CACHE}->{$self->{ID}} = $self;      $self->{NAV_MAP}->{RESOURCE_CACHE}->{$self->{ID}} = $self;
     $self->{RESOURCE_ERROR} = 0;      $self->{RESOURCE_ERROR} = 0;
   
     $self->{DUEDATE_CACHE} = undef;  
   
     # A hash that can be used by two-pass algorithms to store data      # A hash that can be used by two-pass algorithms to store data
     # about this resource in. Not used by the resource object      # about this resource in. Not used by the resource object
     # directly.      # directly.
Line 4073  sub checkedin { Line 4071  sub checkedin {
 # this should work exactly like the copy in lonhomework.pm  # this should work exactly like the copy in lonhomework.pm
 sub duedate {  sub duedate {
     (my $self, my $part) = @_;      (my $self, my $part) = @_;
     if (defined ($self->{DUEDATE_CACHE}->{$part})) {  
         return $self->{DUEDATE_CACHE}->{$part};  
     }  
     my $date;      my $date;
     my @interval=$self->parmval("interval", $part);      my @interval=$self->parmval("interval", $part);
     my $due_date=$self->parmval("duedate", $part);      my $due_date=$self->parmval("duedate", $part);
Line 4092  sub duedate { Line 4087  sub duedate {
     } else {      } else {
  $date = $due_date;   $date = $due_date;
     }      }
     $self->{DUEDATE_CACHE}->{$part} = $date;  
     return $date;      return $date;
 }  }
 sub handgrade {  sub handgrade {
Removed from v.1.444.2.4.2.1  
changed lines
  Added in v.1.444.2.5

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