--- loncom/interface/lonprintout.pm 2012/05/28 10:31:17 1.616 +++ loncom/interface/lonprintout.pm 2012/05/28 10:44:42 1.617 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.616 2012/05/28 10:31:17 foxr Exp $ +# $Id: lonprintout.pm,v 1.617 2012/05/28 10:44:42 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -102,7 +102,6 @@ sub printable_sequence { if ($res->is_sequence()) { my $symb = $res->symb(); - &Apache::lonnet::logthis("Symb: $symb"); my $navmap = $res->{NAV_MAP}; # Find the first resource in the map: @@ -111,14 +110,7 @@ sub printable_sequence { my $first = $iterator->next(); while (1) { - if ($first == $iterator->END_ITERATOR) { - &Apache::lonnet::logthis("End of iterator"); - last; } - if (ref($first)) { - &Apache::lonnet::logthis("Looking at: " . $first->symb()); - } else { - &Apache::lonnet::logthis("Got: $first"); - } + if ($first == $iterator->END_ITERATOR) { last; } if (ref($first) && ! $first->is_sequence()) {last; } $first = $iterator->next(); } @@ -127,16 +119,11 @@ sub printable_sequence { # Might be an empty map: if (!ref($first)) { - &Apache::lonnet::logthis("printable_sequence: empty"); return 0; } my $partsref = $first->parts(); my @parts = @$partsref; - &Apache::lonnet::logthis("Dates for " . $first->symb()); 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 0;