--- loncom/publisher/Attic/lonconstruct.pm 2003/06/15 18:02:57 1.12
+++ loncom/publisher/Attic/lonconstruct.pm 2003/09/21 03:32:06 1.14
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construction Space Page Wrapper for Construction
#
-# $Id: lonconstruct.pm,v 1.12 2003/06/15 18:02:57 www Exp $
+# $Id: lonconstruct.pm,v 1.14 2003/09/21 03:32:06 taceyjo1 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -106,6 +106,21 @@ sub handler {
$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>