--- loncom/publisher/Attic/lonconstruct.pm 2005/11/08 17:58:35 1.31
+++ loncom/publisher/Attic/lonconstruct.pm 2006/04/11 18:58:22 1.33
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construction Space Page Wrapper for Construction
#
-# $Id: lonconstruct.pm,v 1.31 2005/11/08 17:58:35 albertel Exp $
+# $Id: lonconstruct.pm,v 1.33 2006/04/11 18:58:22 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -109,19 +109,27 @@ sub handler {
$toprows = '110';
$topsrc = '/adm/localize/adm/publisher.html';
}
- my $html=&Apache::lonxml::xmlbegin();
- $r->print(<<ENDPAGE);
-$html
-<head><title>LON-CAPA Construction Space</title>
+
+ my $js=qq|
<script type="text/javascript">
var lastknownpriv="$lowerframe";
</script>
-</head>
-<frameset rows="$toprows,*" border="0">
+ |;
+
+ my $start_page=
+ &Apache::loncommon::start_page('Construction Space',$js,
+ {'frameset' => 1,
+ 'add_entries' => {
+ 'rows' => "$toprows,*",
+ 'border' => "0",}});
+ my $end_page=
+ &Apache::loncommon::end_page({'frameset' => 1});
+
+ $r->print(<<ENDPAGE);
+$start_page
<frame src='$topsrc' />
<frame src="$lowerframe" name="LONCAPAToBePublished" />
-</frameset>
-</html>
+$end_page
ENDPAGE
return OK;
}