[LON-CAPA-cvs] cvs: loncom /publisher lonconstruct.pm

Wed, 28 May 2003 21:07:20 -0000

www		Wed May 28 17:07:20 2003 EDT

  Modified files:              
    /loncom/publisher	lonconstruct.pm 
  Log:
  One half of bug #1519: construction space frameset registers with Remote.
  
  
Index: loncom/publisher/lonconstruct.pm
diff -u loncom/publisher/lonconstruct.pm:1.9 loncom/publisher/lonconstruct.pm:1.10

--- loncom/publisher/lonconstruct.pm:1.9	Mon Sep 16 09:05:49 2002
+++ loncom/publisher/lonconstruct.pm	Wed May 28 17:07:19 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Page Wrapper for Construction
 #
-# $Id: lonconstruct.pm,v 1.9 2002/09/16 13:05:49 www Exp $
+# $Id: lonconstruct.pm,v 1.10 2003/05/28 21:07:19 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,6 +44,8 @@
 use Apache::lonnet;
 use Apache::Log ();
 use HTML::Entities();
+use Apache::loncommon;
+use Apache::lonmenu;
 
 my $DEBUG = 0;
 =pod
@@ -105,11 +107,17 @@
    &Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);
    $lowerframe= &HTML::Entities::encode($lowerframe);
    &Debug($r, "LOwer frame URL after quote subst: ".$lowerframe);
-
+   my $loadevents=&Apache::lonmenu::loadevents();
+   my $unloadevents=&Apache::lonmenu::unloadevents();
+   my $script=&Apache::lonmenu::registerurl();
    $r->print(<<ENDPAGE);
 <html>
-<head><title>LON-CAPA Construction Space</title></head>
-<frameset rows="110,*" border="0">
+<head><title>LON-CAPA Construction Space</title>
+$script
+</head>
+<frameset rows="110,*" border="0" 
+onLoad="$loadevents" 
+onUnload="$unloadevents">
 <frame src='/adm/publisher.html'>
 <frame src="$lowerframe" name="LONCAPAToBePublished">
 </frameset>



