--- loncom/publisher/Attic/lonconstruct.pm 2000/11/23 11:44:25 1.1
+++ loncom/publisher/Attic/lonconstruct.pm 2003/09/21 03:32:06 1.14
@@ -1,7 +1,31 @@
# The LearningOnline Network with CAPA
-#
# Construction Space Page Wrapper for Construction
#
+# $Id: lonconstruct.pm,v 1.14 2003/09/21 03:32:06 taceyjo1 Exp $
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
+#
# (Page Handler
#
# (TeX Content Handler
@@ -10,12 +34,58 @@
# 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 Gerd Kortemeyer
-
+# 11/22,11/23,11/28,
+# 03/30/01 Gerd Kortemeyer
package Apache::lonconstruct;
+
use strict;
-use Apache::Constants qw(:common :http);
+use Apache::Constants qw(:common :http :methods);
+use Apache::lonnet;
+use Apache::Log ();
+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 {
+
+ # Marshall the parameters.
+
+ my $r = shift;
+ my $log = $r->log;
+ my $message = shift;
+
+ # Put out the indicated message butonly if DEBUG is false.
+
+ if ($DEBUG) {
+ $log->debug($message);
+ }
+}
+
+
+
# ================================================================ Main Handler
@@ -29,14 +99,38 @@ sub handler {
return OK if $r->header_only;
my $lowerframe=$r->path_info;
+
+ &Debug($r, "Initial URL for lower frame: ".$lowerframe);
$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';
+ }
$r->print(<<ENDPAGE);
<html>
-<head><title>LON-CAPA Construction Space</title></head>
-<frameset rows="50,*">
-<frame src='/cgi-bin/publisher'>
-<frame src='$lowerframe'>
+<head><title>LON-CAPA Construction Space</title>
+<script language="JavaScript">
+var lastknownpriv="$lowerframe";
+</script>
+</head>
+<frameset rows="110,*" border="0">
+<frame src='/adm/publisher.html'>
+<frame src="$lowerframe" name="LONCAPAToBePublished">
</frameset>
</html>
ENDPAGE
@@ -45,9 +139,3 @@ ENDPAGE
1;
__END__
-
-
-
-
-
-