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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.459 and 1.461

version 1.459, 2011/05/18 11:26:44 version 1.461, 2011/05/25 09:03:07
Line 2414  sub parmval { Line 2414  sub parmval {
         }          }
     }      }
     my $result = $self->parmval_real($what, $symb, $recurse);      my $result = $self->parmval_real($what, $symb, $recurse);
     my $dumper = Data::Dumper->new([$result]);  
     $self->{PARM_CACHE}->{$hashkey} = $result;      $self->{PARM_CACHE}->{$hashkey} = $result;
     if (wantarray) {      if (wantarray) {
         return @{$result};          return @{$result};
Line 3994  Get the weight for the problem. Line 3993  Get the weight for the problem.
   
 sub printable {  sub printable {
   
     &Apache::lonnet::logthis("Printable");  
     my ($self, $part) = @_;      my ($self, $part) = @_;
   
     # Get the print open/close dates for the resource.      # Get the print open/close dates for the resource.
   
     my $start = $self->parmval("printopendate", $part);      my $start = $self->parmval("prinstartdate", $part);
     my $end   = $self->parmval("printclosedate", $part);      my $end   = $self->parmval("printenddate", $part);
     my $dumper = Data::Dumper->new([$self, $part, $start, $end]);  
     &Apache::lonnet::logthis("Start for " . $dumper->Dump);  
   
     #  The following cases apply:      #  The following cases apply:
     #  - No dates set: Printable.      #  - No dates set: Printable.
Line 4015  sub printable { Line 4011  sub printable {
     my $startok = 1;      my $startok = 1;
     my $endok   = 1;      my $endok   = 1;
   
     if ($start ne '') {      if ((defined $start) && ($start ne '')) {
  $startok = $start <= $now;   $startok = $start <= $now;
     }      }
     if ($end  ne '') {      if ((defined $end) && ($end != '')) {
  $endok = $end >= $now;   $endok = $end >= $now;
     }      }
     return $startok && $endok;      return $startok && $endok;
Line 4029  sub resprintable { Line 4025  sub resprintable {
   
     # get parts...or realize there are no parts.      # get parts...or realize there are no parts.
   
     my $parts = $self->parts();      my $partsref = $self->parts();
     if ($parts == 0) {      my @parts    = @$partsref;
   
       if ((!defined(@parts)) || (scalar(@parts) == 0)) {
  return $self->printable(0);   return $self->printable(0);
     } else {      } else {
  foreach my $part  (@$parts) {   foreach my $part  (@parts) {
     if (!$self->printable($part)) { return 0; }      if (!$self->printable($part)) { 
    return 0; 
       }
  }   }
  return 1;   return 1;
     }      }
Removed from v.1.459  
changed lines
  Added in v.1.461

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