--- loncom/publisher/Attic/lonconstruct.pm	2005/04/07 06:56:26	1.30
+++ loncom/publisher/Attic/lonconstruct.pm	2005/11/08 17:58:35	1.31
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Page Wrapper for Construction
 #
-# $Id: lonconstruct.pm,v 1.30 2005/04/07 06:56:26 albertel Exp $
+# $Id: lonconstruct.pm,v 1.31 2005/11/08 17:58:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,7 +33,6 @@ package Apache::lonconstruct;
 use strict;
 use Apache::Constants qw(:common :http :methods);
 use Apache::lonnet;
-use Apache::Log ();
 use HTML::Entities();
 
 my $DEBUG = 0;
@@ -61,20 +60,12 @@ my $DEBUG = 0;
 =cut
 
 sub Debug {
-  
-  # Marshall the parameters.
-  
-  my $r       = shift;
-  my $log     = $r->log;
-  my $message = shift;
-  
-  # Put out the indicated message butonly if DEBUG is false.
-  
-  if ($DEBUG) {
-    $log->debug($message);
-  }
-}
-
+    # Put out the indicated message but only if DEBUG is true.
+    if ($DEBUG) {
+	my ($r,$message) = @_;
+	$r->log_reason($message);
+    }
+} 
 
 # ================================================================ Main Handler