--- loncom/interface/portfolio.pm 2006/03/03 23:27:25 1.94 +++ loncom/interface/portfolio.pm 2006/03/19 22:08:38 1.97 @@ -680,12 +680,11 @@ sub handler { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; # Give the LON-CAPA page header - my $html=&Apache::lonxml::xmlbegin(); - $r->print($html.''.$title."\n"); if ($env{"form.mode"} eq 'selectfile'){ - $r->print(&Apache::loncommon::bodytag($title,undef,undef,1)); + $r->print(&Apache::loncommon::start_page($title,undef, + {'only_body' => 1})); } else { - $r->print(&Apache::loncommon::bodytag($title)); + $r->print(&Apache::loncommon::start_page($title)); } $r->rflush(); if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){ @@ -749,7 +748,7 @@ sub handler { my $is_empty=(@dir_list == 2); &display_common($r,$url,$current_path,$is_empty,\@dir_list,$group); &display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group); - $r->print("\n\n"); + $r->print(&Apache::loncommon::end_page()); } return OK; }