version 1.32, 2006/04/06 22:15:18
|
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) { |
Line 92 sub handler {
|
Line 109 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forceedit']); |
($ENV{'QUERY_STRING'},['forceedit']); |
if ($env{'form.forceedit'}) { |
if ($env{'form.forceedit'}) { |
$lowerframe.='?editmode=Edit&problemmode=EditXML'; |
$lowerframe.='?editmode=Edit&problemmode=editxml'; |
} |
} |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forceColoredit']); |
($ENV{'QUERY_STRING'},['forceColoredit']); |
if ($env{'form.forceColoredit'}) { |
if ($env{'form.forceColoredit'}) { |
$lowerframe.='?editmode=Edit&problemmode=Edit'; |
$lowerframe.='?editmode=Edit&problemmode=edit'; |
} |
} |
|
|
# |
# |
Line 109 sub handler {
|
Line 126 sub handler {
|
$toprows = '110'; |
$toprows = '110'; |
$topsrc = '/adm/localize/adm/publisher.html'; |
$topsrc = '/adm/localize/adm/publisher.html'; |
} |
} |
my $extra; |
|
&Apache::lontexconvert::jsMath_reset(); |
my $js=qq| |
if ($env{'environment.texengine'} eq 'jsMath' || |
|
$env{'form.texengine'} eq 'jsMath' ) { |
|
$extra.=&Apache::lontexconvert::jsMath_header(); |
|
} |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<ENDPAGE); |
|
$html |
|
<head><title>LON-CAPA Construction Space</title> |
|
<script type="text/javascript"> |
<script type="text/javascript"> |
var lastknownpriv="$lowerframe"; |
var lastknownpriv="$lowerframe"; |
</script> |
</script> |
</head> |
|; |
<frameset rows="$toprows,*" border="0"> |
|
|
my $start_page= |
|
&Apache::loncommon::start_page('Construction Space',$js, |
|
{'frameset' => 1, |
|
'add_entries' => { |
|
'rows' => "$toprows,*", |
|
'border' => "0",}}); |
|
my $end_page= |
|
&Apache::loncommon::end_page({'frameset' => 1}); |
|
|
|
$r->print(<<ENDPAGE); |
|
$start_page |
<frame src='$topsrc' /> |
<frame src='$topsrc' /> |
<frame src="$lowerframe" name="LONCAPAToBePublished" /> |
<frame src="$lowerframe" name="LONCAPAToBePublished" /> |
</frameset> |
$end_page |
</html> |
|
ENDPAGE |
ENDPAGE |
return OK; |
return OK; |
} |
} |