--- loncom/publisher/Attic/lonconstruct.pm 2005/04/07 06:56:26 1.30 +++ 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.30 2005/04/07 06:56:26 albertel Exp $ +# $Id: lonconstruct.pm,v 1.33 2006/04/11 18:58:22 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,7 +33,6 @@ package Apache::lonconstruct; use strict; use Apache::Constants qw(:common :http :methods); use Apache::lonnet; -use Apache::Log (); use HTML::Entities(); my $DEBUG = 0; @@ -61,20 +60,12 @@ my $DEBUG = 0; =cut sub Debug { - - # Marshall the parameters. - - my $r = shift; - my $log = $r->log; - my $message = shift; - - # Put out the indicated message butonly if DEBUG is false. - - if ($DEBUG) { - $log->debug($message); - } -} - + # Put out the indicated message but only if DEBUG is true. + if ($DEBUG) { + my ($r,$message) = @_; + $r->log_reason($message); + } +} # ================================================================ Main Handler @@ -118,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; }