--- loncom/publisher/Attic/lonconstruct.pm 2005/11/08 17:58:35 1.31 +++ loncom/publisher/Attic/lonconstruct.pm 2008/02/03 01:11:01 1.34 @@ -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.34 2008/02/03 01:11:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -92,12 +92,12 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi ($ENV{'QUERY_STRING'},['forceedit']); if ($env{'form.forceedit'}) { - $lowerframe.='?editmode=Edit&problemmode=EditXML'; + $lowerframe.='?editmode=Edit&problemmode=editxml'; } &Apache::loncommon::get_unprocessed_cgi ($ENV{'QUERY_STRING'},['forceColoredit']); if ($env{'form.forceColoredit'}) { - $lowerframe.='?editmode=Edit&problemmode=Edit'; + $lowerframe.='?editmode=Edit&problemmode=edit'; } # @@ -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; }