[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[foxr]

foxr		Mon May 28 10:44:43 2012 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Remove log spew.
  
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.616 loncom/interface/lonprintout.pm:1.617
--- loncom/interface/lonprintout.pm:1.616	Mon May 28 10:31:17 2012
+++ loncom/interface/lonprintout.pm	Mon May 28 10:44:42 2012
@@ -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 @@
 
     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 @@
 	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 @@
 	# 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;