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

Tue, 11 Apr 2006 18:58:23 -0000

albertel		Tue Apr 11 14:58:23 2006 EDT

  Modified files:              
    /loncom/publisher	lonconstruct.pm 
  Log:
  - start_page + frameset
  
  
Index: loncom/publisher/lonconstruct.pm
diff -u loncom/publisher/lonconstruct.pm:1.32 loncom/publisher/lonconstruct.pm:1.33

--- loncom/publisher/lonconstruct.pm:1.32	Thu Apr  6 18:15:18 2006
+++ loncom/publisher/lonconstruct.pm	Tue Apr 11 14:58:22 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Page Wrapper for Construction
 #
-# $Id: lonconstruct.pm,v 1.32 2006/04/06 22:15:18 albertel Exp $
+# $Id: lonconstruct.pm,v 1.33 2006/04/11 18:58:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -109,25 +109,27 @@
        $toprows = '110';
        $topsrc = '/adm/localize/adm/publisher.html';
    }
-   my $extra;
-   &Apache::lontexconvert::jsMath_reset();
-   if ($env{'environment.texengine'} eq 'jsMath' ||
-       $env{'form.texengine'}        eq 'jsMath' ) {
-       $extra.=&Apache::lontexconvert::jsMath_header();
-   }
-   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;
 }



