version 1.6, 2001/12/04 15:34:57
|
version 1.32, 2006/04/06 22:15:18
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# |
# |
# (Page Handler |
|
# |
|
# (TeX Content Handler |
|
# |
|
# 05/29/00,05/30 Gerd Kortemeyer) |
|
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
|
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer) |
|
# |
|
# 11/22,11/23,11/28, |
|
# 03/30/01 Gerd Kortemeyer |
|
|
|
package Apache::lonconstruct; |
package Apache::lonconstruct; |
|
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http :methods); |
|
use Apache::lonnet; |
|
use HTML::Entities(); |
|
|
|
my $DEBUG = 0; |
|
=pod |
|
|
|
=item Debug($request, $message) |
|
|
|
If debugging is enabled puts out a debuggin message determined by the |
|
caller. The debug message goes to the Apache error log file. Debugging |
|
is enabled by ssetting the module global DEBUG variable to nonzero (TRUE). |
|
|
|
Parameters: |
|
|
|
=over 4 |
|
|
|
=item $request - The curretn request operation. |
|
|
|
=item $message - The message to put inthe log file. |
|
|
|
=back |
|
|
|
Returns: |
|
nothing. |
|
|
|
=cut |
|
|
|
sub Debug { |
|
# Put out the indicated message but only if DEBUG is true. |
|
if ($DEBUG) { |
|
my ($r,$message) = @_; |
|
$r->log_reason($message); |
|
} |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
Line 49 sub handler {
|
Line 74 sub handler {
|
|
|
# -------------------------------------------------------------- Build frameset |
# -------------------------------------------------------------- Build frameset |
|
|
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $lowerframe=$r->path_info; |
my $lowerframe=$r->path_info; |
|
&Debug($r, "Initial URL for lower frame: ".$lowerframe); |
$lowerframe=~s/^\//\/\~/; |
$lowerframe=~s/^\//\/\~/; |
|
&Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe); |
|
$lowerframe= &HTML::Entities::encode($lowerframe,'<>&"'); |
|
&Debug($r, "Lower frame URL after quote subst: ".$lowerframe); |
|
|
|
# |
|
# Are we forcing edit mode? |
|
# |
|
|
|
&Apache::loncommon::get_unprocessed_cgi |
|
($ENV{'QUERY_STRING'},['forceedit']); |
|
if ($env{'form.forceedit'}) { |
|
$lowerframe.='?editmode=Edit&problemmode=EditXML'; |
|
} |
|
&Apache::loncommon::get_unprocessed_cgi |
|
($ENV{'QUERY_STRING'},['forceColoredit']); |
|
if ($env{'form.forceColoredit'}) { |
|
$lowerframe.='?editmode=Edit&problemmode=Edit'; |
|
} |
|
|
|
# |
|
# Checking to see if we should display the topframe |
|
# |
|
my $toprows = 0; |
|
my $topsrc = ''; |
|
if ($env{'environment.remote'} ne 'off') { |
|
$toprows = '110'; |
|
$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(); |
$r->print(<<ENDPAGE); |
$r->print(<<ENDPAGE); |
<html> |
$html |
<head><title>LON-CAPA Construction Space</title></head> |
<head><title>LON-CAPA Construction Space</title> |
<frameset rows="110,*"> |
<script type="text/javascript"> |
<frame src='/adm/publisher.html'> |
var lastknownpriv="$lowerframe"; |
<frame src='$lowerframe' name="LONCAPAToBePublished"> |
</script> |
|
</head> |
|
<frameset rows="$toprows,*" border="0"> |
|
<frame src='$topsrc' /> |
|
<frame src="$lowerframe" name="LONCAPAToBePublished" /> |
</frameset> |
</frameset> |
</html> |
</html> |
ENDPAGE |
ENDPAGE |