loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.29, 2005/04/07 06:56:27	version 1.30, 2005/11/08 17:58:35
Line 37 use File::Basename;	Line 37 use File::Basename;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;	use Apache::loncacc;
use Apache::loncommon();	use Apache::loncommon();
use Apache::Log();
use Apache::lonnet;	use Apache::lonnet;
use HTML::Entities();	use HTML::Entities();
use Apache::lonlocal;	use Apache::lonlocal;
Line 46 use Apache::lonnet;	Line 45 use Apache::lonnet;
my $DEBUG=0;	my $DEBUG=0;

sub Debug {	sub Debug {
	# Put out the indicated message but only if DEBUG is true.
# 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) {	if ($DEBUG) {
$log->debug($message);	my ($r,$message) = @_;
	$r->log_reason($message);
}	}
}	}