version 1.30, 2005/04/07 06:56:26
|
version 1.32, 2006/04/06 22:15:18
|
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 |
|
|
Line 118 sub handler {
|
Line 109 sub handler {
|
$toprows = '110'; |
$toprows = '110'; |
$topsrc = '/adm/localize/adm/publisher.html'; |
$topsrc = '/adm/localize/adm/publisher.html'; |
} |
} |
|
my $extra; |
|
&Apache::lontexconvert::jsMath_reset(); |
|
if ($env{'environment.texengine'} eq 'jsMath' || |
|
$env{'form.texengine'} eq 'jsMath' ) { |
|
$extra.=&Apache::lontexconvert::jsMath_header(); |
|
} |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDPAGE); |
$r->print(<<ENDPAGE); |
$html |
$html |