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

Diff for /loncom/interface/lonprintout.pm between versions 1.616 and 1.617

version 1.616, 2012/05/28 10:31:17 version 1.617, 2012/05/28 10:44:42
Line 102  sub printable_sequence { Line 102  sub printable_sequence {
   
     if ($res->is_sequence()) {      if ($res->is_sequence()) {
  my $symb = $res->symb();   my $symb = $res->symb();
  &Apache::lonnet::logthis("Symb: $symb");  
  my $navmap   = $res->{NAV_MAP};   my $navmap   = $res->{NAV_MAP};
   
  # Find the first resource in the map:   # Find the first resource in the map:
Line 111  sub printable_sequence { Line 110  sub printable_sequence {
  my $first    = $iterator->next();   my $first    = $iterator->next();
   
  while (1) {   while (1) {
     if ($first == $iterator->END_ITERATOR) {      if ($first == $iterator->END_ITERATOR) { last; }
  &Apache::lonnet::logthis("End of iterator");  
  last; }  
     if (ref($first)) {  
  &Apache::lonnet::logthis("Looking at: " . $first->symb());  
     } else {  
  &Apache::lonnet::logthis("Got: $first");  
     }  
     if (ref($first) && ! $first->is_sequence()) {last; }      if (ref($first) && ! $first->is_sequence()) {last; }
     $first = $iterator->next();      $first = $iterator->next();
  }   }
Line 127  sub printable_sequence { Line 119  sub printable_sequence {
  # Might be an empty map:   # Might be an empty map:
   
  if (!ref($first)) {   if (!ref($first)) {
     &Apache::lonnet::logthis("printable_sequence: empty");  
     return 0;      return 0;
  }   }
  my $partsref = $first->parts();   my $partsref = $first->parts();
  my @parts    = @$partsref;   my @parts    = @$partsref;
  &Apache::lonnet::logthis("Dates for " . $first->symb());  
  my ($open, $close) = $navmap->map_printdates($first, $parts[0]);   my ($open, $close) = $navmap->map_printdates($first, $parts[0]);
  &Apache::lonnet::logthis("Opens $open, closes $close");  
  &Apache::lonnet::logthis(ctime($open));  
  &Apache::lonnet::logthis(ctime($close));  
  return &printable($open, $close);   return &printable($open, $close);
     }      }
     return 0;      return 0;
Removed from v.1.616  
changed lines
  Added in v.1.617

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