--- loncom/publisher/Attic/lonconstruct.pm	2002/08/24 03:56:58	1.7
+++ loncom/publisher/Attic/lonconstruct.pm	2002/09/10 02:31:26	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Page Wrapper for Construction
 #
-# $Id: lonconstruct.pm,v 1.7 2002/08/24 03:56:58 foxr Exp $
+# $Id: lonconstruct.pm,v 1.8 2002/09/10 02:31:26 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -43,7 +43,7 @@ use strict;
 use Apache::Constants qw(:common :http :methods);
 use Apache::lonnet;
 use Apache::Log ();
-
+use HTML::Entities();
 
 my $DEBUG = 0;
 =pod
@@ -103,7 +103,7 @@ sub handler {
    &Debug($r, "Initial URL for lower frame: ".$lowerframe);
    $lowerframe=~s/^\//\/\~/;
    &Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);
-   $lowerframe=~s/\"/&quot\;/g;
+   $lowerframe= &HTML::Entities::encode($lowerframe);
    &Debug($r, "LOwer frame URL after quote subst: ".$lowerframe);
 
    $r->print(<<ENDPAGE);