loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.72, 2005/08/26 19:44:16	version 1.73, 2005/11/08 17:58:35
Line 69 use File::Copy;	Line 69 use File::Copy;
use HTML::Entities();	use HTML::Entities();
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;	use Apache::loncacc;
use Apache::Log ();
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonlocal;	use Apache::lonlocal;
Line 101 my $r; # Needs to be global for some	Line 100 my $r; # Needs to be global for some
=cut	=cut

sub Debug {	sub Debug {

# Marshall the parameters.

my $r = shift;
my $log = $r->log;
my $message = shift;

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

if ($DEBUG) {	if ($DEBUG) {
	my ($r,$message) = @_;
$r->log_reason($message);	$r->log_reason($message);
}	}
}	}