--- 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(<LON-CAPA Construction Space + + my $js=qq| - - + |; + + 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(< - - +$end_page ENDPAGE return OK; }