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

[foxr]

foxr		Wed May 25 09:03:07 2011 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Remove the debug logging lines.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.460 loncom/interface/lonnavmaps.pm:1.461
--- loncom/interface/lonnavmaps.pm:1.460	Sun May 22 14:55:30 2011
+++ loncom/interface/lonnavmaps.pm	Wed May 25 09:03:07 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.460 2011/05/22 14:55:30 foxr Exp $
+# $Id: lonnavmaps.pm,v 1.461 2011/05/25 09:03:07 foxr Exp $
 
 #
 # Copyright Michigan State University Board of Trustees
@@ -3993,7 +3993,6 @@
 
 sub printable {
 
-    &Apache::lonnet::logthis("Printable");
     my ($self, $part) = @_;
 
     # Get the print open/close dates for the resource.
@@ -4008,28 +4007,16 @@
     #  - both defined: printable if start <= now <= end
     #
     my $now  = time();
-    &Apache::lonnet::logthis("now: $now, Opens at $start Closes at $end");
 
     my $startok = 1;
     my $endok   = 1;
 
     if ((defined $start) && ($start ne '')) {
-	&Apache::lonnet::logthis("checking start time.");
 	$startok = $start <= $now;
-	if (!$startok) {
-	    &Apache::lonnet::logthis("Start date is after now");
-	}
     }
     if ((defined $end) && ($end != '')) {
-	&Apache::lonnet::logthis("checkin end time");
 	$endok = $end >= $now;
-	if (!$endok) {
-	    &Apache::lonnet::logthis("End date is prior to now");
-	}
     }
-    if (!($startok && $endok)) {
-	&Apache::lonnet::logthis("Resource not printable due to open/close date");
-   }
     return $startok && $endok;
 }
 
@@ -4042,20 +4029,15 @@
     my @parts    = @$partsref;
 
     if ((!defined(@parts)) || (scalar(@parts) == 0)) {
-	&Apache::lonnet::logthis("resprintable - no parts trying part 0");
 	return $self->printable(0);
     } else {
-	&Apache::lonnet::logthis("resprintable - have " . scalar(@parts) . "  parts require all to be good");
 	foreach my $part  (@parts) {
 	    if (!$self->printable($part)) { 
-		&Apache::lonnet::logthis("resprintable - one of the parts failed date check");
 		return 0; 
 	    }
 	}
-	&Apache::lonnet::logthis("resprintable - All parts passed date check");
 	return 1;
     }
-    &Apache::lonnet::logthis("resprintable - should not have gotten here?");
 }
 
 sub acc {