loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/Attic/lonconstruct.pm between versions 1.33 and 1.35

version 1.33, 2006/04/11 18:58:22	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';
}	}

#	#

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.33
changed lines
	Added in v.1.35