loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.30, 2005/04/07 06:56:26	version 1.31, 2005/11/08 17:58:35
Line 33 package Apache::lonconstruct;	Line 33 package Apache::lonconstruct;
use strict;	use strict;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::lonnet;	use Apache::lonnet;
use Apache::Log ();
use HTML::Entities();	use HTML::Entities();

my $DEBUG = 0;	my $DEBUG = 0;
Line 61 my $DEBUG = 0;	Line 60 my $DEBUG = 0;
=cut	=cut

sub Debug {	sub Debug {
	# Put out the indicated message but only if DEBUG is true.
# Marshall the parameters.	if ($DEBUG) {
	my ($r,$message) = @_;
my $r = shift;	$r->log_reason($message);
my $log = $r->log;	}
my $message = shift;	}

# Put out the indicated message butonly if DEBUG is false.

if ($DEBUG) {
$log->debug($message);
}
}


# ================================================================ Main Handler	# ================================================================ Main Handler