version 1.34, 2008/02/03 01:11:01
|
version 1.35, 2008/11/19 19:15:02
|
Line 27
|
Line 27
|
# |
# |
# |
# |
|
|
package Apache::lonconstruct; |
|
|
|
|
=pod |
|
|
use strict; |
=head1 |
use Apache::Constants qw(:common :http :methods); |
|
use Apache::lonnet; |
=head1 NAME |
use HTML::Entities(); |
|
|
Apache::lonconstruct |
|
|
|
=head1 SYNOPSIS |
|
|
|
Page wrapper for handling construction space. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
my $DEBUG = 0; |
|
=pod |
|
|
|
=item Debug($request, $message) |
=item Debug($request, $message) |
|
|
Line 59 my $DEBUG = 0;
|
Line 65 my $DEBUG = 0;
|
|
|
=cut |
=cut |
|
|
|
package Apache::lonconstruct; |
|
|
|
|
|
use strict; |
|
use Apache::Constants qw(:common :http :methods); |
|
use Apache::lonnet; |
|
use HTML::Entities(); |
|
|
|
my $DEBUG = 0; |
|
|
|
|
sub Debug { |
sub Debug { |
# Put out the indicated message but only if DEBUG is true. |
# Put out the indicated message but only if DEBUG is true. |
if ($DEBUG) { |
if ($DEBUG) { |