--- 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.'<head><title>'.$title."</title></head>\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("</body>\n</html>\n");
+ $r->print(&Apache::loncommon::end_page());
}
return OK;
}